a little background...
System is a mainframe z/OS
Need to update some records from a VSAM KSDS file, the field to be updated is not part of any key.
I have the following pgm
FILE MASTER VS(UPDATE)
MKEY 1 12 A
AXCOLL 84 6 A
FILE INFILE
IKEY 1 12 A
JOB INPUT NULL
GET INFILE
DO WHILE NOT EOF INFILE
READ MASTER KEY INFILE:IKEY STATUS
IF MASTER:FILE-STATUS NE 0
DISPLAY 'ERROR READING: ' MASTER:AXCOLL
ELSE
IF MASTER:AXCOLL = 'some-literal'
MOVE 'another-literal' TO MASTER:AXCOLL
END-IF
WRITE MASTER UPDATE
IF MASTER:FILE-STATUS NE 0
DISPLAY 'ERROR WRITING: ' MASTER:AXCOLL
END-IF
END-IF
GET INFILE
END-DO
MKEY 1 12 A
AXCOLL 84 6 A
FILE INFILE
IKEY 1 12 A
JOB INPUT NULL
GET INFILE
DO WHILE NOT EOF INFILE
READ MASTER KEY INFILE:IKEY STATUS
IF MASTER:FILE-STATUS NE 0
DISPLAY 'ERROR READING: ' MASTER:AXCOLL
ELSE
IF MASTER:AXCOLL = 'some-literal'
MOVE 'another-literal' TO MASTER:AXCOLL
END-IF
WRITE MASTER UPDATE
IF MASTER:FILE-STATUS NE 0
DISPLAY 'ERROR WRITING: ' MASTER:AXCOLL
END-IF
END-IF
GET INFILE
END-DO
According to the Easytrieve Reference Guide I need to override the installation option/parameter UPDTVS to YES, which is set to NO by default.
I tried several things but keep receiving B017.
What I tried:
inside the pgm code: (got invalid parm every time)
PARM UPDTVS=YES
PARM UPDTVS (YES)
PARM UPDTVS (Y)
in the JCL EXEC line: (didn't work)
EXEC PGM=EZTPA00,PARM='UPDTVS=YES'
Does anyone knows how to get this thing working? How do I override the installation options? (like the guide instructs)
Pablo.