`submit('*')` breaks this specific JCL

[mainframed]

I posted this in Discord but was asked to attach the JCL output and its easier to post here.

In the process of rewriting parts of MVP to support batch i implemented using submit('*') and queue. I'm not sure why but this JCL https://github.com/MVS-sysgen/SOFTWARE/blob/main/ISPF/%23001JCL.jcl would have artifacts in it preventing it from running. Submitting the JCL as a stem works fine. the code in question: https://github.com/MVS-sysgen/MVP/blob/a52124752297c5dacaac1a0a8c70a81831a396bf/MVP.rexx#L640

This only breaks this specific JCL, not any others.

If you replace

  total = queued()

  do x=1 to queued()                                
    pull element                                    
    jclstem.x = element                             
  end                                               
  jclstem.0 = total                                     

  call debug "submit_XMI_jcl: submitting" jclstem.0 "lines" 
  call submit('jclstem.') 

with

  call debug "submit_XMI_jcl: submitting" queued() "lines" 
  call submit('*') 

it causes the following errors:

****A   END   JOB   17  ISPF      MVP INSTALL           ROOM        1.47.50 PM 17 JUL 22  PRINTER1  SYS MVSC  JOB   17   END   A****

                          ##    ##      00000000      00000000         11         JJJJJJJJJJ   CCCCCCCCCC   LL

                         ##    ##     0000000000    0000000000       111         JJJJJJJJJJ  CCCCCCCCCCCC  LL

                      ############  00      0000  00      0000     1111             JJ      CC        CC  LL

                     ############  00     00 00  00     00 00       11             JJ      CC            LL

                      ##    ##    00    00  00  00    00  00       11             JJ      CC            LL

                     ##    ##    00   00   00  00   00   00       11             JJ      CC            LL

                    ##    ##    00  00    00  00  00    00       11             JJ      CC            LL

                   ##    ##    00 00     00  00 00     00       11             JJ      CC            LL

                ############  0000      00  0000      00       11       JJ    JJ      CC            LL

               ############  000       00  000       00       11       JJ    JJ      CC        CC  LL

                ##    ##     0000000000    0000000000    1111111111   JJJJJJJJ      CCCCCCCCCCCC  LLLLLLLLLLLL

               ##    ##      00000000      00000000     1111111111    JJJJJJ        CCCCCCCCCC   LLLLLLLLLLLL

                    JJJJJJJJJJ       11        8888888888                                              AAAAAAAAAA

                    JJJJJJJJJJ      111       888888888888                                            AAAAAAAAAAAA

                        JJ         1111       88        88                                            AA        AA

                        JJ           11       88        88                                            AA        AA

                        JJ           11        88      88                                             AA        AA

                        JJ           11         88888888                                              AAAAAAAAAAAA

                        JJ           11         88888888                                              AAAAAAAAAAAA

                        JJ           11        88      88                                             AA        AA

                  JJ    JJ           11       88        88                                            AA        AA

                  JJ    JJ           11       88        88                                            AA        AA

                  JJJJJJJJ       1111111111   888888888888                                            AA        AA

                   JJJJJJ        1111111111    8888888888                                             AA        AA

****A  START  JOB   18  #001JCL   Install ISPF          ROOM        1.47.55 PM 17 JUL 22  PRINTER1  SYS MVSC  JOB   18  START  A****

                                                J E S 2   J O B   L O G

13.47.55 JOB   18  IEF452I #001JCL  JOB NOT RUN - JCL ERROR

------ JES2 JOB STATISTICS ------

       185 CARDS READ

       231 SYSOUT PRINT RECORDS

         0 SYSOUT PUNCH RECORDS

      0.00 MINUTES EXECUTION TIME

    1     //#001JCL JOB (TSO),                                                    JOB   18

          //             'Install ISPF',

          //             CLASS=A,

          //             MSGCLASS=A,

          //             MSGLEVEL=(1,1),

          //    USER=MVP,PASSWORD=

          *** ----- CLEAN UP -----

    2     //CLEANUP EXEC PGM=IDCAMS

    3     //SYSPRINT DD SYSOUT=*

    4     //SYSIN    DD *

          ***

          *** RECV370 Proc

          ***

          //RECV    PROC DSN=LLIB

          //* ---- RECEIVE ----

          //RECVJCL EXEC PGM=RECV370

          //STEPLIB  DD  DISP=SHR,DSN=SYSC.LINKLIB

          //XMITIN   DD  DSN=MVP.WORK(&DSN),DISP=SHR

          //RECVLOG  DD  SYSOUT=*

          //SYSPRINT DD  SYSOUT=*

          //SYSIN    DD  DUMMY

          //* Work temp dataset

          //SYSUT1   DD  DSN=&&SYSUT1,

          //             VOL=SER=PUB001,

          //             UNIT=3390,

          //             SPACE=(CYL,(8,4),RLSE),

          //             DISP=(,DELETE)

          //* Output dataset

          //SYSUT2   DD  DISP=(NEW,CATLG),

          //             DSN=SYSGEN.ISPF.&DSN,

          //             DCB=SYS1.MACLIB,

          //             SPACE=(CYL,(2,0,20),RLSE),

          //             UNIT=SYSDA,

          //             VOL=SER=PUB001

          //         PEND

          *** ***************************

    5     //DOC      EXEC RECV,DSN=DOC

    6     ++RECV    PROC DSN=LLIB

          *** ---- RECEIVE ----

    7     ++RECVJCL EXEC PGM=RECV370

    8     ++STEPLIB  DD  DISP=SHR,DSN=SYSC.LINKLIB

    9     ++XMITIN   DD  DSN=MVP.WORK(&DSN),DISP=SHR

   10     ++RECVLOG  DD  SYSOUT=*

   11     ++SYSPRINT DD  SYSOUT=*

   12     ++SYSIN    DD  DUMMY

          *** Work temp dataset

   13     ++SYSUT1   DD  DSN=&&SYSUT1,

          ++             VOL=SER=PUB001,

          ++             UNIT=3390,

          ++             SPACE=(CYL,(8,4),RLSE),

          ++             DISP=(,DELETE)

          *** Output dataset

   14     ++SYSUT2   DD  DISP=(NEW,CATLG),

          ++             DSN=SYSGEN.ISPF.&DSN,

          ++             DCB=SYS1.MACLIB,

   15     ++             SPACE=(CYL,(2,0,20),RLSE),

   16     ++             UNIT=SYSDA,

   17     ++             VOL=SER=PUB001

   18     //MLIB     EXEC RECV,DSN=MLIB

   19     ++RECV    PROC DSN=LLIB

          *** ---- RECEIVE ----

                                  20     ++RECVJCL EXEC PGM=RECV370

   21     ++STEPLIB  DD  DISP=SHR,DSN=SYSC.LINKLIB

   22     ++XMITIN   DD  DSN=MVP.WORK(&DSN),DISP=SHR

   23     ++RECVLOG  DD  SYSOUT=*

   24     ++SYSPRINT DD  SYSOUT=*

   25     ++SYSIN    DD  DUMMY

          *** Work temp dataset

   26     ++SYSUT1   DD  DSN=&&SYSUT1,

          ++             VOL=SER=PUB001,

          ++             UNIT=3390,

          ++             SPACE=(CYL,(8,4),RLSE),

          ++             DISP=(,DELETE)

          *** Output dataset

   27     ++SYSUT2   DD  DISP=(NEW,CATLG),

          ++             DSN=SYSGEN.ISPF.&DSN,

          ++             DCB=SYS1.MACLIB,

   28     ++             SPACE=(CYL,(2,0,20),RLSE),

   29     ++             UNIT=SYSDA,

   30     ++             VOL=SER=PUB001

   31     //PLIB     EXEC RECV,DSN=PLIB

   32     ++RECV    PROC DSN=LLIB

          *** ---- RECEIVE ----

   33     ++RECVJCL EXEC PGM=RECV370

   34     ++STEPLIB  DD  DISP=SHR,DSN=SYSC.LINKLIB

   35     ++XMITIN   DD  DSN=MVP.WORK(&DSN),DISP=SHR

   36     ++RECVLOG  DD  SYSOUT=*

   37     ++SYSPRINT DD  SYSOUT=*

   38     ++SYSIN    DD  DUMMY

          *** Work temp dataset

   39     ++SYSUT1   DD  DSN=&&SYSUT1,

          ++             VOL=SER=PUB001,

          ++             UNIT=3390,

          ++             SPACE=(CYL,(8,4),RLSE),

          ++             DISP=(,DELETE)

          *** Output dataset

   40     ++SYSUT2   DD  DISP=(NEW,CATLG),

          ++             DSN=SYSGEN.ISPF.&DSN,

          ++             DCB=SYS1.MACLIB,

   41     ++             SPACE=(CYL,(2,0,20),RLSE),

   42     ++             UNIT=SYSDA,

   43     ++             VOL=SER=PUB001

   44     //RFEPLIB  EXEC RECV,DSN=RFEPLIB

          *** ---- RECEIVE LOADLIB ----

   45     ++RECV    PROC DSN=LLIB

          *** ---- RECEIVE ----

   46     ++RECVJCL EXEC PGM=RECV370

   47     ++STEPLIB  DD  DISP=SHR,DSN=SYSC.LINKLIB

   48     ++XMITIN   DD  DSN=MVP.WORK(&DSN),DISP=SHR

   49     ++RECVLOG  DD  SYSOUT=*

   50     ++SYSPRINT DD  SYSOUT=*

   51     ++SYSIN    DD  DUMMY

          *** Work temp dataset

   52     ++SYSUT1   DD  DSN=&&SYSUT1,

          ++             VOL=SER=PUB001,

          ++             UNIT=3390,

          ++             SPACE=(CYL,(8,4),RLSE),

          ++             DISP=(,DELETE)

          *** Output dataset

   53     ++SYSUT2   DD  DISP=(NEW,CATLG),

          ++             DSN=SYSGEN.ISPF.&DSN,

          ++             DCB=SYS1.MACLIB,

                                            54     ++             SPACE=(CYL,(2,0,20),RLSE),

   55     ++             UNIT=SYSDA,

   56     ++             VOL=SER=PUB001

   57     //RECVLOAD EXEC PGM=RECV370

   58     //STEPLIB  DD  DISP=SHR,DSN=SYSC.LINKLIB

   59     //XMITIN   DD  DSN=MVP.WORK(LLIB),DISP=SHR

   60     //RECVLOG  DD  SYSOUT=*

   61     //SYSPRINT DD  SYSOUT=*

   62     //SYSIN    DD  DUMMY

          *** Work temp dataset

   63     //SYSUT1   DD  DSN=&&SYSUT1,

          //             VOL=SER=PUB001,

          //             UNIT=3390,

          //             SPACE=(CYL,(8,4),RLSE),

          //             DISP=(,DELETE)

          *** Output dataset

   64     //SYSUT2   DD  DISP=(NEW,CATLG),

          //             DSN=SYSGEN.ISPF.LLIB,

          //             SPACE=(CYL,(2,0,20),RLSE),

          //             UNIT=SYSDA,

          //             VOL=SER=PUB001,

          //             DCB=(RECFM=U,BLKSIZE=19069)

          *** ***************************

          *** Create empty DSNs

          *** I'm not sure we need these

          *** But they're in the original Wally ISPF

          *** And they get allocated in the CLIST provided by Wally

          ***

   65     //SYS2EXEC EXEC PGM=IEFBR14

   66     //SLIB     DD DSN=SYSGEN.ISPF.SLIB,DISP=(,CATLG),

          //         VOL=SER=PUB001,UNIT=SYSDA,SPACE=(CYL,(2,0,20),RLSE)IT=SYSDA,SPACE=(CY

   67     //SYSIN     DD *               GENERATED STATEMENT

   68     //SLIB     DD DSN=SYSGEN.ISPF.TLIB,DISP=(,CATLG),

          //         VOL=SER=PUB001,UNIT=SYSDA,SPACE=(CYL,(2,0,20),RLSE)IT=SYSDA,SPACE=(CY

   69     //SYSIN     DD *               GENERATED STATEMENT

   70     //CLIB     DD DSN=SYSGEN.ISPF.CLIB,DISP=(,CATLG),

          //         VOL=SER=PUB001,UNIT=SYSDA,SPACE=(CYL,(2,0,20),RLSE)IT=SYSDA,SPACE=(CY

   71     //SYSIN     DD *               GENERATED STATEMENT

          ***

          *** Add ISPF CLIST to SYS1.CMDPROC

          ***

   72     //CLIST    EXEC PGM=IEBGENER

   73     //SYSPRINT DD  SYSOUT=*

   74     //SYSIN    DD DUMMY

   75     //SYSUT2   DD  DSN=SYS1.CMDPROC(ISPF),DISP=SHR

   76     //SYSUT1   DD  DATA,DLM=@@

          ***

          *** Apply ISPMAINT

          ***

   77     //IMASPZAP EXEC PGM=IMASPZAP,PARM=IGNIDRFULL

   78     //SYSLIB   DD   DSN=SYSGEN.ISPF.LLIB,DISP=SHR

   79     //SYSPRINT DD   SYSOUT=*

   80     //SYSIN    DD   *

          ***

          *** Install ACETEST

          ***

   81     //ACEINST    EXEC PGM=IEBCOPY

   82     //SYSPRINT DD   SYSOUT=*

   83     //ISPLLIB  DD   DSN=SYSGEN.ISPF.LLIB,DISP=SHR

   84     //ACEAPF   DD   DSN=SYS2.LINKLIB,DISP=SHR

   85     //SYSIN    DD   *

                                     ***

          *** Add ACEAUTH to SYS2.PROCLIB and SYS2.PARMLIB

          ***

   86     //ACEAUTH  EXEC PGM=IEBGENER

   87     //SYSPRINT DD  SYSOUT=*

   88     //SYSIN    DD  DUMMY

   89     //SYSUT2   DD  DSN=SYS2.PROCLIB(ACEAUTH),DISP=SHR

   90     //SYSUT1   DD  DATA,DLM=@@

   91     //ACEAUTH  EXEC PGM=IEBGENER

   92     //SYSPRINT DD  SYSOUT=*

   93     //SYSIN    DD  DUMMY

   94     //SYSUT2   DD  DSN=SYS2.PARMLIB(ACEAUTH),DISP=SHR

   95     //SYSUT1   DD  *

 STMT NO. MESSAGE

