Pgm de mise à jour (syntaxe RPG IV)

BoTTom | 
.....F*ilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++++++Comments+++++++++++
     FRPGI05D   CF   E             WORKSTN
     FFICH1L0   UF   E           K DISK
     FFICH2P1   IF   E           K DISK
.....D*ame+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++Comments+++++++++++
     Derror            s              3
      * PGM PRINCIPAL (BOUCLE SUR IMAGE 1)
      * ==================================
.....C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....Comments+++++++++++
     C                   WRITE     TITRE
     C                   EXFMT     F1
     C                   DOW       *in03 = *off
     C                   EXSR      TRTF1
     C                   EXFMT     F1
     C                   ENDDO
     C                   eval      *inlr = *on
      * DEBUT DES SOUS PROGRAMMES
      * =========================
     C     TRTF1         BEGSR
     C     CLE           CHAIN     FICH1F1                            50
     C                   IF        *in50 = *off
     C                   EXSR      TRTF2
     C                   ENDIF
     C                   ENDSR
      *
     C     TRTF2         BEGSR
     C                   DOU       error = 'NON'
     C                   EXFMT     F2
     C                   SELECT
     C                   WHEN      *in12 = *on
     C                   LEAVE
     C                   OTHER
     C                   EXSR      CTLF2
     C                   IF        error = 'NON'
     C                   UPDATE    FICH1F1
     C                   ENDIF
     C                   ENDSL
     C                   ENDDO
     C                   ENDSR
      *
     C     CTLF2         BEGSR
     C                   eval      error = 'NON'
      * CONTROLE DU CODE
     C     CODE          CHAIN     FICH2F1                            51

| 
     C                   IF        *in51 = *on
     C                   eval      error = 'OUI'
     C                   ENDIF
      * AUTRES CONTROLES DE VALIDITE
     C*                  IF         .....
     C*                  eval       error = 'OUI'
     C*                  eval       *in.. = *on
     C*                  ENDIF
     C                   ENDSR




©AF400