github.com/moshix.mvs
1
0
Fork 0
mirror of https://github.com/moshix/mvs.git synced 2026-02-01 22:12:14 +00:00
Code Issues Releases Wiki Activity

added internal reader submit program

Browse Source
This commit is contained in:
moshix
2021-02-13 20:22:26 -06:00
committed by GitHub
parent d557c639aa
commit 5ce8bfb008
1 changed files with 54 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
assembler_submit_reader.txt Normal file
View File

@@ -0,0 +1,54 @@
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