Data update
This commit is contained in:
parent
4bb20c9b71
commit
cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
|
|
@ -0,0 +1,13 @@
|
|||
HELLO CSECT
|
||||
PRINT NOGEN
|
||||
BALR 12,0
|
||||
USING *,12
|
||||
OPEN LNPRNTR
|
||||
LA 6,HW
|
||||
PUT LNPRNTR
|
||||
CLOSE LNPRNTR
|
||||
EOJ
|
||||
LNPRNTR DTFPR DEVADDR=SYSLST,IOAREA1=L1
|
||||
L1 DS 0CL133
|
||||
HW DC C'Hello World!'
|
||||
END HELLO
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
HELLO CSECT
|
||||
SAVE (14,12)
|
||||
BASR 12,0
|
||||
USING *,12
|
||||
ST 13,SAVEA+4
|
||||
LA 13,SAVEA
|
||||
OPEN (SYSPRINT,OUTPUT)
|
||||
PUT SYSPRINT,HELLOREC
|
||||
CLOSE SYSPRINT
|
||||
L 13,SAVEA+4
|
||||
RETURN (14,12),RC=0
|
||||
HELLOREC DC CL80'HELLO, WORLD!'
|
||||
SYSPRINT DCB DDNAME=SYSPRINT, X
|
||||
DSORG=PS, X
|
||||
MACRF=PM, X
|
||||
RECFM=FB, X
|
||||
LRECL=80
|
||||
SAVEA DS 18F
|
||||
END
|
||||
Loading…
Add table
Add a link
Reference in a new issue