Missing exit. Can't remember the name but someone will. IBM provide sample which a lot of shops use or modify.
On Fri, Jun 28, 2013 at 11:34 AM, Paul Gilmartin <[email protected]> wrote: > z/OS 1.13. SDSF shows me: > > SDSF JOB DATA SET DISPLAY - JOB GIMZIP (JOB06889) LINE 1-13 (13) > PREFIX=* DEST=(ALL) OWNER=user SORT=StepName/A SYSNAME= > NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt > JESJCLIN 1 user A 33 > $JOURNAL 6 user A 104 > UNUSED 101 user A 1 > SYSIN 104 user A 12 > JESMSGLG JES2 2 user R LOCAL 21 > JESJCL JES2 3 user R LOCAL 37 > JESYSMSG JES2 4 user R LOCAL 55 > $INTTEXT JES2 5 user A 21 > SYSIN STEP0 CALLED 102 user A 0 > SYSUT1 STEP0 CALLED 103 user A 1 > SYSPRINT STEP0 CALLED 109 user R LOCAL 4 > SYSUT2 STEP0 CALLED 110 user R LOCAL 1 > SMPOUT STEP1 111 user R LOCAL 6 > > Why, for example, does it not show "STEP1" as the StepName for DSID 104, > which is the SYSIN for "//STEP1 EXEC PGM=GIMZIP"? The step name is likewise > blank when I use retrieve the job using the Rexx API. I suppose I should be > grateful for consistency. > > JCL as submitted; some qualifiers obfuscated: > > // > //GIMZIP JOB 505303JOB,'Paul Gilmartin', > // MSGLEVEL=(1,1),REGION=0M > //* > //USERC OUTPUT JESDS=ALL,DEFAULT=YES, > // CLASS=R,PAGEDEF=V0648Z,CHARS=GT12 > //* > //*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....| > //P PROC > //CALLED EXEC PGM=IEBGENER > //UNUSED DD * > nevermore > //SYSPRINT DD SYSOUT=(,) > //SYSIN DD * > //SYSUT2 DD SYSOUT=(,) > //SYSUT1 DD * > whatever > // PEND > //* > //STEP0 EXEC P > //* > //STEP1 EXEC PGM=GIMZIP > //SMPDIR DD PATH='/tmp/user/smpdir' > //SMPWKDIR DD PATH='/tmp/user/smpwkdir' > //SMPCPATH DD PATH='/usr/lpp/smp/classes/.' > //SMPJHOME DD PATH='/usr/lpp/java/J6.0.1' > //SMPOUT DD SYSOUT=(,) | > //SYSPRINT DD SYSOUT=(,) | > //SYSUT2 DD UNIT=SYSALLDA,SPACE=(4096,(1000,1000)) | > //SYSUT3 DD UNIT=SYSALLDA,SPACE=(1000,(1000,100)) | > //SYSUT4 DD UNIT=SYSALLDA,SPACE=(1000,(1000,100)) | > //SYSIN DD * | > <GIMZIP description="This is a sample software package."> > <!-- This sample package contains the files shown below. --> > <FILEDEF name="/u/user/charsets" > description="This is a sample UNIX directory."> > </FILEDEF> > <FILEDEF name="hlq2.ITD.GLOBAL.CSI" > description="This is a sample VSAM cluster."> > </FILEDEF> > <FILEDEF name="hlq1.user.HPDM.LINKLIB" > description="This is a sample program object library."> > </FILEDEF> > </GIMZIP> > // > //*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....| > // > :w ! submit $MVS_HOST > > -- gil > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
