I wrote a sample program to write a record to VSAM file using value from a constant , The program executed and ended ok but I don't see the new record written to file.
I know there is something not ok in the program, Could anyone please point me what could I be missing?
Code: Select all
TEST CSECT
BASR 12,0
USING *,12
SAVE (14,12)
ST 13,SAVE+4 SAVE BACK CHAIN
LA 11,SAVE SET UP FORWARD CHAIN
ST 11,8(13) SAVE FORWARD CHAIN
LR 13,11 SET UP FOR NEXT SAVE AREA CHAIN
OPEN OUTF
MVC OUTR,INPR
PUT RPL=RPL1
CLOSE OUTF
L 13,SAVE+4 GET BACK CHAIN
LM 14,12,12(13) RESTORE REGISTERS
LA 15,0
BR 14
START EQU *
SAVE DS 18F
OUTR DS CL80
INPR DS 0CL80
DC 80C'9'
END EQU *
OUTF ACB AM=VSAM,MACRF=OUT
RPL1 RPL ACB=OUTF, X
AREA=OUTR, X
AREALEN=80, X
RECLEN=80
END TEST