FDSPI05 CF E WORKSTN
FFICH1L0 UF E K DISK
FFICH2P1 IF E K DISK
* PGM PRINCIPAL (BOUCLE SUR IMAGE 1)
* ==================================
C WRITETITRE
C EXFMTF1
C *IN03 DOWEQ*OFF
C EXSR TRTF1
C EXFMTF1
C ENDDO
C MOVE *ON *INLR
* DEBUT DES SOUS PROGRAMMES
* =========================
C TRTF1 BEGSR
C CLE CHAINFICH1F1 50
C *IN50 IFEQ *OFF
C EXSR TRTF2
C ENDIF
C ENDSR
*
C TRTF2 BEGSR
C ERROR DOUEQ'NON'
C EXFMTF2
C SELEC
C *IN12 WHEQ *ON
C LEAVE
C OTHER
C EXSR CTLF2
C ERROR IFEQ 'NON'
C UPDATFICH1F1
C ENDIF
C ENDSL
C ENDDO
C ENDSR
*
C CTLF2 BEGSR
C MOVE 'NON' ERROR 3
* CONTROLE DU CODE
C CODE CHAINFICH2F1 51
C *IN51 IFEQ *ON
C MOVE 'OUI' ERROR
C ENDIF
* AUTRES CONTROLES DE VALIDITE
| 
| 
| 