FDSPI05 CF E WORKSTN
FFICH1L0 UF E K DISK
FFICH2P1 IF E K DISK
D error s n
* PGM PRINCIPAL (BOUCLE SUR IMAGE 1)
* ==================================
C WRITE TITRE
C EXFMT F1
C DOW not *in03
C EXSR TRTF1
C EXFMT F1
C ENDDO
C MOVE *ON *INLR
* DEBUT DES SOUS PROGRAMMES
* =========================
C TRTF1 BEGSR
C CLE CHAIN FICH1F1 50
C IF %found
C EXSR TRTF2
C ENDIF
C ENDSR
*
C TRTF2 BEGSR
C DOU error = *off
C EXFMT F2
C SELECT
C WHEN *in12
C LEAVE
C OTHER
C EXSR CTLF2
C IF not error
C UPDATE FICH1F1
C ENDIF
C ENDSL
C ENDDO
C ENDSR
*
C CTLF2 BEGSR
C eval error = *off
* CONTROLE DU CODE
C CODE CHAIN FICH2F1 51
C IF *in51
C eval error = *on
C ENDIF
| 
| 
| 