io_z303 routine failed while trying to X

Description

We are doing a run of file-20 (the PLIF loader) using the XML format to update and insert addresses. To do this we use a Z303 section with an action of X:  from the "How To Use the Patron Loader Interface - PLIF (file-20)" document: "There is an action associated with every subsection of an input line. It is possible to start with a user record that has only a matching ID and action X and to follow that with address lines for update. This allows selective update of records associated with a patron." 

But we get the following 5002 error when running this file-20 in update mode: 

io_z303 routine failed while trying to X. cur-id nnnnnnnn. 

The later Z304 address updates work fine.   

Resolution

The b_file_20_a program writes this 5002 message when it tries to perform an action (in this case "X") on the record and fails. As shown below in Additional Information there's no provision for an F-OP code of "X"; it falls under "OTHER" and results in this error message.  Ideally, it would just ignore a CUR-ACTION/F-OP of "X" and not write an error message, but, in any case, as long as the address records for the patron are being processed correctly, you can just ignore it. 

  Another possibility is, instead of using the action "X", use action "A" and put the NULL character (specified in the file-20 submission) in all of the fields to indicate that the field should be left as is.  

  If you use action A with the NULL codes the report has the actual name of the patron record that is updated in it. This actually gives a better report then action X. Using action X returns whatever name is in the input file. 
 

Additional Information

The b_file_20_a program has this code: 
CALL IO-PROC USING 
CUR-ACTION 
BUF-ZNNN-RECORD-DATA (I) 
ERROR-CODE 
END-CALL. 

In this case that would be: 
CALL io_z303 USING 
X 
nnnnnnn 

"CUR-ACTION" becomes "F-OP" in the io_z303 program, which has this: 
EVALUATE F-OP 
WHEN "WRITE" 
WHEN "REWRITE" 
WHEN "READ" 
WHEN "READ-1" 
WHEN "READ-2" 
WHEN "START" 
WHEN "START-B" 
WHEN "START-1" 
WHEN "START-1-B" 
WHEN "START-2" 
WHEN "START-2-B" 
WHEN "START-3" 
WHEN "START-3-B" 
WHEN "START-4" 
WHEN "STARTI" 
WHEN "DELETE" 
WHEN "NEXT" 
WHEN "NEXTI" 

WHEN OTHER 
MOVE 1 TO ERROR-CODE 
GO TO EX-IO-Z303 

• Article last edited: 23-Jun-2016