1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| IDENTIFICATION DIVISION.
PROGRAM-ID. xxxxxxxx. ********************************************************* * PROGRAMME PROCEDE A L' EDITION DE L'ETAT DES CHEQUES
* POUR LES COMPTABLE 98 -ETRANGER- ****************************************************** ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT CNRATRV ASSIGN TO 'AT_CNRACR_TRIE'
ORGANISATION RECORD SEQUENTIAL.
SELECT IMPR1 ASSIGN TO PRINTER.
DATA DIVISION.
FILE SECTION.
FD CNRATRV
LABEL RECORDS STANDARD BLOCK 10 RECORDS. 01 ENR-CREDIRENTIER.
02 ENR-CRED.
05 C-CAT PIC X.
05 C-RECORD-KEY-CREDIT.
10 C-DOS PIC X(6).
10 C-BENEFICIAIRE PIC XX.
10 C-CODE-ENR PIC X.
*********** ICI C'EST LE TRAITEMENT
PROCEDURE DIVISION.
OUVERT.
ACCEPT CARTE
IF JOUR-INT NOT EQUAL 01
DISPLAY CARTE ' JOUR DIF DE 01 '
DISPLAY ' PRIERE CORRIGER DATE ET SOUMETTRE'
GO TO CLOS-FICHIER.
DEBUT.
OPEN INPUT CNRATRV
OUTPUT IMPR1.
INITIATE ETAT1.
LECT-CREDIR.
READ CNRATRV AT END GO TO 800-FIN.
TRAITEMENT
PERFORM CALCUL
PERFORM IGR
PERFORM FIN.
CALCUL.
COMPUTE MONTANT = SALAIRE + PRIME
IGR.
COMPUTE PRE1 = MONANT * 12 / 5.
FIN.
CLOSE CNRATRV IMPR1.
STOP RUN. |
Partager