-

    9     IEF653I SUBSTITUTION JCL - DSN=MVP.WORK(DOC),DISP=SHR

   14     IEF653I SUBSTITUTION JCL - DSN=SYSGEN.ISPF.DOC,

   14     IEF632I FORMAT ERROR IN THE DCB FIELD

   15     IEF605I UNIDENTIFIED OPERATION FIELD

   16     IEF605I UNIDENTIFIED OPERATION FIELD

   17     IEF605I UNIDENTIFIED OPERATION FIELD

   22     IEF653I SUBSTITUTION JCL - DSN=MVP.WORK(MLIB),DISP=SHR

   27     IEF653I SUBSTITUTION JCL - DSN=SYSGEN.ISPF.MLIB,

   27     IEF632I FORMAT ERROR IN THE DCB FIELD

   28     IEF605I UNIDENTIFIED OPERATION FIELD

   29     IEF605I UNIDENTIFIED OPERATION FIELD

   30     IEF605I UNIDENTIFIED OPERATION FIELD

   35     IEF653I SUBSTITUTION JCL - DSN=MVP.WORK(PLIB),DISP=SHR

   40     IEF653I SUBSTITUTION JCL - DSN=SYSGEN.ISPF.PLIB,

   40     IEF632I FORMAT ERROR IN THE DCB FIELD

   41     IEF605I UNIDENTIFIED OPERATION FIELD

   42     IEF605I UNIDENTIFIED OPERATION FIELD

   43     IEF605I UNIDENTIFIED OPERATION FIELD

   48     IEF653I SUBSTITUTION JCL - DSN=MVP.WORK(RFEPLIB),DISP=SHR

   53     IEF653I SUBSTITUTION JCL - DSN=SYSGEN.ISPF.RFEPLIB,

   53     IEF632I FORMAT ERROR IN THE DCB FIELD

   54     IEF605I UNIDENTIFIED OPERATION FIELD

   55     IEF605I UNIDENTIFIED OPERATION FIELD

   56     IEF605I UNIDENTIFIED OPERATION FIELD

   66     IEF632I FORMAT ERROR IN THE SPACE FIELD

   66     IEF621I EXPECTED CONTINUATION NOT RECEIVED

   68     IEF632I FORMAT ERROR IN THE SPACE FIELD

   68     IEF621I EXPECTED CONTINUATION NOT RECEIVED

   70     IEF632I FORMAT ERROR IN THE SPACE FIELD

   70     IEF621I EXPECTED CONTINUATION NOT RECEIVED

                          ##    ##      00000000      00000000         11         JJJJJJJJJJ   CCCCCCCCCC   LL

                         ##    ##     0000000000    0000000000       111         JJJJJJJJJJ  CCCCCCCCCCCC  LL

                      ############  00      0000  00      0000     1111             JJ      CC        CC  LL

                     ############  00     00 00  00     00 00       11             JJ      CC            LL

                      ##    ##    00    00  00  00    00  00       11             JJ      CC            LL

                     ##    ##    00   00   00  00   00   00       11             JJ      CC            LL

                    ##    ##    00  00    00  00  00    00       11             JJ      CC            LL

                   ##    ##    00 00     00  00 00     00       11             JJ      CC            LL

                ############  0000      00  0000      00       11       JJ    JJ      CC            LL

               ############  000       00  000       00       11       JJ    JJ      CC        CC  LL

                ##    ##     0000000000    0000000000    1111111111   JJJJJJJJ      CCCCCCCCCCCC  LLLLLLLLLLLL

               ##    ##      00000000      00000000     1111111111    JJJJJJ        CCCCCCCCCC   LLLLLLLLLLLL

                    JJJJJJJJJJ       11        8888888888                                              AAAAAAAAAA

                    JJJJJJJJJJ      111       888888888888                                            AAAAAAAAAAAA

                        JJ         1111       88        88                                            AA        AA

                        JJ           11       88        88                                            AA        AA

                        JJ           11        88      88                                             AA        AA

                        JJ           11         88888888                                              AAAAAAAAAAAA

                        JJ           11         88888888                                              AAAAAAAAAAAA

                        JJ           11        88      88                                             AA        AA

                  JJ    JJ           11       88        88                                            AA        AA

                  JJ    JJ           11       88        88                                            AA        AA

                  JJJJJJJJ       1111111111   888888888888                                            AA        AA

                   JJJJJJ        1111111111    8888888888                                             AA        AA

****A   END   JOB   18  #001JCL   Install ISPF          ROOM        1.47.55 PM 17 JUL 22  PRINTER1  SYS MVSC  JOB   18   END   A****

Here's the output of the JCL when using `submit('jclstem.')

****A   END   JOB   23  ISPF      MVP INSTALL           ROOM        2.05.16 PM 17 JUL 22  PRINTER1  SYS MVSC  JOB   23   END   A****

                          ##    ##      00000000      00000000         11         JJJJJJJJJJ   CCCCCCCCCC   LL

                         ##    ##     0000000000    0000000000       111         JJJJJJJJJJ  CCCCCCCCCCCC  LL

                      ############  00      0000  00      0000     1111             JJ      CC        CC  LL

                     ############  00     00 00  00     00 00       11             JJ      CC            LL

                      ##    ##    00    00  00  00    00  00       11             JJ      CC            LL

                     ##    ##    00   00   00  00   00   00       11             JJ      CC            LL

                    ##    ##    00  00    00  00  00    00       11             JJ      CC            LL

                   ##    ##    00 00     00  00 00     00       11             JJ      CC            LL

                ############  0000      00  0000      00       11       JJ    JJ      CC            LL

               ############  000       00  000       00       11       JJ    JJ      CC        CC  LL

                ##    ##     0000000000    0000000000    1111111111   JJJJJJJJ      CCCCCCCCCCCC  LLLLLLLLLLLL

               ##    ##      00000000      00000000     1111111111    JJJJJJ        CCCCCCCCCC   LLLLLLLLLLLL

                    JJJJJJJJJJ   2222222222         444                                                AAAAAAAAAA

                    JJJJJJJJJJ  222222222222       4444                                               AAAAAAAAAAAA

                        JJ      22        22      44 44                                               AA        AA

                        JJ                22     44  44                                               AA        AA

                        JJ                22    44   44                                               AA        AA

                        JJ               22    44444444444                                            AAAAAAAAAAAA

                        JJ             22     444444444444                                            AAAAAAAAAAAA

                        JJ           22              44                                               AA        AA

                  JJ    JJ         22                44                                               AA        AA

                  JJ    JJ       22                  44                                               AA        AA

                  JJJJJJJJ      222222222222         44                                               AA        AA

                   JJJJJJ       222222222222         44                                               AA        AA

****A  START  JOB   24  #001JCL   INSTALL ISPF          ROOM        2.05.20 PM 17 JUL 22  PRINTER1  SYS MVSC  JOB   24  START  A****

                                                J E S 2   J O B   L O G

14.05.19 JOB   24  $HASP373 #001JCL  STARTED - INIT  1 - CLASS A - SYS MVSC

14.05.19 JOB   24  IEF403I #001JCL - STARTED - TIME=14.05.19

14.05.19 JOB   24  IEFACTRT CLEANUP /IDCAMS  /00:00:00.05/00:00:00.09/00000/#001JCL

14.05.19 JOB   24  IEFACTRT RECVJCL /RECV370 /00:00:00.07/00:00:00.21/00000/#001JCL

14.05.19 JOB   24  IEFACTRT RECVJCL /RECV370 /00:00:00.08/00:00:00.25/00000/#001JCL

14.05.20 JOB   24  IEFACTRT RECVJCL /RECV370 /00:00:00.07/00:00:00.39/00000/#001JCL

14.05.20 JOB   24  IEFACTRT RECVJCL /RECV370 /00:00:00.08/00:00:00.32/00000/#001JCL

14.05.20 JOB   24  IEFACTRT RECVLOAD/RECV370 /00:00:00.08/00:00:00.21/00000/#001JCL

14.05.20 JOB   24  IEFACTRT SYS2EXEC/IEFBR14 /00:00:00.00/00:00:00.06/00000/#001JCL

14.05.20 JOB   24  IEFACTRT CLIST   /IEBGENER/00:00:00.01/00:00:00.03/00000/#001JCL

14.05.20 JOB   24  IEFACTRT IMASPZAP/IMASPZAP/00:00:00.02/00:00:00.04/00000/#001JCL

14.05.20 JOB   24  IEFACTRT ACEINST /IEBCOPY /00:00:00.04/00:00:00.09/00000/#001JCL

14.05.20 JOB   24  IEFACTRT ACEAUTH /IEBGENER/00:00:00.02/00:00:00.03/00000/#001JCL

14.05.20 JOB   24  IEFACTRT ACEAUTH /IEBGENER/00:00:00.01/00:00:00.02/00000/#001JCL

14.05.20 JOB   24  IEF404I #001JCL - ENDED - TIME=14.05.20

14.05.20 JOB   24  $HASP395 #001JCL  ENDED

