*** keeping old topic for the archives *** I just had a need to access JCL symbols from a program. The below 2 steps [really the last one, the first is merely a convenience] capture the full original JCL at the bottom of ISFOUT, which can be then read and parsed programmatically:
//* (1) SUBSTITUTE &JOBNAME //GENTEMP EXEC PGM=EZACFSM1 //SYSIN DD * PRE &JOBNAME OWNER DA FIND &JOBNAME ++? FIND JESJCL ++S /* //SYSOUT DD UNIT=VIO,DISP=(,PASS),SPACE=(TRK,(1,1)), // DCB=(BLKSIZE=80,LRECL=80,RECFM=FB) //* (2) CAPTURE JESJCL DISPLAY //SDSFBTCH EXEC PGM=SDSF //ISFIN DD DISP=(OLD,DELETE),DSN=*.GENTEMP.SYSOUT //ISFOUT DD SYSOUT=* Hope this helps, -Victor- On Tue, 12 Jun 2007 15:17:57 -0500, Kirk Wolf <[EMAIL PROTECTED]> wrote: >Does anyone know how to read the current JCL symbols from a program? > >ASASYMB apparently won't do it. Its frustrating, since you might be >able to use for some interesting things. > >Thanks for any help, > >Kirk Wolf >Dovetailed Technologies ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
