assembler_submit_reader.txt

         PRINT NOGEN
ASMSUB   CSECT
         SAVE  (14,12)           SAVE REGISTERS ON ENTRY
         BASR  R12,0             SET UP MY
         USING *,R12                       BASE REGISTER
         ST    R13,SAVEA+4                   ENSURE SAVE AREA
         LA    R13,SAVEA                        CHAIN BUILT CORRECTLY.
*---------------------------------------------------------------------*
*        INSERT THE OPEN STATEMENT AFTER THIS COMMENT BOX             *
*---------------------------------------------------------------------*
         OPEN  (OUTDCB,OUTPUT)   OPEN OUTPUT FILE FOR INTRDR
PRTJCL   EQU   *                 START OF PRINTING
         MVC   OUTAREA,LINE1
         PUT   OUTDCB,OUTAREA    MOVE EACH JCL LINE INTO BUFFER AND
         MVC   OUTAREA,LINE2      "PRINT" TO INTERNAL READER
         PUT   OUTDCB,OUTAREA
         MVC   OUTAREA,LINE3
         PUT   OUTDCB,OUTAREA
         MVC   OUTAREA,LINE4
         PUT   OUTDCB,OUTAREA
         MVC   OUTAREA,LINE5
         PUT   OUTDCB,OUTAREA
PRNTDONE CLOSE (OUTDCB)          CLOSE THE INPUT FILE.
         L     R13,SAVEA+4       R13 = PREVIOUS SAVE AREA ADDR.
         RETURN (14,12),RC=0     RETURN TO CALLER (Z/OS)
SAVEA    DS    18F               FOR REGISTER SAVE AREA
         LTORG
OUTDCB   DCB   MACRF=PM,RECFM=FB,LRECL=80,DDNAME=OUTDD,DSORG=PS
*--------M-Y----O-U-T-P-U-T----A-R-E-A------------*
OUTAREA  DC    CL80' '                             *  BUFFER
LINE1    DC    CL80'//MOSHIXI JOB (ASM),MSGCLASS=H,CLASS=A'
LINE2    DC    CL80'//STEP1 EXEC PGM=IEFBR14'      *  ANY JCL
LINE3    DC    CL80'//SYSPRINT DD SYSOUT=*'        *   YOU WANT TO
LINE4    DC    CL80'//SYSABEND DD SYSOUT=*'        *     SUBMIT HERE..
LINE5    DC    CL80'//'                            *
*-------------------------------------------------*
R0       EQU   0
R1       EQU   1
R2       EQU   2
R3       EQU   3
R4       EQU   4
R5       EQU   5
R6       EQU   6
R7       EQU   7
R8       EQU   8
R9       EQU   9
R10      EQU   10
R11      EQU   11
R12      EQU   12
R13      EQU   13
R14      EQU   14
R15      EQU   15
         END   ,                  PHYSICAL END OF THE PROGRAM