------ JES2 JOB STATISTICS ------

 17 JUL 22 JOB EXECUTION DATE

       175 CARDS READ

       907 SYSOUT PRINT RECORDS

         0 SYSOUT PUNCH RECORDS

      0.03 MINUTES EXECUTION TIME

    1     //#001JCL JOB (TSO),                                                    JOB   24

          //             'INSTALL ISPF',

          //             CLASS=A,

          //             MSGCLASS=A,

          //             MSGLEVEL=(1,1),

          //    USER=MVP,PASSWORD=

          *** ----- CLEAN UP -----

    2     //CLEANUP EXEC PGM=IDCAMS

    3     //SYSPRINT DD SYSOUT=*

    4     //SYSIN    DD *

          ***

          *** RECV370 PROC

          ***

          //RECV    PROC DSN=LLIB

          //* ---- RECEIVE ----

          //RECVJCL EXEC PGM=RECV370

          //STEPLIB  DD  DISP=SHR,DSN=SYSC.LINKLIB

          //XMITIN   DD  DSN=MVP.WORK(&DSN),DISP=SHR

          //RECVLOG  DD  SYSOUT=*

          //SYSPRINT DD  SYSOUT=*

          //SYSIN    DD  DUMMY

          //* WORK TEMP DATASET

          //SYSUT1   DD  DSN=&&SYSUT1,

          //             VOL=SER=PUB001,

          //             UNIT=3390,

          //             SPACE=(CYL,(8,4),RLSE),

          //             DISP=(,DELETE)

          //* OUTPUT DATASET

          //SYSUT2   DD  DISP=(NEW,CATLG),

          //             DSN=SYSGEN.ISPF.&DSN,

          //             DCB=SYS1.MACLIB,

          //             SPACE=(CYL,(2,0,20),RLSE),

          //             UNIT=SYSDA,

          //             VOL=SER=PUB001

          //         PEND

          *** ***************************

    5     //DOC      EXEC RECV,DSN=DOC

    6     ++RECV    PROC DSN=LLIB

          *** ---- RECEIVE ----

    7     ++RECVJCL EXEC PGM=RECV370

    8     ++STEPLIB  DD  DISP=SHR,DSN=SYSC.LINKLIB

    9     ++XMITIN   DD  DSN=MVP.WORK(&DSN),DISP=SHR

   10     ++RECVLOG  DD  SYSOUT=*

   11     ++SYSPRINT DD  SYSOUT=*

   12     ++SYSIN    DD  DUMMY

          *** WORK TEMP DATASET

   13     ++SYSUT1   DD  DSN=&&SYSUT1,

          ++             VOL=SER=PUB001,

          ++             UNIT=3390,

          ++             SPACE=(CYL,(8,4),RLSE),

          ++             DISP=(,DELETE)

          *** OUTPUT DATASET

   14     ++SYSUT2   DD  DISP=(NEW,CATLG),

          ++             DSN=SYSGEN.ISPF.&DSN,

          ++             DCB=SYS1.MACLIB,

          ++             SPACE=(CYL,(2,0,20),RLSE),

          ++             UNIT=SYSDA,

          ++             VOL=SER=PUB001

   15     //MLIB     EXEC RECV,DSN=MLIB

   16     ++RECV    PROC DSN=LLIB

          *** ---- RECEIVE ----

                                  17     ++RECVJCL EXEC PGM=RECV370

   18     ++STEPLIB  DD  DISP=SHR,DSN=SYSC.LINKLIB

   19     ++XMITIN   DD  DSN=MVP.WORK(&DSN),DISP=SHR

   20     ++RECVLOG  DD  SYSOUT=*

   21     ++SYSPRINT DD  SYSOUT=*

   22     ++SYSIN    DD  DUMMY

          *** WORK TEMP DATASET

   23     ++SYSUT1   DD  DSN=&&SYSUT1,

          ++             VOL=SER=PUB001,

          ++             UNIT=3390,

          ++             SPACE=(CYL,(8,4),RLSE),

          ++             DISP=(,DELETE)

          *** OUTPUT DATASET

   24     ++SYSUT2   DD  DISP=(NEW,CATLG),

          ++             DSN=SYSGEN.ISPF.&DSN,

          ++             DCB=SYS1.MACLIB,

          ++             SPACE=(CYL,(2,0,20),RLSE),

          ++             UNIT=SYSDA,

          ++             VOL=SER=PUB001

   25     //PLIB     EXEC RECV,DSN=PLIB

   26     ++RECV    PROC DSN=LLIB

          *** ---- RECEIVE ----

   27     ++RECVJCL EXEC PGM=RECV370

   28     ++STEPLIB  DD  DISP=SHR,DSN=SYSC.LINKLIB

   29     ++XMITIN   DD  DSN=MVP.WORK(&DSN),DISP=SHR

   30     ++RECVLOG  DD  SYSOUT=*

   31     ++SYSPRINT DD  SYSOUT=*

   32     ++SYSIN    DD  DUMMY

          *** WORK TEMP DATASET

   33     ++SYSUT1   DD  DSN=&&SYSUT1,

          ++             VOL=SER=PUB001,

          ++             UNIT=3390,

          ++             SPACE=(CYL,(8,4),RLSE),

          ++             DISP=(,DELETE)

          *** OUTPUT DATASET

   34     ++SYSUT2   DD  DISP=(NEW,CATLG),

          ++             DSN=SYSGEN.ISPF.&DSN,

          ++             DCB=SYS1.MACLIB,

          ++             SPACE=(CYL,(2,0,20),RLSE),

          ++             UNIT=SYSDA,

          ++             VOL=SER=PUB001

   35     //RFEPLIB  EXEC RECV,DSN=RFEPLIB

          *** ---- RECEIVE LOADLIB ----

   36     ++RECV    PROC DSN=LLIB

          *** ---- RECEIVE ----

   37     ++RECVJCL EXEC PGM=RECV370

   38     ++STEPLIB  DD  DISP=SHR,DSN=SYSC.LINKLIB

   39     ++XMITIN   DD  DSN=MVP.WORK(&DSN),DISP=SHR

   40     ++RECVLOG  DD  SYSOUT=*

   41     ++SYSPRINT DD  SYSOUT=*

   42     ++SYSIN    DD  DUMMY

          *** WORK TEMP DATASET

   43     ++SYSUT1   DD  DSN=&&SYSUT1,

          ++             VOL=SER=PUB001,

          ++             UNIT=3390,

          ++             SPACE=(CYL,(8,4),RLSE),

          ++             DISP=(,DELETE)

          *** OUTPUT DATASET

   44     ++SYSUT2   DD  DISP=(NEW,CATLG),

          ++             DSN=SYSGEN.ISPF.&DSN,

          ++             DCB=SYS1.MACLIB,

                                                   ++             SPACE=(CYL,(2,0,20),RLSE),

          ++             UNIT=SYSDA,

          ++             VOL=SER=PUB001

   45     //RECVLOAD EXEC PGM=RECV370

   46     //STEPLIB  DD  DISP=SHR,DSN=SYSC.LINKLIB

   47     //XMITIN   DD  DSN=MVP.WORK(LLIB),DISP=SHR

   48     //RECVLOG  DD  SYSOUT=*

   49     //SYSPRINT DD  SYSOUT=*

   50     //SYSIN    DD  DUMMY

          *** WORK TEMP DATASET

   51     //SYSUT1   DD  DSN=&&SYSUT1,

          //             VOL=SER=PUB001,

          //             UNIT=3390,

          //             SPACE=(CYL,(8,4),RLSE),

          //             DISP=(,DELETE)

          *** OUTPUT DATASET

   52     //SYSUT2   DD  DISP=(NEW,CATLG),

          //             DSN=SYSGEN.ISPF.LLIB,

          //             SPACE=(CYL,(2,0,20),RLSE),

          //             UNIT=SYSDA,

          //             VOL=SER=PUB001,

          //             DCB=(RECFM=U,BLKSIZE=19069)

          *** ***************************

          *** CREATE EMPTY DSNS

          *** I'M NOT SURE WE NEED THESE

          *** BUT THEY'RE IN THE ORIGINAL WALLY ISPF

          *** AND THEY GET ALLOCATED IN THE CLIST PROVIDED BY WALLY

          ***

   53     //SYS2EXEC EXEC PGM=IEFBR14

   54     //SLIB     DD DSN=SYSGEN.ISPF.SLIB,DISP=(,CATLG),

          //         VOL=SER=PUB001,UNIT=SYSDA,SPACE=(CYL,(2,0,20),RLSE)

   55     //SLIB     DD DSN=SYSGEN.ISPF.TLIB,DISP=(,CATLG),

          //         VOL=SER=PUB001,UNIT=SYSDA,SPACE=(CYL,(2,0,20),RLSE)

   56     //CLIB     DD DSN=SYSGEN.ISPF.CLIB,DISP=(,CATLG),

          //         VOL=SER=PUB001,UNIT=SYSDA,SPACE=(CYL,(2,0,20),RLSE)

          ***

          *** ADD ISPF CLIST TO SYS1.CMDPROC

          ***

   57     //CLIST    EXEC PGM=IEBGENER

   58     //SYSPRINT DD  SYSOUT=*

   59     //SYSIN    DD DUMMY

   60     //SYSUT2   DD  DSN=SYS1.CMDPROC(ISPF),DISP=SHR

   61     //SYSUT1   DD  DATA,DLM=@@

          ***

          *** APPLY ISPMAINT

          ***

   62     //IMASPZAP EXEC PGM=IMASPZAP,PARM=IGNIDRFULL

   63     //SYSLIB   DD   DSN=SYSGEN.ISPF.LLIB,DISP=SHR

   64     //SYSPRINT DD   SYSOUT=*

   65     //SYSIN    DD   *

          ***

          *** INSTALL ACETEST

          ***

   66     //ACEINST    EXEC PGM=IEBCOPY

   67     //SYSPRINT DD   SYSOUT=*

   68     //ISPLLIB  DD   DSN=SYSGEN.ISPF.LLIB,DISP=SHR

   69     //ACEAPF   DD   DSN=SYS2.LINKLIB,DISP=SHR

   70     //SYSIN    DD   *

          ***

          *** ADD ACEAUTH TO SYS2.PROCLIB AND SYS2.PARMLIB

          ***

                71     //ACEAUTH  EXEC PGM=IEBGENER

   72     //SYSPRINT DD  SYSOUT=*

   73     //SYSIN    DD  DUMMY

   74     //SYSUT2   DD  DSN=SYS2.PROCLIB(ACEAUTH),DISP=SHR

   75     //SYSUT1   DD  DATA,DLM=@@

   76     //ACEAUTH  EXEC PGM=IEBGENER

   77     //SYSPRINT DD  SYSOUT=*

   78     //SYSIN    DD  DUMMY

   79     //SYSUT2   DD  DSN=SYS2.PARMLIB(ACEAUTH),DISP=SHR

   80     //SYSUT1   DD  *

 STMT NO. MESSAGE

-

    9     IEF653I SUBSTITUTION JCL - DSN=MVP.WORK(DOC),DISP=SHR

   14     IEF653I SUBSTITUTION JCL - DSN=SYSGEN.ISPF.DOC,

   19     IEF653I SUBSTITUTION JCL - DSN=MVP.WORK(MLIB),DISP=SHR

   24     IEF653I SUBSTITUTION JCL - DSN=SYSGEN.ISPF.MLIB,

   29     IEF653I SUBSTITUTION JCL - DSN=MVP.WORK(PLIB),DISP=SHR

   34     IEF653I SUBSTITUTION JCL - DSN=SYSGEN.ISPF.PLIB,

   39     IEF653I SUBSTITUTION JCL - DSN=MVP.WORK(RFEPLIB),DISP=SHR

   44     IEF653I SUBSTITUTION JCL - DSN=SYSGEN.ISPF.RFEPLIB,

IEF236I ALLOC. FOR #001JCL CLEANUP

IEF237I JES2 ALLOCATED TO SYSPRINT

IEF237I JES2 ALLOCATED TO SYSIN

IEF237I 190  ALLOCATED TO SYS00001

IEF142I #001JCL CLEANUP - STEP WAS EXECUTED - COND CODE 0000

IEF285I   JES2.JOB00024.SO0107                         SYSOUT

IEF285I   JES2.JOB00024.SI0101                         SYSIN

IEF285I   UCPUB001                                     KEPT          *--------0

IEF285I   VOL SER NOS= PUB001.

IEF373I STEP /CLEANUP / START 22198.1405

IEF374I STEP /CLEANUP / STOP  22198.1405 CPU    0MIN 00.04SEC SRB    0MIN 00.01SEC VIRT   196K SYS   248K

