ABSTEST2 JCL

Here is the JCL I used to generate the IPL card deck for the ABSTEST2 macro test program.

First we execute our ABSLOAD program to generate the cards for the Absolute Loader.  Next we run the assembler to assemble ABSTEST2 and punch out the object deck immediately following the Absolute Loader.  Finally we can use IEBGENER to copy some card images to follow the object deck so our program has something to read.

//TXXABST2 JOB 5222,'ALDR TST',CLASS=A,MSGCLASS=A,
//        MSGLEVEL=(1,1)
/*JOBPARM K=0
//TXXOSRUN EXEC PGM=ABSLOAD
//STEPLIB   DD  DISP=SHR,DSN=TXXOS.CARD.LOAD
//SYSUDUMP  DD  SYSOUT=A
//PUNCH     DD  UNIT=00D
//*
//*
//*
//*
//ASM      EXEC  PGM=IFOX00,REGION=1024K,
//         PARM='LINECOUNT(44)'
//SYSLIB   DD    DISP=SHR,DSN=SYS1.MACLIB
//         DD    DISP=SHR,DSN=SYS1.AMODGEN
//         DD    DISP=SHR,DSN=TXXOS.CARD.ASM
//SYSUT1   DD    DSN=&&SYSUT1,UNIT=VIO,SPACE=(1700,(600,100))
//SYSUT2   DD    DSN=&&SYSUT2,UNIT=VIO,SPACE=(1700,(300,50))
//SYSUT3   DD    DSN=&&SYSUT3,UNIT=VIO,SPACE=(1700,(300,50))
//SYSPRINT DD    SYSOUT=*
//SYSPUNCH DD    UNIT=00D
//SYSIN    DD    DISP=SHR,DSN=TXXOS.CARD.ASM(ABSTEST2)
//*
//*
//GENR   EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//SYSUT2   DD UNIT=00D,DCB=BLKSIZE=80
//SYSUT1   DD *
THIS IS A TEST CARD IN THE INPUT READER
NOW WE HAVE THE SECOND CARD IN READER
THE THIRD CARD IN THE CARD READER
FOURTH CARD IN OUR CARD READER
/* LAST DATA RECORD...

[Next – ABSTEST2 Printer Output]

Leave a Reply

Your email address will not be published. Required fields are marked *