.....F*ilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++++++Comments+++++++++++
FRPGI05D CF E WORKSTN
FFICH1L0 UF E K DISK
FFICH2P1 IF E K DISK
* PGM PRINCIPAL (BOUCLE SUR IMAGE 1)
* ==================================
.....C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....Comments+++++++++++
C WRITE TITRE
C EXFMT F1
C *IN03 DOWEQ *OFF
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 *IN50 IFEQ *OFF
C EXSR TRTF2
C ENDIF
C ENDSR
*
C TRTF2 BEGSR
C ERROR DOUEQ 'NON'
C EXFMT F2
C SELECT
C *IN12 WHENEQ *ON
C LEAVE
C OTHER
C EXSR CTLF2
C ERROR IFEQ 'NON'
C UPDATE FICH1F1
C ENDIF
C ENDSL
C ENDDO
C ENDSR
*
C CTLF2 BEGSR
C MOVE 'NON' ERROR 3
* CONTROLE DU CODE
C CODE CHAIN FICH2F1 51
C *IN51 IFEQ *ON
C MOVE 'OUI' ERROR
| 
| 
| 