Modèle basique de programme d'extraction
*==============================================================*
* AUTEUR : JMD LE XX/XX/XX I
* ------ I
*==============================================================*
FXXXXXX IF E K DISK
FXXXXXX O E DISK A
*
E CLE 64 1
*==============================================================*
* PARAMETRE , CLE , *LIKE DEFN I
*==============================================================*
C XXXX KLIST
C KFLD XXXX
*
C *LIKE DEFN XXXXXX YYYYYY
*====================================================
* I N I T I A L I S A T I O N S
*====================================================
*
C EXSR SPGENE
*
*====================================================
* T R A I T E M E N T S
*====================================================
* Positionnement fichier
C XXXXX SETLLXXXXXX
C MOVE *OFF *IN51
C READ XXXXXX 51
* Début boucle
C N51 XXXX DOWEQXXXX
* Détail
C EXSR SPDETA
* Lecture suivante + retour boucle
C MOVE *OFF *IN51
C READ XXXXXX 51
C N51 ENDDO
* Fin programme
C MOVE *ON *INLR
*====================================================
* S O U S - R O U T I N E S
*====================================================
* Préparation générale *
*=========================
CSR SPGENE BEGSR
* ====== =====
* Chargement zones
*
CSR ENDSR
*=========================
* Détail *
*=========================
CSR SPDETA BEGSR
* ====== =====
* Extraction
* Chargement zones
* Ecriture fichier
C WRITEXXXXXXX
*
CSR ENDSR
Modèle basique programme d'Edition
*========================================================*
* AUTEUR : JMD LE XX/XX/XX I
* ------ I
*========================================================*
FXXXXXXXXIF E K DISK
FXXXXXXXXO E PRINTER
*TAT O F 132 PRINTER
*
E CLE 64 1
*
*========================================================
* PARAMETRE , CLE , *LIKE DEFN
*========================================================
C XXXX KLIST
C KFLD XXXX
*
C *LIKE DEFN XXXXXX YYYYYY
*====================================================
* I N I T I A L I S A T I O N S
*====================================================
*
C EXSR SPGENE
*
*====================================================
* T R A I T E M E N T S
*====================================================
* Positionnement fichier
C XXXX SETLLXXXXXXXX
C MOVE *OFF *IN51
C READ XXXXXXXX 51
* Début boucle
C *IN51 DOWEQ'0'
* Rupture
C XXXX IFNE WXXX
C EXSR SPENTE
C MOVE XXXX WXXX
C ENDIF
* Détail
C EXSR SPDETA
* Lecture suivante + retour boucle
C MOVE *OFF *IN51
C READ XXXXXXXX 51
C N51 ENDDO
* Fin programme
C MOVE *ON *INLR
C EXSR SPPIED
*====================================================
* S O U S - R O U T I N E S
*====================================================
* Préparation générale *
*=========================
CSR SPGENE BEGSR
* ====== =====
* Recherche données
* Chargement zones
*
CSR ENDSR
*=========================
* Rupture *
*=========================
CSR SPENTE BEGSR
* ====== =====
* Total
C WXXX IFNE *BLANK
* Calculs
* Edition
C WRITEDETAIL
*
C ENDIF
* Detail
* Recherche données
* Chargement zones
* Edition
C WRITEENTETE
*
CSR ENDSR
*=========================
* Détail *
*=========================
CSR SPDETA BEGSR
* ====== =====
* Extraction
* Cumuls
*
CSR ENDSR
*=========================
* Fin de programme *
*=========================
CSR SPPIED BEGSR
* ====== =====
* Total
C WXXX IFNE *BLANK
* Calculs
* Edition
C WRITEDETAIL
*
C ENDIF
* Pied
C WRITETOTAL
*
CSR ENDSR
Modèle basqie de programme interactif
*==============================================================*
* AUTEUR : JMD LE XX/XX/XX I
* ------ I
*==============================================================*
* REPRODUIRE SOUS-PROGRAMME TRAIF1 POUR CHAQUE GRILLE ECRAN
FXXXXXXFMCF E WORKSTN
E CLE 64 1
E $N 20 1
IWF2 DS
* Zones Ecrans pour double détente
*==============================================================*
* PARAMETRE , CLE , *LIKE DEFN I
*==============================================================*
C XXXX KLIST
C KFLD XXXX
*
C *LIKE DEFN XXXXXX YYYYYY
*====================================================
* I N I T I A L I S A T I O N S
*====================================================
*
C EXSR PREPGE
*
*====================================================
* T R A I T E M E N T S
*====================================================
*
C EXSR TRAIT
C MOVE *ON *INLR
*
*====================================================
* S O U S - R O U T I N E S
*====================================================
* Traitement *
*=========================
CSR TRAIT BEGSR
* ===== =====
* Préparation
C ADD 1 N 20
C MOVE '*' $N,N
C $N,N DOWEQ'*'
C EXSR PREPF1
* Affichage
C MOVE *ON *IN99
C MOVE *ON *IN99
C *IN99 DOWEQ'1'
C EXFMTF1
C SETOF 99
*
C *IN07 IFEQ *ON
C MOVE *BLANK $N
C ENDIF
* Controle
C $N,N IFEQ '*'
C EXSR CONTF1
C ENDIF
*
C ENDDO
* Traitement
C $N,N IFEQ '*'
C EXSR TRAIF1
C ENDIF
*
C ENDDO
C SUB 1 N
CSR ENDSR
*=========================
* Traitement F1 *
*=========================
CSR TRAIF1 BEGSR
* ====== =====
* Préparation
C ADD 1 N 20
C MOVE '*' $N,N
C MOVE *BLANK YF2
C $N,N DOWEQ'*'
C EXSR PREPF2
* Affichage
C MOVE *ON *IN99
C *IN99 DOWEQ'1'
C WF2 ORNE YF2
C MOVELWF2 YF2 256
C EXFMTF2
C MOVE *OFF *IN99
*
C *IN02 IFEQ *ON
C MOVE *BLANK $N,N
C ENDIF
*
C *IN07 IFEQ *ON
C MOVE *BLANK $N
C ENDIF
* Controle
C $N,N IFEQ '*'
C EXSR CONTF2
C ENDIF
*
C ENDDO
* Traitement
C $N,N IFEQ '*'
C EXSR TRAIF2
C MOVE *BLANK $N,N
C ENDIF
*
C ENDDO
C SUB 1 N
CSR ENDSR
*=========================
* Préparation générale *
*=========================
CSR PREPGE BEGSR
* ====== =====
* Recherche données
* Chargement zones
* Initialisation
*
CSR ENDSR
*=========================
* Préparation F1 *
*=========================
CSR PREPF1 BEGSR
* ====== =====
* Recherche données
* Chargement zones
* Initialisation
*
CSR ENDSR
*=========================
* Controle F1 *
*=========================
CSR CONTF1 BEGSR
* ====== =====
* Initialisation
* Controles zones
*
CSR ENDSR
*=========================
* Préparation F2 *
*=========================
CSR PREPF2 BEGSR
* ====== =====
* Recherche données
* Chargement zones
* Initialisation
*
CSR ENDSR
*=========================
* CONTROLE F2 *
*=========================
CSR CONTF2 BEGSR
* ====== =====
* Initialisation
* Controle zones
*
CSR ENDSR
*=========================
* Traitement F2 *
*=========================
CSR TRAIF2 BEGSR
* ====== =====
* Chargement zones
* MAJ fichier
*
CSR ENDSR