**** JOB NAME: #001JCL  JOBCARD READ 2022/198 14:05:18 370/148 VS2 R03.8 MVSC ******************************************************

*                                                                                                                                  *

*  STEP NUMBER:          1  USER CORE:        196K  START TIME:   14:05:19     CPU TIME:    00:00:00.05  ACTIVE TIME:  00:00:00.08 *

*  STEP NAME:     CLEANUP   SYSTEM CORE:      248K  STOP TIME:    14:05:19     SRB TIME:    00:00:00.01  ALLOC TIME:   14:05:19    *

*  PROGRAM NAME:  IDCAMS    REGION SIZE:      512K  ELAPSED TIME: 00:00:00.09  TCB TIME:    00:00:00.04  PROGRAM LOAD: 14:05:19    *

*  CONDITION CODE:   00000  PERFORMANCE GROUP: 004                                                                                 *

*                           JES2 CARDS:          1       SERVICE UNITS  PAGES IN/OUT  # SWAPS  PAGES SWAP IN/OUT  VIO PAGES IN/OUT *

*                                                                   42      0 /    0        0           0 /    0          0 /    0 *

*                                                                                                                                  *

*   ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT   *

*   190/D3390         0                                                                                                            *

************************************************************************************************************************************

IEF236I ALLOC. FOR #001JCL RECVJCL DOC

IEF237I 253  ALLOCATED TO STEPLIB

IEF237I 253  ALLOCATED TO SYS00063

IEF237I 190  ALLOCATED TO XMITIN

IEF237I JES2 ALLOCATED TO RECVLOG

IEF237I JES2 ALLOCATED TO SYSPRINT

IEF237I DMY  ALLOCATED TO SYSIN

IEF237I 190  ALLOCATED TO SYSUT1

IEF237I 190  ALLOCATED TO SYSUT2

IEF237I 190  ALLOCATED TO SYS00064

IEF142I #001JCL RECVJCL DOC - STEP WAS EXECUTED - COND CODE 0000

IEF285I   SYSC.LINKLIB                                 KEPT          *--------0

IEF285I   VOL SER NOS= SYSCPK.

IEF285I   UCSYSCPK                                     KEPT          *--------0

IEF285I   VOL SER NOS= SYSCPK.

IEF285I   MVP.WORK                                     KEPT          *-------43

IEF285I   VOL SER NOS= PUB001.

IEF285I   JES2.JOB00024.SO0108                         SYSOUT

IEF285I   JES2.JOB00024.SO0109                         SYSOUT

IEF285I   SYS22198.T140519.RA000.#001JCL.SYSUT1        DELETED       *------104

IEF285I   VOL SER NOS= PUB001.

IEF285I   SYSGEN.ISPF.DOC                              CATALOGED     *-------20

IEF285I   VOL SER NOS= PUB001.

IEF285I   UCPUB001                                     KEPT          *--------0

IEF285I   VOL SER NOS= PUB001.

IEF373I STEP /RECVJCL / START 22198.1405

IEF374I STEP /RECVJCL / STOP  22198.1405 CPU    0MIN 00.06SEC SRB    0MIN 00.01SEC VIRT   512K SYS   188K

************************************************************************************************************************************

                                                                                                                                    *                                                                                                                                  *

*  STEP NUMBER:          2  USER CORE:        512K  START TIME:   14:05:19     CPU TIME:    00:00:00.07  ACTIVE TIME:  00:00:00.12 *

*  STEP NAME:     RECVJCL   SYSTEM CORE:      188K  STOP TIME:    14:05:19     SRB TIME:    00:00:00.01  ALLOC TIME:   14:05:19    *

*  PROGRAM NAME:  RECV370   REGION SIZE:      512K  ELAPSED TIME: 00:00:00.21  TCB TIME:    00:00:00.06  PROGRAM LOAD: 14:05:19    *

*  CONDITION CODE:   00000  PERFORMANCE GROUP: 004                                                                                 *

*                           JES2 CARDS:          0       SERVICE UNITS  PAGES IN/OUT  # SWAPS  PAGES SWAP IN/OUT  VIO PAGES IN/OUT *

*                                                                  898      0 /    0        0           0 /    0          0 /    0 *

*                                                                                                                                  *

*   ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT   *

*   253/D3350         0  253/D3350         0  190/D3390        43  190/D3390       104  190/D3390        20  190/D3390         0   *

************************************************************************************************************************************

IEF236I ALLOC. FOR #001JCL RECVJCL MLIB

IEF237I 253  ALLOCATED TO STEPLIB

IEF237I 253  ALLOCATED TO SYS00066

IEF237I 190  ALLOCATED TO XMITIN

IEF237I JES2 ALLOCATED TO RECVLOG

IEF237I JES2 ALLOCATED TO SYSPRINT

IEF237I DMY  ALLOCATED TO SYSIN

IEF237I 190  ALLOCATED TO SYSUT1

IEF237I 190  ALLOCATED TO SYSUT2

IEF237I 190  ALLOCATED TO SYS00067

IEF142I #001JCL RECVJCL MLIB - STEP WAS EXECUTED - COND CODE 0000

IEF285I   SYSC.LINKLIB                                 KEPT          *--------0

IEF285I   VOL SER NOS= SYSCPK.

IEF285I   UCSYSCPK                                     KEPT          *--------0

IEF285I   VOL SER NOS= SYSCPK.

IEF285I   MVP.WORK                                     KEPT          *-------16

IEF285I   VOL SER NOS= PUB001.

IEF285I   JES2.JOB00024.SO0110                         SYSOUT

IEF285I   JES2.JOB00024.SO0111                         SYSOUT

IEF285I   SYS22198.T140519.RA000.#001JCL.SYSUT1        DELETED       *-------78

IEF285I   VOL SER NOS= PUB001.

IEF285I   SYSGEN.ISPF.MLIB                             CATALOGED     *-------37

IEF285I   VOL SER NOS= PUB001.

IEF285I   UCPUB001                                     KEPT          *--------0

IEF285I   VOL SER NOS= PUB001.

IEF373I STEP /RECVJCL / START 22198.1405

IEF374I STEP /RECVJCL / STOP  22198.1405 CPU    0MIN 00.06SEC SRB    0MIN 00.02SEC VIRT   512K SYS   188K

************************************************************************************************************************************

*                                                                                                                                  *

*  STEP NUMBER:          3  USER CORE:        512K  START TIME:   14:05:19     CPU TIME:    00:00:00.08  ACTIVE TIME:  00:00:00.16 *

*  STEP NAME:     RECVJCL   SYSTEM CORE:      188K  STOP TIME:    14:05:19     SRB TIME:    00:00:00.02  ALLOC TIME:   14:05:19    *

*  PROGRAM NAME:  RECV370   REGION SIZE:      512K  ELAPSED TIME: 00:00:00.25  TCB TIME:    00:00:00.06  PROGRAM LOAD: 14:05:19    *

*  CONDITION CODE:   00000  PERFORMANCE GROUP: 004                                                                                 *

*                           JES2 CARDS:          0       SERVICE UNITS  PAGES IN/OUT  # SWAPS  PAGES SWAP IN/OUT  VIO PAGES IN/OUT *

*                                                                  724      0 /    0        0           0 /    0          0 /    0 *

*                                                                                                                                  *

*   ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT   *

*   253/D3350         0  253/D3350         0  190/D3390        16  190/D3390        78  190/D3390        37  190/D3390         0   *

************************************************************************************************************************************

IEF236I ALLOC. FOR #001JCL RECVJCL PLIB

IEF237I 253  ALLOCATED TO STEPLIB

IEF237I 253  ALLOCATED TO SYS00069

IEF237I 190  ALLOCATED TO XMITIN

IEF237I JES2 ALLOCATED TO RECVLOG

IEF237I JES2 ALLOCATED TO SYSPRINT

IEF237I DMY  ALLOCATED TO SYSIN

IEF237I 190  ALLOCATED TO SYSUT1

IEF237I 190  ALLOCATED TO SYSUT2

IEF237I 190  ALLOCATED TO SYS00070

IEF142I #001JCL RECVJCL PLIB - STEP WAS EXECUTED - COND CODE 0000

                                                                 IEF285I   SYSC.LINKLIB                                 KEPT          *--------0

IEF285I   VOL SER NOS= SYSCPK.

IEF285I   UCSYSCPK                                     KEPT          *--------0

IEF285I   VOL SER NOS= SYSCPK.

IEF285I   MVP.WORK                                     KEPT          *-------27

IEF285I   VOL SER NOS= PUB001.

IEF285I   JES2.JOB00024.SO0112                         SYSOUT

IEF285I   JES2.JOB00024.SO0113                         SYSOUT

IEF285I   SYS22198.T140519.RA000.#001JCL.SYSUT1        DELETED       *-------74

IEF285I   VOL SER NOS= PUB001.

IEF285I   SYSGEN.ISPF.PLIB                             CATALOGED     *-------23

IEF285I   VOL SER NOS= PUB001.

IEF285I   UCPUB001                                     KEPT          *--------0

IEF285I   VOL SER NOS= PUB001.

IEF373I STEP /RECVJCL / START 22198.1405

IEF374I STEP /RECVJCL / STOP  22198.1405 CPU    0MIN 00.06SEC SRB    0MIN 00.01SEC VIRT   512K SYS   236K

************************************************************************************************************************************

*                                                                                                                                  *

*  STEP NUMBER:          4  USER CORE:        512K  START TIME:   14:05:19     CPU TIME:    00:00:00.07  ACTIVE TIME:  00:00:00.12 *

*  STEP NAME:     RECVJCL   SYSTEM CORE:      236K  STOP TIME:    14:05:20     SRB TIME:    00:00:00.01  ALLOC TIME:   14:05:19    *

*  PROGRAM NAME:  RECV370   REGION SIZE:      512K  ELAPSED TIME: 00:00:00.39  TCB TIME:    00:00:00.06  PROGRAM LOAD: 14:05:19    *

*  CONDITION CODE:   00000  PERFORMANCE GROUP: 004                                                                                 *

*                           JES2 CARDS:          0       SERVICE UNITS  PAGES IN/OUT  # SWAPS  PAGES SWAP IN/OUT  VIO PAGES IN/OUT *

*                                                                  686      0 /    0        0           0 /    0          0 /    0 *

*                                                                                                                                  *

*   ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT   *

*   253/D3350         0  253/D3350         0  190/D3390        27  190/D3390        74  190/D3390        23  190/D3390         0   *

************************************************************************************************************************************

IEF236I ALLOC. FOR #001JCL RECVJCL RFEPLIB

IEF237I 253  ALLOCATED TO STEPLIB

IEF237I 253  ALLOCATED TO SYS00072

IEF237I 190  ALLOCATED TO XMITIN

IEF237I JES2 ALLOCATED TO RECVLOG

IEF237I JES2 ALLOCATED TO SYSPRINT

IEF237I DMY  ALLOCATED TO SYSIN

IEF237I 190  ALLOCATED TO SYSUT1

IEF237I 190  ALLOCATED TO SYSUT2

IEF237I 190  ALLOCATED TO SYS00073

IEF142I #001JCL RECVJCL RFEPLIB - STEP WAS EXECUTED - COND CODE 0000

IEF285I   SYSC.LINKLIB                                 KEPT          *--------0

IEF285I   VOL SER NOS= SYSCPK.

IEF285I   UCSYSCPK                                     KEPT          *--------0

IEF285I   VOL SER NOS= SYSCPK.

IEF285I   MVP.WORK                                     KEPT          *-------83

IEF285I   VOL SER NOS= PUB001.

IEF285I   JES2.JOB00024.SO0114                         SYSOUT

IEF285I   JES2.JOB00024.SO0115                         SYSOUT

IEF285I   SYS22198.T140519.RA000.#001JCL.SYSUT1        DELETED       *------166

IEF285I   VOL SER NOS= PUB001.

IEF285I   SYSGEN.ISPF.RFEPLIB                          CATALOGED     *-------82

IEF285I   VOL SER NOS= PUB001.

IEF285I   UCPUB001                                     KEPT          *--------0

IEF285I   VOL SER NOS= PUB001.

