We are trying to debug a Rexx supplied by MVS PSF but modified here in the way distant past. It's AFRREBLK in SMPE library SAPSEXEC. Its purpose is to handle an AFP file uploaded from, say Unix, to reblock/reformat it for MVS. There is code in the Rexx to handle return codes from DISKW, but I cannot find these all of these codes documented in KC. Here diskw_rc is RC from EXECIO.
when diskw_rc = 1 then /* LRECL exceeded */
when diskw_rc = 113 then /* Out of Space */
when diskw_rc = 136 then /* FM not accessed */
I can see where KC documents RC=1 as 'record truncation', consistent with 'LRECL exceeded'. I don't find anything corresponding to 'Out Space' or 'FM not accessed', whatever FM is. In any case our error is RC=1, which is there. I'm more curious about the other codes. BTW these are the only specific conditions tested for in the Rexx; anything else gets a generic 'wha hoppened'?
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office <===== NEW
robi...@sce.com<mailto:
robi...@sce.com>
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to
LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX