Ok, I'm back to working on this aspect of a problem. So, I tried something interesting to try to figure this one out. The following JCL does NOT expand the string (the JOB after this does):
//SXT7279T JOB (T9999,9999,MC9999),'TEST PARMDD ',CLASS=I, // TIME=(,05), //* TYPRUN=SCAN, // MSGCLASS=X,NOTIFY=&SYSUID //* $ACFJ219 ACF2 ACTIVE HUMANA //* //* //FOCUCC EXEC FOCUCC DUAL COMPILE //* //* // SET CMB=SXT7278.CID.MBDUAL.CRDS.CID // SET CCT=SXT7278.CMPL.CNTL(RELCID) //* // SET HDY='.' //* // SET HDT='.' //* // SET SQP=Y //* // SET RNO='.' //* // SET VX='.' //* // SET NAP=NEWAPPL(BCMP) //* // EXPORT SYMLIST=* //PARMDD EXEC PGM=IEBGENER //*-+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8 //SYSUT1 DD *,SYMBOLS=(CNVTSYS,PARMLST) ISPSTART CMD(%NCMPL &HDY &HDT &SQP &RNO &VX &CCT &CMB) &NAP /* //SYSUT2 DD DSN=&&PARMDD,DISP=(,PASS),UNIT=3390, // DCB=(RECFM=VB,LRECL=4096,BLKSIZE=0), // SPACE=(TRK,1) //PARMLST DD SYSOUT=* //SYSIN DD DUMMY //SYSPRINT DD SYSOUT=* //* //* //MASSCMPL EXEC PGM=IKJEFT1B,PARMDD=PARMDD //*PARM='ISPSTART CMD(%NCMPL &HDY &HDT &SQP &RNO &VX &CCT &CMB) &NAP' //PARMDD DD DSN=&&PARMDD,DISP=OLD /* //* //* ** EXECUTE BACKGROUND CLIST TO CREATE ** //* //SYSPRINT DD SYSOUT=* //SYSTSIN DD DUMMY //SYSTSPRT DD SYSOUT=* //* ** DUMMY PANEL LIBRARY ** //ISPPLIB DD DSN=&&ISPPLIB, JES shows this in the PARMLST DD of the gener step: SYSUT1 : RECORD 1 BEFORE SUBSTITUTION SYSUT1 : ISPSTART CMD(%NCMPL &HDY &HDT &SQP &RNO &VX &CCT &CMB) &NAP SYSUT1 : RECORD 1 AFTER SUBSTITUTION SYSUT1 : ISPSTART CMD(%NCMPL &HDY &HDT &SQP &RNO &VX &CCT &CMB) &NAP THIS JOB WORKS for the expansion, but not in the execution!!: //SXT7278T JOB (T9999,9999,MC9999),'TEST OF PARMDD',CLASS=I, //* TYPRUN=SCAN, // TIME=(0,10), // MSGCLASS=X,NOTIFY=&SYSUID //*+JTS HOLD_UNTIL NOW //* $ACFJ219 ACF2 ACTIVE HUMANA //* //* // EXPORT SYMLIST=* //* //* //*OCUCC EXEC FOCUCC //* //* // SET HDY='TODAY' //* // SET HDT='10:00' //* // SET SQP='YES' //* // SET RNO='.' //* // SET VX='.' //* // SET CCT=SXT7278.CMPL.CNTL(RELCID) //* // SET CMB=TESTAEN.CID.MBB.CRDS.CID //* // SET NAP=NEWAPPL(BCMP) //* //* //PARMDD EXEC PGM=IEBGENER //*-+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8 //SYSUT1 DD *,SYMBOLS=(CNVTSYS,PARMLST) ISPSTART CMD(%NCMPL &HDY &HDT &SQP &RNO &VX &CCT &CMB) &NAP /* //SYSUT2 DD DSN=&&PARMDD,DISP=(,PASS),UNIT=3390, // DCB=(RECFM=VB,LRECL=4096,BLKSIZE=0), // SPACE=(TRK,1) //PARMLST DD SYSOUT=* //SYSIN DD DUMMY //SYSPRINT DD SYSOUT=* //* //MASSCMPL EXEC PGM=IKJEFT1B,PARMDD=PARMLST //*PARM='ISPSTART CMD(%NCMPL &HDY &HDT &SQP &RNO &VX &CCT &CMB) &NAP' //PARMLST DD DSN=&&PARMDD,DISP=(OLD,DELETE) //* //* ** EXECUTE BACKGROUND CLIST TO CREATE ** //* //SYSPRINT DD SYSOUT=* //SYSTSIN DD DUMMY //SYSTSPRT DD SYSOUT=* //* ** DUMMY PANEL LIBRARY ** //ISPPLIB DD DSN=&&ISPPLIB, JES shows this in the PARMLST DD of the Gener step: SYSUT1 : RECORD 1 BEFORE SUBSTITUTION SYSUT1 : ISPSTART CMD(%NCMPL &HDY &HDT &SQP &RNO &VX &CCT &CMB) &NAP SYSUT1 : RECORD 1 AFTER SUBSTITUTION (TRUNCATED AT 80) SYSUT1 : ISPSTART CMD(%NCMPL TODAY 10:00 YES . . SXT7278.CMPL.CNTL(RELCID) TESTAEN.CID.MBB.CRDS.CID) NEWAPPL(BCMP) SYSUT1 : RECORD 1 AFTER SUBSTITUTION (TRUNCATED AT 80) SYSUT1 : ISPSTART CMD(%NCMPL TODAY 10:00 YES . . SXT7278.CMPL.CNTL(RELCID) TESTAEN.CID.MBB.CRDS.CID) NEWAPPL(BCMP) SYSUT1 : RECORD 1 AFTER SUBSTITUTION (TRUNCATED AT 80) SYSUT1 : ISPSTART CMD(%NCMPL TODAY 10:00 YES . . SXT7278.CMPL.CNTL(RELCID) TESTAEN.CID.MBB.CRDS.CID) NEWAPPL(BCMP) SYSUT1 : RECORD 1 AFTER SUBSTITUTION (TRUNCATED AT 80) SYSUT1 : ISPSTART CMD(%NCMPL TODAY 10:00 YES . . SXT7278.CMPL.CNTL(RELCID) TESTAEN.CID.MBB.CRDS.CID) NEWAPPL(BCMP) SYSUT1 : RECORD 1 AFTER SUBSTITUTION (TRUNCATED AT 80) SYSUT1 : ISPSTART CMD(%NCMPL TODAY 10:00 YES . . SXT7278.CMPL.CNTL(RELCID) TESTAEN.CID.MBB.CRDS.CID) NEWAPPL(BCMP) The next step does not work, because SYSUT2 had an I/O error. Apparently it doesn't like the SYSUT1 for writing to SYSUT2 for SYSOUT=*. Well, after more testing, I found that you really can't copy or do a refer-back to pick it up. Now, why does it work for the one and not the other? It appears it is the special utility program that FOCUCC invokes: U11RMS Regards, Steve Thompson Tech Architect The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