IEF373I STEP /RECVJCL / START 22198.1405

IEF374I STEP /RECVJCL / STOP  22198.1405 CPU    0MIN 00.06SEC SRB    0MIN 00.02SEC VIRT   512K SYS   236K

************************************************************************************************************************************

*                                                                                                                                  *

*  STEP NUMBER:          5  USER CORE:        512K  START TIME:   14:05:20     CPU TIME:    00:00:00.08  ACTIVE TIME:  00:00:00.17 *

*  STEP NAME:     RECVJCL   SYSTEM CORE:      236K  STOP TIME:    14:05:20     SRB TIME:    00:00:00.02  ALLOC TIME:   14:05:20    *

*  PROGRAM NAME:  RECV370   REGION SIZE:      512K  ELAPSED TIME: 00:00:00.32  TCB TIME:    00:00:00.06  PROGRAM LOAD: 14:05:20    *

*  CONDITION CODE:   00000  PERFORMANCE GROUP: 004                                                                                 *

                                                                                                                                    *                           JES2 CARDS:          0       SERVICE UNITS  PAGES IN/OUT  # SWAPS  PAGES SWAP IN/OUT  VIO PAGES IN/OUT *

*                                                                1,732      0 /    0        0           0 /    0          0 /    0 *

*                                                                                                                                  *

*   ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT   *

*   253/D3350         0  253/D3350         0  190/D3390        83  190/D3390       166  190/D3390        82  190/D3390         0   *

************************************************************************************************************************************

IEF236I ALLOC. FOR #001JCL RECVLOAD

IEF237I 253  ALLOCATED TO STEPLIB

IEF237I 253  ALLOCATED TO SYS00075

IEF237I 190  ALLOCATED TO XMITIN

IEF237I JES2 ALLOCATED TO RECVLOG

IEF237I JES2 ALLOCATED TO SYSPRINT

IEF237I DMY  ALLOCATED TO SYSIN

IEF237I 190  ALLOCATED TO SYSUT1

IEF237I 190  ALLOCATED TO SYSUT2

IEF237I 190  ALLOCATED TO SYS00076

IEF142I #001JCL RECVLOAD - STEP WAS EXECUTED - COND CODE 0000

IEF285I   SYSC.LINKLIB                                 KEPT          *--------0

IEF285I   VOL SER NOS= SYSCPK.

IEF285I   UCSYSCPK                                     KEPT          *--------0

IEF285I   VOL SER NOS= SYSCPK.

IEF285I   MVP.WORK                                     KEPT          *------112

IEF285I   VOL SER NOS= PUB001.

IEF285I   JES2.JOB00024.SO0116                         SYSOUT

IEF285I   JES2.JOB00024.SO0117                         SYSOUT

IEF285I   SYS22198.T140519.RA000.#001JCL.SYSUT1        DELETED       *-------74

IEF285I   VOL SER NOS= PUB001.

IEF285I   SYSGEN.ISPF.LLIB                             CATALOGED     *--------5

IEF285I   VOL SER NOS= PUB001.

IEF285I   UCPUB001                                     KEPT          *--------0

IEF285I   VOL SER NOS= PUB001.

IEF373I STEP /RECVLOAD/ START 22198.1405

IEF374I STEP /RECVLOAD/ STOP  22198.1405 CPU    0MIN 00.06SEC SRB    0MIN 00.02SEC VIRT   512K SYS   236K

************************************************************************************************************************************

*                                                                                                                                  *

*  STEP NUMBER:          6  USER CORE:        512K  START TIME:   14:05:20     CPU TIME:    00:00:00.08  ACTIVE TIME:  00:00:00.12 *

*  STEP NAME:     RECVLOAD  SYSTEM CORE:      236K  STOP TIME:    14:05:20     SRB TIME:    00:00:00.02  ALLOC TIME:   14:05:20    *

*  PROGRAM NAME:  RECV370   REGION SIZE:      512K  ELAPSED TIME: 00:00:00.21  TCB TIME:    00:00:00.06  PROGRAM LOAD: 14:05:20    *

*  CONDITION CODE:   00000  PERFORMANCE GROUP: 004                                                                                 *

*                           JES2 CARDS:          0       SERVICE UNITS  PAGES IN/OUT  # SWAPS  PAGES SWAP IN/OUT  VIO PAGES IN/OUT *

*                                                                1,024      0 /    0        0           0 /    0          0 /    0 *

*                                                                                                                                  *

*   ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT   *

*   253/D3350         0  253/D3350         0  190/D3390       112  190/D3390        74  190/D3390         5  190/D3390         0   *

************************************************************************************************************************************

IEF236I ALLOC. FOR #001JCL SYS2EXEC

IEF237I 190  ALLOCATED TO SLIB

IEF237I 190  ALLOCATED TO SYS00077

IEF237I 190  ALLOCATED TO SLIB

IEF237I 190  ALLOCATED TO CLIB

IEF142I #001JCL SYS2EXEC - STEP WAS EXECUTED - COND CODE 0000

IEF285I   SYSGEN.ISPF.SLIB                             CATALOGED     *--------0

IEF285I   VOL SER NOS= PUB001.

IEF285I   UCPUB001                                     KEPT          *--------0

IEF285I   VOL SER NOS= PUB001.

IEF285I   SYSGEN.ISPF.TLIB                             CATALOGED     *--------0

IEF285I   VOL SER NOS= PUB001.

IEF285I   SYSGEN.ISPF.CLIB                             CATALOGED     *--------0

IEF285I   VOL SER NOS= PUB001.

IEF373I STEP /SYS2EXEC/ START 22198.1405

IEF374I STEP /SYS2EXEC/ STOP  22198.1405 CPU    0MIN 00.00SEC SRB    0MIN 00.00SEC VIRT     4K SYS   176K

                                                                                                         ************************************************************************************************************************************

*                                                                                                                                  *

*  STEP NUMBER:          7  USER CORE:          4K  START TIME:   14:05:20     CPU TIME:    00:00:00.00  ACTIVE TIME:  00:00:00.00 *

*  STEP NAME:     SYS2EXEC  SYSTEM CORE:      176K  STOP TIME:    14:05:20     SRB TIME:    00:00:00.00  ALLOC TIME:   14:05:20    *

*  PROGRAM NAME:  IEFBR14   REGION SIZE:      512K  ELAPSED TIME: 00:00:00.06  TCB TIME:    00:00:00.00  PROGRAM LOAD: 14:05:20    *

*  CONDITION CODE:   00000  PERFORMANCE GROUP: 004                                                                                 *

*                           JES2 CARDS:          0       SERVICE UNITS  PAGES IN/OUT  # SWAPS  PAGES SWAP IN/OUT  VIO PAGES IN/OUT *

*                                                                    1      0 /    0        0           0 /    0          0 /    0 *

*                                                                                                                                  *

*   ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT   *

*   190/D3390         0  190/D3390         0  190/D3390         0  190/D3390         0                                             *

************************************************************************************************************************************

IEF236I ALLOC. FOR #001JCL CLIST

IEF237I JES2 ALLOCATED TO SYSPRINT

IEF237I DMY  ALLOCATED TO SYSIN

IEF237I 151  ALLOCATED TO SYSUT2

IEF237I JES2 ALLOCATED TO SYSUT1

IEF142I #001JCL CLIST - STEP WAS EXECUTED - COND CODE 0000

IEF285I   JES2.JOB00024.SO0118                         SYSOUT

IEF285I   SYS1.CMDPROC                                 KEPT          *--------7

IEF285I   VOL SER NOS= MVS000.

IEF285I   JES2.JOB00024.SI0102                         SYSIN

IEF373I STEP /CLIST   / START 22198.1405

IEF374I STEP /CLIST   / STOP  22198.1405 CPU    0MIN 00.01SEC SRB    0MIN 00.00SEC VIRT    72K SYS   240K

************************************************************************************************************************************

*                                                                                                                                  *

*  STEP NUMBER:          8  USER CORE:         72K  START TIME:   14:05:20     CPU TIME:    00:00:00.01  ACTIVE TIME:  00:00:00.02 *

*  STEP NAME:     CLIST     SYSTEM CORE:      240K  STOP TIME:    14:05:20     SRB TIME:    00:00:00.00  ALLOC TIME:   14:05:20    *

*  PROGRAM NAME:  IEBGENER  REGION SIZE:      512K  ELAPSED TIME: 00:00:00.03  TCB TIME:    00:00:00.01  PROGRAM LOAD: 14:05:20    *

*  CONDITION CODE:   00000  PERFORMANCE GROUP: 004                                                                                 *

*                           JES2 CARDS:          2       SERVICE UNITS  PAGES IN/OUT  # SWAPS  PAGES SWAP IN/OUT  VIO PAGES IN/OUT *

*                                                                   60      0 /    0        0           0 /    0          0 /    0 *

*                                                                                                                                  *

*   ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT   *

*   151/D3350         7                                                                                                            *

************************************************************************************************************************************

IEF236I ALLOC. FOR #001JCL IMASPZAP

IEF237I 190  ALLOCATED TO SYSLIB

IEF237I 190  ALLOCATED TO SYS00079

IEF237I JES2 ALLOCATED TO SYSPRINT

IEF237I JES2 ALLOCATED TO SYSIN

IEF142I #001JCL IMASPZAP - STEP WAS EXECUTED - COND CODE 0000

IEF285I   SYSGEN.ISPF.LLIB                             KEPT          *-------22

IEF285I   VOL SER NOS= PUB001.

IEF285I   UCPUB001                                     KEPT          *--------0

IEF285I   VOL SER NOS= PUB001.

IEF285I   JES2.JOB00024.SO0119                         SYSOUT

IEF285I   JES2.JOB00024.SI0103                         SYSIN

IEF373I STEP /IMASPZAP/ START 22198.1405

IEF374I STEP /IMASPZAP/ STOP  22198.1405 CPU    0MIN 00.02SEC SRB    0MIN 00.00SEC VIRT    48K SYS   252K

************************************************************************************************************************************

*                                                                                                                                  *

*  STEP NUMBER:          9  USER CORE:         48K  START TIME:   14:05:20     CPU TIME:    00:00:00.02  ACTIVE TIME:  00:00:00.03 *

*  STEP NAME:     IMASPZAP  SYSTEM CORE:      252K  STOP TIME:    14:05:20     SRB TIME:    00:00:00.00  ALLOC TIME:   14:05:20    *

*  PROGRAM NAME:  IMASPZAP  REGION SIZE:      512K  ELAPSED TIME: 00:00:00.04  TCB TIME:    00:00:00.02  PROGRAM LOAD: 14:05:20    *

*  CONDITION CODE:   00000  PERFORMANCE GROUP: 004                                                                                 *

*                           JES2 CARDS:          0       SERVICE UNITS  PAGES IN/OUT  # SWAPS  PAGES SWAP IN/OUT  VIO PAGES IN/OUT *

*                                                                  138      0 /    0        0           0 /    0          0 /    0 *

*                                                                                                                                  *

*   ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT   *

*   190/D3390        22  190/D3390         0                                                                                       *

                                                                                                                                    ************************************************************************************************************************************

IEF236I ALLOC. FOR #001JCL ACEINST

IEF237I JES2 ALLOCATED TO SYSPRINT

IEF237I 190  ALLOCATED TO ISPLLIB

IEF237I 190  ALLOCATED TO SYS00081

IEF237I 151  ALLOCATED TO ACEAPF

IEF237I JES2 ALLOCATED TO SYSIN

IEF142I #001JCL ACEINST - STEP WAS EXECUTED - COND CODE 0000

IEF285I   JES2.JOB00024.SO0120                         SYSOUT

IEF285I   SYSGEN.ISPF.LLIB                             KEPT          *-------43

IEF285I   VOL SER NOS= PUB001.

IEF285I   UCPUB001                                     KEPT          *--------0

IEF285I   VOL SER NOS= PUB001.

IEF285I   SYS2.LINKLIB                                 KEPT          *--------3

IEF285I   VOL SER NOS= MVS000.

