mirror of
https://github.com/moshix/mvs.git
synced 2026-01-13 15:17:35 +00:00
55 lines
2.1 KiB
Plaintext
55 lines
2.1 KiB
Plaintext
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
|
||
|