Here is a sample program that will read an input file and write into another one. I have not provided any file handling or error handling. Just GET and PUT. Also note that this program will return a return code
0 in all codition since I'm initialising R(15).
Anyway here is something to start with ..
IOLOOP MVC INAREA,=80C' '
MVI OUTCARR,C' '
FINISH CLOSE (INDCB)
EXIT L 13,SAVE+4
INDCB DCB DSORG=PS,MACRF=(GM),DDNAME=SYSIN,EODAD=FINISH, X
OUTDCB DCB DSORG=PS,MACRF=(PM),DDNAME=OUTPUT, X
INAREA DS CL80
OUTAREA DS 0CL133
OUTCARR DC CL1' '
OUTLINE DC CL132' '
SAVE DS 18F
You don't have to specify RMODE to 24. You can specify AMODE(31),RMODE(ANY). Go thru the manual for more details.