IEF285I   JES2.JOB00024.SI0104                         SYSIN

IEF373I STEP /ACEINST / START 22198.1405

IEF374I STEP /ACEINST / STOP  22198.1405 CPU    0MIN 00.03SEC SRB    0MIN 00.01SEC VIRT   512K SYS   240K

************************************************************************************************************************************

*                                                                                                                                  *

*  STEP NUMBER:         10  USER CORE:        512K  START TIME:   14:05:20     CPU TIME:    00:00:00.04  ACTIVE TIME:  00:00:00.06 *

*  STEP NAME:     ACEINST   SYSTEM CORE:      240K  STOP TIME:    14:05:20     SRB TIME:    00:00:00.01  ALLOC TIME:   14:05:20    *

*  PROGRAM NAME:  IEBCOPY   REGION SIZE:      512K  ELAPSED TIME: 00:00:00.09  TCB TIME:    00:00:00.03  PROGRAM LOAD: 14:05:20    *

*  CONDITION CODE:   00000  PERFORMANCE GROUP: 004                                                                                 *

*                           JES2 CARDS:          0       SERVICE UNITS  PAGES IN/OUT  # SWAPS  PAGES SWAP IN/OUT  VIO PAGES IN/OUT *

*                                                                  267      0 /    0        0           0 /    0          0 /    0 *

*                                                                                                                                  *

*   ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT   *

*   190/D3390        43  190/D3390         0  151/D3350         3                                                                  *

************************************************************************************************************************************

IEF236I ALLOC. FOR #001JCL ACEAUTH

IEF237I JES2 ALLOCATED TO SYSPRINT

IEF237I DMY  ALLOCATED TO SYSIN

IEF237I 151  ALLOCATED TO SYSUT2

IEF237I JES2 ALLOCATED TO SYSUT1

IEF142I #001JCL ACEAUTH - STEP WAS EXECUTED - COND CODE 0000

IEF285I   JES2.JOB00024.SO0121                         SYSOUT

IEF285I   SYS2.PROCLIB                                 KEPT          *--------4

IEF285I   VOL SER NOS= MVS000.

IEF285I   JES2.JOB00024.SI0105                         SYSIN

IEF373I STEP /ACEAUTH / START 22198.1405

IEF374I STEP /ACEAUTH / STOP  22198.1405 CPU    0MIN 00.02SEC SRB    0MIN 00.00SEC VIRT    72K SYS   240K

************************************************************************************************************************************

*                                                                                                                                  *

*  STEP NUMBER:         11  USER CORE:         72K  START TIME:   14:05:20     CPU TIME:    00:00:00.02  ACTIVE TIME:  00:00:00.03 *

*  STEP NAME:     ACEAUTH   SYSTEM CORE:      240K  STOP TIME:    14:05:20     SRB TIME:    00:00:00.00  ALLOC TIME:   14:05:20    *

*  PROGRAM NAME:  IEBGENER  REGION SIZE:      512K  ELAPSED TIME: 00:00:00.03  TCB TIME:    00:00:00.02  PROGRAM LOAD: 14:05:20    *

*  CONDITION CODE:   00000  PERFORMANCE GROUP: 004                                                                                 *

*                           JES2 CARDS:          1       SERVICE UNITS  PAGES IN/OUT  # SWAPS  PAGES SWAP IN/OUT  VIO PAGES IN/OUT *

*                                                                   53      0 /    0        0           0 /    0          0 /    0 *

*                                                                                                                                  *

*   ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT   *

*   151/D3350         4                                                                                                            *

************************************************************************************************************************************

IEF236I ALLOC. FOR #001JCL ACEAUTH

IEF237I JES2 ALLOCATED TO SYSPRINT

IEF237I DMY  ALLOCATED TO SYSIN

IEF237I 151  ALLOCATED TO SYSUT2

IEF237I JES2 ALLOCATED TO SYSUT1

IEF142I #001JCL ACEAUTH - STEP WAS EXECUTED - COND CODE 0000

IEF285I   JES2.JOB00024.SO0122                         SYSOUT

                                                             IEF285I   SYS2.PARMLIB                                 KEPT          *--------5

IEF285I   VOL SER NOS= MVS000.

IEF285I   JES2.JOB00024.SI0106                         SYSIN

IEF373I STEP /ACEAUTH / START 22198.1405

IEF374I STEP /ACEAUTH / STOP  22198.1405 CPU    0MIN 00.01SEC SRB    0MIN 00.00SEC VIRT    36K SYS   240K

************************************************************************************************************************************

*                                                                                                                                  *

*  STEP NUMBER:         12  USER CORE:         36K  START TIME:   14:05:20     CPU TIME:    00:00:00.01  ACTIVE TIME:  00:00:00.02 *

*  STEP NAME:     ACEAUTH   SYSTEM CORE:      240K  STOP TIME:    14:05:20     SRB TIME:    00:00:00.00  ALLOC TIME:   14:05:20    *

*  PROGRAM NAME:  IEBGENER  REGION SIZE:      512K  ELAPSED TIME: 00:00:00.02  TCB TIME:    00:00:00.01  PROGRAM LOAD: 14:05:20    *

*  CONDITION CODE:   00000  PERFORMANCE GROUP: 004                                                                                 *

*                           JES2 CARDS:          0       SERVICE UNITS  PAGES IN/OUT  # SWAPS  PAGES SWAP IN/OUT  VIO PAGES IN/OUT *

*                                                                   55      0 /    0        0           0 /    0          0 /    0 *

*                                                                                                                                  *

*   ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT  ADDR/UNIT I/O COUNT   *

*   151/D3350         5                                                                                                            *

************************************************************************************************************************************

IEF375I  JOB /#001JCL / START 22198.1405

IEF376I  JOB /#001JCL / STOP  22198.1405 CPU    0MIN 00.43SEC SRB    0MIN 00.10SEC

IDCAMS  SYSTEM SERVICES                                           TIME: 14:05:19        07/17/22     PAGE   1

  DELETE SYSGEN.ISPF.DOC SCRATCH PURGE

IDC3012I ENTRY SYSGEN.ISPF.DOC NOT FOUND

IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6

IDC0551I **ENTRY SYSGEN.ISPF.DOC NOT DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8

  DELETE SYSGEN.ISPF.LLIB SCRATCH PURGE

IDC3012I ENTRY SYSGEN.ISPF.LLIB NOT FOUND

IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6

IDC0551I **ENTRY SYSGEN.ISPF.LLIB NOT DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8

  DELETE SYSGEN.ISPF.PLIB SCRATCH PURGE

IDC3012I ENTRY SYSGEN.ISPF.PLIB NOT FOUND

IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6

IDC0551I **ENTRY SYSGEN.ISPF.PLIB NOT DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8

  DELETE SYSGEN.ISPF.RFEPLIB SCRATCH PURGE

IDC3012I ENTRY SYSGEN.ISPF.RFEPLIB NOT FOUND

IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6

IDC0551I **ENTRY SYSGEN.ISPF.RFEPLIB NOT DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8

  DELETE SYSGEN.ISPF.MLIB SCRATCH PURGE

IDC3012I ENTRY SYSGEN.ISPF.MLIB NOT FOUND

IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6

IDC0551I **ENTRY SYSGEN.ISPF.MLIB NOT DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8

  DELETE SYSGEN.ISPF.SLIB SCRATCH PURGE

IDC3012I ENTRY SYSGEN.ISPF.SLIB NOT FOUND

IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6

IDC0551I **ENTRY SYSGEN.ISPF.SLIB NOT DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8

  DELETE SYSGEN.ISPF.TLIB SCRATCH PURGE

                                       IDCAMS  SYSTEM SERVICES                                           TIME: 14:05:19        07/17/22     PAGE   2

IDC3012I ENTRY SYSGEN.ISPF.TLIB NOT FOUND

IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6

IDC0551I **ENTRY SYSGEN.ISPF.TLIB NOT DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8

  DELETE SYSGEN.ISPF.CLIB SCRATCH PURGE

IDC3012I ENTRY SYSGEN.ISPF.CLIB NOT FOUND

IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6

IDC0551I **ENTRY SYSGEN.ISPF.CLIB NOT DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8

  SET MAXCC=0

  SET LASTCC=0

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0

RECV370 v00.06 Copyright 2002-2008 James M. Morrison

RECV370 may be distributed under the terms of the Q Public License version 1.0

RECV370 Initial Developer James M. Morrison

RECV370 done

                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001

IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY SYSUT1   -

IEB154I  $INTRO   HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ACEDOC   HAS BEEN SUCCESSFULLY  LOADED

IEB154I  CLISTS   HAS BEEN SUCCESSFULLY  LOADED

IEB154I  COMMANDS HAS BEEN SUCCESSFULLY  LOADED

IEB154I  CONTVARS HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ESTAE    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  FEATURES HAS BEEN SUCCESSFULLY  LOADED

IEB154I  FUTURE   HAS BEEN SUCCESSFULLY  LOADED

IEB154I  INSTALL  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  LIMITS   HAS BEEN SUCCESSFULLY  LOADED

IEB154I  MESSAGES HAS BEEN SUCCESSFULLY  LOADED

IEB154I  OPTIONAL HAS BEEN SUCCESSFULLY  LOADED

IEB154I  PANELS   HAS BEEN SUCCESSFULLY  LOADED

IEB154I  PREREQ   HAS BEEN SUCCESSFULLY  LOADED

IEB154I  RECOVERY HAS BEEN SUCCESSFULLY  LOADED

IEB154I  SERVICES HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ZVARS    HAS BEEN SUCCESSFULLY  LOADED

IEB144I  THERE ARE 0000026 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2

IEB149I  THERE ARE 0000017  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY

IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE

RECV370 v00.06 Copyright 2002-2008 James M. Morrison

RECV370 may be distributed under the terms of the Q Public License version 1.0

RECV370 Initial Developer James M. Morrison

RECV370 done

                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001

IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY SYSUT1   -

IEB154I  ISPZZ10  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP05    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP06    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP07    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP08    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP09    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP10    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP11    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP13    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP15    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP16    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP17    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP18    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP19    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP20    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP21    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP22    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP23    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP24    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP25    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP26    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP27    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP35    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP36    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP37    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP40    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP41    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP42    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP45    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP46    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP47    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP48    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP49    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP70    HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISRZ00   HAS BEEN SUCCESSFULLY  LOADED

IEB144I  THERE ARE 0000027 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2

IEB149I  THERE ARE 0000014  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY

IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE

RECV370 v00.06 Copyright 2002-2008 James M. Morrison

RECV370 may be distributed under the terms of the Q Public License version 1.0

RECV370 Initial Developer James M. Morrison

RECV370 done

                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001

IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY SYSUT1   -

IEB154I  ACE@PRIM HAS BEEN SUCCESSFULLY  LOADED

IEB154I  HISPOP6  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP@PRIM HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPERROR HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPHABND HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOPC0  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOPT7  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOPT71 HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOPT72 HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOP0   HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOP01  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOP03A HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOP03B HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOP6   HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPREVB  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPREVE  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPUCMA  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPUCT   HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPUTILS HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP73H01 HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISP73T   HAS BEEN SUCCESSFULLY  LOADED

IEB144I  THERE ARE 0000027 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2

IEB149I  THERE ARE 0000016  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY

IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE

RECV370 v00.06 Copyright 2002-2008 James M. Morrison

RECV370 may be distributed under the terms of the Q Public License version 1.0

RECV370 Initial Developer James M. Morrison

RECV370 done

                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001

IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY SYSUT1   -

IEB154I  REV@PRIM HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVFAQ   HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHBDT  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHBGN  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB00  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB01  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB02  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB03  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB04  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB04A HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB05  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB05A HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB05B HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB06  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB07  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB07A HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB07B HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB07C HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB07D HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB07E HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB07F HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB08  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB09  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB10  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB11  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHB12  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHEDT  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE00  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE01  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE02  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE03  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE04  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE04A HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE05  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE05A HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE05B HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE06  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE07  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE08  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE09  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHE10  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHJDT  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHJ00  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHJ01  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHJ02  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHJ03  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHODT  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHO00  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHO01  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHO02  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHO03  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHO04  HAS BEEN SUCCESSFULLY  LOADED

                                                                                       IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0002

