19 lines
638 B
Text
19 lines
638 B
Text
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
|