Hallo,

wenn ich den Code sehe, fällt mir auf, dass Du eine DOW-Schleife mit der Bezugszahl vom READC verwendest! Wenn die Bezugszahl *IN70 schon auf *ON (vielleicht anderer Lesevorgang?!) ist, dann geht das Programm nicht in die Schleife!
Mein Programm zur Verarbeitung von Eingaben in Subdateien würde so aussehen:

C MOVE *ZEROS BLKN01

C READC SUBF01 70

C DOW *IN70 = '0'
C SELECT
C WHEN AUSW = '2'
C EXSR UPDATE
C WHEN AUSW = '4'
C EXSR DEL
C ENDSL
C READC SUBF01 70
C ENDDO