IEB154I  REVHO05  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHO06  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHO07  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHO08  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHPDT  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHP00  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHP01  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHP02  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHP03  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHP04  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHP05  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHP06  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHP07  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHP08  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHP09  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHP10  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHUDT  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHU00  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHU01  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHU02  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHU03  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHU04  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHU05  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHU06  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVHU07  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVLOGO  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVPANEL HAS BEEN SUCCESSFULLY  LOADED

IEB154I  REVPANL2 HAS BEEN SUCCESSFULLY  LOADED

IEB144I  THERE ARE 0000023 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2

IEB149I  THERE ARE 0000016  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY

IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE

RECV370 v00.06 Copyright 2002-2008 James M. Morrison

RECV370 may be distributed under the terms of the Q Public License version 1.0

RECV370 Initial Developer James M. Morrison

RECV370 done

                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001

IEB167I  FOLLOWING MEMBER(S)  LOADED  FROM INPUT DATA SET REFERENCED BY SYSUT1   -

IEB154I  ACEABEND HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ACEBREAK HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ACELMAN  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ACETEST  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPDSERV HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPEXEC  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPF     HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPHIGH  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPLINK  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPMSERV HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOPT01 HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOPT03 HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOPT39 HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOPT6  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPOPT73 HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPPQRY  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPQRY   HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPTASK  HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPTSERV HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPUSERV HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPVSERV HAS BEEN SUCCESSFULLY  LOADED

IEB154I  ISPWSERV HAS BEEN SUCCESSFULLY  LOADED

IEB144I  THERE ARE 0000018 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2

IEB149I  THERE ARE 0000016  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY

IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE

DATA SET UTILITY - GENERATE                                                                       PAGE 0001

PROCESSING ENDED AT EOD

AMASPZAP  INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE.

*

*--------------------*

* UPGRADE VERSION ID *

*--------------------*

*

 NAME ISPF     ISPVERSN

 REP 05  F0F0F0

AMA122I OLD DATA WAS F0F0F0

AMA125I ISPF     IDR COUNT = 01 (MAX=19)

AMA100I AMASPZAP PROCESSING COMPLETED

                                        IEBCOPY MESSAGES AND CONTROL STATEMENTS                               PAGE 0001

                     C I=ISPLLIB,O=ACEAPF

                     S M=ACEABEND

                     S M=ACEBREAK

                     S M=ACELMAN

                     S M=ACETEST

IEB167I  FOLLOWING MEMBER(S)  COPIED  FROM INPUT DATA SET REFERENCED BY ISPLLIB  -

IEB154I  ACEABEND HAS BEEN SUCCESSFULLY  COPIED

IEB154I  ACEBREAK HAS BEEN SUCCESSFULLY  COPIED

IEB154I  ACELMAN  HAS BEEN SUCCESSFULLY  COPIED

IEB154I  ACETEST  HAS BEEN SUCCESSFULLY  COPIED

IEB144I  THERE ARE 0000480 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ACEAPF

IEB149I  THERE ARE 0000320  UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY

IEB147I  END OF JOB -00 WAS HIGHEST SEVERITY CODE

DATA SET UTILITY - GENERATE                                                                       PAGE 0001

PROCESSING ENDED AT EOD

DATA SET UTILITY - GENERATE                                                                       PAGE 0001

PROCESSING ENDED AT EOD

                          ##    ##      00000000      00000000         11         JJJJJJJJJJ   CCCCCCCCCC   LL

                         ##    ##     0000000000    0000000000       111         JJJJJJJJJJ  CCCCCCCCCCCC  LL

                      ############  00      0000  00      0000     1111             JJ      CC        CC  LL

                     ############  00     00 00  00     00 00       11             JJ      CC            LL

                      ##    ##    00    00  00  00    00  00       11             JJ      CC            LL

                     ##    ##    00   00   00  00   00   00       11             JJ      CC            LL

                    ##    ##    00  00    00  00  00    00       11             JJ      CC            LL

                   ##    ##    00 00     00  00 00     00       11             JJ      CC            LL

                ############  0000      00  0000      00       11       JJ    JJ      CC            LL

               ############  000       00  000       00       11       JJ    JJ      CC        CC  LL

                ##    ##     0000000000    0000000000    1111111111   JJJJJJJJ      CCCCCCCCCCCC  LLLLLLLLLLLL

               ##    ##      00000000      00000000     1111111111    JJJJJJ        CCCCCCCCCC   LLLLLLLLLLLL

                    JJJJJJJJJJ   2222222222         444                                                AAAAAAAAAA

                    JJJJJJJJJJ  222222222222       4444                                               AAAAAAAAAAAA

                        JJ      22        22      44 44                                               AA        AA

                        JJ                22     44  44                                               AA        AA

                        JJ                22    44   44                                               AA        AA

                        JJ               22    44444444444                                            AAAAAAAAAAAA

                        JJ             22     444444444444                                            AAAAAAAAAAAA

                        JJ           22              44                                               AA        AA

                  JJ    JJ         22                44                                               AA        AA

                  JJ    JJ       22                  44                                               AA        AA

                  JJJJJJJJ      222222222222         44                                               AA        AA

                   JJJJJJ       222222222222         44                                               AA        AA

****A   END   JOB   24  #001JCL   INSTALL ISPF          ROOM        2.05.20 PM 17 JUL 22  PRINTER1  SYS MVSC  JOB   24   END   A****

[Peter-Jacob]

I agree, it pretty much looks as if there is an unwanted character in the procedure:

14 ++SYSUT2 DD DISP=(NEW,CATLG),

      ++             DSN=SYSGEN.ISPF.&DSN,

      ++             DCB=SYS1.MACLIB,

15 ++ SPACE=(CYL,(2,0,20),RLSE),

16 ++ UNIT=SYSDA,

17 ++ VOL=SER=PUB001

As you can see the SPACE parameter is treated as a separate statement which it isn’t.

If you go into 3.8 scroll down to the DCB=SYS1.MACLIB and run a HEX ON command you should see if the is a spurious character, maybe a new-line where it shouldn’t.

I suppose you read the PROC from somewhere, can you check if it comes from there? It may well be a BREXX problem, but the code looks ok to us.

Regards

Peter

[mgrossmann]

Hello @mainframed

we have copied your JCL and REXX script to our development system as a test and cannot reproduce the problem. Maybe you could transfer the JCL again from your host system via IND$FILE to the MVS and repeat the test.

However, we will run more tests as well.

The blank lines in your job output are also in the printer output, or do they come from copy&paste?

Best

