Well, I solved that problem--missing the '0' replication in my I/O area definition (causing the CC to be garbage). Defined as follows, now.
CARD_IA DS CL128 LINE_OA DS 0CL121 LINE_CC DC C' ' LINEDATA DC CL120' ' However, I'm getting garbage for all of the REXX comment lines. Gonna have to try an interactive debugger, now, to find out where the input can be found--if anywhere. But the code I posted does keep reading until the /+ is found. Sincerely, Dave Clark -- int.ext: 91078 direct: (937) 531-6378 home: (937) 751-3300 Winsupply Group Services 3110 Kettering Boulevard Dayton, Ohio 45439 USA (937) 294-5331 On Fri, Dec 12, 2025 at 4:12 PM David Clark <[email protected]> wrote: > OK, I made an attempt, but got the following. I coded it so I didn't have > to test for EOF--meaning, I used a separate piece of code to handle the > normal EOF but attempted to process the error card as usual. (At this > point, I'm just trying to print out every card and error card that I read > in.) I still need some hints/tips about trying to read past the /* card. > Thanks. > > BG 0000 // JOB CARDASM TEST OF READING PAST /* EOD-OF-DATA CARD > 16:07:39 > DATE 12/12/2025, CLOCK 16/07/39 > 16:07:39 > BG 0001 1R30I INVALID CCW - CCB ADDR=X'5002B8' XXCRDIN 44953, X'FEE' > RC=0002, > PARTITION BG > 16:07:39 > BG 0001 1R30I CCB=00002005 00200003 00501090 00000000, ADDR=005002B8, BG > > BG 0001 1R30I CCW=00500161 20000078, ADDR=00501090, BG > 16:07:39 > BG 0000 0P73I I/O ERROR > 16:07:39 > BG 0000 0S00I JOB CARDASM CANCELED > 16:07:39 > BG 0000 0S07I PROBLEM PROGRAM PSW = 071D1000 00117BDA > 16:07:39 > BG 0000 0S29I DUMP STARTED > 16:07:39 > BG 0000 0S30I DUMP STARTED. MEMBER=DBG00772.DUMP IN SUBLIB=SYSDUMP.SUBLIB > > BG 0000 1I51I DUMP COMPLETE > 16:07:39 > BG 0000 1S78I JOB TERMINATED DUE TO PROGRAM ABEND > 16:07:39 > BG 0000 EOJ CARDASM MAX.RETURN CODE=0016 > 16:07:39 > DATE 12/12/2025, CLOCK 16/07/39, DURATION 00/00/00 > 16:07:39 > > Sincerely, > > Dave Clark > >