Mike

 000001 //#001JCL JOB (TSO),                                                    
 000002 //             'Install ISPF',                                          
 000003 //             CLASS=A,                                                 
 000004 //             MSGCLASS=H,                                              
 000005 //             MSGLEVEL=(1,1)                                           
 000006 //* ----- CLEAN UP -----                                                
 000007 //CLEANUP EXEC PGM=IDCAMS                                               
 000008 //SYSPRINT DD SYSOUT=*                                                  
 000009 //SYSIN    DD *                                                         
 000010   DELETE MIG.TEST.ISPF.DOC SCRATCH PURGE                                
 000011   DELETE MIG.TEST.ISPF.LLIB SCRATCH PURGE                               
 000012   DELETE MIG.TEST.ISPF.PLIB SCRATCH PURGE                               
 000013   DELETE MIG.TEST.ISPF.RFEPLIB SCRATCH PURGE                            
 000014   DELETE MIG.TEST.ISPF.MLIB SCRATCH PURGE                               
 000015   DELETE MIG.TEST.ISPF.SLIB SCRATCH PURGE                               
 000016   DELETE MIG.TEST.ISPF.TLIB SCRATCH PURGE                               
 000017   DELETE MIG.TEST.ISPF.CLIB SCRATCH PURGE                               
 000018   SET MAXCC=0                                                           
 000019   SET LASTCC=0                                                          
 000020 //*                                                                     
 000021 //* RECV370 Proc                                                        
 000022 //*                                                                     
 000023 //RECV    PROC DSN=LLIB                                                 
 000024 //* ---- RECEIVE ----                                                   
 000025 //RECVJCL EXEC PGM=RECV370                                              
 000026 //STEPLIB  DD  DISP=SHR,DSN=SYS2.LINKLIB                                
 000027 //XMITIN   DD  DSN=MVP.WORK(&DSN),DISP=SHR                              
 000028 //RECVLOG  DD  SYSOUT=*                                                 
 000029 //SYSPRINT DD  SYSOUT=*                                                 
 000030 //SYSIN    DD  DUMMY                                                    
 000031 //* Work temp dataset                                                   
 000032 //SYSUT1   DD  DSN=&&SYSUT1,                                            
   3375 //             VOL=SER=PUB001,                                          
 000034 //             UNIT=3390,                                               
 000035 //             SPACE=(CYL,(8,4),RLSE),                                  
 000036 //             DISP=(,DELETE)                                           
 000037 //* Output dataset                                                      
 000038 //SYSUT2   DD  DISP=(NEW,CATLG),                                        
 000039 //             DSN=MIG.TEST.ISPF.&DSN,                                  
 000040 //             DCB=SYS1.MACLIB,  
 000041 //             SPACE=(CYL,(2,0,20),RLSE),                               
 000042 //             UNIT=SYSDA,                                              
   3375 //             VOL=SER=PUB001                                           
 000044 //         PEND                                                         
 000045 //* ***************************                                         
 000046 //DOC      EXEC RECV,DSN=DOC                                            
 000047 //MLIB     EXEC RECV,DSN=MLIB                                           
 000048 //PLIB     EXEC RECV,DSN=PLIB                                           
 000049 //RFEPLIB  EXEC RECV,DSN=RFEPLIB                                        
 000050 //* ---- RECEIVE LOADLIB ----                                           
 000051 //RECVLOAD EXEC PGM=RECV370                                             
 000052 //STEPLIB  DD  DISP=SHR,DSN=SYS2.LINKLIB                                
 000053 //XMITIN   DD  DSN=MVP.WORK(LLIB),DISP=SHR                              
 000054 //RECVLOG  DD  SYSOUT=*                                                 
 000055 //SYSPRINT DD  SYSOUT=*                                                 
 000056 //SYSIN    DD  DUMMY                                                    
 000057 //* Work temp dataset                                                   
 000058 //SYSUT1   DD  DSN=&&SYSUT1,                                            
   3375 //             VOL=SER=PUB001,                                          
 000060 //             UNIT=3390,                                               
 000061 //             SPACE=(CYL,(8,4),RLSE),                                  
 000062 //             DISP=(,DELETE)                                           
 000063 //* Output dataset                                                      
 000064 //SYSUT2   DD  DISP=(NEW,CATLG),                                        
 000065 //             DSN=MIG.TEST.ISPF.LLIB,                                  
 000066 //             SPACE=(CYL,(2,0,20),RLSE),                               
 000067 //             UNIT=SYSDA,                                              
   3375 //             VOL=SER=PUB001,                                          
 000069 //             DCB=(RECFM=U,BLKSIZE=19069)                              
 000070 //* ***************************                                         
 000071 //* Create empty DSNs                                                   
 000072 //* I'm not sure we need these                                          
 000073 //* But they're in the original Wally ISPF                              
 000074 //* And they get allocated in the CLIST provided by Wally               
 000075 //*                                                                     
 000076 //SYS2EXEC EXEC PGM=IEFBR14                                             
 000077 //SLIB     DD DSN=MIG.TEST.ISPF.SLIB,DISP=(,CATLG),                     
   3375 //         VOL=SER=PUB001,UNIT=SYSDA,SPACE=(CYL,(2,0,20),RLSE)          
 000079 //SLIB     DD DSN=MIG.TEST.ISPF.TLIB,DISP=(,CATLG),                     
   3375 //         VOL=SER=PUB001,UNIT=SYSDA,SPACE=(CYL,(2,0,20),RLSE)          
 000081 //CLIB     DD DSN=MIG.TEST.ISPF.CLIB,DISP=(,CATLG),                     
   3375 //         VOL=SER=PUB001,UNIT=SYSDA,SPACE=(CYL,(2,0,20),RLSE)          
 000083 //*                                                                     
 000084 //* Add ISPF CLIST to SYS1.CMDPROC                                      
 000085 //*                                                                     
 000086 //CLIST    EXEC PGM=IEBGENER                                            
 000087 //SYSPRINT DD  SYSOUT=*                                                 
 000088 //SYSIN    DD DUMMY                                                     
 000089 //SYSUT2   DD  DSN=SYS1.CMDPROC(ISPF),DISP=SHR                          
 000090 //SYSUT1   DD  DATA,DLM=@@                                              
 000091 PROC  0                                                                 
 000092 FREE  F(ISPCLIB,ISPLLIB,ISPMLIB,ISPPLIB,ISPSLIB,ISPTABL,ISPTLIB)        
 000093 FREE  F(ISPPROF,REVPROF)                                                
 000094 /*     ALLOCATE REQUIRED ISPF DD NAMES     */                           
 000095 ALLOC F(ISPCLIB) DA('MIG.TEST.ISPF.CLIB','MIG.TEST.REVIEW.CLIST') SHR   
 000096 ALLOC F(ISPLLIB) DA('MIG.TEST.ISPF.LLIB','MIG.TEST.REVIEW.LOAD') SHR    
 000097 ALLOC F(ISPMLIB) DA('MIG.TEST.ISPF.MLIB') SHR                           
 000098 ALLOC F(ISPPLIB) DA('MIG.TEST.ISPF.PLIB','MIG.TEST.ISPF.RFEPLIB') SHR   
 000099 ALLOC F(ISPSLIB) DA('MIG.TEST.ISPF.SLIB') SHR                           
 000100 ALLOC F(ISPTABL) DA('MIG.TEST.ISPF.TLIB') SHR                           
 000101 ALLOC F(ISPTLIB) DA('MIG.TEST.ISPF.TLIB') SHR                           
 000102 /* CREATE USERID.ISP.PROF IF IT DOES NOT EXIST  */                      
 000103 IF &SYSDSN('&SYSUID..ISP.PROF') NE &STR(OK) THEN DO                     
 000104     /* Create the DCB info */                                           
 000105     ATTRIB PROFS BLKSIZE(3120) LRECL(80) DSORG(PO) RECFM(F,B)           
 000106     /* Allocate the dataset */                                          
 000107     ALLOC DSNAME('&SYSUID..ISP.PROF') CYLINDERS SPACE(1,0) DIR(10) +    
 000108     VOLUME(PUB001) UNIT(3390) USING(PROFS) NEW                          
 000109     /* Free the dcb info */                                             
 000110     FREE ATTRLIST(PROFS)                                                
 000111 END                                                                     
 000112 /* Allocate user profiles */                                            
 000113 ALLOC F(ISPPROF) DA('&SYSUID..ISP.PROF') SHR                            
 000114 ALLOC F(REVPROF) DA('&SYSUID..ISP.PROF') SHR                            
 000115 /* Launch ISPF */                                                       
 000116 CALL 'MIG.TEST.ISPF.LLIB(ISPF)'                                         
 000117 FREE  F(ISPCLIB,ISPLLIB,ISPMLIB,ISPPLIB,ISPSLIB,ISPTABL,ISPTLIB)        
 000118 FREE  F(ISPPROF,REVPROF)                                                
 000119 @@                                                                      
 000120 //*                                                                     
 000121 //* Apply ISPMAINT                                                      
 000122 //*                                                                     
 000123 //IMASPZAP EXEC PGM=IMASPZAP,PARM=IGNIDRFULL                            
 000124 //SYSLIB   DD   DSN=MIG.TEST.ISPF.LLIB,DISP=SHR                         
 000125 //SYSPRINT DD   SYSOUT=*                                                
 000126 //SYSIN    DD   *                                                       
 000127 *                                                                       
 000128 *--------------------*                                                  
 000129 * UPGRADE VERSION ID *                                                  
 000130 *--------------------*                                                  
 000131 *                                                                       
 000132  NAME ISPF     ISPVERSN                                                 
 000133  REP 05  F0F0F0                                                         
 000134 //*                                                                     
 000135 //* Install ACETEST                                                     
 000136 //*                                                                     
 000137 //ACEINST    EXEC PGM=IEBCOPY                                           
 000138 //SYSPRINT DD   SYSOUT=*                                                
 000139 //ISPLLIB  DD   DSN=MIG.TEST.ISPF.LLIB,DISP=SHR                         
 000140 //ACEAPF   DD   DSN=SYS2.LINKLIB,DISP=SHR                               
 000141 //SYSIN    DD   *                                                       
 000142  C I=ISPLLIB,O=ACEAPF                                                   
 000143  S M=ACEABEND                                                           
 000144  S M=ACEBREAK                                                           
 000145  S M=ACELMAN                                                            
 000146  S M=ACETEST                                                            
 000147 //*                                                                     
 000148 //* Add ACEAUTH to SYS2.PROCLIB and SYS2.PARMLIB                        
 000149 //*                                                                     
 000150 //ACEAUTH  EXEC PGM=IEBGENER                                            
 000151 //SYSPRINT DD  SYSOUT=*                                                 
 000152 //SYSIN    DD  DUMMY                                                    
 000153 //SYSUT2   DD  DSN=SYS2.PROCLIB(ACEAUTH),DISP=SHR                       
 000154 //SYSUT1   DD  DATA,DLM=@@                                              
 000155 //*                                                                     
 000156 //* This proc must be run once after every IPL to activate the APF-     
 000157 //* Authorized features of ACETEST. If this job is not run, ACETEST     
 000158 //* will still operate, but in a limited manner.                        
 000159 //*                                                                     
 000160 //* Either use /S ACEAUTH from MVS console or submit a job              
 000161 //* with //ACEAUTH EXEC ACEAUTH as the only step                        
 000162 //*                                                                     
 000163 //ACETEST  EXEC PGM=ACETEST,PARM='ACEAUTH'                              
 000164 //STEPLIB  DD   DSN=SYS2.LINKLIB,DISP=SHR                               
 000165 //SYSUDUMP DD   SYSOUT=*                                                
 000166 //ACEAUTH  DD   DSN=SYS2.PARMLIB(ACEAUTH),DISP=SHR                      
 000167 @@                                                                      
 000168 //ACEAUTH  EXEC PGM=IEBGENER                                            
 000169 //SYSPRINT DD  SYSOUT=*                                                 
 000170 //SYSIN    DD  DUMMY                                                    
 000171 //SYSUT2   DD  DSN=SYS2.PARMLIB(ACEAUTH),DISP=SHR                       
 000172 //SYSUT1   DD  *                                                        
 000173 END                                                                            

 000001 /* BREXX  #error*/                                                             
 000002  call submit_error "'MIG.CNTL(#ERROR)'"                                 
 000003  SAY "DONE!"                                                            
 000004  return                                                                 
 000005                                                                         
 000006 submit_error:                                                           
 000007                                                                         
 000008   parse arg jcl_location                                                
 000009   say        "submit_XMI_jcl: Processing" jcl_location                  
 000010                                                                         
 000011                                                                         
 000012   "ALLOC FI(XMIJCL) DA("!!jcl_location!!") SHR "                        
 000013   "EXECIO * DISKR XMIJCL (FINIS STEM XMIJCL."                           
 000014                                                                         
 000015   if rc > 0 then do                                                     
 000016       say        "Error reading "!!jcl_location!!":" rc                 
 000017       "FREE F(XMIJCL)"                                                  
 000018       exit 8                                                            
 000019   end                                                                   
 000020                                                                         
 000021   "FREE F(XMIJCL)"                                                      
 000022   if find(XMIJCL.1,'JOB') < 1 then do                                   
 000023     say        jcl_location !!"is not a valid JOB"                      
 000024     exit 8                                                              
 000025   end                                                                   
 000026                                                                         
 000027   /* first make sure the queue is empty */                              
 000028   do queued()                                                           
 000029     pull element                                                        
 000030     say        'submit_XMI_jcl: previous queue item' element            
 000031   end                                                                   
 000032                                                                         
 000033   do j=1 to XMIJCL.0                                                    
 000034                                                                         
 000035     x=0                                                                 
 000036     do while (right(XMIJCL.J,x) == left(" ",x))                         
 000037       /* if we have spaces find the first non space character */        
 000038       x = x + 1                                                         
 000039       iterate                                                           
 000040     end                                                                 
 000041                                                                         
 000042     if right(XMIJCL.J,1) == "," then do                                 
 000043       /* if the first line has a continuation, keep going */            
 000044       queue XMIJCL.J                                                    
 000045       iterate                                                           
 000046     end                                                                 
 000047                                                                         
 000048     jcl = LEFT(XMIJCL.J, LENGTH(XMIJCL.J) - (x - 1))!!","               
 000049     say        "submit_XMI_jcl: Changing line" J "to:" jcl              
 000050     queue jcl                                                           
 000051                                                                         
 000052     queue "//    USER=MIG,PASSWORD="!!MIG                               
 000053                                                                         
 000054     leave                                                               
 000055   end                                                                   
 000056                                                                         
 000057   if j = XMIJCL.0 then do                                               
 000058     say        "Unable to PARSE XMI JCL File " jcl_location             
 000059     exit 8                                                              
 000060   end                                                                   
 000061                                                                         
 000062   do j = (j+1) to XMIJCL.0                                              
 000063     queue XMIJCL.j                                                      
 000064   end                                                                   
 000065                                                                         
 000066   total = queued()                                                      
 000067                                                                         
 000068   do x=1 to queued()                                                    
 000069     pull element                                                        
 000070     jclstem.x = element                                                 
 000071   end                                                                   
 000072   jclstem.0 = total                                                     
 000073                                                                         
 000074   say        "submit_XMI_jcl: submitting" jclstem.0 "lines"             
 000075   call submit('jclstem.')                                               
 000076                                                                         
 000077 return                                                                  

 READY                                                                          
rx #error                                                                      
 submit_XMI_jcl: Processing 'MIG.CNTL(#ERROR)'                                  
 submit_XMI_jcl: Changing line 5 to: //             MSGLEVEL=(1,1),             
 submit_XMI_jcl: submitting 174 lines                                           
 DONE!                                                                          
 READY                                                                          

          *** Output dataset                                                    
   14     ++SYSUT2   DD  DISP=(NEW,CATLG),                                      
          ++             DSN=MIG.TEST.ISPF.&DSN,                                
          ++             DCB=SYS1.MACLIB,                                       
          ++             SPACE=(CYL,(2,0,20),RLSE),                             
          ++             UNIT=SYSDA,                                            
          ++             VOL=SER=PUB001                                         
   15     //MLIB     EXEC RECV,DSN=MLIB                                         

 STMT NO. MESSAGE                                                               
-                                                                               
    9     IEF653I SUBSTITUTION JCL - DSN=MVP.WORK(DOC),DISP=SHR                 
   14     IEF653I SUBSTITUTION JCL - DSN=MIG.TEST.ISPF.DOC,                     
   19     IEF653I SUBSTITUTION JCL - DSN=MVP.WORK(MLIB),DISP=SHR                
   24     IEF653I SUBSTITUTION JCL - DSN=MIG.TEST.ISPF.MLIB,                    
   29     IEF653I SUBSTITUTION JCL - DSN=MVP.WORK(PLIB),DISP=SHR                
   34     IEF653I SUBSTITUTION JCL - DSN=MIG.TEST.ISPF.PLIB,                    
   39     IEF653I SUBSTITUTION JCL - DSN=MVP.WORK(RFEPLIB),DISP=SHR             
   44     IEF653I SUBSTITUTION JCL - DSN=MIG.TEST.ISPF.RFEPLIB,  

[Peter-Jacob]

We cannot re-create the problem, therefore the issue will be closed. If it re-occur in V2R5M3, please re-open it.