/TypeCobol.Test/ThirdParty/CNAF/Batch/CGM129.COB
https://github.com/TypeCobolTeam/TypeCobol · COBOL · 12457 lines · 8203 code · 16 blank · 4238 comment · 0 complexity · 2ac05d91064cdf122afe336e06d3b452 MD5 · raw file
- IDENTIFICATION DIVISION.
- *$$IDENTIFICATION
- PROGRAM-ID. CGM129.
- AUTHOR. ANALYST: JOUZEL JEAN-RENE.
- PROGRAMMER: JOUZEL JEAN-RENE.
- DATE-WRITTEN. 02/23/16.
- DATE-COMPILED.
-
- *****************************************************************
- * SOURCE GENERE PAR INSTALL/1 *
- * MODEL UTILISE = CTM050 *
- * VERSION = LINUX *
- * *
- * MODULE COMMUN *
- * IDEM CTM010 AVEC PASSAGE D'UNE ZONE SUPPLEMENTAIRE *
- * *
- *****************************************************************
- * *
- * NAME : &PRGRMID. *
- * NAME : CGM129 *
- * *
- *****************************************************************
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- SYMBOLIC CHARACTERS APOSTR IS 126.
-
- DATA DIVISION.
- *****************************************************************
- * *
- * W O R K I N G S T O R A G E *
- * *
- *****************************************************************
-
- WORKING-STORAGE SECTION.
- 01 LT-BEGIN-OF-WS.
- 03 LT-START-OF-WS PIC X(42)
- * VALUE "***** BEGIN WORKING STORAGE &PRGRMID. *****".
- VALUE "***** BEGIN WORKING STORAGE CGM129 *****".
-
- *COPY CQOMC0WK.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copyb/CQOMC0WK.CPY" CQOMC0WK
- *LibFac * * * * * * * * * * * * * * * * * * * * * CQOMC0WK
- *LibFac liberFactory GCOS to Linux Translator * CQOMC0WK
- *LibFac From input file: CQOMC0WK * CQOMC0WK
- *LibFac On the date: 2015/03/23 * CQOMC0WK
- * COMPOSANT TRAITE PAR ConstruireSpx.pl CQOMC0WK
- *LibFac * * * * * * * * * * * * * * * * * * * * * CQOMC0WK
- ***************************************************************** CQOMC0WK
- * * CQOMC0WK
- * >>>>>>>>>> > > NE PAS REGENERER < < <<<<<<<<<<<<<<<<<<<<<< * CQOMC0WK
- * +++++++++++++++++ * CQOMC0WK
- * COPYBOOK NAME : CQOMC0WK BATCH * CQOMC0WK
- * * CQOMC0WK
- * COPYBOOK DESC : INTERFACE ACCES MOD MESU * CQOMC0WK
- * * CQOMC0WK
- * 12/98: MODIF ZONES SPECIFIQUES A CQSRVB * CQOMC0WK
- * * CQOMC0WK
- ***************************************************************** CQOMC0WK
- 01 PERF-CQOMC0WR. CQOMC0WK
- 11 PERF-CQOMC00. CQOMC0WK
- 16 PERF-NDTHEU PIC S9(15) COMP-3. CQOMC0WK
- 16 PERF-ZAPPLT PIC X(8). CQOMC0WK
- 16 PERF-D4A2MJ PIC S9(9) COMP-3. CQOMC0WK
- 16 PERF-NHR8PO PIC S9(9) COMP-3. CQOMC0WK
- 16 PERF-ZTYPAP PIC X(1). CQOMC0WK
- 16 PERF-CCOD1C PIC X(1). CQOMC0WK
- 16 PERF-CCOD1C0 PIC X(1). CQOMC0WK
- 16 PERF-PARA01 PIC X(1). CQOMC0WK
- 16 PERF-PIOCDE PIC X(28). CQOMC0WK
- 16 PERF-D1-USER-ID PIC X(8). CQOMC0WK
- 16 PERF-CWCURCNV PIC X(4). CQOMC0WK
- 16 PERF-PARA04 PIC X(4). CQOMC0WK
- 16 PERF-PISRVC PIC X(12). CQOMC0WK
- 16 PERF-PIDMOD PIC X(8). CQOMC0WK
- 16 PERF-PTYENT PIC X(8). CQOMC0WK
- 16 PERF-PIDENT PIC X(8). CQOMC0WK
- 16 PERF-PARA05 PIC X(5). CQOMC0WK
- 16 PERF-NNBR5C PIC S9(5) COMP-3. CQOMC0WK
- 16 PERF-DISPLAY PIC X. CQOMC0WK
- 16 PERF-TRT-RETOUR PIC X. CQOMC0WK
- 16 PERF-NBA9PO0 PIC S9(15) COMP-3. CQOMC0WK
- 16 PERF-APPLICATIF. CQOMC0WK
- 18 PERF-APPL-ZNOCCD PIC S99. CQOMC0WK
- 18 PERF-APPL-ZL0100 PIC X(70). CQOMC0WK
- *01 PERF-TRAITEMENT COMP-6 VALUE ZERO. CQOMC0WK
- 01 PERF-TRAITEMENT CQOMC0WK
- PIC S9(00009) COMP-5 SYNC VALUE ZERO. CQOMC0WK
- 88 PERF-TRT-OUI VALUE ZERO. CQOMC0WK
- 88 PERF-TRT-NON VALUE 1. CQOMC0WK
- 01 SV-NAME-OF-THIS-PROGRAM PIC X(8) VALUE SPACE. CQOMC0WK
- ******************************************************************CQOMC0WK
- * FCN STR1403 LE 06/02/97 *CQOMC0WK
- * *CQOMC0WK
- * AJOUT DES ZONES DE GESTION DES CODES RETOUR BATCH *CQOMC0WK
- * *CQOMC0WK
- ******************************************************************CQOMC0WK
- 01 ANO-MSG-TOPS. CQOMC0WK
- 05 WS-ANO-04 PIC X(1). CQOMC0WK
- 88 WS-ANO-04-NON-TROUVE VALUE '0'. CQOMC0WK
- 88 WS-ANO-04-TROUVE VALUE '1'. CQOMC0WK
- 05 WS-ANO-AUTRE PIC X(2) VALUE ' '. CQOMC0WK
- 01 ANO-MSG-AREA. CQOMC0WK
- 05 ANO-MSG-ANOCRIST PIC X(8) CQOMC0WK
- VALUE 'ANOCRIST'. CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-CDORIG. CQOMC0WK
- 10 ANO-MSG-CDDEP PIC X(2). CQOMC0WK
- 10 ANO-MSG-CDTRAIT PIC X(8). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-TYTRT PIC X(1). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-NOMCH PIC X(6). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-NOMMD PIC X(8). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-DOSSX. CQOMC0WK
- 10 ANO-MSG-DOSS PIC 9(7). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-SUPPT PIC X(1). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-CDRESP PIC X(1). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-NOMENT PIC X(8). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-IDENT PIC X(6). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-ZFONCT PIC X(3). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-TABEND PIC X(1). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-CABEND PIC X(4). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-ZRTGENX. CQOMC0WK
- 10 ANO-MSG-ZRTGEN PIC 9(3). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-ZRTDETX. CQOMC0WK
- 10 ANO-MSG-ZRTDET PIC 9(5). CQOMC0WK
- 05 FILLER PIC X(1) VALUE '/'. CQOMC0WK
- 05 ANO-MSG-LIBELLE PIC X(61). CQOMC0WK
- ******************************************************************CQOMC0WK
- * CQOMC0WK
- * AJOUT DE ZONES POUR APPEL DE MODULES A TRAVERS CLIMB CQOMC0WK
- * CQOMC0WK
- 01 CQSRVB-ZTECH. CQOMC0WK
- 05 CQSRVB-MODULE PIC X(15). CQOMC0WK
- 05 CQSRVB-NBPAR PIC X. CQOMC0WK
- * 05 CQSRVB-LENGTH COMP-6. CQOMC0WK
- 05 CQSRVB-LENGTH PIC S9(00009) COMP-5 SYNC. CQOMC0WK
- * 05 CQSRVB-LENGTH2 COMP-6. CQOMC0WK
- 05 CQSRVB-LENGTH2 PIC S9(00009) COMP-5 SYNC. CQOMC0WK
- * CQOMC0WK
- * AJOUT DE ZONES POUR APPEL DE MODULES A TRAVERS CLIMB SDP CQOMC0WK
- * CQOMC0WK
- 01 SQSRVB-ZTECH. CQOMC0WK
- 05 SQSRVB-MODULE PIC X(15). CQOMC0WK
- 05 SQSRVB-NBPAR PIC X. CQOMC0WK
- * 05 SQSRVB-LENGTH COMP-6. CQOMC0WK
- 05 SQSRVB-LENGTH PIC S9(00009) COMP-5 SYNC. CQOMC0WK
- * 05 SQSRVB-LENGTH2 COMP-6. CQOMC0WK
- 05 SQSRVB-LENGTH2 PIC S9(00009) COMP-5 SYNC. CQOMC0WK
- ******************************************************************CQOMC0WK
- **************************************************************** CQOMC0WK
- * VALEUR INTERNE DU SIGNE EURO CQOMC0WK
- * IBM ==> 9F HEXA CQOMC0WK
- * BULL ==> A4 HEXA CQOMC0WK
- **************************************************************** CQOMC0WK
- * IBM ======= CQOMC0WK
- *01 LT-CAR-EURO PIC X VALUE X'9F'. CQOMC0WK
- * BULL======= CQOMC0WK
- *01 LT-CAR-EURO PIC X VALUE ""165"". CQOMC0WK
- 01 LT-CAR-EURO PIC X VALUE X"A4" . CQOMC0WK
- * CQOMC0WK
- *END_OF_COPY_FILE CQOMC0WK
-
- *COPY WSHWZ001.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/WSHWZ001.CPY" WSHWZ001
- *LibFac * * * * * * * * * * * * * * * * * * * * * WSHWZ001
- *LibFac liberFactory GCOS to Linux Translator * WSHWZ001
- *LibFac From input file: WSHWZ001 * WSHWZ001
- *LibFac On the date: 2015/03/24 * WSHWZ001
- * COMPOSANT TRAITE PAR ConstruireSpx.pl WSHWZ001
- *LibFac * * * * * * * * * * * * * * * * * * * * * WSHWZ001
- ***************************************************************** WSHWZ001
- * DB DEBUG PROGRAM AREA * WSHWZ001
- * * WSHWZ001
- * THIS AREA IS USED TO KEEP TRACK OF ALL THE PARAGRAPHS * WSHWZ001
- * THAT WERE PERFORMED DURING A TEST EXECUTION. EACH * WSHWZ001
- * PARAGRAPH MOVES ITS PARAGRAPH NAME INTO THE TRACE * WSHWZ001
- * PARAGRAPH TABLE. THIS TABLE CAN BE DISPLAYED BY * WSHWZ001
- * THE PROGRAMMER USING THE INSTALL1 DEBUGGER . * WSHWZ001
- * THIS ASSISTS IN DEBUGGING BY ALLOWING THE * WSHWZ001
- * PROGRAMMER TO FOLLOW THE LOGICAL PATH EXECUTED DURING * WSHWZ001
- * A TEST. A DESCRIPTION OF EACH OF THE FIELDS IN THIS * WSHWZ001
- * AREA FOLLOWS. * WSHWZ001
- * * WSHWZ001
- * 1) TAG FIELDS : GIVES A TITLE TO EACH OF * WSHWZ001
- * THE DEBUG FIELDS. THESE TITLES CAN BE * WSHWZ001
- * VIEWED ON-LINE. * WSHWZ001
- * * WSHWZ001
- * 2) DB-LAST-PARAGRAPH-EXECUTED : THE LAST * WSHWZ001
- * PARAGRAPH EXECUTED BEFORE PROGRAM TERMINA- * WSHWZ001
- * TION. * WSHWZ001
- * * WSHWZ001
- * 3) DB-TRACE-INDEX : INDEX FOR THE TABLE. * WSHWZ001
- * * WSHWZ001
- * 4) DB-RESET-COUNT : NUMBER OF TIMES THE TABLE * WSHWZ001
- * HAS BEEN FILLED AND RESET. * WSHWZ001
- * * WSHWZ001
- * 5) DB-TRACE-PARAGRAPH-TABLE : CONTAINS THE * WSHWZ001
- * PARAGRAPH NUMBERS FOR EACH PARAGRAPH THAT * WSHWZ001
- * IS EXECUTED. THIS ALLOWS THE PROGRAMMER * WSHWZ001
- * TO VIEW THE ORDER IN WHICH THE PARAGRAPHS * WSHWZ001
- * WERE EXECUTED. * WSHWZ001
- * * WSHWZ001
- * NOTE: THIS PROGRAM DEBUG FEATURE IS ACTIVE ONLY WHEN * WSHWZ001
- * THE PROGRAM IS IN DEBUG MODE. * WSHWZ001
- * * WSHWZ001
- ***************************************************************** WSHWZ001
- / WSHWZ001
- D01 TAG-DEBUG-PROGRAM-AREA PIC X(24) VALUE WSHWZ001
- D "DEBUG PROGRAM AREA". WSHWZ001
- D WSHWZ001
- D01 DB-DEBUG-PROGRAM-AREA. WSHWZ001
- D 03 TAG-DEBUG-LAST-PARAGRAPH PIC X(20) VALUE WSHWZ001
- D "DEBUG LAST PARAGRAPH". WSHWZ001
- D 03 DB-LAST-PARAGRAPH-EXECUTED PIC X(30) VALUE SPACE. WSHWZ001
- D 03 TAG-DEBUG-TRACE-INDEX PIC X(16) VALUE WSHWZ001
- D "DEBUG TRACE INDX". WSHWZ001
- D 03 DB-TRACE-INDEX PIC S9(4) COMP-5 SYNC WSHWZ001
- D VALUE +1. WSHWZ001
- D 03 DB-TRACE-INCREMENT PIC S9(4) COMP-5 SYNC WSHWZ001
- D VALUE +4. WSHWZ001
- D 03 DB-TRACE-POSITION PIC S9(4) COMP-5 SYNC WSHWZ001
- D VALUE +1. WSHWZ001
- D 03 DB-TRACE-LINE-LENGTH PIC S9(4) COMP-5 SYNC WSHWZ001
- D VALUE +80. WSHWZ001
- D 03 TAG-RESET-COUNT PIC X(16) VALUE WSHWZ001
- D "DEBUG RESET CNT ". WSHWZ001
- D 03 DB-BINARY-ONE PIC S9(4) COMP-5 SYNC WSHWZ001
- WSHWZ001
- D VALUE +1. WSHWZ001
- D 03 DB-BINARY-ZERO PIC S9(4) COMP-5 SYNC WSHWZ001
- D VALUE +0. WSHWZ001
- WSHWZ001
- D 03 DB-RESET-COUNT PIC S9(4) COMP-5 SYNC WSHWZ001
- D VALUE +0. WSHWZ001
- D 03 TAG-RESET-COUNT PIC X(16) VALUE WSHWZ001
- D "MAX TABLE ENTRY ". WSHWZ001
- D 03 DB-MAX-TRACE-TABLE-ENTRIES PIC S9(4) COMP-5 SYNC WSHWZ001
- D VALUE +500. WSHWZ001
- D WSHWZ001
- ***************************************************************** WSHWZ001
- * * WSHWZ001
- * TRACE PARAGRAPH TABLE * WSHWZ001
- * ----------------------- * WSHWZ001
- * * WSHWZ001
- ***************************************************************** WSHWZ001
- D01 TAG-TRACE-PARAGRAPH-TABLE PIC X(20) VALUE WSHWZ001
- D "TRACE PARAGRAPH TAB ". WSHWZ001
- * WSHWZ001
- D01 DB-TRACE-PARAGRAPH-TABLE. WSHWZ001
- D 03 FILLER PIC X(15000) VALUE WSHWZ001
- D LOW-VALUES. WSHWZ001
- D01 DB-TRACE-PARA-TAB-RED REDEFINES DB-TRACE-PARAGRAPH-TABLE. WSHWZ001
- D 03 DB-TRACE-PARA-TAB-OCC OCCURS 500. WSHWZ001
- D 05 DB-TRACE-PARAGRAPH-ENTRY PIC X(30). WSHWZ001
- D01 DB-TRACE-LINE PIC X(132). WSHWZ001
- WSHWZ001
- *END_OF_COPY_FILE WSHWZ001
- *COPY WSHWZ003.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/WSHWZ003.CPY" WSHWZ003
- *LibFac * * * * * * * * * * * * * * * * * * * * * WSHWZ003
- *LibFac liberFactory GCOS to Linux Translator * WSHWZ003
- *LibFac From input file: WSHWZ003 * WSHWZ003
- *LibFac On the date: 2015/03/24 * WSHWZ003
- * COMPOSANT TRAITE PAR ConstruireSpx.pl WSHWZ003
- *LibFac * * * * * * * * * * * * * * * * * * * * * WSHWZ003
- ***************************************************************** WSHWZ003
- * * WSHWZ003
- * A P P L I C A T I O N P R O C E S S I N G S T A T U S * WSHWZ003
- * ---------------------------------------------------------- * WSHWZ003
- * * WSHWZ003
- * THE APPLICATION-PROC-STATUS-FIELD IS USED TO DETERMINE THE * WSHWZ003
- * STATUS OF THE CURRENT EXECUTION OF THE APPLICATION. * WSHWZ003
- * * WSHWZ003
- * MODIF LE 29/04/97 * WSHWZ003
- ***************************************************************** WSHWZ003
- WSHWZ003
- 01 AS-APPL-PROC-STATUS-AREA. WSHWZ003
- * 03 AS-APPL-PROC-STATUS PIC S9(4) COMP-1. WSHWZ003
- * 03 AS-APPL-PROC-STATUS COMP-6. WSHWZ003
- 03 AS-APPL-PROC-STATUS WSHWZ003
- PIC S9(00009) COMP-5 SYNC . WSHWZ003
- 88 AS-APPL-PROC-OK VALUE +0000. WSHWZ003
- 88 AS-APPL-PROC-ERROR VALUE +0001 WSHWZ003
- +0002 WSHWZ003
- +0003. WSHWZ003
- 88 AS-APPL-PROC-FLD-ERROR VALUE +0001. WSHWZ003
- 88 AS-APPL-PROC-REL-ERROR VALUE +0002. WSHWZ003
- 88 AS-APPL-PROC-INF-ERROR VALUE +0003. WSHWZ003
- WSHWZ003
- *END_OF_COPY_FILE WSHWZ003
- *COPY WSHWZ007.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/WSHWZ007.CPY" WSHWZ007
- *LibFac * * * * * * * * * * * * * * * * * * * * * WSHWZ007
- *LibFac liberFactory GCOS to Linux Translator * WSHWZ007
- *LibFac From input file: WSHWZ007 * WSHWZ007
- *LibFac On the date: 2015/03/24 * WSHWZ007
- * COMPOSANT TRAITE PAR ConstruireSpx.pl WSHWZ007
- *LibFac * * * * * * * * * * * * * * * * * * * * * WSHWZ007
- ***************************************************************** WSHWZ007
- * * WSHWZ007
- * C I C S - E R R O R - A N A L Y S I S * WSHWZ007
- * ----------------------------------------- * WSHWZ007
- * * WSHWZ007
- * ANALYSIS AREA FOR THE EIBRCODE RETURNED FROM A TP COMMAND. * WSHWZ007
- * THE FIRST BYTE OF THE EIBRCODE CONTAINS THE NUMERICAL VALUE * WSHWZ007
- * WHICH INDICATES THE EXECUTION STATUS OF THE COMMAND. * WSHWZ007
- * * WSHWZ007
- ***************************************************************** WSHWZ007
- 01 CEA-TP-ERROR-ANALYSIS. WSHWZ007
- 03 CEA-WORK-AREA. WSHWZ007
- 05 CEA-FILLER PIC X(1) WSHWZ007
- VALUE LOW-VALUES. WSHWZ007
- 05 CEA-EIBRCODE PIC X(6). WSHWZ007
- 03 CEA-ANALYZE-AREA REDEFINES CEA-WORK-AREA. WSHWZ007
- 05 CEA-TP-RETURN-CODE PIC S9(4) . WSHWZ007
- 88 CEA-TP-RETURN-NORMAL VALUE +0. WSHWZ007
- 88 CEA-TP-RETURN-QZERO VALUE +1. WSHWZ007
- 88 CEA-TP-RETURN-ITEMERR VALUE +1. WSHWZ007
- 88 CEA-TP-RETURN-DSIDERR VALUE +1. WSHWZ007
- 88 CEA-TP-RETURN-PGMIDERR VALUE +1. WSHWZ007
- 88 CEA-TP-RETURN-INVREQ VALUE +1 +2 +8 +32 WSHWZ007
- +224 +255. WSHWZ007
- 88 CEA-TP-RETURN-QIDERR VALUE +2. WSHWZ007
- 88 CEA-TP-RETURN-ILLOGIC VALUE +2. WSHWZ007
- 88 CEA-TP-RETURN-MAPFAIL VALUE +4. WSHWZ007
- 88 CEA-TP-RETURN-EOF VALUE +4 +193. WSHWZ007
- 88 CEA-TP-RETURN-IOERR VALUE +4 +7 +128. WSHWZ007
- 88 CEA-TP-RETURN-NOTOPEN VALUE +5 +8 +12. WSHWZ007
- 88 CEA-TP-RETURN-LENGERR VALUE +6 +225. WSHWZ007
- 88 CEA-TP-RETURN-INVMPSZ VALUE +8. WSHWZ007
- 88 CEA-TP-RETURN-NOSPACE VALUE +8 +16 +131. WSHWZ007
- 88 CEA-TP-RETURN-ENDFILE VALUE +15. WSHWZ007
- 88 CEA-TP-RETURN-TRANSIDERR VALUE +17. WSHWZ007
- 88 CEA-TP-RETURN-TERMIDERR VALUE +18 +230. WSHWZ007
- 88 CEA-TP-RETURN-ENQBUSY VALUE +32. WSHWZ007
- 88 CEA-TP-RETURN-NOTFND VALUE +129. WSHWZ007
- 88 CEA-TP-RETURN-DUPREC VALUE +130. WSHWZ007
- 88 CEA-TP-RETURN-DUPKEY VALUE +132. WSHWZ007
- 88 CEA-TP-RETURN-QBUSY VALUE +192. WSHWZ007
- 88 CEA-TP-RETURN-SYSIDERR VALUE +208. WSHWZ007
- 88 CEA-TP-RETURN-ISCINVREQ VALUE +209. WSHWZ007
- 88 CEA-TP-RETURN-NOTAUTH VALUE +214. WSHWZ007
- WSHWZ007
- *END_OF_COPY_FILE WSHWZ007
-
- *COPY HMEML020.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/HMEML020.CPY" HMEML020
- *LibFac * * * * * * * * * * * * * * * * * * * * * HMEML020
- *LibFac liberFactory GCOS to Linux Translator * HMEML020
- *LibFac From input file: HMEML020 * HMEML020
- *LibFac On the date: 2015/03/24 * HMEML020
- * COMPOSANT TRAITE PAR ConstruireSpx.pl HMEML020
- *LibFac * * * * * * * * * * * * * * * * * * * * * HMEML020
- *************************************************************** HMEML020
- * COPYBOOK : HMEML020 HMEML020
- * DATE CREATED : 23/01/95 HMEML020
- * DESCRIPTION : LINKAGE COPYBOOK FOR HMEMC010. HMEML020
- * THIS COPYBOOK SHOULD BE USED TO CALL THE HMEML020
- * SHARED MEMORY MANAGER MODULE HMEMC010. HMEML020
- * ------------------------------------------------------------ HMEML020
- * MODIF 15/05/97 - AJOUT W-CQFNDMEM HMEML020
- * MODIF 24/04/07 - BUGS DJ275 - AJOUT ZONES POUR CALL AVEC LE HMEML020
- * BON NOMBRE DE PARAMETRES HMEML020
- *************************************************************** HMEML020
- 01 HMEM-FUNCTION-CODE PIC X(2) VALUE "RI". HMEML020
- 88 HMEM-FLAG-RETRIEVE-IN-CORE VALUE "RI". HMEML020
- *01 HMEM-RETURN-CODE COMP-6. HMEML020
- 01 HMEM-RETURN-CODE PIC S9(00009) COMP-5 SYNC.HMEML020
- 01 HMEM-SEGMENT-SIZES. HMEML020
- * 03 HMEM-INDEX-SEGMENT-SIZE COMP-6. HMEML020
- 03 HMEM-INDEX-SEGMENT-SIZE PIC S9(00009) COMP-5 SYNC.HMEML020
- * 03 HMEM-CTB-INDEX-SEGMENT-SIZE COMP-6. HMEML020
- 03 HMEM-CTB-INDEX-SEGMENT-SIZE PIC S9(00009) COMP-5 SYNC.HMEML020
- * 03 HMEM-DATA-SEGMENT-SIZE COMP-6. HMEML020
- 03 HMEM-DATA-SEGMENT-SIZE PIC S9(00009) COMP-5 SYNC.HMEML020
- 01 HMEM-RECORD-TYPE PIC X(3). HMEML020
- 01 HMEM-KEY PIC X(9). HMEML020
- 01 HMEM-RECORD-POINTER USAGE IS POINTER. HMEML020
- *01 HMEM-RECORD-LENGTH COMP-6. HMEML020
- 01 HMEM-RECORD-LENGTH PIC S9(00009) COMP-5 SYNC.HMEML020
- 01 HMEM-CTB-KEY. HMEML020
- 03 HMEM-CTB-USER-KEY. HMEML020
- 05 HMEM-CTB-USER-KEY-ID PIC X(17). HMEML020
- 05 HMEM-CTB-USER-KEY-EFF-DATE PIC S9(7). HMEML020
- 03 HMEM-CTB-EFF-DATE-FLAG PIC X(1). HMEML020
- 88 HMEM-CTB-EFF-DATE-USED VALUE "Y". HMEML020
- 88 HMEM-CTB-EFF-DATE-NOT-USED VALUE "N". HMEML020
- * 03 HMEM-CTB-NUM-REC-REQUESTED COMP-6. HMEML020
- 03 HMEM-CTB-NUM-REC-REQUESTED PIC S9(00009) COMP-5 SYNC.HMEML020
- * 03 HMEM-CTB-NUM-REC-RETURNED COMP-6. HMEML020
- 03 HMEM-CTB-NUM-REC-RETURNED PIC S9(00009) COMP-5 SYNC.HMEML020
- *01 W-CQFNDMEM COMP-6. HMEML020
- 01 W-CQFNDMEM PIC S9(00009) COMP-5 SYNC.HMEML020
- HMEML020
- HMEML020
- *END_OF_COPY_FILE HMEML020
-
- *COPY CTIDBAT.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copyb/CTIDBAT.CPY" CTIDBAT
- *LibFac * * * * * * * * * * * * * * * * * * * * * CTIDBAT
- *LibFac liberFactory GCOS to Linux Translator * CTIDBAT
- *LibFac From input file: CTIDBAT * CTIDBAT
- *LibFac On the date: 2015/03/23 * CTIDBAT
- * COMPOSANT TRAITE PAR ConstruireSpx.pl CTIDBAT
- *LibFac * * * * * * * * * * * * * * * * * * * * * CTIDBAT
- *************************************************************** CTIDBAT
- * * CTIDBAT
- * ZONE DE COMMUNICATION TECHNIQUE ARCHITECTURE INTERNE * CTIDBAT
- * C R I S T A L * CTIDBAT
- * **** VERSION ACTIVE EN BATCH (WORKING) **** * CTIDBAT
- * * CTIDBAT
- *************************************************************** CTIDBAT
- 01 CTIC-CTIDCOM. CTIDBAT
- 03 CTIC-LGIGAD PIC 9(09). CTIDBAT
- 03 CTIC-IDORGA PIC X(05). CTIDBAT
- 03 CTIC-PTANCR PIC X(01). CTIDBAT
- 03 CTIC-FLGDSS PIC X(01). CTIDBAT
- 03 CTIC-EPAIGU PIC X(08). CTIDBAT
- 03 CTIC-IDENT-DATABASE. CTIDBAT
- 05 CTIC-RFM-MODEL. CTIDBAT
- 07 CTIC-MORFMB PIC X(32). CTIDBAT
- 07 CTIC-MORFMO PIC X(32). CTIDBAT
- 07 CTIC-FILACC PIC X(03). CTIDBAT
- 05 CTIC-DBSP-IDENT. CTIDBAT
- 07 CTIC-DBSP-TBL OCCURS 10. CTIDBAT
- 09 CTIC-DBSP-TBL-DBSS PIC X(12). CTIDBAT
- 09 CTIC-DBSP-TBL-APPGRP PIC X(32). CTIDBAT
- 03 FILLER PIC X(29). CTIDBAT
- *END_OF_COPY_FILE CTIDBAT
- *COPY CQLIBERW.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CQLIBERW.CPY" CQLIBERW
- ***************************************************************** CQLIBERW
- * COPY CQLIBERW * CQLIBERW
- * VARIABLES TECHNIQUES LIEES A L'ARCHITECTURE LIBER-TP * CQLIBERW
- * OU LIBER-BATCH * CQLIBERW
- ***************************************************************** CQLIBERW
- CQLIBERW
- ***************************************************************** CQLIBERW
- * DONNEES POUR LA RECUPERATION DES ABORTS 'ILLEGAL EIS' * CQLIBERW
- * UTILISEES PAR LE SQUELETTE WSHBBDP2 * CQLIBERW
- ***************************************************************** CQLIBERW
- 01 CQIPR-FLAG PIC S9(9) COMP-5 SYNC. CQLIBERW
- 01 CQIPR-IC PIC X(6). CQLIBERW
- 01 CQIPR-SEGID PIC X(4). CQLIBERW
- CQLIBERW
- ***************************************************************** CQLIBERW
- * DONNEES POUR LES TESTS DE SWITCH-WORD * CQLIBERW
- ***************************************************************** CQLIBERW
- 77 LTP-SWITCH-TEST-RESULT PIC S9(11) BINARY. CQLIBERW
- *END_OF_COPY_FILE CQLIBERW
- *COPY VARG-DATA.
- *COPY"/distrib/libertp/version_en_cours/COBCPY/TP8/VARG-DATA.CPY"
- 01 VARG-LENGTH-BLOCK.
- 03 VARG-NUM-ARGS PIC 99 VALUE 0.
- 03 VARG-CBL-ARG PIC 9(8) OCCURS 0 TO 32 TIMES
- DEPENDING ON VARG-NUM-ARGS.
- *END_OF_COPY_FILE
-
- *COPY DFHEIBLK.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/DFHEIBLK.CPY" DFHEIBLK
- *LibFac * * * * * * * * * * * * * * * * * * * * * DFHEIBLK
- *LibFac liberFactory GCOS to Linux Translator * DFHEIBLK
- *LibFac From input file: DFHEIBLK * DFHEIBLK
- *LibFac On the date: 2015/03/24 * DFHEIBLK
- * COMPOSANT TRAITE PAR ConstruireSpx.pl DFHEIBLK
- *LibFac * * * * * * * * * * * * * * * * * * * * * DFHEIBLK
- * COPYBOOK-NAME = DFHEIBLK DFHEIBLK
- 01 DFHEIBLK. DFHEIBLK
- ***************************************************************** DFHEIBLK
- * RECORD DFHEIBLK GENERATION DATE 13FEB89 DFHEIBLK
- * DFHEIBLK
- ***************************************************************** DFHEIBLK
- * 08/21/91 * CR1865 * DETECTION OF VIP7700 TERMINAL (SEE CR1069)* DFHEIBLK
- * * * * DFHEIBLK
- * * * * DFHEIBLK
- ***************************************************************** DFHEIBLK
- 05 EIBTIME PIC S9(7) COMP-3. DFHEIBLK
- 05 EIBDATE PIC S9(7) COMP-3. DFHEIBLK
- 05 EIBTRNID PIC X(4). DFHEIBLK
- 05 EIBTRMID PIC X(12). DFHEIBLK
- 05 EIBRCODE PIC X(6). DFHEIBLK
- 05 EIBAID PIC X. DFHEIBLK
- 05 EIBCPOSN PIC S9(4) . DFHEIBLK
- 05 EIBFN PIC X(2). DFHEIBLK
- 05 EIBCALEN PIC S9(4) . DFHEIBLK
- 05 EIBTASKN PIC S9(7) COMP-3. DFHEIBLK
- 05 EIBTTYPE PIC X(2). DFHEIBLK
- 88 EIB-DKU7107 VALUE "K7". DFHEIBLK
- 88 EIB-DKU7105 VALUE "K5". DFHEIBLK
- 88 EIB-VIP7804 VALUE "V4". DFHEIBLK
- 88 EIB-IBM3270 VALUE "I7". DFHEIBLK
- 88 EIB-VIP7700 VALUE "V7". DFHEIBLK
- DFHEIBLK
- *END_OF_COPY_FILE DFHEIBLK
-
- *$$DATA-DEFINE
- *****************************************************************
- * *
- * APPLICATION WORKING STORAGE *
- * -*-*-*-*-*-*-*-*-*-*-*-*-*-*- *
- * *
- * THIS IS THE APPLICATION SPECIFIC WORKING STORAGE AREA. *
- * THE APPLICATION PROGRAMMER SHOULD ADD ALL APPLICATION *
- * SPECIFIC WORKING STORAGE FIELDS AFTER THIS POINT IN *
- * THE PROGRAM. NOTE THAT THERE ARE SOME FIELD GROUPS *
- * ALREADY INCLUDED IN THIS AREA. THESE FIELD GROUPS ARE *
- * COMMONLY FOUND IN ON-LINE APPLICATIONS AND SERVE AS *
- * STARTING POINTS FOR THE APPLICATION SPECIFIC WORKING *
- * STORAGE. *
- * *
- *****************************************************************
- *****************************************************************
- * *
- * THE VALUES OF SOME OF THESE LITERALS MUST BE CHANGED. THE *
- * VARIABLES TO BE CHANGED ARE: *
- * *
- * LT-NAME-OF-THIS-PROGRAM - CHANGE ALL 'CGM129' VALUES *
- * TO THE NAME OF THE APPLICATION PROGRAM *
- * *
- * *
- *****************************************************************
- * COPY WSHWZ009.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/WSHWZ009.CPY" WSHWZ009
- *LibFac * * * * * * * * * * * * * * * * * * * * * WSHWZ009
- *LibFac liberFactory GCOS to Linux Translator * WSHWZ009
- *LibFac From input file: WSHWZ009 * WSHWZ009
- *LibFac On the date: 2015/03/24 * WSHWZ009
- * COMPOSANT TRAITE PAR ConstruireSpx.pl WSHWZ009
- *LibFac * * * * * * * * * * * * * * * * * * * * * WSHWZ009
- ***************************************************************** WSHWZ009
- * * WSHWZ009
- * L I T E R A L S * WSHWZ009
- * ---------------------- * WSHWZ009
- * * WSHWZ009
- * THIS AREA DEFINES ALL THE LITERALS AND CONSTANTS USED * WSHWZ009
- * BY THIS PROGRAM. THOSE THAT ARE ALREADY DEFINED ARE * WSHWZ009
- * NEEDED BY THE MES SHELL PROGRAM. INCLUDE THE LITERALS * WSHWZ009
- * THAT ARE USED BY THE APPLICATION. * WSHWZ009
- * * WSHWZ009
- ***************************************************************** WSHWZ009
- WSHWZ009
- 01 LITERALS. WSHWZ009
- WSHWZ009
- 03 LT-NO-ERROR-OCCURRED PIC S9(4) WSHWZ009
- WSHWZ009
- VALUE +0000. WSHWZ009
- 03 LT-FLD-ERROR-OCCURRED PIC S9(4) WSHWZ009
- WSHWZ009
- VALUE +0001. WSHWZ009
- 03 LT-REL-ERROR-OCCURRED PIC S9(4) WSHWZ009
- WSHWZ009
- VALUE +0002. WSHWZ009
- 03 LT-APPL-PROCESSING-ERROR PIC S9(4) WSHWZ009
- WSHWZ009
- VALUE +0001. WSHWZ009
- 03 LT-INFORMATION-ERROR-OCCURRED PIC S9(4) WSHWZ009
- WSHWZ009
- VALUE +0003. WSHWZ009
- 03 LT-APPL-REQUIRES-ABEND PIC X(1) VALUE "1". WSHWZ009
- WSHWZ009
- *END_OF_COPY_FILE WSHWZ009
- 03 LT-NAME-OF-THIS-PROGRAM PIC X(8)
- VALUE 'CGM129'.
- 03 LT-ID-GDD-ZZZ PIC X(3)
- VALUE 'ZZZ'.
- 03 LT-STATUT-9999 PIC S9(4)
- VALUE 9999.
- 03 LT-TABEND-SGBD PIC X(1)
- VALUE 'D'.
- * COPY WCSERIGA.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/WCSERIGA.CPY" WCSERIGA
- *LibFac * * * * * * * * * * * * * * * * * * * * * WCSERIGA
- *LibFac liberFactory GCOS to Linux Translator * WCSERIGA
- *LibFac From input file: WCSERIGA * WCSERIGA
- *LibFac On the date: 2015/03/24 * WCSERIGA
- * COMPOSANT TRAITE PAR ConstruireSpx.pl WCSERIGA
- *LibFac * * * * * * * * * * * * * * * * * * * * * WCSERIGA
- ******************************************************************WCSERIGA
- ** WCSERIGA
- ** LITERAUX APPLICATIFS DES DIFFERENTES VALEURS DU WCSERIGA
- ** DES CODES RETOUR DE L INTERFACE GENERALISEE WCSERIGA
- ** WCSERIGA
- ******************************************************************WCSERIGA
- ** WCSERIGA
- ** CETTE CLAUSE COPY SERA A COMPLETER EN FONCTION DES EVOLUTIONS WCSERIGA
- ** DE LA CELLULE DE DONNEES WCSERIGA
- ** WCSERIGA
- ******************************************************************WCSERIGA
- WCSERIGA
- 03 LT-NAME-OF-IG PIC X(08) VALUE 'CDZZ0 '. WCSERIGA
- WCSERIGA
- 03 LT-CRG-OK PIC X(2) VALUE '00'. WCSERIGA
- 03 LT-CRG-SQLCODE PIC X(2) VALUE '99'. WCSERIGA
- WCSERIGA
- WCSERIGA
- 03 LT-CRD-OK PIC S9(04) VALUE 00 . WCSERIGA
- 03 LT-CRD-FONC-INCONNUE PIC S9(04) VALUE 10 . WCSERIGA
- 03 LT-CRD-IDEN-INCONNUE PIC S9(04) VALUE 11 . WCSERIGA
- 03 LT-CRD-GDD-INVAL PIC S9(04) VALUE 12 . WCSERIGA
- 03 LT-CRD-NB-OCC-INVAL PIC S9(04) VALUE 13 . WCSERIGA
- 03 LT-CRD-CODE-LEC-INVAL PIC S9(04) VALUE 14 . WCSERIGA
- 03 LT-CRD-DSVCM-INVAL PIC S9(04) VALUE 15 . WCSERIGA
- 03 LT-CRD-TAPPEL-INVAL PIC S9(04) VALUE 16 . WCSERIGA
- 03 LT-CRD-DATE-INVAL PIC S9(04) VALUE 17 . WCSERIGA
- 03 LT-CRD-APPEL-NON-AUT PIC S9(04) VALUE 18 . WCSERIGA
- 03 LT-CRD-ERREUR-IGA PIC S9(04) VALUE 19 . WCSERIGA
- 03 LT-CRD-ID-APPEL-INVAL PIC S9(04) VALUE 20 . WCSERIGA
- WCSERIGA
- 03 LT-CRD-NON-TROUVE PIC S9(04) VALUE 30 . WCSERIGA
- 03 LT-CRD-CREATION-IMPOSSIBLE PIC S9(04) VALUE 31 . WCSERIGA
- 03 LT-CRD-SUPP-IMPOSSIBLE PIC S9(04) VALUE 32 . WCSERIGA
- 03 LT-CRD-MODIF-IMPOSSIBLE PIC S9(04) VALUE 33 . WCSERIGA
- 03 LT-CRD-CODE-ETAT-ERRONE PIC S9(04) VALUE 34 . WCSERIGA
- 03 LT-CRD-DSM-EXISTE PIC S9(04) VALUE 35 . WCSERIGA
- 03 LT-CRD-DSC-EXISTE PIC S9(04) VALUE 36 . WCSERIGA
- 03 LT-CRD-DSV-EXISTE PIC S9(04) VALUE 37 . WCSERIGA
- 03 LT-CRD-CLE-INEXISTANTE PIC S9(04) VALUE 38 . WCSERIGA
- 03 LT-CRD-DSM-EFFACE PIC S9(04) VALUE 39 . WCSERIGA
- 03 LT-CRD-DSC-EFFACE PIC S9(04) VALUE 40 . WCSERIGA
- WCSERIGA
- WCSERIGA
- *END_OF_COPY_FILE WCSERIGA
- *****************************************************************
- * CUSTOMISATION PROJET CRISTAL DE LA WORKING STORAGE *
- * SOUS FORME DE CLAUSE COPY APPLICATIVE DE *
- * WORKING *
- * *
- * LA CLAUSE COPY WCSERIGA CONTIENT TOUTES LES VALEURS *
- * DES CODES RETOUR DE L'INTERFACE GENERALISEE *
- * *
- * ATTENTION : CETTE WORKING EST DECOMPOSEE EN DEUX PARTIES : *
- * - LITERAUX *
- * - VARIABLES *
- * *
- *****************************************************************
- * COPY CGM129W.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGM129W.CPY" CGM129W
- ***************************************************************** CGM129W
- * * CGM129W
- * WORKING STORAGE POUR MODULE CGM129 * CGM129W
- * * CGM129W
- ***************************************************************** CGM129W
- CGM129W
- *---------------------------------------------------------------* CGM129W
- *--- LITERAUX SPECIFIQUES AU PROGRAMME ---* CGM129W
- *---------------------------------------------------------------* CGM129W
- 01 LT-LITERAUX-SPECIFIQUES. CGM129W
- 03 LT-MAX-PER PIC S9(3) COMP-3 VALUE 27. CGM129W
- 03 LT-IX-PAC-CNAPRG-MAX PIC S9(3) COMP-3 VALUE 18. CGM129W
- CGM129W
- *---------------------------------------------------------------* CGM129W
- *--- Données variables initialisées mensuellement ---* CGM129W
- *---------------------------------------------------------------* CGM129W
- 01 WS-WORKING-VARIABLES. CGM129W
- CGM129W
- *--- Interface IGAD CGM129W
- 03 WS-IG-INTERFACE PIC X(25496). CGM129W
- CGM129W
- *--- Zones pour affichage des montants CGM129W
- 03 WS-MONTANTS. CGM129W
- 05 ws-mont1 PIC -Z(6)9.99 VALUE ZERO. CGM129W
- 05 ws-mont2 PIC -Z(6)9.99 VALUE ZERO. CGM129W
- 05 ws-mont3 PIC -Z(6)9.99 VALUE ZERO. CGM129W
- 05 ws-part PIC -Z9.9. CGM129W
- CGM129W
- 03 IN-DISPLAY PIC 9(5). CGM129W
- CGM129W
- 03 IND1 PIC 9(4) VALUE ZERO. CGM129W
- 03 IND2 PIC 9(4) VALUE ZERO. CGM129W
- CGM129W
- 03 ws-mois-traite pic 9(6). CGM129W
- 03 ws-r-traite redefines ws-mois-traite. CGM129W
- 05 ws-an-trt pic 9(4). CGM129W
- 05 ws-mm-trt pic 99. CGM129W
- CGM129W
- 03 WS-AVPF. CGM129W
- 05 WS-TAB-AVPF occurs 2 indexed BY IX-AVPF. CGM129W
- 07 WS-NFICPN-AVPF PIC X(7). CGM129W
- 07 WS-CODE-TITRE-AVPF PIC X(2). CGM129W
- 07 WS-DT-AFFIl-AVPF PIC X(9). CGM129W
- CGM129W
- CGM129W
- *---------------------------------------------------------------* CGM129W
- *--- Données statiques ---* CGM129W
- *---------------------------------------------------------------* CGM129W
- 01 WS-WORKING-STATIC. CGM129W
- CGM129W
- 03 WS-LIG-1. CGM129W
- CGM129W
- *--- Données LS-T1 CGM129W
- 05 WS-LS-T1-TITRE. CGM129W
- 10 F PIC X(38) VALUE CGM129W
- 'DONNEES ISSUES DU TABLEAU DROITS LS-T1'. CGM129W
- 05 WS-LS-T1-TEXTE1. CGM129W
- 10 f pic x(37) value CGM129W
- '*Ind.pelem:Code pelem: C. ouv. droit:'. CGM129W
- 10 f pic x(50) value CGM129W
- ' Mt.ass. ress. : code ass. : Qté pers charge*'. CGM129W
- 05 WS-LS-T1-TEXTE2. CGM129W
- 10 f pic x(37) value CGM129W
- '*---------:----------:--------------:'. CGM129W
- 10 f pic x(50) value CGM129W
- '----------------:-------------:----------------*'. CGM129W
- 05 WS-LS-T1-TEXTE3. CGM129W
- 10 f pic x(37) value CGM129W
- '* IX-T1-1 : CNAPRG :COVDRO CWMOND:'. CGM129W
- 10 f pic x(50) value CGM129W
- ' LS-T1-MASRES :CFCASR CREPEC: LS-QT-ENF-AUTP *'. CGM129W
- CGM129W
- *--- Données LS-T4 CGM129W
- 05 WS-LS-T4-TITRE. CGM129W
- 10 F PIC X(38) VALUE CGM129W
- 'DONNEES ISSUES DE LA TABLE PRESTATION/'. CGM129W
- 10 F PIC X(18) VALUE CGM129W
- 'ATTRIBUTAIRE LS-T4'. CGM129W
- 05 WS-LS-T4-TEXTE1. CGM129W
- 10 f pic x(42) value CGM129W
- '* Indice : Code : Indice : N° :'. CGM129W
- 10 f pic x(40) value CGM129W
- ' Nbre : N° tiers : Nature : Montant :'. CGM129W
- 10 f pic x(31) value CGM129W
- 'Nat : Montant : Montant *'. CGM129W
- 05 WS-LS-T4-TEXTE2. CGM129W
- 10 f pic x(42) value CGM129W
- '* Pelem : Pelem :attribut :destinataire:'. CGM129W
- 10 f pic x(40) value CGM129W
- ' enfs : DB ASF : tiers : Brut :'. CGM129W
- 10 f pic x(31) value CGM129W
- 'ven : Net : RDS *'. CGM129W
- 05 WS-LS-T4-TEXTE3. CGM129W
- 10 f pic x(42) value CGM129W
- '*--------:--------:-------- :------------:'. CGM129W
- 10 f pic x(40) value CGM129W
- '------:----------:--------:------------:'. CGM129W
- 10 f pic x(31) value CGM129W
- '----:------------:------------*'. CGM129W
- 05 WS-LS-T4-TEXTE4. CGM129W
- 10 f pic x(42) value CGM129W
- '*IX-T4-1 : CNAPRG :IX-T4-ATT: NDESTI :'. CGM129W
- 10 f pic x(40) value CGM129W
- 'CP-ENF: NFICPN : CNAPER : MDROPI :'. CGM129W
- 10 f pic x(31) value CGM129W
- ' :LS-T4-MDROPO:LS-T4-MONRDS*'. CGM129W
- CGM129W
- *--- Données LS-T5 CGM129W
- 05 WS-LS-T5-TITRE. CGM129W
- 10 F PIC X(51) VALUE CGM129W
- 'DONNEES ISSUES DE LA TABLE PRESTATION/ENFANT LS-T5'. CGM129W
- 05 WS-LS-T5-TEXTE1. CGM129W
- 10 f pic x(42) value CGM129W
- '* Indice : Code : Indice : N° :'. CGM129W
- 10 f pic x(32) value CGM129W
- ' Indicateur : Indicateur *'. CGM129W
- 05 WS-LS-T5-TEXTE2. CGM129W
- 10 f pic x(42) value CGM129W
- '* Pelem : Pelem : enfant : personne :'. CGM129W
- 10 f pic x(32) value CGM129W
- 'enfant a charge:enfant od pelem*'. CGM129W
- 05 WS-LS-T5-TEXTE3. CGM129W
- 10 f pic x(42) value CGM129W
- '*--------:--------:-----------:----------:'. CGM129W
- 10 f pic x(32) value CGM129W
- '---------------:---------------*'. CGM129W
- 05 WS-LS-T5-TEXTE4. CGM129W
- 10 f pic x(42) value CGM129W
- '*IX-T5-1 : CNAPRG :IX-T5-ENF-1: NFICPN :'. CGM129W
- 10 f pic x(32) value CGM129W
- 'LS-T5-CCNAPF :LS-T5-COUVDT *'. CGM129W
- CGM129W
- *--- Données LS-P2 CGM129W
- 05 WS-LS-P2-TITRE. CGM129W
- 10 F PIC X(41) VALUE CGM129W
- 'DONNEES ISSUES DE LA TABLE PERSONNE LS-P2'. CGM129W
- 05 WS-LS-P2-TEXTE1. CGM129W
- 10 f pic x(36) value CGM129W
- '*Ind.per:N° pers.:Cd a charg:API 3a:'. CGM129W
- 10 f pic x(49) value CGM129W
- ' Mt ressources :Dt stock flux : Jours à payer :'. CGM129W
- 10 f pic x(21) value CGM129W
- ' Reliquat jours *'. CGM129W
- 05 WS-LS-P2-TEXTE2. CGM129W
- 10 f pic x(36) value CGM129W
- '*-------:--------:----------:------:'. CGM129W
- 10 f pic x(49) value CGM129W
- '---------------:--------------:-----------------:'. CGM129W
- 10 f pic x(21) value CGM129W
- '--------------------*'. CGM129W
- 05 WS-LS-P2-TEXTE3. CGM129W
- 10 f pic x(36) value CGM129W
- '*IX-PER2: NFICPN :CHARG-CGOD: E3API:'. CGM129W
- 10 f pic x(49) value CGM129W
- ' MT-RESSOURCES :DF-STOCK-FLUX :LS-CP-JOURS-PAYER:'. CGM129W
- 10 f pic x(21) value CGM129W
- 'LS-QT-JOURS-RELIQUAT*'. CGM129W
- CGM129W
- *--- Données LS-T12 CGM129W
- 05 WS-LS-T12-TITRE. CGM129W
- 10 F PIC X(42) VALUE CGM129W
- 'DONNEES ISSUES DE LA TABLE PERSONNE LS-T12'. CGM129W
- 05 WS-LS-T12-TEXTE1. CGM129W
- 10 f pic x(33) value CGM129W
- '* Code pelem : Montant annulé *'. CGM129W
- 05 WS-LS-T12-TEXTE2. CGM129W
- 10 f pic x(33) value CGM129W
- '*--------------:----------------*'. CGM129W
- 05 WS-LS-T12-TEXTE3. CGM129W
- 10 f pic x(33) value CGM129W
- '* CNAPRG : MT-PEGEN-ANNU *'. CGM129W
- 05 WS-LS-T12-TEXTE4. CGM129W
- 10 f pic x(33) value CGM129W
- '* : *'. CGM129W
- CGM129W
- *--- Données assurance vieillesse LS-T21 CGM129W
- 05 WS-LS-T21-TITRE. CGM129W
- 10 F PIC X(36) VALUE CGM129W
- 'DONNEES ASSURANCE VIEILLESSE LS-T21'. CGM129W
- 05 WS-LS-T21-TEXTE1. CGM129W
- 10 f pic x(46) value CGM129W
- '* * bénéficiaire 1 *'. CGM129W
- 10 f pic x(38) value CGM129W
- ' bénéficiaire 2 *'. CGM129W
- 05 WS-LS-T21-TEXTE2. CGM129W
- 10 f pic x(46) value CGM129W
- '* pelem *------------------------------------*'. CGM129W
- 10 f pic x(38) value CGM129W
- '------------------------------------*'. CGM129W
- 05 WS-LS-T21-TEXTE3. CGM129W
- 10 f pic x(46) value CGM129W
- '* * nficpn ! code titre ! date affil *'. CGM129W
- 10 f pic x(38) value CGM129W
- ' nficpn ! code titre ! date affil *'. CGM129W
- CGM129W
- *--- Consultation ressources (DOHCRE) CGM129W
- 05 WS-LCRES-TITRE PIC X(23) VALUE CGM129W
- 'CONSULTATION RESSOURCES'. CGM129W
- 05 WS-LCRES-TEXTE PIC X(29) VALUE CGM129W
- '* Ls-mt-base-ress-apr :'. CGM129W
- CGM129W
- *--- Consultation RSA personnes (MRSMRS) CGM129W
- 05 WS-LCRSA-TITRE. CGM129W
- 10 F PIC X(26) VALUE CGM129W
- 'CONSULTATION RSA PERSONNES'. CGM129W
- 05 WS-LCRSA-TEXTE. CGM129W
- 10 f pic x(13) value CGM129W
- '* N° dossier '. CGM129W
- 10 f pic x(48) value CGM129W
- ': Ls-mrs-mrsrvm : Ls-mrs-mrspnt : ls-mrs-mrsabn '. CGM129W
- 10 f pic x(18) value CGM129W
- ': Ls-mrs-mrscmi *'. CGM129W
- 05 WS-LCRSA-MONTANTS. CGM129W
- 10 F PIC X(5) VALUE '* '. CGM129W
- 10 WS-LCRSA-DOSSIER PIC 9(7). CGM129W
- 10 F PIC X(8) VALUE ' :'. CGM129W
- 10 WS-LCRSA-MTT195V99 PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(1) VALUE SPACES. CGM129W
- 10 F PIC X(7) VALUE ':'. CGM129W
- 10 WS-LCRSA-MTT295V99 PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(6) VALUE ' :'. CGM129W
- 10 WS-LCRSA-MTT395V99 PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(2) VALUE SPACES. CGM129W
- 10 F PIC X(6) VALUE ' :'. CGM129W
- 10 WS-LCRSA-MTT495V99 PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(5) VALUE ' *'. CGM129W
- CGM129W
- *--- Consultation PPA personnes (ACDACD) CGM129W
- 05 WS-LCPPA-TITRE. CGM129W
- 10 F PIC X(32) VALUE CGM129W
- 'CONSULTATION PPA PERSONNES'. CGM129W
- 05 WS-LCPPA-TEXTE. CGM129W
- 10 f pic x(9) value CGM129W
- '* CNAPRG '. CGM129W
- 10 f pic x(57) value CGM129W
- ': MFOPAF : MRAPAF : MFLPAF : MPFPAF : MMRPAF *'. CGM129W
- 05 WS-LCPPA-MONTANTS. CGM129W
- 10 F PIC X(3) VALUE '* '. CGM129W
- 10 WS-LCPPA-CNAPRG. CGM129W
- 30 WS-PPA-CNAPRS PIC XXX. CGM129W
- 30 WS-PPA-RSNAPR PIC XX. CGM129W
- 10 F PIC X(1) VALUE SPACES. CGM129W
- 10 F PIC X(2) VALUE ':'. CGM129W
- 10 WS-LCPPA-MTT195V99 PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(1) VALUE SPACES. CGM129W
- 10 F PIC X(2) VALUE ':'. CGM129W
- 10 WS-LCPPA-MTT295V99 PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(1) VALUE SPACES. CGM129W
- 10 F PIC X(2) VALUE ':'. CGM129W
- 10 WS-LCPPA-MTT395V99 PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(3) VALUE ' :'. CGM129W
- 10 WS-LCPPA-MTT495V99 PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(2) VALUE ' :'. CGM129W
- 10 WS-LCPPA-MTT595V99 PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(5) VALUE ' *'. CGM129W
- CGM129W
- *--- Consultation CDMAS CGM129W
- 05 WS-LCMAS-TITRE-AVANT. CGM129W
- 10 F PIC X(35) VALUE CGM129W
- '* CONSULTATION CDMAS AVANT MAJ '. CGM129W
- 10 F PIC X(43) VALUE SPACES. CGM129W
- 05 WS-LCMAS-TITRE-APRES. CGM129W
- 10 F PIC X(35) VALUE CGM129W
- '* CONSULTATION CDMAS APRES MAJ '. CGM129W
- 10 F PIC X(43) VALUE SPACES. CGM129W
- 05 WS-LCMAS-TEXTE. CGM129W
- 10 f pic x(12) value CGM129W
- '* N° logt '. CGM129W
- 10 f pic x(58) value CGM129W
- ' MREFAP MREFCI MREFCR CNATRE'. CGM129W
- 05 WS-LCMAS-MONTANTS. CGM129W
- 10 F PIC X(08) VALUE '* '. CGM129W
- 10 WS-LCMAS-RLOGEM PIC 9 VALUE ZERO. CGM129W
- 10 F PIC X(7) VALUE SPACES. CGM129W
- 10 WS-LCMAS-MREFAP PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(6) VALUE SPACES. CGM129W
- 10 WS-LCMAS-MREFCI PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(5) VALUE SPACES. CGM129W
- 10 WS-LCMAS-MREFCR PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(6) VALUE SPACES. CGM129W
- 10 WS-LCMAS-CNATRE PIC X(3). CGM129W
- 10 F PIC X(8) VALUE SPACE. CGM129W
- CGM129W
- *--- Consultation CDMAH CGM129W
- 05 WS-LCMAH-TITRE. CGM129W
- 10 F PIC X(35) VALUE CGM129W
- '* CONSULTATION CDMAH '. CGM129W
- 10 F PIC X(43) VALUE SPACES. CGM129W
- 05 WS-LCMAH-TEXTE. CGM129W
- 10 f pic x(12) value CGM129W
- '* N° logt '. CGM129W
- 10 f pic x(58) value CGM129W
- ' MAPLCI MAPLCR CNATMT'. CGM129W
- 05 WS-LCMAH-MONTANTS. CGM129W
- 10 F PIC X(08) VALUE '* '. CGM129W
- 10 WS-LCMAH-RLOGEM PIC 9 VALUE ZERO. CGM129W
- 10 F PIC X(7) VALUE SPACES. CGM129W
- 10 WS-LCMAH-MAPLCI PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(6) VALUE SPACES. CGM129W
- 10 WS-LCMAH-MAPLCR PIC Z(4)9.99 VALUE ZERO. CGM129W
- 10 F PIC X(6) VALUE SPACES. CGM129W
- 10 WS-LCMAH-CNATMT PIC X(3). CGM129W
- 10 F PIC X(8) VALUE SPACE. CGM129W
- CGM129W
- CGM129W
- 03 WS-LIG-STAR-TIRET. CGM129W
- 05 WS-STAR33 PIC X(33) VALUE ALL '*'. CGM129W
- 05 WS-STAR48 PIC X(48) VALUE ALL '*'. CGM129W
- 05 WS-STAR66 PIC X(66) VALUE ALL '*'. CGM129W
- 05 WS-STAR74 PIC X(74) VALUE ALL '*'. CGM129W
- 05 WS-STAR79 PIC X(79) VALUE ALL '*'. CGM129W
- 05 WS-STAR83 PIC X(83) VALUE ALL '*'. CGM129W
- 05 WS-STAR85 PIC X(85) VALUE ALL '*'. CGM129W
- 05 WS-STAR106 PIC X(106) VALUE ALL '*'. CGM129W
- 05 WS-STAR113 PIC X(113) VALUE ALL '*'. CGM129W
- 05 WS-TIRE66 PIC X(66) VALUE ALL '-'. CGM129W
- 05 WS-TIRE79 PIC X(79) VALUE ALL '-'. CGM129W
- 05 WS-TIRE83 PIC X(83) VALUE ALL '-'. CGM129W
- CGM129W
- *--------------------------------------------------------------- CGM129W
- * Version : V04900 CGM129W
- * CGM129W
- * Chantier : 1R480 Début : 22/02/2016 Fin : 23/02/2016 CGM129W
- * CGM129W
- * Texte : CGM129W
- * CGM129W
- * CGM129W
- * CGM129W
- * DMFS : CGM129W
- * : CGM129W
- *--------------------------------------------------------------- CGM129W
- * Version : V04900 CGM129W
- * CGM129W
- * Chantier : 1R490 Début : 26/02/2016 Fin : 01/03/2016 CGM129W
- * CGM129W
- * Texte : CGM129W
- * CGM129W
- * CGM129W
- * CGM129W
- * DMFS : CGM129W
- * : CGM129W
- *--------------------------------------------------------------- CGM129W
- * Version : V04900 CGM129W
- * CGM129W
- * Chantier : 2475E Début : 02/03/2016 Fin : 04/03/2016 CGM129W
- * CGM129W
- * Texte : MISE A JOUR CGM129 CGM129W
- * CGM129W
- * CGM129W
- * CGM129W
- * DMFS : CGM129W
- * : CGM129W
- *--------------------------------------------------------------- CGM129W
- * Version : V04900 CGM129W
- * CGM129W
- * Chantier : 2476A Début : 26/02/2016 Fin : 26/02/2016 CGM129W
- * CGM129W
- * Texte : CGM129W
- * CGM129W
- * CGM129W
- * CGM129W
- * DMFS : CGM129W
- * : CGM129W
- *--------------------------------------------------------------- CGM129W
- *END_OF_COPY_FILE CGM129W
-
- 01 LT-END-OF-WS.
- 03 LT-FINISH-OF-WS PIC X(40)
- * VALUE "***** END WORKING STORAGE &PRGRMID. *****".
- VALUE "***** END WORKING STORAGE CGM129 *****".
-
- *****************************************************************
- * *
- * L I N K A G E S E C T I O N *
- * *
- *****************************************************************
- LINKAGE SECTION.
-
- *COPY TP-STORAGE.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copyb/TP-STORAGE.CPY"
- *LibFac * * * * * * * * * * * * * * * * * * * * *
- *LibFac liberFactory GCOS to Linux Translator *
- *LibFac From input file: TP-STORAGE *
- *LibFac On the date: 2015/03/23 *
- * COMPOSANT TRAITE PAR ConstruireSpx.pl
- *LibFac * * * * * * * * * * * * * * * * * * * * *
- *****************************************************************
- ****
- **** TP-STORAGE BATCH
- ****
- **** A VIDE POUR COMPATIBILITE MODELE BATCH ET TP
- *****************************************************************
- *END_OF_COPY_FILE
-
- *COPY CTIDCOM.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copyb/CTIDCOM.CPY" CTIDCOM
- *LibFac * * * * * * * * * * * * * * * * * * * * * CTIDCOM
- *LibFac liberFactory GCOS to Linux Translator * CTIDCOM
- *LibFac From input file: CTIDCOM * CTIDCOM
- *LibFac On the date: 2015/03/23 * CTIDCOM
- * COMPOSANT TRAITE PAR ConstruireSpx.pl CTIDCOM
- *LibFac * * * * * * * * * * * * * * * * * * * * * CTIDCOM
- ***************************************************************** CTIDCOM
- **** CTIDCOM
- **** CTIDCOM BATCH CTIDCOM
- **** CTIDCOM
- **** A VIDE POUR COMPATIBILITE MODELE BATCH ET TP CTIDCOM
- ***************************************************************** CTIDCOM
- *END_OF_COPY_FILE CTIDCOM
-
- 01 DFHCOMMAREA.
-
- *$$LINKAGE
- * COPY CGLAPNT0.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLAPNT0.CPY" CGLAPNT0
- *LibFac * * * * * * * * * * * * * * * * * * * * * CGLAPNT0
- *LibFac liberFactory GCOS to Linux Translator * CGLAPNT0
- *LibFac From input file: CGLAPNT0 * CGLAPNT0
- *LibFac On the date: 2015/03/24 * CGLAPNT0
- * COMPOSANT TRAITE PAR ConstruireSpx.pl CGLAPNT0
- *LibFac * * * * * * * * * * * * * * * * * * * * * CGLAPNT0
- ***************************************************************** CGLAPNT0
- * * CGLAPNT0
- * COPYBOOK NAME : CGLAPNT0 * CGLAPNT0
- * * CGLAPNT0
- * COPYBOOK DESC : POINTEUR D'ADRESSAGE LINK * CGLAPNT0
- * * CGLAPNT0
- * GENERATION DATE: 01/28/97 * CGLAPNT0
- * TIME: 07:53:13 * CGLAPNT0
- * VIDE : COMPATIBILITE IBM CGLAPNT0
- ***************************************************************** CGLAPNT0
- CGLAPNT0
- *END_OF_COPY_FILE CGLAPNT0
- * COPY CGLAPNT1.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLAPNT1.CPY" CGLAPNT1
- *LibFac * * * * * * * * * * * * * * * * * * * * * CGLAPNT1
- *LibFac liberFactory GCOS to Linux Translator * CGLAPNT1
- *LibFac From input file: CGLAPNT1 * CGLAPNT1
- *LibFac On the date: 2015/03/24 * CGLAPNT1
- * COMPOSANT TRAITE PAR ConstruireSpx.pl CGLAPNT1
- *LibFac * * * * * * * * * * * * * * * * * * * * * CGLAPNT1
- ***************************************************************** CGLAPNT1
- *****COPY CGLAPNT1 ANCIEN CGAAPIMO ****************************** CGLAPNT1
- *****D615M.CGLAPNT1 ANCIEN CGAAPIMO *************************** CGLAPNT1
- * - COPIE UTILISEE DANS LES MODULES APPELES PAR LES PILOTES * CGLAPNT1
- * * CGLAPNT1
- * UNE COPIE CGAAPIM2 EXISTE, C'EST LA REPLIQUE A L'IDENTIQUE DE* CGLAPNT1
- * CGAAPIMO. ELLE A ETE CREEE SUITE A UN PROBLEME PORTAGE BULL * CGLAPNT1
- * - EN IBM ELLE EST DE NIVEAU 01, EN BULL DE NIVEAU 02 * CGLAPNT1
- * * CGLAPNT1
- ***************************************************************** CGLAPNT1
- **DEBUT** WORKING PILOTE GESDRO POUR LINKAGE MODULES **DEBUT** CGLAPNT1
- ***************************************************************** CGLAPNT1
- * * CGLAPNT1
- 02 LS-PILOTE-OPERAT. CGLAPNT1
- * * CGLAPNT1
- * LES NIVEAUX 05 QUI SUIVENT SONT FORMES DE * CGLAPNT1
- * * CGLAPNT1
- * A ) LES DONNEES DU DICTIONNAIRE (D615M.CGLKMO) * CGLAPNT1
- * 1ER NIVEAU = 05, INCREMENT PAR 05 * CGLAPNT1
- * ==> GROUPR D610M.CGLKMO, QUI CONTIENT: * CGLAPNT1
- * * CGLAPNT1
- * 1/ D610M.CGDOSS1 dossier * CGLAPNT1
- * * CGLAPNT1
- * 2/ D610M.CGCNVA1 table 'vue interne canevas' * CGLAPNT1
- * ---------------------------------------------------------- * CGLAPNT1
- * * CGLAPNT1
- * 3/ donnees utiles aux modules (operation et autres), et * CGLAPNT1
- * recuperees en partie applicative MSG recu par le service * CGLAPNT1
- * et en requete (DSV, organisme, etc...) D610M.CGSERV1 * CGLAPNT1
- * * CGLAPNT1
- * * CGLAPNT1
- * B ) Linkage creee sous SPF (CGZZPIMO) * CGLAPNT1
- * * CGLAPNT1
- ***************************************************************** CGLAPNT1
- * * CGLAPNT1
- CGLAPNT1
- *END_OF_COPY_FILE CGLAPNT1
- * COPY CGLBAL0W.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBAL0W.CPY" CGLBAL0W
- *---------------------------------------------------------- CGLBAL0W
- * TABLEAU DIRECTEUR POUR LA TABLE AL0 CGLBAL0W
- * BLOC INDIRECTION POUR LES GDD RELATIFS CGLBAL0W
- * DEBBAN = POSITION DE DEBUT AL0 DANS BANALISE CGLBAL0W
- * FINBAN = POSITION DE FIN AL0 DANS BANALISE CGLBAL0W
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBAL0W
- * CONTROLE DANS LE CGS100 SI PLUS DE 40 GDD CGLBAL0W
- * LES INDICATEURS DE GDDS (*20 ARBITRAIRE) CGLBAL0W
- * NOM DU GDD CGLBAL0W
- * PR0 = POS ORIG DU 1 ER GDD DS BANALISE CGLBAL0W
- * PR5 = POS ORIG DU GDD 31 M - 1 CGLBAL0W
- * PUIS DU GDD ENCADRANT 31 M OU CGLBAL0W
- * DU GDD IMMEDIATEMENT SUPERIEURE CGLBAL0W
- * OU ZERO SI PLUS DE GDD CGLBAL0W
- * PR9 = POS ORIG DU DERNIER GDD DS BANALISE CGLBAL0W
- * L INDICATEUR EXPLOSION DU TABLEAU DE GDD CGLBAL0W
- * L INDICATEUR EXPLOSION DE LA ZONE BANALISE CGLBAL0W
- * CGLBAL0W
- * VARIABLES DE TRAVAIL (CGS100-CGBAL0AK) CGLBAL0W
- * NOMBRE MAXI DE GDD AL0 POUR LE CONTROLE CGLBAL0W
- * NOMBRE MAXI DE GDD AL0 DE STOCKAGE CGLBAL0W
- * LONGUEUR DE LA CLE AL0 CGLBAL0W
- * NOMBRE D'OCCURS POUR LIRE AL0 EN L0H CGLBAL0W
- * VARIABLES DE TRAVAIL (CGM?01-CGRAL0AK) CGLBAL0W
- * NOMBRE D'OCCURS MAXIMUM DANS CGS10001 CGLBAL0W
- *----------------------------------------------------- CGLBAL0W
- 05 CGLBAL0W. CGLBAL0W
- 10 LS-AL0H-ALLS. CGLBAL0W
- 12 LS-AL0H-ALL. CGLBAL0W
- 14 LS-AL0H-DEBBAN PIC S9(5) COMP-3. CGLBAL0W
- 14 LS-AL0H-FINBAN PIC S9(5) COMP-3. CGLBAL0W
- * CGLBAL0W
- 14 LS-AL0H-INDS OCCURS 02 INDEXED BY IX-AL0H-IND. CGLBAL0W
- 16 LS-AL0H-IND PIC S9(1) COMP-3. CGLBAL0W
- *************** 16 LS-AL0H-IND PIC 9. CGLBAL0W
- * CGLBAL0W
- 14 LS-AL0H-GDDS OCCURS 02 INDEXED BY IX-AL0H-GDD. CGLBAL0W
- 16 LS-AL0H-GDD PIC X(3). CGLBAL0W
- 16 LS-AL0H-PR0 PIC S9(5) COMP-3. CGLBAL0W
- 16 LS-AL0H-PR5 PIC S9(5) COMP-3. CGLBAL0W
- 16 LS-AL0H-PR9 PIC S9(5) COMP-3. CGLBAL0W
- * CGLBAL0W
- 14 LS-AL0H-EXP-GDD8 PIC X(3). CGLBAL0W
- * CGLBAL0W
- 14 LS-AL0H-EXP-GDD9 PIC X(3). CGLBAL0W
- 14 LS-AL0H-EXP-H9X. CGLBAL0W
- 16 LS-AL0H-EXP-H9 PIC S9(9) COMP-3. CGLBAL0W
- * CGLBAL0W
- * VARIABLES DE TRAVAIL POUR AL0 CGLBAL0W
- * CGLBAL0W
- 10 IX-AL0H-IND-MAX PIC S9(3) COMP-3. CGLBAL0W
- 10 IX-AL0H-GDD-MAX PIC S9(3) COMP-3 VALUE 2. CGLBAL0W
- * GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBAL0W
- 10 LS-AL0H-CLE PIC S9(3) COMP-3 VALUE 014. CGLBAL0W
- 10 LS-AL0H-OCC PIC 999. CGLBAL0W
- * CGLBAL0W
- * VARIABLES DE TRAVAIL (CGM?01-CGRAL0AK) CGLBAL0W
- * CGLBAL0W
- * PARTICULARITé CGLBAL0W
- 10 LS-AL0H-ZNOCCD-MAX PIC 99 VALUE 48. CGLBAL0W
- *--------------------------------------------------------- CGLBAL0W
- 10 LS-AL0S-ALLS. CGLBAL0W
- 12 LS-AL0S-ALL. CGLBAL0W
- 14 LS-AL0S-DEBBAN PIC S9(5) COMP-3. CGLBAL0W
- 14 LS-AL0S-FINBAN PIC S9(5) COMP-3. CGLBAL0W
- * CGLBAL0W
- 14 LS-AL0S-INDS OCCURS 2 INDEXED BY IX-AL0S-IND. CGLBAL0W
- 16 LS-AL0S-IND PIC 9. CGLBAL0W
- * CGLBAL0W
- 14 LS-AL0S-GDDS OCCURS 2 INDEXED BY IX-AL0S-GDD. CGLBAL0W
- 16 LS-AL0S-GDD PIC X(3). CGLBAL0W
- 16 LS-AL0S-PR0 PIC S9(5) COMP-3. CGLBAL0W
- 16 LS-AL0S-PR5 PIC S9(5) COMP-3. CGLBAL0W
- 16 LS-AL0S-PR9 PIC S9(5) COMP-3. CGLBAL0W
- * CGLBAL0W
- 14 LS-AL0S-EXP-GDD8 PIC X(3). CGLBAL0W
- * CGLBAL0W
- 14 LS-AL0S-EXP-GDD9 PIC X(3). CGLBAL0W
- 14 LS-AL0S-EXP-H9X. CGLBAL0W
- 16 LS-AL0S-EXP-H9 PIC S9(9) COMP-3. CGLBAL0W
- * CGLBAL0W
- * VARIABLES DE TRAVAIL POUR DOM CGLBAL0W
- * CGLBAL0W
- * 10 IX-AL0S-IND-MAX-REF PIC S9(3) COMP-3 VALUE 2. CGLBAL0W
- * 10 IX-AL0S-IND-MAX PIC S9(3) COMP-3 VALUE 2. CGLBAL0W
- 10 IX-AL0S-GDD-MAX PIC S9(3) COMP-3 VALUE 2. CGLBAL0W
- * CGLBAL0W
- * 10 LS-XXXH-AL0S PIC X(3) VALUE 'AL0'. CGLBAL0W
- * GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBAL0W
- * 10 LS-AL0S-CLE PIC S9(3) COMP-3 VALUE 014. CGLBAL0W
- * 10 LS-AL0S-OCC PIC 999. CGLBAL0W
- * CGLBAL0W
- * VARIABLES DE TRAVAIL (CGM?01-CGRDOMAK) CGLBAL0W
- * CGLBAL0W
- * 10 LS-AL0S-ZNOCCD-MAX PIC 99 VALUE 7. CGLBAL0W
- *--------------------------------------------------------------- CGLBAL0W
- * Version : V03500 CGLBAL0W
- * CGLBAL0W
- * Chantier : 2050H Début : 05/07/2011 Fin : 19/08/2011 CGLBAL0W
- * CGLBAL0W
- * Texte : CGLBAL0W
- * CGLBAL0W
- * CGLBAL0W
- * CGLBAL0W
- * DMFS : CGLBAL0W
- * : CGLBAL0W
- *--------------------------------------------------------------- CGLBAL0W
- *END_OF_COPY_FILE CGLBAL0W
- * COPY CGLBAMAJ.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBAMAJ.CPY" CGLBAMAJ
- ******************************************************************CGLBAMAJ
- *COPYBOOK GENERE PAR CG1000 NOUVEAU LE 17/06/22 A 10/54/00/52 CGLBAMAJ
- ******************************************************************CGLBAMAJ
- 05 TH0-1-2-3. CGLBAMAJ
- *------------------------ CGLBAMAJ
- 10 TH0. CGLBAMAJ
- 15 TH0-TABS. CGLBAMAJ
- 20 TH0-TAB-FOH PIC X(3) VALUE 'FOH'. CGLBAMAJ
- 20 TH0-TAB-FOS PIC X(3) VALUE 'FOS'. CGLBAMAJ
- 20 TH0-TAB-AL0 PIC X(3) VALUE 'AL0'. CGLBAMAJ
- 20 TH0-TAB-DMH PIC X(3) VALUE 'DMH'. CGLBAMAJ
- 20 TH0-TAB-DOM PIC X(3) VALUE 'DOM'. CGLBAMAJ
- 20 TH0-TAB-DOH PIC X(3) VALUE 'DOH'. CGLBAMAJ
- 20 TH0-TAB-ODE PIC X(3) VALUE 'ODE'. CGLBAMAJ
- 20 TH0-TAB-LGH PIC X(3) VALUE 'LGH'. CGLBAMAJ
- 20 TH0-TAB-LGS PIC X(3) VALUE 'LGS'. CGLBAMAJ
- 20 TH0-TAB-MAH PIC X(3) VALUE 'MAH'. CGLBAMAJ
- 20 TH0-TAB-MAS PIC X(3) VALUE 'MAS'. CGLBAMAJ
- 20 TH0-TAB-POM PIC X(3) VALUE 'POM'. CGLBAMAJ
- 20 TH0-TAB-PEH PIC X(3) VALUE 'PEH'. CGLBAMAJ
- 20 TH0-TAB-PEX PIC X(3) VALUE 'PEX'. CGLBAMAJ
- 20 TH0-TAB-PLH PIC X(3) VALUE 'PLH'. CGLBAMAJ
- 20 TH0-TAB-PER PIC X(3) VALUE 'PER'. CGLBAMAJ
- 20 TH0-TAB-DO2 PIC X(3) VALUE 'DO2'. CGLBAMAJ
- 20 TH0-TAB-SP1 PIC X(3) VALUE 'SP1'. CGLBAMAJ
- 20 TH0-TAB-ZZZ PIC X(3) VALUE 'ZZZ'. CGLBAMAJ
- 15 TH0-TABR REDEFINES TH0-TABS. CGLBAMAJ
- 20 TH0-TAB PIC X(3) OCCURS 00019 CGLBAMAJ
- INDEXED BY IX-TH0 IX-TH0-2 IX-TH0-3. CGLBAMAJ
- 15 IX-TH0-M PIC S9(5) COMP-3 VALUE 00019. CGLBAMAJ
- *------------------------ CGLBAMAJ
- 10 TH1. CGLBAMAJ
- 15 TH1-ORIS. CGLBAMAJ
- 20 TH1-ORI-FOH PIC S9(5) COMP-3 VALUE 00001. CGLBAMAJ
- 20 TH1-ORI-FOS PIC S9(5) COMP-3 VALUE 00004. CGLBAMAJ
- 20 TH1-ORI-AL0 PIC S9(5) COMP-3 VALUE 00006. CGLBAMAJ
- 20 TH1-ORI-DMH PIC S9(5) COMP-3 VALUE 00009. CGLBAMAJ
- 20 TH1-ORI-DOM PIC S9(5) COMP-3 VALUE 00031. CGLBAMAJ
- 20 TH1-ORI-DOH PIC S9(5) COMP-3 VALUE 00035. CGLBAMAJ
- 20 TH1-ORI-ODE PIC S9(5) COMP-3 VALUE 00070. CGLBAMAJ
- 20 TH1-ORI-LGH PIC S9(5) COMP-3 VALUE 00072. CGLBAMAJ
- 20 TH1-ORI-LGS PIC S9(5) COMP-3 VALUE 00090. CGLBAMAJ
- 20 TH1-ORI-MAH PIC S9(5) COMP-3 VALUE 00092. CGLBAMAJ
- 20 TH1-ORI-MAS PIC S9(5) COMP-3 VALUE 00095. CGLBAMAJ
- 20 TH1-ORI-POM PIC S9(5) COMP-3 VALUE 00097. CGLBAMAJ
- 20 TH1-ORI-PEH PIC S9(5) COMP-3 VALUE 00101. CGLBAMAJ
- 20 TH1-ORI-PEX PIC S9(5) COMP-3 VALUE 00170. CGLBAMAJ
- 20 TH1-ORI-PLH PIC S9(5) COMP-3 VALUE 00173. CGLBAMAJ
- 20 TH1-ORI-PER PIC S9(5) COMP-3 VALUE 00180. CGLBAMAJ
- 20 TH1-ORI-DO2 PIC S9(5) COMP-3 VALUE 00186. CGLBAMAJ
- 20 TH1-ORI-SP1 PIC S9(5) COMP-3 VALUE 00189. CGLBAMAJ
- 20 TH1-ORI-ZZZ PIC S9(5) COMP-3 VALUE 00192. CGLBAMAJ
- 15 TH1-ORIR REDEFINES TH1-ORIS. CGLBAMAJ
- 20 TH1-ORI PIC S9(5) COMP-3 OCCURS 00019 CGLBAMAJ
- INDEXED BY IX-TH1 IX-TH1-2 IX-TH1-3. CGLBAMAJ
- 15 IX-TH1-M PIC S9(5) COMP-3 VALUE 00019. CGLBAMAJ
- *------------------------ CGLBAMAJ
- 10 TH2. CGLBAMAJ
- 15 TH2-GDDS. CGLBAMAJ
- **-------------------------00001 - CDAIFH CGLBAMAJ
- 20 TH2-FOHAIF PIC X(3) VALUE 'AIF'. CGLBAMAJ
- 20 TH2-FOH000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-FOH999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00004 - CDAIFS CGLBAMAJ
- 20 TH2-FOSZZZ PIC X(3) VALUE 'ZZZ'. CGLBAMAJ
- 20 TH2-FOS000 PIC X(3) VALUE '000'. CGLBAMAJ
- **-------------------------00006 - CDALLH CGLBAMAJ
- 20 TH2-AL0ALC PIC X(3) VALUE 'ALC'. CGLBAMAJ
- 20 TH2-AL0000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-AL0999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00009 - CDDEMH CGLBAMAJ
- 20 TH2-DMHAAH PIC X(3) VALUE 'AAH'. CGLBAMAJ
- 20 TH2-DMHAFH PIC X(3) VALUE 'AFH'. CGLBAMAJ
- 20 TH2-DMHCMG PIC X(3) VALUE 'CMG'. CGLBAMAJ
- 20 TH2-DMHCMS PIC X(3) VALUE 'CMS'. CGLBAMAJ
- 20 TH2-DMHCRH PIC X(3) VALUE 'CRH'. CGLBAMAJ
- 20 TH2-DMHCSF PIC X(3) VALUE 'CSF'. CGLBAMAJ
- 20 TH2-DMHDEC PIC X(3) VALUE 'DEC'. CGLBAMAJ
- 20 TH2-DMHDES PIC X(3) VALUE 'DES'. CGLBAMAJ
- 20 TH2-DMHDFA PIC X(3) VALUE 'DFA'. CGLBAMAJ
- 20 TH2-DMHDGT PIC X(3) VALUE 'DGT'. CGLBAMAJ
- 20 TH2-DMHDPE PIC X(3) VALUE 'DPE'. CGLBAMAJ
- 20 TH2-DMHDPI PIC X(3) VALUE 'DPI'. CGLBAMAJ
- 20 TH2-DMHDRM PIC X(3) VALUE 'DRM'. CGLBAMAJ
- 20 TH2-DMHDSF PIC X(3) VALUE 'DSF'. CGLBAMAJ
- 20 TH2-DMHDVS PIC X(3) VALUE 'DVS'. CGLBAMAJ
- 20 TH2-DMHMID PIC X(3) VALUE 'MID'. CGLBAMAJ
- 20 TH2-DMHPJA PIC X(3) VALUE 'PJA'. CGLBAMAJ
- 20 TH2-DMHPPA PIC X(3) VALUE 'PPA'. CGLBAMAJ
- 20 TH2-DMHRSA PIC X(3) VALUE 'RSA'. CGLBAMAJ
- 20 TH2-DMHRSO PIC X(3) VALUE 'RSO'. CGLBAMAJ
- 20 TH2-DMH000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-DMH999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00031 - CDDODH CGLBAMAJ
- 20 TH2-DOMSER PIC X(3) VALUE 'SER'. CGLBAMAJ
- 20 TH2-DOMSPL PIC X(3) VALUE 'SPL'. CGLBAMAJ
- 20 TH2-DOM000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-DOM999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00035 - CDDOIH CGLBAMAJ
- 20 TH2-DOHAIA PIC X(3) VALUE 'AIA'. CGLBAMAJ
- 20 TH2-DOHAMI PIC X(3) VALUE 'AMI'. CGLBAMAJ
- 20 TH2-DOHAOH PIC X(3) VALUE 'AOH'. CGLBAMAJ
- 20 TH2-DOHAOR PIC X(3) VALUE 'AOR'. CGLBAMAJ
- 20 TH2-DOHAPR PIC X(3) VALUE 'APR'. CGLBAMAJ
- 20 TH2-DOHASX PIC X(3) VALUE 'ASX'. CGLBAMAJ
- 20 TH2-DOHBEF PIC X(3) VALUE 'BEF'. CGLBAMAJ
- 20 TH2-DOHCCA PIC X(3) VALUE 'CCA'. CGLBAMAJ
- 20 TH2-DOHCLG PIC X(3) VALUE 'CLG'. CGLBAMAJ
- 20 TH2-DOHCPI PIC X(3) VALUE 'CPI'. CGLBAMAJ
- 20 TH2-DOHCRE PIC X(3) VALUE 'CRE'. CGLBAMAJ
- 20 TH2-DOHCRM PIC X(3) VALUE 'CRM'. CGLBAMAJ
- 20 TH2-DOHDAR PIC X(3) VALUE 'DAR'. CGLBAMAJ
- 20 TH2-DOHEEO PIC X(3) VALUE 'EEO'. CGLBAMAJ
- 20 TH2-DOHLIM PIC X(3) VALUE 'LIM'. CGLBAMAJ
- 20 TH2-DOHMCF PIC X(3) VALUE 'MCF'. CGLBAMAJ
- 20 TH2-DOHMGC PIC X(3) VALUE 'MGC'. CGLBAMAJ
- 20 TH2-DOHMGJ PIC X(3) VALUE 'MGJ'. CGLBAMAJ
- 20 TH2-DOHMGP PIC X(3) VALUE 'MGP'. CGLBAMAJ
- 20 TH2-DOHMSD PIC X(3) VALUE 'MSD'. CGLBAMAJ
- 20 TH2-DOHNEC PIC X(3) VALUE 'NEC'. CGLBAMAJ
- 20 TH2-DOHOLG PIC X(3) VALUE 'OLG'. CGLBAMAJ
- 20 TH2-DOHPLP PIC X(3) VALUE 'PLP'. CGLBAMAJ
- 20 TH2-DOHQFA PIC X(3) VALUE 'QFA'. CGLBAMAJ
- 20 TH2-DOHQFR PIC X(3) VALUE 'QFR'. CGLBAMAJ
- 20 TH2-DOHQFV PIC X(3) VALUE 'QFV'. CGLBAMAJ
- 20 TH2-DOHQUI PIC X(3) VALUE 'QUI'. CGLBAMAJ
- 20 TH2-DOHRNG PIC X(3) VALUE 'RNG'. CGLBAMAJ
- 20 TH2-DOHRSF PIC X(3) VALUE 'RSF'. CGLBAMAJ
- 20 TH2-DOHSDO PIC X(3) VALUE 'SDO'. CGLBAMAJ
- 20 TH2-DOHSUR PIC X(3) VALUE 'SUR'. CGLBAMAJ
- 20 TH2-DOHTIE PIC X(3) VALUE 'TIE'. CGLBAMAJ
- 20 TH2-DOHTIT PIC X(3) VALUE 'TIT'. CGLBAMAJ
- 20 TH2-DOH000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-DOH999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00070 - CDDRES CGLBAMAJ
- 20 TH2-ODEZZZ PIC X(3) VALUE 'ZZZ'. CGLBAMAJ
- 20 TH2-ODE000 PIC X(3) VALUE '000'. CGLBAMAJ
- **-------------------------00072 - CDLOGH CGLBAMAJ
- 20 TH2-LGHBAI PIC X(3) VALUE 'BAI'. CGLBAMAJ
- 20 TH2-LGHCAI PIC X(3) VALUE 'CAI'. CGLBAMAJ
- 20 TH2-LGHCAL PIC X(3) VALUE 'CAL'. CGLBAMAJ
- 20 TH2-LGHCHL PIC X(3) VALUE 'CHL'. CGLBAMAJ
- 20 TH2-LGHCML PIC X(3) VALUE 'CML'. CGLBAMAJ
- 20 TH2-LGHCNA PIC X(3) VALUE 'CNA'. CGLBAMAJ
- 20 TH2-LGHCOL PIC X(3) VALUE 'COL'. CGLBAMAJ
- 20 TH2-LGHDEC PIC X(3) VALUE 'DEC'. CGLBAMAJ
- 20 TH2-LGHDPL PIC X(3) VALUE 'DPL'. CGLBAMAJ
- 20 TH2-LGHETU PIC X(3) VALUE 'ETU'. CGLBAMAJ
- 20 TH2-LGHLAI PIC X(3) VALUE 'LAI'. CGLBAMAJ
- 20 TH2-LGHMPL PIC X(3) VALUE 'MPL'. CGLBAMAJ
- 20 TH2-LGHNRL PIC X(3) VALUE 'NRL'. CGLBAMAJ
- 20 TH2-LGHPPL PIC X(3) VALUE 'PPL'. CGLBAMAJ
- 20 TH2-LGHSAL PIC X(3) VALUE 'SAL'. CGLBAMAJ
- 20 TH2-LGHSIN PIC X(3) VALUE 'SIN'. CGLBAMAJ
- 20 TH2-LGH000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-LGH999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00090 - CDLOGS CGLBAMAJ
- 20 TH2-LGSZZZ PIC X(3) VALUE 'ZZZ'. CGLBAMAJ
- 20 TH2-LGS000 PIC X(3) VALUE '000'. CGLBAMAJ
- **-------------------------00092 - CDMAPH CGLBAMAJ
- 20 TH2-MAHAPL PIC X(3) VALUE 'APL'. CGLBAMAJ
- 20 TH2-MAH000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-MAH999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00095 - CDMAPS CGLBAMAJ
- 20 TH2-MASZZZ PIC X(3) VALUE 'ZZZ'. CGLBAMAJ
- 20 TH2-MAS000 PIC X(3) VALUE '000'. CGLBAMAJ
- **-------------------------00097 - CDPEDH CGLBAMAJ
- 20 TH2-POMJUR PIC X(3) VALUE 'JUR'. CGLBAMAJ
- 20 TH2-POMJUT PIC X(3) VALUE 'JUT'. CGLBAMAJ
- 20 TH2-POM000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-POM999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00101 - CDPEIH CGLBAMAJ
- 20 TH2-PEHAAH PIC X(3) VALUE 'AAH'. CGLBAMAJ
- 20 TH2-PEHABM PIC X(3) VALUE 'ABM'. CGLBAMAJ
- 20 TH2-PEHABP PIC X(3) VALUE 'ABP'. CGLBAMAJ
- 20 TH2-PEHABS PIC X(3) VALUE 'ABS'. CGLBAMAJ
- 20 TH2-PEHACC PIC X(3) VALUE 'ACC'. CGLBAMAJ
- 20 TH2-PEHACE PIC X(3) VALUE 'ACE'. CGLBAMAJ
- 20 TH2-PEHACH PIC X(3) VALUE 'ACH'. CGLBAMAJ
- 20 TH2-PEHAES PIC X(3) VALUE 'AES'. CGLBAMAJ
- 20 TH2-PEHAFE PIC X(3) VALUE 'AFE'. CGLBAMAJ
- 20 TH2-PEHAGE PIC X(3) VALUE 'AGE'. CGLBAMAJ
- 20 TH2-PEHAPC PIC X(3) VALUE 'APC'. CGLBAMAJ
- 20 TH2-PEHAPH PIC X(3) VALUE 'APH'. CGLBAMAJ
- 20 TH2-PEHARS PIC X(3) VALUE 'ARS'. CGLBAMAJ
- 20 TH2-PEHAVM PIC X(3) VALUE 'AVM'. CGLBAMAJ
- 20 TH2-PEHBEP PIC X(3) VALUE 'BEP'. CGLBAMAJ
- 20 TH2-PEHCAP PIC X(3) VALUE 'CAP'. CGLBAMAJ
- 20 TH2-PEHCIB PIC X(3) VALUE 'CIB'. CGLBAMAJ
- 20 TH2-PEHCOT PIC X(3) VALUE 'COT'. CGLBAMAJ
- 20 TH2-PEHCOV PIC X(3) VALUE 'COV'. CGLBAMAJ
- 20 TH2-PEHCRA PIC X(3) VALUE 'CRA'. CGLBAMAJ
- 20 TH2-PEHCRE PIC X(3) VALUE 'CRE'. CGLBAMAJ
- 20 TH2-PEHCRM PIC X(3) VALUE 'CRM'. CGLBAMAJ
- 20 TH2-PEHCTS PIC X(3) VALUE 'CTS'. CGLBAMAJ
- 20 TH2-PEHDAE PIC X(3) VALUE 'DAE'. CGLBAMAJ
- 20 TH2-PEHDAP PIC X(3) VALUE 'DAP'. CGLBAMAJ
- 20 TH2-PEHDAR PIC X(3) VALUE 'DAR'. CGLBAMAJ
- 20 TH2-PEHDDA PIC X(3) VALUE 'DDA'. CGLBAMAJ
- 20 TH2-PEHDDI PIC X(3) VALUE 'DDI'. CGLBAMAJ
- 20 TH2-PEHDER PIC X(3) VALUE 'DER'. CGLBAMAJ
- 20 TH2-PEHDPE PIC X(3) VALUE 'DPE'. CGLBAMAJ
- 20 TH2-PEHDPO PIC X(3) VALUE 'DPO'. CGLBAMAJ
- 20 TH2-PEHDRJ PIC X(3) VALUE 'DRJ'. CGLBAMAJ
- 20 TH2-PEHEAA PIC X(3) VALUE 'EAA'. CGLBAMAJ
- 20 TH2-PEHEBO PIC X(3) VALUE 'EBO'. CGLBAMAJ
- 20 TH2-PEHHAH PIC X(3) VALUE 'HAH'. CGLBAMAJ
- 20 TH2-PEHHMI PIC X(3) VALUE 'HMI'. CGLBAMAJ
- 20 TH2-PEHHOS PIC X(3) VALUE 'HOS'. CGLBAMAJ
- 20 TH2-PEHHRA PIC X(3) VALUE 'HRA'. CGLBAMAJ
- 20 TH2-PEHIAG PIC X(3) VALUE 'IAG'. CGLBAMAJ
- 20 TH2-PEHICE PIC X(3) VALUE 'ICE'. CGLBAMAJ
- 20 TH2-PEHINC PIC X(3) VALUE 'INC'. CGLBAMAJ
- 20 TH2-PEHINV PIC X(3) VALUE 'INV'. CGLBAMAJ
- 20 TH2-PEHJUE PIC X(3) VALUE 'JUE'. CGLBAMAJ
- 20 TH2-PEHLAF PIC X(3) VALUE 'LAF'. CGLBAMAJ
- 20 TH2-PEHLIM PIC X(3) VALUE 'LIM'. CGLBAMAJ
- 20 TH2-PEHLIP PIC X(3) VALUE 'LIP'. CGLBAMAJ
- 20 TH2-PEHMGA PIC X(3) VALUE 'MGA'. CGLBAMAJ
- 20 TH2-PEHMGG PIC X(3) VALUE 'MGG'. CGLBAMAJ
- 20 TH2-PEHMRP PIC X(3) VALUE 'MRP'. CGLBAMAJ
- 20 TH2-PEHNAA PIC X(3) VALUE 'NAA'. CGLBAMAJ
- 20 TH2-PEHOAH PIC X(3) VALUE 'OAH'. CGLBAMAJ
- 20 TH2-PEHOES PIC X(3) VALUE 'OES'. CGLBAMAJ
- 20 TH2-PEHPAC PIC X(3) VALUE 'PAC'. CGLBAMAJ
- 20 TH2-PEHPAH PIC X(3) VALUE 'PAH'. CGLBAMAJ
- 20 TH2-PEHPEN PIC X(3) VALUE 'PEN'. CGLBAMAJ
- 20 TH2-PEHRAA PIC X(3) VALUE 'RAA'. CGLBAMAJ
- 20 TH2-PEHRAL PIC X(3) VALUE 'RAL'. CGLBAMAJ
- 20 TH2-PEHRAT PIC X(3) VALUE 'RAT'. CGLBAMAJ
- 20 TH2-PEHRD0 PIC X(3) VALUE 'RD0'. CGLBAMAJ
- 20 TH2-PEHRSD PIC X(3) VALUE 'RSD'. CGLBAMAJ
- 20 TH2-PEHSAI PIC X(3) VALUE 'SAI'. CGLBAMAJ
- 20 TH2-PEHSEJ PIC X(3) VALUE 'SEJ'. CGLBAMAJ
- 20 TH2-PEHSRP PIC X(3) VALUE 'SRP'. CGLBAMAJ
- 20 TH2-PEHSUS PIC X(3) VALUE 'SUS'. CGLBAMAJ
- 20 TH2-PEHTAG PIC X(3) VALUE 'TAG'. CGLBAMAJ
- 20 TH2-PEHTPA PIC X(3) VALUE 'TPA'. CGLBAMAJ
- 20 TH2-PEHTPE PIC X(3) VALUE 'TPE'. CGLBAMAJ
- 20 TH2-PEH000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-PEH999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00170 - CDPEXH CGLBAMAJ
- 20 TH2-PEXPEX PIC X(3) VALUE 'PEX'. CGLBAMAJ
- 20 TH2-PEX000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-PEX999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00173 - CDPXLH CGLBAMAJ
- 20 TH2-PLHDEM PIC X(3) VALUE 'DEM'. CGLBAMAJ
- 20 TH2-PLHFOR PIC X(3) VALUE 'FOR'. CGLBAMAJ
- 20 TH2-PLHJUS PIC X(3) VALUE 'JUS'. CGLBAMAJ
- 20 TH2-PLHQFR PIC X(3) VALUE 'QFR'. CGLBAMAJ
- 20 TH2-PLHSUI PIC X(3) VALUE 'SUI'. CGLBAMAJ
- 20 TH2-PLH000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-PLH999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00180 - CDRESH CGLBAMAJ
- 20 TH2-PEREVA PIC X(3) VALUE 'EVA'. CGLBAMAJ
- 20 TH2-PERRAB PIC X(3) VALUE 'RAB'. CGLBAMAJ
- 20 TH2-PERRES PIC X(3) VALUE 'RES'. CGLBAMAJ
- 20 TH2-PERRIR PIC X(3) VALUE 'RIR'. CGLBAMAJ
- 20 TH2-PER000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-PER999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00186 - CDSDAH CGLBAMAJ
- 20 TH2-DO2DSD PIC X(3) VALUE 'DSD'. CGLBAMAJ
- 20 TH2-DO2000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-DO2999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00189 - CDSUGH CGLBAMAJ
- 20 TH2-SP1SGC PIC X(3) VALUE 'SGC'. CGLBAMAJ
- 20 TH2-SP1000 PIC X(3) VALUE '000'. CGLBAMAJ
- 20 TH2-SP1999 PIC X(3) VALUE '999'. CGLBAMAJ
- **-------------------------00192 - CDZZZS CGLBAMAJ
- 20 TH2-ZZZZZZ PIC X(3) VALUE 'ZZZ'. CGLBAMAJ
- 20 TH2-ZZZ000 PIC X(3) VALUE '000'. CGLBAMAJ
- 15 TH2-GDDR REDEFINES TH2-GDDS. CGLBAMAJ
- 20 TH2-GDD PIC X(3) OCCURS 00193 CGLBAMAJ
- INDEXED BY IX-TH2 IX-TH2-2 IX-TH2-3. CGLBAMAJ
- 15 IX-TH2-M PIC S9(5) COMP-3 VALUE 00193. CGLBAMAJ
- *------------------------ CGLBAMAJ
- 10 TH3. CGLBAMAJ
- 15 TH3-LNGS. CGLBAMAJ
- **-------------------------00001 - CDAIFH CGLBAMAJ
- 20 TH3-FOHAIF PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-FOH000 PIC S9(3) COMP-3 VALUE 020. CGLBAMAJ
- 20 TH3-FOH999 PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- **-------------------------00004 - CDAIFS CGLBAMAJ
- 20 TH3-FOSZZZ PIC S9(3) COMP-3 VALUE 064. CGLBAMAJ
- 20 TH3-FOS000 PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- **-------------------------00006 - CDALLH CGLBAMAJ
- 20 TH3-AL0ALC PIC S9(3) COMP-3 VALUE 004. CGLBAMAJ
- 20 TH3-AL0000 PIC S9(3) COMP-3 VALUE 021. CGLBAMAJ
- 20 TH3-AL0999 PIC S9(3) COMP-3 VALUE 004. CGLBAMAJ
- **-------------------------00009 - CDDEMH CGLBAMAJ
- 20 TH3-DMHAAH PIC S9(3) COMP-3 VALUE 016. CGLBAMAJ
- 20 TH3-DMHAFH PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-DMHCMG PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-DMHCMS PIC S9(3) COMP-3 VALUE 006. CGLBAMAJ
- 20 TH3-DMHCRH PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-DMHCSF PIC S9(3) COMP-3 VALUE 010. CGLBAMAJ
- 20 TH3-DMHDEC PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-DMHDES PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-DMHDFA PIC S9(3) COMP-3 VALUE 011. CGLBAMAJ
- 20 TH3-DMHDGT PIC S9(3) COMP-3 VALUE 011. CGLBAMAJ
- 20 TH3-DMHDPE PIC S9(3) COMP-3 VALUE 014. CGLBAMAJ
- 20 TH3-DMHDPI PIC S9(3) COMP-3 VALUE 015. CGLBAMAJ
- 20 TH3-DMHDRM PIC S9(3) COMP-3 VALUE 108. CGLBAMAJ
- 20 TH3-DMHDSF PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-DMHDVS PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-DMHMID PIC S9(3) COMP-3 VALUE 018. CGLBAMAJ
- 20 TH3-DMHPJA PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- 20 TH3-DMHPPA PIC S9(3) COMP-3 VALUE 026. CGLBAMAJ
- 20 TH3-DMHRSA PIC S9(3) COMP-3 VALUE 034. CGLBAMAJ
- 20 TH3-DMHRSO PIC S9(3) COMP-3 VALUE 017. CGLBAMAJ
- 20 TH3-DMH000 PIC S9(3) COMP-3 VALUE 022. CGLBAMAJ
- 20 TH3-DMH999 PIC S9(3) COMP-3 VALUE 108. CGLBAMAJ
- **-------------------------00031 - CDDODH CGLBAMAJ
- 20 TH3-DOMSER PIC S9(3) COMP-3 VALUE 008. CGLBAMAJ
- 20 TH3-DOMSPL PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-DOM000 PIC S9(3) COMP-3 VALUE 018. CGLBAMAJ
- 20 TH3-DOM999 PIC S9(3) COMP-3 VALUE 008. CGLBAMAJ
- **-------------------------00035 - CDDOIH CGLBAMAJ
- 20 TH3-DOHAIA PIC S9(3) COMP-3 VALUE 006. CGLBAMAJ
- 20 TH3-DOHAMI PIC S9(3) COMP-3 VALUE 002. CGLBAMAJ
- 20 TH3-DOHAOH PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-DOHAOR PIC S9(3) COMP-3 VALUE 013. CGLBAMAJ
- 20 TH3-DOHAPR PIC S9(3) COMP-3 VALUE 012. CGLBAMAJ
- 20 TH3-DOHASX PIC S9(3) COMP-3 VALUE 004. CGLBAMAJ
- 20 TH3-DOHBEF PIC S9(3) COMP-3 VALUE 011. CGLBAMAJ
- 20 TH3-DOHCCA PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- 20 TH3-DOHCLG PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-DOHCPI PIC S9(3) COMP-3 VALUE 029. CGLBAMAJ
- 20 TH3-DOHCRE PIC S9(3) COMP-3 VALUE 020. CGLBAMAJ
- 20 TH3-DOHCRM PIC S9(3) COMP-3 VALUE 037. CGLBAMAJ
- 20 TH3-DOHDAR PIC S9(3) COMP-3 VALUE 031. CGLBAMAJ
- 20 TH3-DOHEEO PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-DOHLIM PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-DOHMCF PIC S9(3) COMP-3 VALUE 004. CGLBAMAJ
- 20 TH3-DOHMGC PIC S9(3) COMP-3 VALUE 016. CGLBAMAJ
- 20 TH3-DOHMGJ PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-DOHMGP PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-DOHMSD PIC S9(3) COMP-3 VALUE 037. CGLBAMAJ
- 20 TH3-DOHNEC PIC S9(3) COMP-3 VALUE 002. CGLBAMAJ
- 20 TH3-DOHOLG PIC S9(3) COMP-3 VALUE 002. CGLBAMAJ
- 20 TH3-DOHPLP PIC S9(3) COMP-3 VALUE 008. CGLBAMAJ
- 20 TH3-DOHQFA PIC S9(3) COMP-3 VALUE 012. CGLBAMAJ
- 20 TH3-DOHQFR PIC S9(3) COMP-3 VALUE 024. CGLBAMAJ
- 20 TH3-DOHQFV PIC S9(3) COMP-3 VALUE 008. CGLBAMAJ
- 20 TH3-DOHQUI PIC S9(3) COMP-3 VALUE 017. CGLBAMAJ
- 20 TH3-DOHRNG PIC S9(3) COMP-3 VALUE 006. CGLBAMAJ
- 20 TH3-DOHRSF PIC S9(3) COMP-3 VALUE 002. CGLBAMAJ
- 20 TH3-DOHSDO PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-DOHSUR PIC S9(3) COMP-3 VALUE 010. CGLBAMAJ
- 20 TH3-DOHTIE PIC S9(3) COMP-3 VALUE 010. CGLBAMAJ
- 20 TH3-DOHTIT PIC S9(3) COMP-3 VALUE 009. CGLBAMAJ
- 20 TH3-DOH000 PIC S9(3) COMP-3 VALUE 018. CGLBAMAJ
- 20 TH3-DOH999 PIC S9(3) COMP-3 VALUE 037. CGLBAMAJ
- **-------------------------00070 - CDDRES CGLBAMAJ
- 20 TH3-ODEZZZ PIC S9(3) COMP-3 VALUE 000. CGLBAMAJ
- 20 TH3-ODE000 PIC S9(3) COMP-3 VALUE 013. CGLBAMAJ
- **-------------------------00072 - CDLOGH CGLBAMAJ
- 20 TH3-LGHBAI PIC S9(3) COMP-3 VALUE 008. CGLBAMAJ
- 20 TH3-LGHCAI PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-LGHCAL PIC S9(3) COMP-3 VALUE 023. CGLBAMAJ
- 20 TH3-LGHCHL PIC S9(3) COMP-3 VALUE 011. CGLBAMAJ
- 20 TH3-LGHCML PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-LGHCNA PIC S9(3) COMP-3 VALUE 014. CGLBAMAJ
- 20 TH3-LGHCOL PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- 20 TH3-LGHDEC PIC S9(3) COMP-3 VALUE 009. CGLBAMAJ
- 20 TH3-LGHDPL PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-LGHETU PIC S9(3) COMP-3 VALUE 006. CGLBAMAJ
- 20 TH3-LGHLAI PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-LGHMPL PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-LGHNRL PIC S9(3) COMP-3 VALUE 002. CGLBAMAJ
- 20 TH3-LGHPPL PIC S9(3) COMP-3 VALUE 002. CGLBAMAJ
- 20 TH3-LGHSAL PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-LGHSIN PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-LGH000 PIC S9(3) COMP-3 VALUE 020. CGLBAMAJ
- 20 TH3-LGH999 PIC S9(3) COMP-3 VALUE 023. CGLBAMAJ
- **-------------------------00090 - CDLOGS CGLBAMAJ
- 20 TH3-LGSZZZ PIC S9(3) COMP-3 VALUE 113. CGLBAMAJ
- 20 TH3-LGS000 PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- **-------------------------00092 - CDMAPH CGLBAMAJ
- 20 TH3-MAHAPL PIC S9(3) COMP-3 VALUE 012. CGLBAMAJ
- 20 TH3-MAH000 PIC S9(3) COMP-3 VALUE 020. CGLBAMAJ
- 20 TH3-MAH999 PIC S9(3) COMP-3 VALUE 012. CGLBAMAJ
- **-------------------------00095 - CDMAPS CGLBAMAJ
- 20 TH3-MASZZZ PIC S9(3) COMP-3 VALUE 016. CGLBAMAJ
- 20 TH3-MAS000 PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- **-------------------------00097 - CDPEDH CGLBAMAJ
- 20 TH3-POMJUR PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-POMJUT PIC S9(3) COMP-3 VALUE 006. CGLBAMAJ
- 20 TH3-POM000 PIC S9(3) COMP-3 VALUE 018. CGLBAMAJ
- 20 TH3-POM999 PIC S9(3) COMP-3 VALUE 006. CGLBAMAJ
- **-------------------------00101 - CDPEIH CGLBAMAJ
- 20 TH3-PEHAAH PIC S9(3) COMP-3 VALUE 056. CGLBAMAJ
- 20 TH3-PEHABM PIC S9(3) COMP-3 VALUE 020. CGLBAMAJ
- 20 TH3-PEHABP PIC S9(3) COMP-3 VALUE 020. CGLBAMAJ
- 20 TH3-PEHABS PIC S9(3) COMP-3 VALUE 006. CGLBAMAJ
- 20 TH3-PEHACC PIC S9(3) COMP-3 VALUE 016. CGLBAMAJ
- 20 TH3-PEHACE PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-PEHACH PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHAES PIC S9(3) COMP-3 VALUE 004. CGLBAMAJ
- 20 TH3-PEHAFE PIC S9(3) COMP-3 VALUE 036. CGLBAMAJ
- 20 TH3-PEHAGE PIC S9(3) COMP-3 VALUE 028. CGLBAMAJ
- 20 TH3-PEHAPC PIC S9(3) COMP-3 VALUE 021. CGLBAMAJ
- 20 TH3-PEHAPH PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHARS PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHAVM PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHBEP PIC S9(3) COMP-3 VALUE 027. CGLBAMAJ
- 20 TH3-PEHCAP PIC S9(3) COMP-3 VALUE 013. CGLBAMAJ
- 20 TH3-PEHCIB PIC S9(3) COMP-3 VALUE 033. CGLBAMAJ
- 20 TH3-PEHCOT PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- 20 TH3-PEHCOV PIC S9(3) COMP-3 VALUE 011. CGLBAMAJ
- 20 TH3-PEHCRA PIC S9(3) COMP-3 VALUE 069. CGLBAMAJ
- 20 TH3-PEHCRE PIC S9(3) COMP-3 VALUE 011. CGLBAMAJ
- 20 TH3-PEHCRM PIC S9(3) COMP-3 VALUE 021. CGLBAMAJ
- 20 TH3-PEHCTS PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-PEHDAE PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHDAP PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHDAR PIC S9(3) COMP-3 VALUE 037. CGLBAMAJ
- 20 TH3-PEHDDA PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHDDI PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- 20 TH3-PEHDER PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-PEHDPE PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-PEHDPO PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHDRJ PIC S9(3) COMP-3 VALUE 006. CGLBAMAJ
- 20 TH3-PEHEAA PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-PEHEBO PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHHAH PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- 20 TH3-PEHHMI PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- 20 TH3-PEHHOS PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- 20 TH3-PEHHRA PIC S9(3) COMP-3 VALUE 013. CGLBAMAJ
- 20 TH3-PEHIAG PIC S9(3) COMP-3 VALUE 012. CGLBAMAJ
- 20 TH3-PEHICE PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHINC PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-PEHINV PIC S9(3) COMP-3 VALUE 010. CGLBAMAJ
- 20 TH3-PEHJUE PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-PEHLAF PIC S9(3) COMP-3 VALUE 009. CGLBAMAJ
- 20 TH3-PEHLIM PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- 20 TH3-PEHLIP PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- 20 TH3-PEHMGA PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- 20 TH3-PEHMGG PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHMRP PIC S9(3) COMP-3 VALUE 012. CGLBAMAJ
- 20 TH3-PEHNAA PIC S9(3) COMP-3 VALUE 008. CGLBAMAJ
- 20 TH3-PEHOAH PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-PEHOES PIC S9(3) COMP-3 VALUE 005. CGLBAMAJ
- 20 TH3-PEHPAC PIC S9(3) COMP-3 VALUE 010. CGLBAMAJ
- 20 TH3-PEHPAH PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHPEN PIC S9(3) COMP-3 VALUE 006. CGLBAMAJ
- 20 TH3-PEHRAA PIC S9(3) COMP-3 VALUE 011. CGLBAMAJ
- 20 TH3-PEHRAL PIC S9(3) COMP-3 VALUE 007. CGLBAMAJ
- 20 TH3-PEHRAT PIC S9(3) COMP-3 VALUE 011. CGLBAMAJ
- 20 TH3-PEHRD0 PIC S9(3) COMP-3 VALUE 009. CGLBAMAJ
- 20 TH3-PEHRSD PIC S9(3) COMP-3 VALUE 006. CGLBAMAJ
- 20 TH3-PEHSAI PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHSEJ PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-PEHSRP PIC S9(3) COMP-3 VALUE 011. CGLBAMAJ
- 20 TH3-PEHSUS PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEHTAG PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-PEHTPA PIC S9(3) COMP-3 VALUE 008. CGLBAMAJ
- 20 TH3-PEHTPE PIC S9(3) COMP-3 VALUE 003. CGLBAMAJ
- 20 TH3-PEH000 PIC S9(3) COMP-3 VALUE 018. CGLBAMAJ
- 20 TH3-PEH999 PIC S9(3) COMP-3 VALUE 069. CGLBAMAJ
- **-------------------------00170 - CDPEXH CGLBAMAJ
- 20 TH3-PEXPEX PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-PEX000 PIC S9(3) COMP-3 VALUE 021. CGLBAMAJ
- 20 TH3-PEX999 PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- **-------------------------00173 - CDPXLH CGLBAMAJ
- 20 TH3-PLHDEM PIC S9(3) COMP-3 VALUE 011. CGLBAMAJ
- 20 TH3-PLHFOR PIC S9(3) COMP-3 VALUE 015. CGLBAMAJ
- 20 TH3-PLHJUS PIC S9(3) COMP-3 VALUE 006. CGLBAMAJ
- 20 TH3-PLHQFR PIC S9(3) COMP-3 VALUE 008. CGLBAMAJ
- 20 TH3-PLHSUI PIC S9(3) COMP-3 VALUE 010. CGLBAMAJ
- 20 TH3-PLH000 PIC S9(3) COMP-3 VALUE 025. CGLBAMAJ
- 20 TH3-PLH999 PIC S9(3) COMP-3 VALUE 015. CGLBAMAJ
- **-------------------------00180 - CDRESH CGLBAMAJ
- 20 TH3-PEREVA PIC S9(3) COMP-3 VALUE 022. CGLBAMAJ
- 20 TH3-PERRAB PIC S9(3) COMP-3 VALUE 081. CGLBAMAJ
- 20 TH3-PERRES PIC S9(3) COMP-3 VALUE 352. CGLBAMAJ
- 20 TH3-PERRIR PIC S9(3) COMP-3 VALUE 035. CGLBAMAJ
- 20 TH3-PER000 PIC S9(3) COMP-3 VALUE 019. CGLBAMAJ
- 20 TH3-PER999 PIC S9(3) COMP-3 VALUE 352. CGLBAMAJ
- **-------------------------00186 - CDSDAH CGLBAMAJ
- 20 TH3-DO2DSD PIC S9(3) COMP-3 VALUE 016. CGLBAMAJ
- 20 TH3-DO2000 PIC S9(3) COMP-3 VALUE 023. CGLBAMAJ
- 20 TH3-DO2999 PIC S9(3) COMP-3 VALUE 016. CGLBAMAJ
- **-------------------------00189 - CDSUGH CGLBAMAJ
- 20 TH3-SP1SGC PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- 20 TH3-SP1000 PIC S9(3) COMP-3 VALUE 021. CGLBAMAJ
- 20 TH3-SP1999 PIC S9(3) COMP-3 VALUE 001. CGLBAMAJ
- **-------------------------00192 - CDZZZS CGLBAMAJ
- 20 TH3-ZZZZZZ PIC S9(3) COMP-3 VALUE 800. CGLBAMAJ
- 20 TH3-ZZZ000 PIC S9(3) COMP-3 VALUE 100. CGLBAMAJ
- 15 TH3-LNGR REDEFINES TH3-LNGS. CGLBAMAJ
- 20 TH3-LNG PIC S9(3) COMP-3 OCCURS 00193 CGLBAMAJ
- INDEXED BY IX-TH3 IX-TH3-2 IX-TH3-3. CGLBAMAJ
- 15 IX-TH3-M PIC S9(5) COMP-3 VALUE 00193. CGLBAMAJ
- *END_OF_COPY_FILE CGLBAMAJ
- * COPY CGLBANAL.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBANAL.CPY" CGLBANAL
- ******************************************************************CGLBANAL
- * COPY CGLBANAL CGLBANAL
- * BLOC BANALISE DE STOCKAGE CGLBANAL
- * BLOC INTER GDD CGLBANAL
- * DATABLEM 60 MOIS CGLBANAL
- * VARIABLE POUR 31 M-1 01 M 31 M CGLBANAL
- * VARIABLE DE CALCUL DE DATE CGLBANAL
- * VARIABLE DE RECHERCHE POUR LE TABLEAU MAJEUR CGLBAMAJ CGLBANAL
- * VARIABLE DE RECHERCHE EN BANALISE LSBA-E-S-ACCES-GDD CGLBANAL
- * CGLBANAL
- ******************************************************************CGLBANAL
- * BLOC BANALISE DE STOCKAGE DES GDDS LUS CGLBANAL
- * LSBA-MAX = LONGUEUR (LSBA-BAN) CGLBANAL
- * ORIGINE ET DEPLACEMENT SUR ZONE BANALISE CGLBANAL
- * VARIABLE DE BOUCLAGE APRES LESTURE L0H CGLBANAL
- *----------------------------------------------------- CGLBANAL
- * LSBA LSBA LSBA LSBA LSBA LSBA LSBA LSBA LSBA LSBA LSBA LSBA CGLBANAL
- * Ajout du préfixe LSBA- pour identifier l'origine des données CGLBANAL
- * dans le code, et leur usage (linkage) CGLBANAL
- * LSBA LSBA LSBA LSBA LSBA LSBA LSBA LSBA LSBA LSBA LSBA LSBA CGLBANAL
- * CGLBANAL
- 05 CGLBANAL. CGLBANAL
- 10 LSBA-MAX PIC S9(5) COMP-3.CGLBANAL
- 10 LSBA-BAN PIC X(50000). CGLBANAL
- 10 LSBA-ORI PIC S9(5) COMP-3.CGLBANAL
- 10 LSBA-ORI-S PIC S9(5) COMP-3.CGLBANAL
- 10 LSBA-ZNOCCD1 PIC S9(3) COMP-3.CGLBANAL
- 10 LSBA-ZNOCCD2 PIC S9(3) COMP-3.CGLBANAL
- * CGLBANAL
- *----------------------------------------------------- CGLBANAL
- * BLOC INTER GDD CGLBANAL
- * ORIGINE ET DEPLACEMENT IGAD SUR WS-IG-DONNEES CGLBANAL
- * CALCULE DANS LE CGS100 - A8500-MIS-EN-BUFFER CGLBANAL
- *----------------------------------------------------- CGLBANAL
- 10 LSBA-IG-ORI PIC S9(5) COMP-3.CGLBANAL
- 10 LSBA-IG-LNG PIC S9(3) COMP-3.CGLBANAL
- 10 LSBA-IG-DOHH-ORI PIC S9(3) COMP-3 VALUE 005.CGLBANAL
- * DOH000 + GDD 3 + NETIMA 1 + DOH999 CGLBANAL
- 10 LSBA-IG-DOHH-LNG PIC S9(3) COMP-3.CGLBANAL
- * CGLBANAL
- 10 LSBA-IG-LGHH-ORI PIC S9(3) COMP-3 VALUE 007.CGLBANAL
- 10 LSBA-IG-LGHH-LNG PIC S9(3) COMP-3 VALUE 999.CGLBANAL
- * CGLBANAL
- 10 LSBA-IG-PEHH-ORI PIC S9(3) COMP-3 VALUE 005.CGLBANAL
- * PEH000 + GDD 3 + NETIMA 1 + PEH999 CGLBANAL
- 10 LSBA-IG-PEHH-LNG PIC S9(3) COMP-3. CGLBANAL
- 10 LSBA-IG-DOMH-ORI PIC S9(3) COMP-3 VALUE 005.CGLBANAL
- * DOM000 + GDD 3 + NETIMA 1 + DOM999 CGLBANAL
- 10 LSBA-IG-DOMH-LNG PIC S9(3) COMP-3. CGLBANAL
- 10 LSBA-IG-DO2H-ORI PIC S9(3) COMP-3 VALUE 005.CGLBANAL
- * DO2000 + GDD 3 + NETIMA 1 + DO2999 CGLBANAL
- 10 LSBA-IG-DO2H-LNG PIC S9(3) COMP-3. CGLBANAL
- 10 LSBA-IG-AL0H-ORI PIC S9(3) COMP-3 VALUE 008.CGLBANAL
- * DO2000 + GDD 3 + NETIMA 1 + DO2999 CGLBANAL
- 10 LSBA-IG-AL0H-LNG PIC S9(3) COMP-3. CGLBANAL
- * CGLBANAL
- 10 LSBA-IG-RESH-ORI PIC S9(3) COMP-3 VALUE 006.CGLBANAL
- 10 LSBA-IG-RESH-LNG PIC S9(3) COMP-3. CGLBANAL
- * CGLBANAL
- *--- Longueur clé standard : identifiant GDD + D1 + D2 + NETIMA CGLBANAL
- 10 LSBA-LT-CLE-GDD PIC 99 VALUE 14. CGLBANAL
- *----------------------------------------------------- CGLBANAL
- * TABLEAU DE DERNIER JOUR DU MOIS DATABLEM CGLBANAL
- * ALLANT DE MC-49, MC (=50 POS), MC+10 CGLBANAL
- * + Stockage Index de DMCDOS dans TBLM-IN-DMCDOS = 50 CGLBANAL
- * + TBLM-IN-MT = Indice correspondant au MT dans TBLM-SAMJX CGLBANAL
- * (calculé dans cgs100a) CGLBANAL
- *----------------------------------------------------- CGLBANAL
- * CGLBANAL
- 10 TBLM-IN-DMCDOS PIC S9(3) COMP-3 VALUE 50. CGLBANAL
- 10 TBLM-IN-MT PIC S9(3) COMP-3. CGLBANAL
- 10 IN-MAX-TABLEM PIC S9(3) COMP-3. CGLBANAL
- 10 TBLM-TABLEM. CGLBANAL
- 15 TBLM-DATABLEM OCCURS 60 INDEXED BY TBLM-IX CGLBANAL
- TBLM-IX-1 CGLBANAL
- TBLM-IX-2 CGLBANAL
- TBLM-IX-3. CGLBANAL
- 17 TBLM-SAMJX. CGLBANAL
- 20 TBLM-SAMX. CGLBANAL
- 22 TBLM-SSAAX. CGLBANAL
- 24 TBLM-SS9 PIC 99. CGLBANAL
- 24 TBLM-AA9 PIC 99. CGLBANAL
- 22 TBLM-SSAA9 REDEFINES CGLBANAL
- TBLM-SSAAX PIC 9999. CGLBANAL
- 22 TBLM-MM9 PIC 99. CGLBANAL
- 20 TBLM-SAM9 REDEFINES TBLM-SAMX PIC 9(6). CGLBANAL
- 20 TBLM-JJ9 PIC 99. CGLBANAL
- 17 TBLM-SAMJ9 REDEFINES TBLM-SAMJX PIC 9(8). CGLBANAL
- 17 TBLM-RLOGEM PIC S9(3) COMP-3. CGLBANAL
- 17 TBLM-DATA PIC X(100). CGLBANAL
- 17 TBLM-D1 PIC 9(9). CGLBANAL
- 17 TBLM-D2 PIC 9(9). CGLBANAL
- * CGLBANAL
- * VARIABLES DE CALCUL POUR 31 M-1 01 M 31 M CGLBANAL
- * non il formellement interdit de manipuler ce bloc autrement CGLBANAL
- * non qu'en lecture. ces 3 dates sont chargées en debut d'etude CGLBANAL
- * *** et mieux vaut pas les altérer dans cgs100a tant que tous CGLBANAL
- * *** les chargements en banalisée n'ont pas été faits CGLBANAL
- * non de mois et contiennent:1)date fin mois precedent CGLBANAL
- * non :2)date deb.mois traité CGLBANAL
- * non :3)date fin mois traité CGLBANAL
- * oui phv - 24.08.98 - ces zones peuvent etre altere au cours CGLBANAL
- * oui du traitement - pour le 31 m-1,01 de m,31 de m il faut CGLBANAL
- * oui prendre ls-DT-FIN-MOIS-PREC LS-DT-FIN-MOIS-TRAITE. CGLBANAL
- * CGLBANAL
- 10 LSBA-SAMJS. CGLBANAL
- 15 LSBA-SAMJ OCCURS 3 INDEXED BY LSBA-IX-SAMJ. CGLBANAL
- 17 LSBA-SAMJX. CGLBANAL
- 20 LSBA-SAMX. CGLBANAL
- 22 LSBA-SSAAX. CGLBANAL
- 24 LSBA-SS PIC 99. CGLBANAL
- 24 LSBA-AA PIC 99. CGLBANAL
- 88 LSBA-AA-BISEX value CGLBANAL
- 04 08 12 16 20 CGLBANAL
- 24 28 32 36 40 CGLBANAL
- 44 48 52 56 60 CGLBANAL
- 64 68 72 76 80 CGLBANAL
- 84 88 92 96 00. CGLBANAL
- 22 LSBA-SSAA9 REDEFINES LSBA-SSAAX CGLBANAL
- PIC 9999. CGLBANAL
- 22 LSBA-MM PIC 99. CGLBANAL
- 88 LSBA-MM-30 VALUE 04 06 09 11. CGLBANAL
- 88 LSBA-MM9-JANVIER VALUE 01. CGLBANAL
- 88 LSBA-MM9-FEVRIER VALUE 02. CGLBANAL
- 88 LSBA-MM9-MARS VALUE 03. CGLBANAL
- 88 LSBA-MM9-AVRIL VALUE 04. CGLBANAL
- 88 LSBA-MM9-MAI VALUE 05. CGLBANAL
- 88 LSBA-MM9-JUIN VALUE 06. CGLBANAL
- 88 LSBA-MM9-JUILLET VALUE 07. CGLBANAL
- 88 LSBA-MM9-AOUT VALUE 08. CGLBANAL
- 88 LSBA-MM9-SEPTEMBRE VALUE 09. CGLBANAL
- 88 LSBA-MM9-OCTOBRE VALUE 10. CGLBANAL
- 88 LSBA-MM9-NOVEMBRE VALUE 11. CGLBANAL
- 88 LSBA-MM9-DECEMBRE VALUE 12. CGLBANAL
- 20 LSBA-SAM9 REDEFINES LSBA-SAMX PIC 9(6). CGLBANAL
- 20 LSBA-JJ PIC 99. CGLBANAL
- * CGLBANAL
- 17 LSBA-SAMJ9 REDEFINES LSBA-SAMJX PIC 9(8). CGLBANAL
- * CGLBANAL
- * VARIABLE DE CALCUL DE DATE CGLBANAL
- * ces 2 données servent à tout calcul de dates CGLBANAL
- * ajout, soustraction, ecart. CGLBANAL
- * CGLBANAL
- 10 LSBA-SAMJ-B. CGLBANAL
- 12 LSBA-SAMJX-B. CGLBANAL
- 14 LSBA-SAMX-B. CGLBANAL
- 16 LSBA-SSAAX-B. CGLBANAL
- 18 LSBA-SS-B PIC 99. CGLBANAL
- 18 LSBA-AA-B PIC 99. CGLBANAL
- 88 LSBA-AA-B-BISEX value CGLBANAL
- 04 08 12 16 20 CGLBANAL
- 24 28 32 36 40 CGLBANAL
- 44 48 52 56 60 CGLBANAL
- 64 68 72 76 80 CGLBANAL
- 84 88 92 96 00. CGLBANAL
- 16 LSBA-SSAA9-B REDEFINES LSBA-SSAAX-B CGLBANAL
- PIC 9999. CGLBANAL
- 16 LSBA-MM-B PIC 99. CGLBANAL
- 88 LSBA-MM-B31 VALUE 01 03 05 07 08 10 12. CGLBANAL
- 88 LSBA-MM-B30 VALUE 04 06 09 11. CGLBANAL
- 88 LSBA-MM-JANVIER VALUE 01. CGLBANAL
- 88 LSBA-MM-FEVRIER VALUE 02. CGLBANAL
- 88 LSBA-MM-MARS VALUE 03. CGLBANAL
- 88 LSBA-MM-AVRIL VALUE 04. CGLBANAL
- 88 LSBA-MM-MAI VALUE 05. CGLBANAL
- 88 LSBA-MM-JUIN VALUE 06. CGLBANAL
- 88 LSBA-MM-JUILLET VALUE 07. CGLBANAL
- 88 LSBA-MM-AOUT VALUE 08. CGLBANAL
- 88 LSBA-MM-SEPTEMBRE VALUE 09. CGLBANAL
- 88 LSBA-MM-OCTOBRE VALUE 10. CGLBANAL
- 88 LSBA-MM-NOVEMBRE VALUE 11. CGLBANAL
- 88 LSBA-MM-DECEMBRE VALUE 12. CGLBANAL
- 14 LSBA-SAM9-B REDEFINES LSBA-SAMX-B CGLBANAL
- PIC 9(6). CGLBANAL
- 14 LSBA-JJ-B PIC 99. CGLBANAL
- 12 LSBA-SAMJ9-B REDEFINES LSBA-SAMJX-B CGLBANAL
- PIC 9(8). CGLBANAL
- * CGLBANAL
- 10 LSBA-SAMJ9-S PIC 9(8). CGLBANAL
- * CGLBANAL
- * VARIABLE DE CALCUL DE DATE CGLBANAL
- * CETTE DONNEE EST LE CALCUL DMCDOS - 5 ANS CGLBANAL
- * CGLBANAL
- 10 LSBA-SAMJ-C. CGLBANAL
- 12 LSBA-SAMJX-C. CGLBANAL
- 14 LSBA-SAMX-C. CGLBANAL
- 16 LSBA-SSAAX-C. CGLBANAL
- 18 LSBA-SS-C PIC 99. CGLBANAL
- 18 LSBA-AA-C PIC 99. CGLBANAL
- 16 LSBA-SSAA-C REDEFINES LSBA-SSAAX-C CGLBANAL
- PIC 9999. CGLBANAL
- 16 LSBA-MM-C PIC 99. CGLBANAL
- 14 LSBA-SAM9-C REDEFINES LSBA-SAMX-C CGLBANAL
- PIC 9(6). CGLBANAL
- 14 LSBA-JJ-C PIC 99. CGLBANAL
- 12 LSBA-SAMJ9-C REDEFINES LSBA-SAMJX-C CGLBANAL
- PIC 9(8). CGLBANAL
- * CGLBANAL
- 10 LSBA-GDD-D1D2. CGLBANAL
- 15 LSBA-GDD PIC X(3). CGLBANAL
- 15 LSBA-D1D2. CGLBANAL
- 20 LSBA-D1X. CGLBANAL
- 25 LSBA-D1 PIC S9(9) COMP-3. CGLBANAL
- 20 LSBA-D2X. CGLBANAL
- 25 LSBA-D2 PIC S9(9) COMP-3. CGLBANAL
- 15 LSBA-NETIMAX. CGLBANAL
- 20 LSBA-NETIMA PIC S9(1) COMP-3. CGLBANAL
- CGLBANAL
- 10 LSBA-I5 PIC S9(5) COMP-3. CGLBANAL
- 10 LSBA-INDEX PIC S9(3) COMP-3. CGLBANAL
- 10 LSBA-LNG PIC S9(5) COMP-3. CGLBANAL
- * CGLBANAL
- * VARIABLE DE RECHERCHE COMMUNE DOH PEH - BANALISE ---> LKMO CGLBANAL
- * CGLBANAL
- 10 LSBA-LKMO-ORI PIC S9(5) COMP-3. CGLBANAL
- 10 LSBA-I4 PIC 9(6). CGLBANAL
- CGLBANAL
- *- NOTA CGLBANAL
- *--- il faut noter que les fonctions <= et << impliquent CGLBANAL
- *--- une lecture arrière D0C sur base db2 donc par équivalence CGLBANAL
- *--- en lecture sur banalisée on lira de futur vers passé CGLBANAL
- *--- alors que dans les autres fonctions on lira de passé vers CGLBANAL
- *--- futur CGLBANAL
- *------------------------------------------------------------- CGLBANAL
- * CGLBANAL
- * *** Les zones, du 15, qui suivent seraient mieux en working CGLBANAL
- * et y vont petit à petit CGLBANAL
- 10 LSBA-E-S-ACCES-GDD. CGLBANAL
- 15 LSBA-ENTREE. CGLBANAL
- *----- 20 LSBA-ZENTLG PIC X(3). ---- transfert dans CGPACKWK CGLBANAL
- *----- 20 LSBA-ZIDGDD PIC X(3). ---- transfert dans CGPACKWK CGLBANAL
- 20 LSBA-ZOSENS PIC XX. CGLBANAL
- 88 LSBA-FL-ZOSENS-EGAEGA VALUE '=='. CGLBANAL
- 88 LSBA-FL-ZOSENS-INFEGA VALUE '<='. CGLBANAL
- 88 LSBA-FL-ZOSENS-INFINF VALUE '<<'. CGLBANAL
- 88 LSBA-FL-ZOSENS-SUPEGA VALUE '>='. CGLBANAL
- 88 LSBA-FL-ZOSENS-SUPSUP VALUE '>>'. CGLBANAL
- 88 LSBA-FL-ZOSENS-INFSUP VALUE '><'. CGLBANAL
- 88 LSBA-FL-ZOSENS-AVTAPS VALUE '<>'. CGLBANAL
- 88 LSBA-FL-ZOSENS-ECRIT VALUE 'EC'. CGLBANAL
- 20 LSBA-ZNOCCD PIC 99. CGLBANAL
- 20 LSBA-ZONES-CLES. CGLBANAL
- 25 LSBA-NDOMATX. CGLBANAL
- 30 LSBA-NDOMAT PIC S9(7) COMP-3. CGLBANAL
- 25 LSBA-NFICPNX. CGLBANAL
- 30 LSBA-NFICPN PIC S9(7) COMP-3. CGLBANAL
- 25 LSBA-CLE-SUITE. CGLBANAL
- 30 LSBA-CNAPRS PIC X(3). CGLBANAL
- 30 LSBA-RSNAPR PIC X(2). CGLBANAL
- 25 LSBA-RCLE-SUITE REDEFINES LSBA-CLE-SUITE. CGLBANAL
- 30 LSBA-RLOGEMX. CGLBANAL
- 35 LSBA-RLOGEM PIC S9(3) COMP-3. CGLBANAL
- 30 LSBA-RAIDMAX. CGLBANAL
- 35 LSBA-RAIDMA PIC S9(3) COMP-3. CGLBANAL
- 30 LSBA-CPTRSAX REDEFINES LSBA-RAIDMAX. CGLBANAL
- 35 LSBA-CPTRSA PIC X. CGLBANAL
- 10 LSBA-S-GDD-D1D2. CGLBANAL
- 13 LSBA-S-GDD PIC X(3). CGLBANAL
- 13 LSBA-S-D1D2. CGLBANAL
- 14 LSBA-S-D1X. CGLBANAL
- 15 LSBA-S-D1 PIC S9(9) COMP-3. CGLBANAL
- 14 LSBA-S-D2X. CGLBANAL
- 15 LSBA-S-D2 PIC S9(9) COMP-3. CGLBANAL
- 13 LSBA-S-NETIMAX. CGLBANAL
- 15 LSBA-S-NETIMA PIC S9(1) COMP-3. CGLBANAL
- 13 LSBA-S-FILLER PIC X(1). CGLBANAL
- 13 LSBA-S-PRBAN PIC S9(5) COMP-3. CGLBANAL
- 88 LSBA-S-PRBAN-99999 VALUE 99999. CGLBANAL
- 13 LSBA-S-PREC PIC S9(5) COMP-3. CGLBANAL
- 13 LSBA-S-DATA PIC X(100). CGLBANAL
- * CGLBANAL
- 10 LSBA-S-ORI PIC S9(5) COMP-3. CGLBANAL
- 10 LSBA-S-ORI-S PIC S9(5) COMP-3. CGLBANAL
- 10 LSBA-S-FL-MAJ PIC 9. CGLBANAL
- 10 LSBA-S-FL-ECRITURE PIC 9. CGLBANAL
- 88 LSBA-S-FL-ECRITURE-1 VALUE 1. CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- * Version : V03500 CGLBANAL
- * CGLBANAL
- * Chantier : 2050H Début : 05/07/2011 Fin : 09/08/2011 CGLBANAL
- * CGLBANAL
- * Texte : CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * DMFS : CGLBANAL
- * : CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- * Version : V03600 CGLBANAL
- * CGLBANAL
- * Chantier : 2050O Début : 15/12/2011 Fin : 16/02/2012 CGLBANAL
- * CGLBANAL
- * Texte : CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * DMFS : CGLBANAL
- * : CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- * Version : V03900 CGLBANAL
- * CGLBANAL
- * Chantier : 1R390 Début : 10/01/2013 Fin : 10/01/2013 CGLBANAL
- * CGLBANAL
- * Texte : CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * DMFS : CGLBANAL
- * : CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- * Version : V03900 CGLBANAL
- * CGLBANAL
- * Chantier : 2246T Début : 22/01/2013 Fin : 22/01/2013 CGLBANAL
- * CGLBANAL
- * Texte : a998.cct2246:suppression lsba-zigdd,tranfert danscgpackCGLBANAL
- * CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * DMFS : CGLBANAL
- * : CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- * Version : V04000 CGLBANAL
- * CGLBANAL
- * Chantier : 1R400 Début : 13/03/2013 Fin : 13/03/2013 CGLBANAL
- * CGLBANAL
- * Texte : CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * DMFS : CGLBANAL
- * : CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- * Version : V04100 CGLBANAL
- * CGLBANAL
- * Chantier : 1R410 Début : 07/08/2013 Fin : 07/08/2013 CGLBANAL
- * CGLBANAL
- * Texte : CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * DMFS : CGLBANAL
- * : CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- * Version : V04200 CGLBANAL
- * CGLBANAL
- * Chantier : 1R420 Début : 05/12/2013 Fin : 05/12/2013 CGLBANAL
- * CGLBANAL
- * Texte : CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * CGLBANAL
- * DMFS : CGLBANAL
- * : CGLBANAL
- *--------------------------------------------------------------- CGLBANAL
- *END_OF_COPY_FILE CGLBANAL
- * COPY CGLBDMHW.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBDMHW.CPY" CGLBDMHW
- *-----------------------------------------------------------------CGLBDMHW
- * TABLEAU DIRECTEUR POUR LA TABLE DES DEMANDES - CDDMH CGLBDMHW
- * INUTILE DEPUIS LA VERSION V03900 CGLBDMHW
- *----------------------------------------------------- CGLBDMHW
- 05 LS-CGLBDMHW PIC X. CGLBDMHW
- *--------------------------------------------------------------- CGLBDMHW
- * Version : V04000 CGLBDMHW
- * CGLBDMHW
- * Chantier : 1R400 Début : 04/03/2013 Fin : 04/03/2013 CGLBDMHW
- * CGLBDMHW
- * Texte : grand nettoyage de printemps CGLBDMHW
- * CGLBDMHW
- * CGLBDMHW
- * CGLBDMHW
- * DMFS : CGLBDMHW
- * : CGLBDMHW
- *--------------------------------------------------------------- CGLBDMHW
- *END_OF_COPY_FILE CGLBDMHW
- * COPY CGLBDOHW.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBDOHW.CPY" CGLBDOHW
- *------------------------------------------------------ CGLBDOHW
- * CGLBDOHW - LINKAGE INFO. DE LA BANALISEE ENTREE SORTIE DOH CGLBDOHW
- * PRéFIXES DES DONNéES : DOHH, DOHS, IX-DOHH, IX-DOHS. CGLBDOHW
- * CGLBDOHW
- * TABLEAU DIRECTEUR POUR LA TABLE DOH CGLBDOHW
- * BLOC INDIRECTION POUR LES GDD RELATIFS CGLBDOHW
- * DEBBAN = POSITION DE DEBUT DOH DANS BANALISE CGLBDOHW
- * FINBAN = POSITION DE FIN DOH DANS BANALISE CGLBDOHW
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBDOHW
- * CONTROLE DANS LE CGS100 SI PLUS DE 40 GDD CGLBDOHW
- * LES INDICATEURS DE GDDS (*20 ARBITRAIRE) CGLBDOHW
- * NOM DU GDD CGLBDOHW
- * PR0 = POS ORIG DU 1 ER GDD DS BANALISE CGLBDOHW
- * PR5 = POS ORIG DU GDD 31 M - 1 CGLBDOHW
- * PUIS DU GDD ENCADRANT 31 M OU CGLBDOHW
- * DU GDD IMMEDIATEMENT SUPERIEURE CGLBDOHW
- * OU ZERO SI PLUS DE GDD CGLBDOHW
- * PR9 = POS ORIG DU DERNIER GDD DS BANALISE CGLBDOHW
- * L INDICATEUR EXPLOSION DU TABLEAU DE GDD CGLBDOHW
- * L INDICATEUR EXPLOSION DE LA ZONE BANALISE CGLBDOHW
- * CGLBDOHW
- * VARIABLES DE TRAVAIL (CGS100-CGBDOHAK) CGLBDOHW
- * NOMBRE MAXI DE GDD DOH POUR LE CONTROLE CGLBDOHW
- * NOMBRE MAXI DE GDD DOH DE STOCKAGE CGLBDOHW
- * LONGUEUR DE LA CLE DOH CGLBDOHW
- * NOMBRE D'OCCURS POUR LIRE DOH EN L0H CGLBDOHW
- * VARIABLES DE TRAVAIL (CGM?01-CGRDOHAK) CGLBDOHW
- * NOMBRE D'OCCURS MAXIMUM DANS CGS10001 CGLBDOHW
- *----------------------------------------------------- CGLBDOHW
- 05 LS-CGLBDOHW. CGLBDOHW
- 10 LS-DOHH-PERS. CGLBDOHW
- CGLBDOHW
- *---------------------------------------------------------------* CGLBDOHW
- * DEBUT ZONE CHARGEMENT EN BANALISEE * CGLBDOHW
- *---------------------------------------------------------------* CGLBDOHW
- CGLBDOHW
- 12 LS-DOHH-PER. CGLBDOHW
- 14 LS-DOHH-DEBBAN PIC S9(5) COMP-3. CGLBDOHW
- 14 LS-DOHH-FINBAN PIC S9(5) COMP-3. CGLBDOHW
- * CGLBDOHW
- *--- Indicateurs GDD DOH (actuellement 32) CGLBDOHW
- 14 LS-DOHH-INDS OCCURS 40 INDEXED BY IX-DOHH-IND. CGLBDOHW
- 16 LS-DOHH-IND PIC 9. CGLBDOHW
- * CGLBDOHW
- *--- GDDs DOH chargés en LKMO (actuellement 27) CGLBDOHW
- 14 LS-DOHH-GDDS OCCURS 27 INDEXED BY IX-DOHH-GDD. CGLBDOHW
- 16 LS-DOHH-GDD PIC X(3). CGLBDOHW
- 16 LS-DOHH-PR0 PIC S9(5) COMP-3. CGLBDOHW
- 16 LS-DOHH-PR5 PIC S9(5) COMP-3. CGLBDOHW
- 16 LS-DOHH-PR9 PIC S9(5) COMP-3. CGLBDOHW
- * CGLBDOHW
- 14 LS-DOHH-EXP-GDD8 PIC X(3). CGLBDOHW
- * CGLBDOHW
- 14 LS-DOHH-EXP-GDD9 PIC X(3). CGLBDOHW
- 14 LS-DOHH-EXP-H9X. CGLBDOHW
- 16 LS-DOHH-EXP-H9 PIC S9(9) COMP-3. CGLBDOHW
- * CGLBDOHW
- 10 LS-IX-DOHH-IND-MAX PIC S9(3) COMP-3. CGLBDOHW
- *--- Indicateurs GDD DOH maximum (actuellement 32) CGLBDOHW
- 10 LS-IX-DOHH-IND-MAX-REF PIC S9(3) COMP-3 VALUE 040. CGLBDOHW
- *--- GDDs DOH chargés en LKMO (actuellement 27) CGLBDOHW
- 10 LS-IX-DOHH-GDD-MAX PIC S9(3) COMP-3 VALUE 027. CGLBDOHW
- CGLBDOHW
- 10 LS-DOHH-OCC PIC 999. CGLBDOHW
- *--- Taille de la clé : GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBDOHW
- 10 LS-DOHH-CLE PIC S9(3) COMP-3 VALUE 014. CGLBDOHW
- *--- Nombre d'occurrences maximum CGLBDOHW
- 10 LS-DOHH-ZNOCCD-MAX PIC 99 VALUE 5. CGLBDOHW
- CGLBDOHW
- *---------------------------------------------------------------* CGLBDOHW
- * DEBUT ZONE ECRITURE EN BANALISEE * CGLBDOHW
- *---------------------------------------------------------------* CGLBDOHW
- CGLBDOHW
- 10 LS-DOHS-PERS. CGLBDOHW
- 12 LS-DOHS-PER. CGLBDOHW
- 14 LS-DOHS-DEBBAN PIC S9(5) COMP-3. CGLBDOHW
- 14 LS-DOHS-FINBAN PIC S9(5) COMP-3. CGLBDOHW
- * CGLBDOHW
- 14 LS-DOHS-INDS OCCURS 40 INDEXED BY IX-DOHS-IND. CGLBDOHW
- 16 LS-DOHS-IND PIC 9. CGLBDOHW
- * CGLBDOHW
- 14 LS-DOHS-GDDS OCCURS 13 INDEXED BY IX-DOHS-GDD. CGLBDOHW
- 16 LS-DOHS-GDD PIC X(3). CGLBDOHW
- 16 LS-DOHS-PR0 PIC S9(5) COMP-3. CGLBDOHW
- 16 LS-DOHS-PR5 PIC S9(5) COMP-3. CGLBDOHW
- 16 LS-DOHS-PR9 PIC S9(5) COMP-3. CGLBDOHW
- * CGLBDOHW
- 14 LS-DOHS-EXP-GDD8 PIC X(3). CGLBDOHW
- * CGLBDOHW
- 14 LS-DOHS-EXP-GDD9 PIC X(3). CGLBDOHW
- 14 LS-DOHS-EXP-H9X. CGLBDOHW
- 16 LS-DOHS-EXP-H9 PIC S9(9) COMP-3. CGLBDOHW
- * CGLBDOHW
- *--- GDD DOH écrits en banalisée (actuellement 13) CGLBDOHW
- 10 LS-IX-DOHS-GDD-MAX PIC S9(3) COMP-3 VALUE 013. CGLBDOHW
- *--------------------------------------------------------------- CGLBDOHW
- * Version : V04100 CGLBDOHW
- * CGLBDOHW
- * Chantier : 1R410 Début : 19/07/2013 Fin : 19/07/2013 CGLBDOHW
- * CGLBDOHW
- * Texte : CGLBDOHW
- * CGLBDOHW
- * CGLBDOHW
- * CGLBDOHW
- * DMFS : CGLBDOHW
- * : CGLBDOHW
- *--------------------------------------------------------------- CGLBDOHW
- * Version : V04100 CGLBDOHW
- * CGLBDOHW
- * Chantier : 2300A Début : 09/10/2013 Fin : 09/10/2013 CGLBDOHW
- * CGLBDOHW
- * Texte : Prise en compte des nouveaux GDDs DOH CGLBDOHW
- * CGLBDOHW
- * CGLBDOHW
- * CGLBDOHW
- * DMFS : CGLBDOHW
- * : CGLBDOHW
- *--------------------------------------------------------------- CGLBDOHW
- *--------------------------------------------------------------- CGLBDOHW
- * Version : V04300 CGLBDOHW
- * CGLBDOHW
- * Chantier : 2296E Début : 17/04/2014 Fin : 17/04/2014 CGLBDOHW
- * CGLBDOHW
- * Texte : a998.ccr2296e:Réforme CA-Gestion compteurs-à compter 07CGLBDOHW
- * passage du CLCA à la PrePare pour dossiers avec naiss./CGLBDOHW
- * à compter 07/2014-inciter parents à partager Congé PareCGLBDOHW
- * CGLBDOHW
- * DMFS : CGLBDOHW
- * : CGLBDOHW
- *--------------------------------------------------------------- CGLBDOHW
- *END_OF_COPY_FILE CGLBDOHW
- * COPY CGLBDOMW.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBDOMW.CPY" CGLBDOMW
- *----------------------------------------------------- CGLBDOMW
- * TABLEAU DIRECTEUR POUR LA TABLE DOM CGLBDOMW
- * BLOC INDIRECTION POUR LES GDD RELATIFS CGLBDOMW
- * DEBBAN = POSITION DE DEBUT DOM DANS BANALISE CGLBDOMW
- * FINBAN = POSITION DE FIN DOM DANS BANALISE CGLBDOMW
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBDOMW
- * CONTROLE DANS LE CGS100 SI PLUS DE 2 GDD CGLBDOMW
- * LES INDICATEURS DE GDDS (*2 ARBITRAIRE) CGLBDOMW
- * NOM DU GDD CGLBDOMW
- * PR0 = POS ORIG DU 1 ER GDD DS BANALISE CGLBDOMW
- * PR5 = POS ORIG DU GDD 31 M - 1 CGLBDOMW
- * PUIS DU GDD ENCADRANT 31 M OU CGLBDOMW
- * DU GDD IMMEDIATEMENT SUPERIEURE CGLBDOMW
- * OU ZERO SI PLUS DE GDD CGLBDOMW
- * PR9 = POS ORIG DU DERNIER GDD DS BANALISE CGLBDOMW
- * L INDICATEUR EXPLOSION DU TABLEAU DE GDD CGLBDOMW
- * L INDICATEUR EXPLOSION DE LA ZONE BANALISE CGLBDOMW
- * CGLBDOMW
- * VARIABLES DE TRAVAIL (CGS100-CGBDOMAK) CGLBDOMW
- * NOMBRE MAXI DE GDD DOM POUR LE CONTROLE CGLBDOMW
- * NOMBRE MAXI DE GDD DOM DE STOCKAGE CGLBDOMW
- * LITTERAL DOM CGLBDOMW
- * LONGUEUR DE LA CLE DOM CGLBDOMW
- * NOMBRE D'OCCURS POUR LIRE DOM EN L0H CGLBDOMW
- * VARIABLES DE TRAVAIL (CGM?01-CGRDOMAK) CGLBDOMW
- * NOMBRE D'OCCURS MAXIMUM DANS CGS????? CGLBDOMW
- *----------------------------------------------------- CGLBDOMW
- 05 LS-CGLBDOMW. CGLBDOMW
- 10 LS-DOMH-PERS. CGLBDOMW
- 12 LS-DOMH-PER. CGLBDOMW
- 14 LS-DOMH-DEBBAN PIC S9(5) COMP-3. CGLBDOMW
- 14 LS-DOMH-FINBAN PIC S9(5) COMP-3. CGLBDOMW
- * CGLBDOMW
- 14 LS-DOMH-INDS OCCURS 2 INDEXED BY IX-DOMH-IND. CGLBDOMW
- 16 LS-DOMH-IND PIC 9. CGLBDOMW
- * CGLBDOMW
- 14 LS-DOMH-GDDS OCCURS 2 INDEXED BY IX-DOMH-GDD. CGLBDOMW
- 16 LS-DOMH-GDD PIC X(3). CGLBDOMW
- 16 LS-DOMH-PR0 PIC S9(5) COMP-3. CGLBDOMW
- 16 LS-DOMH-PR5 PIC S9(5) COMP-3. CGLBDOMW
- 16 LS-DOMH-PR9 PIC S9(5) COMP-3. CGLBDOMW
- * CGLBDOMW
- 14 LS-DOMH-EXP-GDD8 PIC X(3). CGLBDOMW
- * CGLBDOMW
- 14 LS-DOMH-EXP-GDD9 PIC X(3). CGLBDOMW
- 14 LS-DOMH-EXP-H9X. CGLBDOMW
- 16 LS-DOMH-EXP-H9 PIC S9(9) COMP-3. CGLBDOMW
- * CGLBDOMW
- * VARIABLES DE TRAVAIL POUR DOM CGLBDOMW
- * CGLBDOMW
- *** 10 IX-DOMH-IND-MAX-REF PIC 99 VALUE 2. CGLBDOMW
- 10 LS-IX-DOMH-IND-MAX-REF PIC S9(3) COMP-3 VALUE 2. CGLBDOMW
- **** 10 IX-DOMH-IND-MAX PIC 99 VALUE 2. CGLBDOMW
- 10 LS-IX-DOMH-IND-MAX PIC S9(3) COMP-3 VALUE 2. CGLBDOMW
- 10 LS-IX-DOMH-GDD-MAX PIC S9(3) COMP-3 VALUE 2. CGLBDOMW
- ***** 10 IX-DOMH-GDD-MAX PIC 99 VALUE 2. CGLBDOMW
- * CGLBDOMW
- * GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBDOMW
- 10 LS-DOMH-CLE PIC S9(3) COMP-3 VALUE 014. CGLBDOMW
- 10 LS-DOMH-OCC PIC 999. CGLBDOMW
- * CGLBDOMW
- * VARIABLES DE TRAVAIL (CGM?01-CGRDOMAK) CGLBDOMW
- * CGLBDOMW
- 10 LS-DOMH-ZNOCCD-MAX PIC 99 VALUE 7. CGLBDOMW
- * CGLBDOMW
- 10 LS-DOMS-PERS. CGLBDOMW
- 12 LS-DOMS-PER. CGLBDOMW
- 14 LS-DOMS-DEBBAN PIC S9(5) COMP-3. CGLBDOMW
- 14 LS-DOMS-FINBAN PIC S9(5) COMP-3. CGLBDOMW
- * CGLBDOMW
- 14 LS-DOMS-INDS OCCURS 2 INDEXED BY IX-DOMS-IND. CGLBDOMW
- 16 LS-DOMS-IND PIC 9. CGLBDOMW
- * CGLBDOMW
- 14 LS-DOMS-GDDS OCCURS 2 INDEXED BY IX-DOMS-GDD. CGLBDOMW
- 16 LS-DOMS-GDD PIC X(3). CGLBDOMW
- 16 LS-DOMS-PR0 PIC S9(5) COMP-3. CGLBDOMW
- 16 LS-DOMS-PR5 PIC S9(5) COMP-3. CGLBDOMW
- 16 LS-DOMS-PR9 PIC S9(5) COMP-3. CGLBDOMW
- * CGLBDOMW
- 14 LS-DOMS-EXP-GDD8 PIC X(3). CGLBDOMW
- * CGLBDOMW
- 14 LS-DOMS-EXP-GDD9 PIC X(3). CGLBDOMW
- 14 LS-DOMS-EXP-H9X. CGLBDOMW
- 16 LS-DOMS-EXP-H9 PIC S9(9) COMP-3. CGLBDOMW
- * CGLBDOMW
- * VARIABLES DE TRAVAIL POUR DOM CGLBDOMW
- * CGLBDOMW
- *-- 10 IX-DOMS-IND-MAX-REF PIC S9(3) COMP-3 VALUE 2. CGLBDOMW
- *-- 10 IX-DOMS-IND-MAX PIC S9(3) COMP-3 VALUE 2. CGLBDOMW
- ******* 10 IX-DOMS-GDD-MAX PIC 99 VALUE 2. CGLBDOMW
- 10 LS-IX-DOMS-GDD-MAX PIC S9(3) COMP-3 VALUE 2. CGLBDOMW
- * CGLBDOMW
- *-- 10 LS-XXXH-DOMS PIC X(3) VALUE 'DOM'. CGLBDOMW
- * GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBDOMW
- *-- 10 LS-DOMS-CLE PIC S9(3) COMP-3 VALUE 014. CGLBDOMW
- *-- 10 LS-DOMS-OCC PIC 999. CGLBDOMW
- * CGLBDOMW
- * VARIABLES DE TRAVAIL (CGM?01-CGRDOMAK) CGLBDOMW
- * CGLBDOMW
- *-- 10 LS-DOMS-ZNOCCD-MAX PIC 99 VALUE 7. CGLBDOMW
- *--------------------------------------------------------------- CGLBDOMW
- * VERSION : V03310 CGLBDOMW
- * CGLBDOMW
- * CHANTIER : 1R331 DéBUT : 17/11/2010 FIN : 17/11/2010 CGLBDOMW
- * CGLBDOMW
- * TEXTE : CGLBDOMW
- * CGLBDOMW
- * CGLBDOMW
- * CGLBDOMW
- * DMFS : CGLBDOMW
- * : CGLBDOMW
- *--------------------------------------------------------------- CGLBDOMW
- *--------------------------------------------------------------- CGLBDOMW
- * Version : V03410 CGLBDOMW
- * CGLBDOMW
- * Chantier : 2050E Début : 20/05/2011 Fin : 20/05/2011 CGLBDOMW
- * CGLBDOMW
- * Texte : CGLBDOMW
- * CGLBDOMW
- * CGLBDOMW
- * CGLBDOMW
- * DMFS : CGLBDOMW
- * : CGLBDOMW
- *--------------------------------------------------------------- CGLBDOMW
- *--------------------------------------------------------------- CGLBDOMW
- * Version : V03500 CGLBDOMW
- * CGLBDOMW
- * Chantier : 2050H Début : 16/08/2011 Fin : 29/08/2011 CGLBDOMW
- * CGLBDOMW
- * Texte : CGLBDOMW
- * CGLBDOMW
- * CGLBDOMW
- * CGLBDOMW
- * DMFS : CGLBDOMW
- * : CGLBDOMW
- *--------------------------------------------------------------- CGLBDOMW
- *--------------------------------------------------------------- CGLBDOMW
- * Version : V03510 CGLBDOMW
- * CGLBDOMW
- * Chantier : 2050L Début : 07/09/2011 Fin : 07/09/2011 CGLBDOMW
- * CGLBDOMW
- * Texte : CGLBDOMW
- * CGLBDOMW
- * CGLBDOMW
- * CGLBDOMW
- * DMFS : CGLBDOMW
- * : CGLBDOMW
- *--------------------------------------------------------------- CGLBDOMW
- *END_OF_COPY_FILE CGLBDOMW
- * COPY CGLBDO2W.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBDO2W.CPY" CGLBDO2W
- * *-- suppression de cgbdo2ak et cgrdo2ak-remplacé par cgrtabakCGLBDO2W
- 05 LS-CGLBDO2W PIC X. CGLBDO2W
- *--------------------------------------------------------------- CGLBDO2W
- * Version : V04000 CGLBDO2W
- * CGLBDO2W
- * Chantier : 2273T Début : 20/03/2013 Fin : 20/03/2013 CGLBDO2W
- * CGLBDO2W
- * Texte : suppression CGBDO2AK et CGRDO2AK CGLBDO2W
- * CGLBDO2W
- * CGLBDO2W
- * CGLBDO2W
- * DMFS : CGLBDO2W
- * : CGLBDO2W
- *--------------------------------------------------------------- CGLBDO2W
- *END_OF_COPY_FILE CGLBDO2W
- * COPY CGLBFOHW.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBFOHW.CPY" CGLBFOHW
- *----------------------------------------------------- CGLBFOHW
- * TABLEAU DIRECTEUR POUR LA TABLE FOH CGLBFOHW
- * BLOC INDIRECTION POUR LES PERSONNES ET LES GDDS RELATIFS CGLBFOHW
- * POUR CHAQUE PERSONNE CGLBFOHW
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBFOHW
- * RAIDMA = RANG DE LA FAMILLE AIDE-FAMILLE CGLBFOHW
- * DEBBAN = POSITION DE DEBUT FOH DANS BANALISE CGLBFOHW
- * FINBAN = POSITION DE FIN FOH DANS BANALISE CGLBFOHW
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBFOHW
- * CONTROLE DANS LE CGS100 SI PLUS DE 2 GDD CGLBFOHW
- * LES INDICATEURS DE GDDS (*2 ARBITRAIRE) CGLBFOHW
- * NOM DU GDD CGLBFOHW
- * PR0 = POS ORIG DU 1 ER GDD DS BANALISE CGLBFOHW
- * PR5 = POS ORIG DU GDD 31 M - 1 CGLBFOHW
- * PUIS DU GDD ENCADRANT 31 M OU CGLBFOHW
- * DU GDD IMMEDIATEMENT SUPERIEURE CGLBFOHW
- * OU ZERO SI PLUS DE GDD CGLBFOHW
- * PR9 = POS ORIG DU DERNIER GDD DS BANALISE CGLBFOHW
- * L INDICATEUR EXPLOSION DU TABLEAU DE GDD CGLBFOHW
- * L INDICATEUR EXPLOSION DE LA ZONE BANALISE CGLBFOHW
- * CGLBFOHW
- * VARIABLES DE TRAVAIL (CGS100-CGBFOHAK) CGLBFOHW
- * NOMBRE MAXI DE GDD FOH POUR LE CONTROLE CGLBFOHW
- * NOMBRE MAXI DE GDD FOH POUR LE STOCKAGE CGLBFOHW
- * LITTERAL FOH CGLBFOHW
- * LONGUEUR DE LA CLE FOH CGLBFOHW
- * NOMBRE D'OCCURS POUR LIRE FOH EN L0H CGLBFOHW
- * VARIABLES DE TRAVAIL (CGM?01-CGRFOHAK) CGLBFOHW
- * NOMBRE D'OCCURS MAXIMUM DANS CGS????? CGLBFOHW
- *----------------------------------------------------- CGLBFOHW
- 05 LS-CGLBFOHW. CGLBFOHW
- *-- 10 LS-FOHH-PERS. CGLBFOHW
- *??? 12 FOHH-PER OCCURS 5 INDEXED BY IX-FOHH-PER. CGLBFOHW
- *-- 12 LS-FOHH-PER. CGLBFOHW
- *-- 14 LS-FOHH-NDOMAT PIC S9(7) COMP-3. CGLBFOHW
- *-- 14 LS-FOHH-RAIDMA PIC S9(3) COMP-3. CGLBFOHW
- *-- 14 LS-FOHH-DEBBAN PIC S9(5) COMP-3. CGLBFOHW
- *-- 14 LS-FOHH-FINBAN PIC S9(5) COMP-3. CGLBFOHW
- * CGLBFOHW
- *-- 14 LS-FOHH-INDS OCCURS 2 INDEXED BY IX-FOHH-IND. CGLBFOHW
- *-- 16 LS-FOHH-IND PIC 9. CGLBFOHW
- * CGLBFOHW
- *-- 14 LS-FOHH-GDDS OCCURS 2 INDEXED BY IX-FOHH-GDD. CGLBFOHW
- *-- 16 LS-FOHH-GDD PIC X(3). CGLBFOHW
- *-- 16 LS-FOHH-PR0 PIC S9(5) COMP-3. CGLBFOHW
- *-- 16 LS-FOHH-PR5 PIC S9(5) COMP-3. CGLBFOHW
- *-- 16 LS-FOHH-PR9 PIC S9(5) COMP-3. CGLBFOHW
- * CGLBFOHW
- *-- 14 LS-FOHH-EXP-GDD8 PIC X(3). CGLBFOHW
- * CGLBFOHW
- *-- 14 LS-FOHH-EXP-GDD9 PIC X(3). CGLBFOHW
- *-- 14 LS-FOHH-EXP-H9X. CGLBFOHW
- *-- 16 LS-FOHH-EXP-H9 PIC S9(9) COMP-3. CGLBFOHW
- * CGLBFOHW
- *-- 10 IX-FOHH-IND-MAX PIC 99 VALUE 2. CGLBFOHW
- *-- 10 IX-FOHH-GDD-MAX PIC 99 VALUE 2. CGLBFOHW
- * CGLBFOHW
- 10 LS-XXXH-FOHH PIC X(3) VALUE 'FOH'. CGLBFOHW
- * GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBFOHW
- 10 LS-XXXH-FOHH-CLE PIC S9(3) COMP-3 VALUE 014. CGLBFOHW
- 10 LS-XXXH-FOHH-OCC PIC 999. CGLBFOHW
- * CGLBFOHW
- 10 LS-XXXH-FOHH-ZNOCCD-MAX PIC 99 VALUE 7. CGLBFOHW
- *--------------------------------------------------------------- CGLBFOHW
- * VERSION : V00310 CGLBFOHW
- * CGLBFOHW
- * CHANTIER : 0110O DéBUT : 08/07/1997 FIN : 01/09/1997 CGLBFOHW
- * CGLBFOHW
- * TEXTE : RECHERCHE DANS LA BANALISE CGLBFOHW
- * CGLBFOHW
- * CGLBFOHW
- * CGLBFOHW
- * DMFS : CGLBFOHW
- * : CGLBFOHW
- *--------------------------------------------------------------- CGLBFOHW
- *--------------------------------------------------------------- CGLBFOHW
- * Version : V03500 CGLBFOHW
- * CGLBFOHW
- * Chantier : 2050H Début : 29/08/2011 Fin : 29/08/2011 CGLBFOHW
- * CGLBFOHW
- * Texte : CGLBFOHW
- * CGLBFOHW
- * CGLBFOHW
- * CGLBFOHW
- * DMFS : CGLBFOHW
- * : CGLBFOHW
- *--------------------------------------------------------------- CGLBFOHW
- *--------------------------------------------------------------- CGLBFOHW
- * Version : V03510 CGLBFOHW
- * CGLBFOHW
- * Chantier : 2050L Début : 07/09/2011 Fin : 07/09/2011 CGLBFOHW
- * CGLBFOHW
- * Texte : CGLBFOHW
- * CGLBFOHW
- * CGLBFOHW
- * CGLBFOHW
- * DMFS : CGLBFOHW
- * : CGLBFOHW
- *--------------------------------------------------------------- CGLBFOHW
- *--------------------------------------------------------------- CGLBFOHW
- * Version : V03600 CGLBFOHW
- * CGLBFOHW
- * Chantier : 2149T Début : 28/11/2011 Fin : 28/11/2011 CGLBFOHW
- * CGLBFOHW
- * Texte : CGLBFOHW
- * CGLBFOHW
- * CGLBFOHW
- * CGLBFOHW
- * DMFS : CGLBFOHW
- * : CGLBFOHW
- *--------------------------------------------------------------- CGLBFOHW
- *END_OF_COPY_FILE CGLBFOHW
- * COPY CGLBFOSW.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBFOSW.CPY" CGLBFOSW
- *----------------------------------------------------- CGLBFOSW
- *----------------------------------------------------- CGLBFOSW
- * TABLEAU DIRECTEUR POUR LA TABLE FOS CGLBFOSW
- * BLOC INDIRECTION POUR LES PERSONNES ET LES GDDS RELATIFS CGLBFOSW
- * POUR CHAQUE PERSONNE CGLBFOSW
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBFOSW
- * RAIDMA = RANG DE LA FAMILLE AIDE-FAMILLE CGLBFOSW
- * DEBBAN = POSITION DE DEBUT FOS DANS BANALISE CGLBFOSW
- * FINBAN = POSITION DE FIN FOS DANS BANALISE CGLBFOSW
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBFOSW
- * CONTROLE DANS LE CGS100 SI PLUS DE 2 GDD CGLBFOSW
- * LES INDICATEURS DE GDDS (*2 ARBITRAIRE) CGLBFOSW
- * NOM DU GDD CGLBFOSW
- * PR0 = POS ORIG DU 1 ER GDD DS BANALISE CGLBFOSW
- * PR5 = POS ORIG DU GDD 31 M - 1 CGLBFOSW
- * PUIS DU GDD ENCADRANT 31 M OU CGLBFOSW
- * DU GDD IMMEDIATEMENT SUPERIEURE CGLBFOSW
- * OU ZERO SI PLUS DE GDD CGLBFOSW
- * PR9 = POS ORIG DU DERNIER GDD DS BANALISE CGLBFOSW
- * L INDICATEUR EXPLOSION DU TABLEAU DE GDD CGLBFOSW
- * L INDICATEUR EXPLOSION DE LA ZONE BANALISE CGLBFOSW
- * CGLBFOSW
- * VARIABLES DE TRAVAIL (CGS100-CGBFOSAK) CGLBFOSW
- * NOMBRE MAXI DE GDD FOS POUR LE CONTROLE CGLBFOSW
- * NOMBRE MAXI DE GDD FOS POUR LE STOCKAGE CGLBFOSW
- * LITTERAL FOS CGLBFOSW
- * LONGUEUR DE LA CLE FOS CGLBFOSW
- * NOMBRE D'OCCURS POUR LIRE FOS EN L0H CGLBFOSW
- * VARIABLES DE TRAVAIL (CGM?01-CGRFOSAK) CGLBFOSW
- * NOMBRE D'OCCURS MAXIMUM DANS CGS????? CGLBFOSW
- *----------------------------------------------------- CGLBFOSW
- 05 LS-CGLBFOSW. CGLBFOSW
- 10 LS-FOSH-PERS. CGLBFOSW
- * 12 FOSH-PER OCCURS 5 INDEXED BY IX-FOSH-PER. CGLBFOSW
- * 12 FOSH-PER. CGLBFOSW
- 14 LS-FOSH-NDOMAT PIC S9(7) COMP-3. CGLBFOSW
- 14 LS-FOSH-RAIDMA PIC S9(3) COMP-3. CGLBFOSW
- 14 LS-FOSH-DEBBAN PIC S9(5) COMP-3. CGLBFOSW
- 14 LS-FOSH-FINBAN PIC S9(5) COMP-3. CGLBFOSW
- * CGLBFOSW
- 14 LS-FOSH-INDS OCCURS 2 INDEXED BY IX-FOSH-IND. CGLBFOSW
- 16 LS-FOSH-IND PIC 9. CGLBFOSW
- * CGLBFOSW
- 14 LS-FOSH-GDDS OCCURS 2 INDEXED BY IX-FOSH-GDD. CGLBFOSW
- 16 LS-FOSH-GDD PIC X(3). CGLBFOSW
- 16 LS-FOSH-PR0 PIC S9(5) COMP-3. CGLBFOSW
- 16 LS-FOSH-PR5 PIC S9(5) COMP-3. CGLBFOSW
- 16 LS-FOSH-PR9 PIC S9(5) COMP-3. CGLBFOSW
- * CGLBFOSW
- 14 LS-FOSH-EXP-GDD8 PIC X(3). CGLBFOSW
- * CGLBFOSW
- 14 LS-FOSH-EXP-GDD9 PIC X(3). CGLBFOSW
- 14 LS-FOSH-EXP-H9X. CGLBFOSW
- 16 LS-FOSH-EXP-H9 PIC S9(9) COMP-3. CGLBFOSW
- * CGLBFOSW
- *--- 10 IX-FOSH-IND-MAX PIC S9(3) COMP-3 VALUE 2. CGLBFOSW
- *-- 10 IX-FOSH-GDD-MAX PIC S9(3) COMP-3 VALUE 2. CGLBFOSW
- * CGLBFOSW
- 10 LS-XXXH-FOSH PIC X(3) VALUE 'FOS'. CGLBFOSW
- * GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBFOSW
- 10 LS-XXXH-FOSH-CLE PIC S9(3) COMP-3 VALUE 014. CGLBFOSW
- 10 LS-XXXH-FOSH-OCC PIC 999. CGLBFOSW
- * CGLBFOSW
- 10 LS-XXXH-FOSH-ZNOCCD-MAX PIC 99 VALUE 7. CGLBFOSW
- *--------------------------------------------------------------- CGLBFOSW
- * VERSION : V00310 CGLBFOSW
- * CGLBFOSW
- * CHANTIER : 00000 DéBUT : 01/09/1997 FIN : 01/09/1997 CGLBFOSW
- * CGLBFOSW
- * TEXTE : CGLBFOSW
- * CGLBFOSW
- * CGLBFOSW
- * CGLBFOSW
- * DMFS : CGLBFOSW
- * : CGLBFOSW
- *--------------------------------------------------------------- CGLBFOSW
- * VERSION : V00310 CGLBFOSW
- * CGLBFOSW
- * CHANTIER : 0110O DéBUT : 08/07/1997 FIN : 01/09/1997 CGLBFOSW
- * CGLBFOSW
- * TEXTE : RECHERCHE DANS LA BANALISE CGLBFOSW
- * CGLBFOSW
- * CGLBFOSW
- * CGLBFOSW
- * DMFS : CGLBFOSW
- * : CGLBFOSW
- *--------------------------------------------------------------- CGLBFOSW
- *--------------------------------------------------------------- CGLBFOSW
- * Version : V03600 CGLBFOSW
- * CGLBFOSW
- * Chantier : 2050O Début : 07/02/2012 Fin : 07/02/2012 CGLBFOSW
- * CGLBFOSW
- * Texte : CGLBFOSW
- * CGLBFOSW
- * CGLBFOSW
- * CGLBFOSW
- * DMFS : CGLBFOSW
- * : CGLBFOSW
- *--------------------------------------------------------------- CGLBFOSW
- *--------------------------------------------------------------- CGLBFOSW
- * Version : V03800 CGLBFOSW
- * CGLBFOSW
- * Chantier : 1R380 Début : 31/08/2012 Fin : 31/08/2012 CGLBFOSW
- * CGLBFOSW
- * Texte : CGLBFOSW
- * CGLBFOSW
- * CGLBFOSW
- * CGLBFOSW
- * DMFS : CGLBFOSW
- * : CGLBFOSW
- *--------------------------------------------------------------- CGLBFOSW
- *END_OF_COPY_FILE CGLBFOSW
- * COPY CGLBLGHW.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBLGHW.CPY" CGLBLGHW
- *----------------------------------------------------------- CGLBLGHW
- * TABLEAU DIRECTEUR POUR LA TABLE LGH CGLBLGHW
- * BLOC INDIRECTION POUR LES GDD RELATIFS CGLBLGHW
- * DEBBAN = POSITION DE DEBUT LGH DANS BANALISE CGLBLGHW
- * FINBAN = POSITION DE FIN LGH DANS BANALISE CGLBLGHW
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBLGHW
- * CONTROLE DANS LE CGS100 SI PLUS DE 40 GDD CGLBLGHW
- * LES INDICATEURS DE GDDS (*12 ARBITRAIRE) CGLBLGHW
- * NOM DU GDD CGLBLGHW
- * PR0 = POS ORIG DU 1 ER GDD DS BANALISE CGLBLGHW
- * PR5 = POS ORIG DU GDD 31 M - 1 CGLBLGHW
- * PUIS DU GDD ENCADRANT 31 M OU CGLBLGHW
- * DU GDD IMMEDIATEMENT SUPERIEURE CGLBLGHW
- * OU ZERO SI PLUS DE GDD CGLBLGHW
- * PR9 = POS ORIG DU DERNIER GDD DS BANALISE CGLBLGHW
- * L INDICATEUR EXPLOSION DU TABLEAU DE GDD CGLBLGHW
- * L INDICATEUR EXPLOSION DE LA ZONE BANALISE CGLBLGHW
- * CGLBLGHW
- * VARIABLES DE TRAVAIL (CGS100-CGBLGHAK) CGLBLGHW
- * NOMBRE MAXI DE GDD LGH POUR LE CONTROLE CGLBLGHW
- * NOMBRE MAXI DE GDD LGH DE STOCKAGE CGLBLGHW
- * LONGUEUR DE LA CLE LGH CGLBLGHW
- * NOMBRE D'OCCURS POUR LIRE LGH EN L0H CGLBLGHW
- * VARIABLES DE TRAVAIL (CGM?01-CGRLGHAK) CGLBLGHW
- * NOMBRE D'OCCURS MAXIMUM DANS CGS10000 CGLBLGHW
- *----------------------------------------------------- CGLBLGHW
- 05 LS-CGLBLGHW. CGLBLGHW
- 10 LS-LGHH-LOGS. CGLBLGHW
- 12 LS-LGHH-LOG. CGLBLGHW
- 14 LS-LGHH-DEBBAN PIC S9(5) COMP-3. CGLBLGHW
- 14 LS-LGHH-FINBAN PIC S9(5) COMP-3. CGLBLGHW
- * CGLBLGHW
- *-- 14 LS-LGHH-INDS OCCURS 18 INDEXED BY IX-LGHH-IND. CGLBLGHW
- 14 LS-LGHH-INDS OCCURS 20 INDEXED BY IX-LGHH-IND. CGLBLGHW
- 16 LS-LGHH-IND PIC 9. CGLBLGHW
- * CGLBLGHW
- *-- 14 LS-LGHH-GDDS OCCURS 18 INDEXED BY IX-LGHH-GDD. CGLBLGHW
- 14 LS-LGHH-GDDS OCCURS 20 INDEXED BY IX-LGHH-GDD. CGLBLGHW
- 16 LS-LGHH-GDD PIC X(3). CGLBLGHW
- 16 LS-LGHH-PR0 PIC S9(5) COMP-3. CGLBLGHW
- 16 LS-LGHH-PR5 PIC S9(5) COMP-3. CGLBLGHW
- 16 LS-LGHH-PR9 PIC S9(5) COMP-3. CGLBLGHW
- * CGLBLGHW
- 14 LS-LGHH-EXP-GDD8 PIC X(3). CGLBLGHW
- * CGLBLGHW
- 14 LS-LGHH-EXP-GDD9 PIC X(3). CGLBLGHW
- 14 LS-LGHH-EXP-H9X. CGLBLGHW
- 16 LS-LGHH-EXP-H9 PIC S9(9) COMP-3. CGLBLGHW
- * CGLBLGHW
- * VARIABLES DE TRAVAIL POUR LGH CGLBLGHW
- * CGLBLGHW
- *-- 10 LS-IX-LGHH-IND-MAX-REF PIC S9(3) COMP-3 VALUE 18. CGLBLGHW
- 10 LS-IX-LGHH-IND-MAX-REF PIC S9(3) COMP-3 VALUE 20. CGLBLGHW
- 10 LS-IX-LGHH-IND-MAX PIC S9(3) COMP-3. CGLBLGHW
- *-- 10 IX-LGHH-GDD-MAX PIC S9(3) COMP-3 VALUE 17. CGLBLGHW
- *-- 10 LS-IX-LGHH-GDD-MAX PIC S9(3) COMP-3 VALUE 18. CGLBLGHW
- 10 LS-IX-LGHH-GDD-MAX PIC S9(3) COMP-3 VALUE 20. CGLBLGHW
- *-- GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBLGHW
- 10 LS-LGHH-CLE PIC S9(3) COMP-3 VALUE 014. CGLBLGHW
- 10 LS-LGHH-OCC PIC 999. CGLBLGHW
- * VARIABLE DE SAUVEGARDE AVANT INITIALISATION CGLBLGHW
- *-- 10 LS-LGHH-WS-DEBBAN PIC S9(5) COMP-3. CGLBLGHW
- * INDICATEUR DE RUPTURE DE RANG CGLBLGHW
- 10 LS-LGHH-FL-RLOGEM PIC 999. CGLBLGHW
- ********10 LGHH-LSBA-MAX PIC S9(4) COMP-3 VALUE 2000. CGLBLGHW
- 10 LS-LGHH-LSBA-MAX PIC S9(5) COMP-3 VALUE +2000. CGLBLGHW
- 10 LS-LGHH-LSBA-ORI PIC S9(5) COMP-3. CGLBLGHW
- * CGLBLGHW
- * VARIABLES DE TRAVAIL (CGM?01-CGRLGHAK) CGLBLGHW
- * CGLBLGHW
- 10 LS-LGHH-ZNOCCD-MAX PIC 99 VALUE 7. CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- * VERSION : V01201 CGLBLGHW
- * CGLBLGHW
- * CHANTIER : 0041O DéBUT : 07/04/1997 FIN : 09/06/1997 CGLBLGHW
- * CGLBLGHW
- * TEXTE : BUFFERISATION DU COMPTE - DMO041 CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * DMFS : CGLBLGHW
- * : CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- * VERSION : V00310 CGLBLGHW
- * CGLBLGHW
- * CHANTIER : 0110O DéBUT : 07/07/1997 FIN : 04/09/1997 CGLBLGHW
- * CGLBLGHW
- * TEXTE : SUITE DE LA DMO 041 - RECHERCHE EN BANALISé CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * DMFS : CGLBLGHW
- * : CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- * VERSION : V00320 CGLBLGHW
- * CGLBLGHW
- * CHANTIER : 0110C DéBUT : 11/02/1998 FIN : 24/02/1998 CGLBLGHW
- * CGLBLGHW
- * TEXTE : CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * DMFS : CGLBLGHW
- * : CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- * VERSION : V00320 CGLBLGHW
- * CGLBLGHW
- * CHANTIER : 110C DéBUT : 19/02/1998 FIN : 19/02/1998 CGLBLGHW
- * CGLBLGHW
- * TEXTE : CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * DMFS : CGLBLGHW
- * : CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- * VERSION : V00530 CGLBLGHW
- * CGLBLGHW
- * CHANTIER : 00410 DéBUT : 15/01/1999 FIN : 15/01/1999 CGLBLGHW
- * CGLBLGHW
- * TEXTE : SUPPRESSION PRéFIXE XXXH POUR GARDER LGHH OU LGHS CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * DMFS : CGLBLGHW
- * : CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- * VERSION : V00530 CGLBLGHW
- * CGLBLGHW
- * CHANTIER : O110C DéBUT : 20/04/1999 FIN : 22/04/1999 CGLBLGHW
- * CGLBLGHW
- * TEXTE : NOUVELLE TABLE LOGEMENT (VERTICALE). MISE EN BANALISéE.CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * DMFS : CGLBLGHW
- * : CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- * VERSION : V00720 CGLBLGHW
- * CGLBLGHW
- * CHANTIER : 0904T DéBUT : 14/03/2001 FIN : 14/03/2001 CGLBLGHW
- * CGLBLGHW
- * TEXTE : AUGMENTATION TAILLE RANG LOGEMENT CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * DMFS : CGLBLGHW
- * : CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- * VERSION : V00930 CGLBLGHW
- * CGLBLGHW
- * CHANTIER : H2697 DéBUT : 02/09/2002 FIN : 02/09/2002 CGLBLGHW
- * CGLBLGHW
- * TEXTE : AUGMENTAT°/TAILLE/ZONE BANALISéE DéDIéE AUX GDD/CDLGH PCGLBLGHW
- * éVITER L'EXPLOSION DUE AU NOMBRE IMPORTANT / GDD 'MPL' CGLBLGHW
- * DATE => 1 GDD/MOIS SUR TOUT L'HISTORIQUE) à STOCKER EN CGLBLGHW
- * CGLBLGHW
- * DMFS : CGLBLGHW
- * : CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- * VERSION : V02300 CGLBLGHW
- * CGLBLGHW
- * CHANTIER : 1445A DéBUT : 15/10/2007 FIN : 15/10/2007 CGLBLGHW
- * CGLBLGHW
- * TEXTE : CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * DMFS : CGLBLGHW
- * : CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- * VERSION : V03310 CGLBLGHW
- * CGLBLGHW
- * CHANTIER : 1989E DéBUT : 17/11/2010 FIN : 17/11/2010 CGLBLGHW
- * CGLBLGHW
- * TEXTE : A998.CCR1989E:REFONTE DU STOCKAGE DES INFORMATIONS CGLBLGHW
- * IMPAYES HISTORIQUE CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * DMFS : CGLBLGHW
- * : CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- * Version : V04300 CGLBLGHW
- * CGLBLGHW
- * Chantier : 2300J Début : 22/04/2014 Fin : 22/04/2014 CGLBLGHW
- * CGLBLGHW
- * Texte : CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * CGLBLGHW
- * DMFS : CGLBLGHW
- * : CGLBLGHW
- *--------------------------------------------------------------- CGLBLGHW
- *END_OF_COPY_FILE CGLBLGHW
- * COPY CGLBODEW.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBODEW.CPY" CGLBODEW
- * SUPRESSION CGBODEAK ET CGRODEAK CGLBODEW
- 05 LS-CGLBODEW PIC X. CGLBODEW
- *--------------------------------------------------------------- CGLBODEW
- * Version : V04000 CGLBODEW
- * CGLBODEW
- * Chantier : 2273T Début : 20/03/2013 Fin : 20/03/2013 CGLBODEW
- * CGLBODEW
- * Texte : normalisation des acces - appel lecture cdode par cgrtaCGLBODEW
- * CGLBODEW
- * CGLBODEW
- * CGLBODEW
- * DMFS : CGLBODEW
- * : CGLBODEW
- *--------------------------------------------------------------- CGLBODEW
- *END_OF_COPY_FILE CGLBODEW
- * COPY CGLBPEHW.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBPEHW.CPY" CGLBPEHW
- *----------------------------------------------------- CGLBPEHW
- * TABLEAU DIRECTEUR POUR LA TABLE PEH CGLBPEHW
- * INUTILE DEPUIS LA VERSION V03900 CGLBPEHW
- *----------------------------------------------------- CGLBPEHW
- 05 LS-CGLBPEHW PIC X. CGLBPEHW
- *--------------------------------------------------------------- CGLBPEHW
- * Version : V04000 CGLBPEHW
- * CGLBPEHW
- * Chantier : 1R400 Début : 04/03/2013 Fin : 04/03/2013 CGLBPEHW
- * CGLBPEHW
- * Texte : grand nettoyage CGLBPEHW
- * CGLBPEHW
- * CGLBPEHW
- * CGLBPEHW
- * DMFS : CGLBPEHW
- * : CGLBPEHW
- *--------------------------------------------------------------- CGLBPEHW
- *END_OF_COPY_FILE CGLBPEHW
- * COPY CGLBPEXW.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBPEXW.CPY" CGLBPEXW
- *----------------------------------------------------- CGLBPEXW
- * TABLEAU DIRECTEUR POUR LA TABLE PEX CGLBPEXW
- * cgbpexak et cgrpexak supprimés CGLBPEXW
- *----------------------------------------------------- CGLBPEXW
- 05 LS-CGLBPEXW PIC X. CGLBPEXW
- *--------------------------------------------------------------- CGLBPEXW
- * Version : V04000 CGLBPEXW
- * CGLBPEXW
- * Chantier : 2273T Début : 15/03/2013 Fin : 15/03/2013 CGLBPEXW
- * CGLBPEXW
- * Texte : suppression cgbpexak et cgrpexak CGLBPEXW
- * CGLBPEXW
- * CGLBPEXW
- * CGLBPEXW
- * DMFS : CGLBPEXW
- * : CGLBPEXW
- *--------------------------------------------------------------- CGLBPEXW
- *END_OF_COPY_FILE CGLBPEXW
- * COPY CGLBPOMW.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBPOMW.CPY" CGLBPOMW
- *----------------------------------------------------- CGLBPOMW
- *----------------------------------------------------- CGLBPOMW
- * TABLEAU DIRECTEUR POUR LA TABLE POM CGLBPOMW
- * BLOC INDIRECTION POUR LES PERSONNES ET LES GDDS RELATIFS CGLBPOMW
- * POUR CHAQUE PERSONNE CGLBPOMW
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBPOMW
- * NFICPN = NUMERO FICTIF DE LA PERSONNE CGLBPOMW
- * DEBBAN = POSITION DE DEBUT POM DANS BANALISE CGLBPOMW
- * FINBAN = POSITION DE FIN POM DANS BANALISE CGLBPOMW
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBPOMW
- * CONTROLE DANS LE CGS100 SI PLUS DE 2 GDD CGLBPOMW
- * LES INDICATEURS DE GDDS (*2 ARBITRAIRE) CGLBPOMW
- * NOM DU GDD CGLBPOMW
- * PR0 = POS ORIG DU 1 ER GDD DS BANALISE CGLBPOMW
- * PR5 = POS ORIG DU GDD 31 M - 1 CGLBPOMW
- * PUIS DU GDD ENCADRANT 31 M OU CGLBPOMW
- * DU GDD IMMEDIATEMENT SUPERIEURE CGLBPOMW
- * OU ZERO SI PLUS DE GDD CGLBPOMW
- * PR9 = POS ORIG DU DERNIER GDD DS BANALISE CGLBPOMW
- * L INDICATEUR EXPLOSION DU TABLEAU DE GDD CGLBPOMW
- * L INDICATEUR EXPLOSION DE LA ZONE BANALISE CGLBPOMW
- * CGLBPOMW
- * VARIABLES DE TRAVAIL (CGS100-CGBPOMAK) CGLBPOMW
- * NOMBRE MAXI DE GDD POM POUR LE CONTROLE CGLBPOMW
- * NOMBRE MAXI DE GDD POM POUR LE STOCKAGE CGLBPOMW
- * LITTERAL POM CGLBPOMW
- * LONGUEUR DE LA CLE POM CGLBPOMW
- * NOMBRE D'OCCURS POUR LIRE POM EN L0H CGLBPOMW
- * VARIABLES DE TRAVAIL (CGM?01-CGRPOMAK) CGLBPOMW
- * NOMBRE D'OCCURS MAXIMUM DANS CGS????? CGLBPOMW
- *----------------------------------------------------- CGLBPOMW
- 05 LS-CGLBPOMW. CGLBPOMW
- 10 LS-POMH-PERS. CGLBPOMW
- 12 LS-POMH-PER OCCURS 27 INDEXED BY IX-POMH-PER. CGLBPOMW
- 14 LS-POMH-NFICPN PIC S9(7) COMP-3. CGLBPOMW
- 14 LS-POMH-DEBBAN PIC S9(5) COMP-3. CGLBPOMW
- 14 LS-POMH-FINBAN PIC S9(5) COMP-3. CGLBPOMW
- * CGLBPOMW
- 14 LS-POMH-INDS OCCURS 2 INDEXED BY IX-POMH-IND. CGLBPOMW
- 16 LS-POMH-IND PIC 9. CGLBPOMW
- * CGLBPOMW
- 14 LS-POMH-GDDS OCCURS 2 INDEXED BY IX-POMH-GDD. CGLBPOMW
- 16 LS-POMH-GDD PIC X(3). CGLBPOMW
- 16 LS-POMH-PR0 PIC S9(5) COMP-3. CGLBPOMW
- 16 LS-POMH-PR5 PIC S9(5) COMP-3. CGLBPOMW
- 16 LS-POMH-PR9 PIC S9(5) COMP-3. CGLBPOMW
- * CGLBPOMW
- 14 LS-POMH-EXP-GDD8 PIC X(3). CGLBPOMW
- * CGLBPOMW
- 14 LS-POMH-EXP-GDD9 PIC X(3). CGLBPOMW
- 14 LS-POMH-EXP-H9X. CGLBPOMW
- 16 LS-POMH-EXP-H9 PIC S9(9) COMP-3. CGLBPOMW
- * CGLBPOMW
- *-- 10 IX-POMH-IND-MAX PIC 99 VALUE 2. CGLBPOMW
- *-- 10 IX-POMH-GDD-MAX PIC 99 VALUE 2. CGLBPOMW
- 10 LS-IX-POMH-GDD-MAX PIC S9(3) COMP-3 VALUE 02. CGLBPOMW
- * CGLBPOMW
- 10 LS-XXXH-POMH PIC X(3) VALUE 'POM'. CGLBPOMW
- * GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBPOMW
- 10 LS-XXXH-POMH-CLE PIC S9(3) COMP-3 VALUE 014. CGLBPOMW
- 10 LS-XXXH-POMH-OCC PIC 999. CGLBPOMW
- * CGLBPOMW
- 10 LS-XXXH-POMH-ZNOCCD-MAX PIC 99 VALUE 7. CGLBPOMW
- *--------------------------------------------------------------- CGLBPOMW
- * VERSION : V00310 CGLBPOMW
- * CGLBPOMW
- * CHANTIER : 0110O DéBUT : 08/07/1997 FIN : 01/09/1997 CGLBPOMW
- * CGLBPOMW
- * TEXTE : RECHERCHE DANS LA BANALISE CGLBPOMW
- * CGLBPOMW
- * CGLBPOMW
- * CGLBPOMW
- * DMFS : CGLBPOMW
- * : CGLBPOMW
- *--------------------------------------------------------------- CGLBPOMW
- *--------------------------------------------------------------- CGLBPOMW
- * Version : V03800 CGLBPOMW
- * CGLBPOMW
- * Chantier : 1R380 Début : 03/09/2012 Fin : 03/09/2012 CGLBPOMW
- * CGLBPOMW
- * Texte : CGLBPOMW
- * CGLBPOMW
- * CGLBPOMW
- * CGLBPOMW
- * DMFS : CGLBPOMW
- * : CGLBPOMW
- *--------------------------------------------------------------- CGLBPOMW
- *END_OF_COPY_FILE CGLBPOMW
- * COPY CGLBRESW.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBRESW.CPY" CGLBRESW
- *-----------------------------------------------------------------CGLBRESW
- * TABLEAU DIRECTEUR POUR LA TABLE DES RESSOURCES - CDREV CGLBRESW
- * BLOC INDIRECTION POUR LES PERSONNES ET LES GDDS RELATIFS CGLBRESW
- * POUR CHAQUE PERSONNE CGLBRESW
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBRESW
- * NFICPN = NUMERO FICTIF DE LA PERSONNE CGLBRESW
- * DEBBAN = POSITION DE DEBUT PER DANS BANALISE CGLBRESW
- * FINBAN = POSITION DE FIN PER DANS BANALISE CGLBRESW
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBRESW
- * CONTROLE DANS LE CGS100 SI PLUS DE 60 GDD CGLBRESW
- * LES INDICATEURS DE GDDS (*12 ARBITRAIRE) CGLBRESW
- * NOM DU GDD CGLBRESW
- * PR0 = POS ORIG DU 1 ER GDD DS BANALISE CGLBRESW
- * PR5 = POS ORIG DU GDD 31 M - 1 CGLBRESW
- * PUIS DU GDD ENCADRANT 31 M OU CGLBRESW
- * DU GDD IMMEDIATEMENT SUPERIEUR CGLBRESW
- * OU ZERO SI PLUS DE GDD CGLBRESW
- * PR9 = POS ORIG DU DERNIER GDD DS BANALISE CGLBRESW
- * L INDICATEUR EXPLOSION DU TABLEAU DE GDD CGLBRESW
- * L INDICATEUR EXPLOSION DE LA ZONE BANALISE CGLBRESW
- * CGLBRESW
- * VARIABLES DE TRAVAIL (CGS100-CGBRESAK) CGLBRESW
- * NOMBRE MAXI DE GDD DE CDRES POUR LE CONTROLE CGLBRESW
- * NOMBRE MAXI DE GDD DE CDRES POUR LE STOCKAGE CGLBRESW
- * LONGUEUR DE LA CLE DE CDRES CGLBRESW
- * NOMBRE D'OCCURS POUR LIRE CDRES EN L0H CGLBRESW
- * VARIABLES DE TRAVAIL (CGM?01-CGRRESAK) CGLBRESW
- * CGLBRESW
- *-----------------------------------------------------------------CGLBRESW
- 05 LS-CGLBRESW. CGLBRESW
- *--- STOCKAGE RES BANALISéE ENTRéE = RESE CGLBRESW
- 10 LS-RESE-PERS. CGLBRESW
- 12 LS-RESE-PER OCCURS 27 INDEXED BY IX-RESE-PER. CGLBRESW
- 14 LS-RESE-NFICPN PIC S9(7) COMP-3. CGLBRESW
- 14 LS-RESE-DEBBAN PIC S9(5) COMP-3. CGLBRESW
- 14 LS-RESE-FINBAN PIC S9(5) COMP-3. CGLBRESW
- * CGLBRESW
- 14 LS-RESE-INDS OCCURS 05 INDEXED BY IX-RESE-IND. CGLBRESW
- 16 LS-RESE-IND PIC 9. CGLBRESW
- * CGLBRESW
- 14 LS-RESE-GDDS OCCURS 05 INDEXED BY IX-RESE-GDD. CGLBRESW
- 16 LS-RESE-GDD PIC X(3). CGLBRESW
- 16 LS-RESE-PR0 PIC S9(5) COMP-3. CGLBRESW
- 16 LS-RESE-PR5 PIC S9(5) COMP-3. CGLBRESW
- 16 LS-RESE-PR9 PIC S9(5) COMP-3. CGLBRESW
- * CGLBRESW
- 14 LS-RESE-EXP-GDD8 PIC X(3). CGLBRESW
- * CGLBRESW
- 14 LS-RESE-EXP-GDD9 PIC X(3). CGLBRESW
- 14 LS-RESE-EXP-H9X. CGLBRESW
- 16 LS-RESE-EXP-H9 PIC S9(9) COMP-3. CGLBRESW
- * CGLBRESW
- 10 IX-RESE-IND-MAX-REF PIC S9(3) COMP-3 VALUE 5. CGLBRESW
- 10 IX-RESE-IND-MAX PIC S9(3) COMP-3. CGLBRESW
- 10 IX-RESE-GDD-MAX PIC S9(3) COMP-3 VALUE 5. CGLBRESW
- * GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBRESW
- 10 LS-RESE-CLE PIC S9(3) COMP-3 VALUE 014. CGLBRESW
- 10 LS-RESE-OCC PIC 999. CGLBRESW
- * CGLBRESW
- 10 LS-RESE-ZNOCCD-MAX PIC 99 VALUE 5. CGLBRESW
- * CGLBRESW
- *--- STOCKAGE RES BANALISéE SORTIE = RESS CGLBRESW
- 10 LS-RESS-PERS. CGLBRESW
- 12 LS-RESS-PER OCCURS 27 INDEXED BY IX-RESS-PER. CGLBRESW
- 14 LS-RESS-NFICPN PIC S9(7) COMP-3. CGLBRESW
- 14 LS-RESS-DEBBAN PIC S9(5) COMP-3. CGLBRESW
- 14 LS-RESS-FINBAN PIC S9(5) COMP-3. CGLBRESW
- * CGLBRESW
- 14 LS-RESS-INDS OCCURS 05 INDEXED BY IX-RESS-IND. CGLBRESW
- 16 LS-RESS-IND PIC 9. CGLBRESW
- * CGLBRESW
- 14 LS-RESS-GDDS OCCURS 5 INDEXED BY IX-RESS-GDD. CGLBRESW
- 16 LS-RESS-GDD PIC X(3). CGLBRESW
- 16 LS-RESS-PR0 PIC S9(5) COMP-3. CGLBRESW
- 16 LS-RESS-PR5 PIC S9(5) COMP-3. CGLBRESW
- 16 LS-RESS-PR9 PIC S9(5) COMP-3. CGLBRESW
- * CGLBRESW
- 14 LS-RESS-EXP-GDD8 PIC X(3). CGLBRESW
- * CGLBRESW
- 14 LS-RESS-EXP-GDD9 PIC X(3). CGLBRESW
- 14 LS-RESS-EXP-H9X. CGLBRESW
- 16 LS-RESS-EXP-H9 PIC S9(9) COMP-3. CGLBRESW
- 12 LS-RESS-GDDS-MAJ PIC X(3). CGLBRESW
- 88 RESS-GDD-MAJ VALUE 'EVA'. CGLBRESW
- 88 RESS-GDD-MAJ-DE VALUE 'EVA'. CGLBRESW
- * CGLBRESW
- 10 IX-RESS-GDD-MAX PIC S9(3) COMP-3 VALUE 5. CGLBRESW
- * CGLBRESW
- 10 LS-RESS-ZNOCCD-MAX PIC 99 VALUE 7. CGLBRESW
- *--- CGLBRESW
- *--- MISE EN BANALISEE DE LA TABLE PER RES CGLBRESW
- *--- STOCKAGE EN VERTICAL PAR OCCURENCE CGLBRESW
- *--- OPTION DECLARATION D' UNE NOUVELLE ZONE DE STOCKAGE CGLBRESW
- *--- POUR EVITER DES VERRUES ET DES PROBLEMES POUR LA CGLBRESW
- *--- TABLE PER EVA CGLBRESW
- *--- EN AJOUT DERRIERE LES NOMS DE DONNEES -N (NOUVEAU) CGLBRESW
- *--- STOCKAGE RES BANALISéE ENTRéE = RESE CGLBRESW
- *--- CGLBRESW
- 10 LS-RESE-PERS-N. CGLBRESW
- 12 LS-RESE-PER-N OCCURS 27 INDEXED BY IX-RESE-PER-N. CGLBRESW
- 14 LS-RESE-NFICPN-N PIC S9(7) COMP-3. CGLBRESW
- 14 LS-RESE-DEBBAN-N PIC S9(5) COMP-3. CGLBRESW
- 14 LS-RESE-FINBAN-N PIC S9(5) COMP-3. CGLBRESW
- * CGLBRESW
- 14 LS-RESE-IND-N PIC 9. CGLBRESW
- * CGLBRESW
- 14 LS-RESE-GDDS-N. CGLBRESW
- 16 LS-RESE-GDD-N PIC X(3). CGLBRESW
- 16 LS-RESE-PR0-N PIC S9(5) COMP-3. CGLBRESW
- 16 LS-RESE-PR5-N PIC S9(5) COMP-3. CGLBRESW
- 16 LS-RESE-PR9-N PIC S9(5) COMP-3. CGLBRESW
- * CGLBRESW
- 14 LS-RESE-EXP-GDD8-N PIC X(3). CGLBRESW
- * CGLBRESW
- 14 LS-RESE-EXP-GDD9-N PIC X(3). CGLBRESW
- 14 LS-RESE-EXP-H9X-N. CGLBRESW
- 16 LS-RESE-EXP-H9-N PIC S9(9) COMP-3. CGLBRESW
- * CGLBRESW
- *--- GDD-RES CGLBRESW
- 10 LS-RESE-GDD-LNG-N. CGLBRESW
- 14 LS-RESE-LG-CDRESH0 PIC S9(3) COMP-3. CGLBRESW
- 14 LS-RESE-LG-CDRESH1 PIC S9(3) COMP-3. CGLBRESW
- 14 LS-RESE-LG-CDRESRE1 PIC S9(3) COMP-3. CGLBRESW
- 14 LS-RESE-LG-CDRESRE2 PIC S9(3) COMP-3. CGLBRESW
- 14 LS-RESE-LG-PARTIE2 PIC S9(3) COMP-3. CGLBRESW
- 14 LS-RESE-LG-OCC-BANAL PIC S9(3) COMP-3. CGLBRESW
- 10 IX-RESE-IND-MAX-REF-N PIC S9(3) COMP-3 VALUE 5. CGLBRESW
- **** 10 IX-RESE-GDD-MAX-N PIC S9(3) COMP-3 VALUE 3. CGLBRESW
- * GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBRESW
- 10 LS-RESE-CLE-N PIC S9(3) COMP-3 VALUE 014. CGLBRESW
- 10 LS-RESE-OCC-N PIC 999. CGLBRESW
- * CGLBRESW
- 10 LS-RESE-ZNOCCD-MAX-N PIC 99 VALUE 5. CGLBRESW
- * CGLBRESW
- * CGLBRESW
- 10 LS-RESE-DMCDOS-MOIN5ANS PIC S9(9) COMP-3. CGLBRESW
- *** 10 IX-RESS-IND-MAX-REF-N PIC 99 VALUE 3. CGLBRESW
- *** 10 IX-RESS-IND-MAX-N PIC 99. CGLBRESW
- *** 10 IX-RESS-GDD-MAX-N PIC 99 VALUE 3. CGLBRESW
- * GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBRESW
- 10 LS-RESS-CLE-N PIC S9(3) COMP-3 VALUE 014. CGLBRESW
- 10 LS-RESS-OCC-N PIC 999. CGLBRESW
- * CGLBRESW
- 10 LS-RESE-ZNOCCD-MAX-N PIC 99 VALUE 7. CGLBRESW
- 10 LS-RESE-E-ACCES-GDD-RES. CGLBRESW
- 15 LS-RESE-ENTREE. CGLBRESW
- 20 LS-RESE-E-NFICPN-N PIC S9(7) COMP-3. CGLBRESW
- 20 LS-RESE-E-CPTRSA-N PIC X(1). CGLBRESW
- 20 LS-RESE-E-CIDGDD-N PIC X(3). CGLBRESW
- 20 LS-RESE-E-CDHIS001-N PIC S9(9) COMP-3. CGLBRESW
- 20 LS-RESE-E-CDHIS002-N PIC S9(9) COMP-3. CGLBRESW
- 20 LS-RESE-E-NETIMA PIC S9(1) COMP-3. CGLBRESW
- *--------------------------------------------------------------- CGLBRESW
- * Version : V04400 CGLBRESW
- * CGLBRESW
- * Chantier : 2365E Début : 04/09/2014 Fin : 05/09/2014 CGLBRESW
- * CGLBRESW
- * Texte : Problème de maximums de tableaux banalisées CDRESH CGLBRESW
- * CGLBRESW
- * CGLBRESW
- * CGLBRESW
- * DMFS : CGLBRESW
- * : CGLBRESW
- *--------------------------------------------------------------- CGLBRESW
- *END_OF_COPY_FILE CGLBRESW
- * COPY CGLBSP1W.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLBSP1W.CPY" CGLBSP1W
- *----------------------------------------------------- CGLBSP1W
- *----------------------------------------------------- CGLBSP1W
- * TABLEAU DIRECTEUR POUR LA TABLE SP1 CGLBSP1W
- * BLOC INDIRECTION POUR LES GRPE DE PREST ET GDDS RELATIFS CGLBSP1W
- * POUR CHAQUE GROUPE DE PRESTATION CGLBSP1W
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBSP1W
- * RAIDMA = RANG DE LA FAMILLE AIDE-FAMILLE CGLBSP1W
- * DEBBAN = POSITION DE DEBUT SP1 DANS BANALISE CGLBSP1W
- * FINBAN = POSITION DE FIN SP1 DANS BANALISE CGLBSP1W
- * LES INDICATEURS DE PRESENCE OU ABSENCE PAR GDD CGLBSP1W
- * CONTROLE DANS LE CGS100 SI PLUS DE 2 GDD CGLBSP1W
- * LES INDICATEURS DE GDDS (*2 ARBITRAIRE) CGLBSP1W
- * NOM DU GDD CGLBSP1W
- * PR0 = POS ORIG DU 1 ER GDD DS BANALISE CGLBSP1W
- * PR5 = POS ORIG DU GDD 31 M - 1 CGLBSP1W
- * PUIS DU GDD ENCADRANT 31 M OU CGLBSP1W
- * DU GDD IMMEDIATEMENT SUPERIEURE CGLBSP1W
- * OU ZERO SI PLUS DE GDD CGLBSP1W
- * PR9 = POS ORIG DU DERNIER GDD DS BANALISE CGLBSP1W
- * L INDICATEUR EXPLOSION DU TABLEAU DE GDD CGLBSP1W
- * L INDICATEUR EXPLOSION DE LA ZONE BANALISE CGLBSP1W
- * CGLBSP1W
- * VARIABLES DE TRAVAIL (CGS100-CGBSP1AK) CGLBSP1W
- * NOMBRE MAXI DE GDD SP1 POUR LE CONTROLE CGLBSP1W
- * NOMBRE MAXI DE GDD SP1 POUR LE STOCKAGE CGLBSP1W
- * LITTERAL SP1 CGLBSP1W
- * LONGUEUR DE LA CLE SP1 CGLBSP1W
- * NOMBRE D'OCCURS POUR LIRE SP1 EN L0H CGLBSP1W
- * VARIABLES DE TRAVAIL (CGM?01-CGRSP1AK) CGLBSP1W
- * NOMBRE D'OCCURS MAXIMUM DANS CGS????? CGLBSP1W
- *----------------------------------------------------- CGLBSP1W
- 05 LS-CGLBSP1W. CGLBSP1W
- 10 LS-SP1H-SPFS. CGLBSP1W
- 12 LS-SP1H-SPF. CGLBSP1W
- 14 LS-SP1H-NDOMAT PIC S9(7) COMP-3. CGLBSP1W
- 14 LS-SP1H-CGRPPF PIC X(3). CGLBSP1W
- 14 LS-SP1H-DEBBAN PIC S9(5) COMP-3. CGLBSP1W
- 14 LS-SP1H-FINBAN PIC S9(5) COMP-3. CGLBSP1W
- * CGLBSP1W
- 14 LS-SP1H-INDS OCCURS 2 INDEXED BY IX-SP1H-IND. CGLBSP1W
- 16 LS-SP1H-IND PIC 9. CGLBSP1W
- * CGLBSP1W
- 14 LS-SP1H-GDDS OCCURS 2 INDEXED BY IX-SP1H-GDD. CGLBSP1W
- 16 LS-SP1H-GDD PIC X(3). CGLBSP1W
- 16 LS-SP1H-PR0 PIC S9(5) COMP-3. CGLBSP1W
- 16 LS-SP1H-PR5 PIC S9(5) COMP-3. CGLBSP1W
- 16 LS-SP1H-PR9 PIC S9(5) COMP-3. CGLBSP1W
- * CGLBSP1W
- 14 LS-SP1H-EXP-GDD8 PIC X(3). CGLBSP1W
- * CGLBSP1W
- 14 LS-SP1H-EXP-GDD9 PIC X(3). CGLBSP1W
- 14 LS-SP1H-EXP-H9X. CGLBSP1W
- 16 LS-SP1H-EXP-H9 PIC S9(9) COMP-3. CGLBSP1W
- * CGLBSP1W
- 10 LS-IX-SP1H-IND-MAX PIC 99 VALUE 2. CGLBSP1W
- 10 LS-SP1H-GDD-MAX PIC 99 VALUE 2. CGLBSP1W
- * CGLBSP1W
- 10 LS-XXXH-SP1H PIC X(3) VALUE 'SP1'. CGLBSP1W
- * GDD 3 + DATDEB 5 + DATFIN 5 + 1 CGLBSP1W
- 10 LS-XXXH-SP1H-CLE PIC S9(3) COMP-3 VALUE 017. CGLBSP1W
- 10 LS-XXXH-SP1H-OCC PIC 999. CGLBSP1W
- * CGLBSP1W
- 10 LS-SP1H-ZNOCCD-MAX PIC 99 VALUE 7. CGLBSP1W
- *--------------------------------------------------------------- CGLBSP1W
- * VERSION : V03310 CGLBSP1W
- * CGLBSP1W
- * CHANTIER : 1R331 DéBUT : 17/11/2010 FIN : 17/11/2010 CGLBSP1W
- * CGLBSP1W
- * TEXTE : CGLBSP1W
- * CGLBSP1W
- * CGLBSP1W
- * CGLBSP1W
- * DMFS : CGLBSP1W
- * : CGLBSP1W
- *--------------------------------------------------------------- CGLBSP1W
- *--------------------------------------------------------------- CGLBSP1W
- * Version : V03500 CGLBSP1W
- * CGLBSP1W
- * Chantier : 2050H Début : 22/08/2011 Fin : 22/08/2011 CGLBSP1W
- * CGLBSP1W
- * Texte : CGLBSP1W
- * CGLBSP1W
- * CGLBSP1W
- * CGLBSP1W
- * DMFS : CGLBSP1W
- * : CGLBSP1W
- *--------------------------------------------------------------- CGLBSP1W
- *END_OF_COPY_FILE CGLBSP1W
- * COPY CGLKMO.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLKMO.CPY" CGLKMO
- ***************************************************************** CGLKMO
- * * CGLKMO
- * COPYBOOK NAME : CGLKMO * CGLKMO
- * * CGLKMO
- * COPYBOOK DESC : LK OPERATION ACCES STANDA * CGLKMO
- * * CGLKMO
- * GENERATION DATE: 06/21/17 * CGLKMO
- * TIME: 11:17:54 * CGLKMO
- ***************************************************************** CGLKMO
- 05 LKMO-RECORD. CGLKMO
- 08 LKMO-DOSSIER-TRAITE. CGLKMO
- 11 LKMO-PERSONNES-PRESENTES. CGLKMO
- 14 LKMO-ENFANTS-PRESENT. CGLKMO
- 17 LKMO-ENFP-IBAN032 CGLKMO
- OCCURS 027 TIMES CGLKMO
- INDEXED BY IX-ENFP PIC S9(3) COMP-3. CGLKMO
- 14 LKMO-AUT-PERSONNE-PRESENT. CGLKMO
- 17 LKMO-AUTP-IBAN032 CGLKMO
- OCCURS 027 TIMES CGLKMO
- INDEXED BY IX-AUTP PIC S9(3) COMP-3. CGLKMO
- 14 LKMO-MRMME-PRESENT. CGLKMO
- 17 LKMO-MMEP-IBAN032 CGLKMO
- OCCURS 002 TIMES CGLKMO
- INDEXED BY IX-MMEP PIC S9(3) COMP-3. CGLKMO
- 14 LKMO-MRMME-PRESRES. CGLKMO
- 17 LKMO-MMER-IBAN032 CGLKMO
- OCCURS 002 TIMES CGLKMO
- INDEXED BY IX-MMER PIC S9(3) COMP-3. CGLKMO
- 11 LKMO-COMPOSITION. CGLKMO
- 14 LKMO-INDICE-DES-ENFANTS. CGLKMO
- 17 LKMO-ENF-IBAN032 CGLKMO
- OCCURS 027 TIMES CGLKMO
- INDEXED BY IX-ENF PIC S9(3) COMP-3. CGLKMO
- 14 LKMO-INDICE-AUT-PERSONNE. CGLKMO
- 17 LKMO-AUT-IBAN032 CGLKMO
- OCCURS 027 TIMES CGLKMO
- INDEXED BY IX-AUT PIC S9(3) COMP-3. CGLKMO
- 14 LKMO-INDICE-DES-MRMME. CGLKMO
- 17 LKMO-MME-IBAN032 CGLKMO
- OCCURS 027 TIMES CGLKMO
- INDEXED BY IX-MME PIC S9(3) COMP-3. CGLKMO
- 14 LKMO-PERS-COMP-DOSS CGLKMO
- OCCURS 027 TIMES CGLKMO
- INDEXED BY IX-PER. CGLKMO
- 17 LKMO-NFICPN PIC S9(7) COMP-3. CGLKMO
- 17 LKMO-CGDP0CDP CGLKMO
- OCCURS 026 TIMES CGLKMO
- INDEXED BY IX-GDD. CGLKMO
- 20 LKMO-CDHIS001 PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CDHIS002 PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CDDP0CDP. CGLKMO
- 23 LKMO-CTYPER PIC X(3). CGLKMO
- 88 LKMO-FL-MR-FAMI-PET VALUE 'MON'. CGLKMO
- 88 LKMO-FL-MME-FAMI-PET VALUE 'MME'. CGLKMO
- 88 LKMO-FL-ENF-PET VALUE 'ENF'. CGLKMO
- 88 LKMO-FL-AUTR-PERS-PET VALUE 'AUT'. CGLKMO
- 11 LKMO-PERSONNES-DU-DOSSIER. CGLKMO
- 14 LKMO-DETAIL-PERSONNE CGLKMO
- OCCURS 027 TIMES CGLKMO
- INDEXED BY IX-PE0. CGLKMO
- 17 LKMO-CDPEIS1. CGLKMO
- 20 LKMO-CDPEIZZZ. CGLKMO
- 23 LKMO-LNPAPN PIC X(63). CGLKMO
- 23 LKMO-LNOUSA PIC X(28). CGLKMO
- 23 LKMO-LISPRE PIC X(50). CGLKMO
- 23 LKMO-LPRENM PIC X(32). CGLKMO
- 23 LKMO-CQUAPN PIC X(3). CGLKMO
- 88 LKMO-FL-MR-PER VALUE 'MR '. CGLKMO
- 88 LKMO-FL-MME-PER VALUE 'MME'. CGLKMO
- 88 LKMO-FL-MLE-PER VALUE 'MLE'. CGLKMO
- 23 LKMO-CDSEXE PIC X(1). CGLKMO
- 88 LKMO-FL-CDSEXE-F VALUE 'F'. CGLKMO
- 88 LKMO-FL-CDSEXE-M VALUE 'M'. CGLKMO
- 23 LKMO-DNAIPN PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-RNAISE PIC S9(1) COMP-3. CGLKMO
- 23 LKMO-DDECPN PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CCERDC PIC X(1). CGLKMO
- 88 LKMO-FL-CCERDC-1 VALUE '1'. CGLKMO
- 88 LKMO-FL-CCERDC-2 VALUE '2'. CGLKMO
- 88 LKMO-FL-CCERDC-3 VALUE '3'. CGLKMO
- 88 LKMO-FL-CCERDC-4 VALUE '4'. CGLKMO
- 88 LKMO-FL-CCERDC-5 VALUE '5'. CGLKMO
- 88 LKMO-FL-CCERDC-6 VALUE '6'. CGLKMO
- 88 LKMO-FL-CCERDC-7 VALUE '7'. CGLKMO
- 88 LKMO-FL-CCERDC-8 VALUE '8'. CGLKMO
- 88 LKMO-FL-CCERDC-9 VALUE '9'. CGLKMO
- 23 LKMO-NIRNIR PIC X(15). CGLKMO
- 23 LKMO-DRENIR PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CVANIR PIC X(1). CGLKMO
- 88 LKMO-FL-PAS-INTG-DU-SNGI VALUE '0'. CGLKMO
- 88 LKMO-FL-SNGI-INTG VALUE '1'. CGLKMO
- 88 LKMO-FL-NIR-VALD VALUE '2'. CGLKMO
- 88 LKMO-FL-NO-SNGI-NIR-INCO VALUE '3'. CGLKMO
- 88 LKMO-FL-NO-SNGI-NIR-CONU VALUE '4'. CGLKMO
- 88 LKMO-FL-DERE-SNGI-NINC VALUE '5'. CGLKMO
- 88 LKMO-FL-CVANIR-6 VALUE '6'. CGLKMO
- 23 LKMO-DOBNIR PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CCSNGI PIC X(1). CGLKMO
- 88 LKMO-FL-CCSNGI-0 VALUE '0'. CGLKMO
- 88 LKMO-FL-CCSNGI-1 VALUE '1'. CGLKMO
- 88 LKMO-FL-CCSNGI-2 VALUE '2'. CGLKMO
- 88 LKMO-FL-CCSNGI-3 VALUE '3'. CGLKMO
- 88 LKMO-FL-CCSNGI-4 VALUE '4'. CGLKMO
- 88 LKMO-FL-CCSNGI-5 VALUE '5'. CGLKMO
- 88 LKMO-FL-CCSNGI-6 VALUE '6'. CGLKMO
- 88 LKMO-FL-CCSNGI-7 VALUE '7'. CGLKMO
- 23 LKMO-LNOUSN PIC X(54). CGLKMO
- 23 LKMO-LPRUSN PIC X(32). CGLKMO
- 23 LKMO-DNAISN PIC X(8). CGLKMO
- 23 LKMO-CORIDE PIC X(1). CGLKMO
- 88 LKMO-FL-CORIDE-G VALUE 'G'. CGLKMO
- 88 LKMO-FL-CORIDE-R VALUE 'R'. CGLKMO
- 88 LKMO-FL-CORIDE-S VALUE 'S'. CGLKMO
- 23 LKMO-CLIEUN PIC X(2). CGLKMO
- 88 LKMO-FL-CLIEUN-01 VALUE '01'. CGLKMO
- 88 LKMO-FL-CLIEUN-02 VALUE '02'. CGLKMO
- 88 LKMO-FL-CLIEUN-03 VALUE '03'. CGLKMO
- 88 LKMO-FL-CLIEUN-04 VALUE '04'. CGLKMO
- 88 LKMO-FL-CLIEUN-05 VALUE '05'. CGLKMO
- 88 LKMO-FL-CLIEUN-06 VALUE '06'. CGLKMO
- 88 LKMO-FL-CLIEUN-07 VALUE '07'. CGLKMO
- 88 LKMO-FL-CLIEUN-08 VALUE '08'. CGLKMO
- 88 LKMO-FL-CLIEUN-09 VALUE '09'. CGLKMO
- 88 LKMO-FL-CLIEUN-10 VALUE '10'. CGLKMO
- 88 LKMO-FL-CLIEUN-11 VALUE '11'. CGLKMO
- 88 LKMO-FL-CLIEUN-12 VALUE '12'. CGLKMO
- 88 LKMO-FL-CLIEUN-13 VALUE '13'. CGLKMO
- 88 LKMO-FL-CLIEUN-14 VALUE '14'. CGLKMO
- 88 LKMO-FL-CLIEUN-15 VALUE '15'. CGLKMO
- 88 LKMO-FL-CLIEUN-16 VALUE '16'. CGLKMO
- 88 LKMO-FL-CLIEUN-17 VALUE '17'. CGLKMO
- 88 LKMO-FL-CLIEUN-18 VALUE '18'. CGLKMO
- 88 LKMO-FL-CLIEUN-19 VALUE '19'. CGLKMO
- 88 LKMO-FL-CLIEUN-20 VALUE '20'. CGLKMO
- 88 LKMO-FL-CLIEUN-2A VALUE '2A'. CGLKMO
- 88 LKMO-FL-CLIEUN-2B VALUE '2B'. CGLKMO
- 88 LKMO-FL-CLIEUN-21 VALUE '21'. CGLKMO
- 88 LKMO-FL-CLIEUN-22 VALUE '22'. CGLKMO
- 88 LKMO-FL-CLIEUN-23 VALUE '23'. CGLKMO
- 88 LKMO-FL-CLIEUN-24 VALUE '24'. CGLKMO
- 88 LKMO-FL-CLIEUN-25 VALUE '25'. CGLKMO
- 88 LKMO-FL-CLIEUN-26 VALUE '26'. CGLKMO
- 88 LKMO-FL-CLIEUN-27 VALUE '27'. CGLKMO
- 88 LKMO-FL-CLIEUN-28 VALUE '28'. CGLKMO
- 88 LKMO-FL-CLIEUN-29 VALUE '29'. CGLKMO
- 88 LKMO-FL-CLIEUN-30 VALUE '30'. CGLKMO
- 88 LKMO-FL-CLIEUN-31 VALUE '31'. CGLKMO
- 88 LKMO-FL-CLIEUN-32 VALUE '32'. CGLKMO
- 88 LKMO-FL-CLIEUN-33 VALUE '33'. CGLKMO
- 88 LKMO-FL-CLIEUN-34 VALUE '34'. CGLKMO
- 88 LKMO-FL-CLIEUN-35 VALUE '35'. CGLKMO
- 88 LKMO-FL-CLIEUN-36 VALUE '36'. CGLKMO
- 88 LKMO-FL-CLIEUN-37 VALUE '37'. CGLKMO
- 88 LKMO-FL-CLIEUN-38 VALUE '38'. CGLKMO
- 88 LKMO-FL-CLIEUN-39 VALUE '39'. CGLKMO
- 88 LKMO-FL-CLIEUN-40 VALUE '40'. CGLKMO
- 88 LKMO-FL-CLIEUN-41 VALUE '41'. CGLKMO
- 88 LKMO-FL-CLIEUN-42 VALUE '42'. CGLKMO
- 88 LKMO-FL-CLIEUN-43 VALUE '43'. CGLKMO
- 88 LKMO-FL-CLIEUN-44 VALUE '44'. CGLKMO
- 88 LKMO-FL-CLIEUN-45 VALUE '45'. CGLKMO
- 88 LKMO-FL-CLIEUN-46 VALUE '46'. CGLKMO
- 88 LKMO-FL-CLIEUN-47 VALUE '47'. CGLKMO
- 88 LKMO-FL-CLIEUN-48 VALUE '48'. CGLKMO
- 88 LKMO-FL-CLIEUN-49 VALUE '49'. CGLKMO
- 88 LKMO-FL-CLIEUN-50 VALUE '50'. CGLKMO
- 88 LKMO-FL-CLIEUN-51 VALUE '51'. CGLKMO
- 88 LKMO-FL-CLIEUN-52 VALUE '52'. CGLKMO
- 88 LKMO-FL-CLIEUN-53 VALUE '53'. CGLKMO
- 88 LKMO-FL-CLIEUN-54 VALUE '54'. CGLKMO
- 88 LKMO-FL-CLIEUN-55 VALUE '55'. CGLKMO
- 88 LKMO-FL-CLIEUN-56 VALUE '56'. CGLKMO
- 88 LKMO-FL-CLIEUN-57 VALUE '57'. CGLKMO
- 88 LKMO-FL-CLIEUN-58 VALUE '58'. CGLKMO
- 88 LKMO-FL-CLIEUN-59 VALUE '59'. CGLKMO
- 88 LKMO-FL-CLIEUN-60 VALUE '60'. CGLKMO
- 88 LKMO-FL-CLIEUN-61 VALUE '61'. CGLKMO
- 88 LKMO-FL-CLIEUN-62 VALUE '62'. CGLKMO
- 88 LKMO-FL-CLIEUN-63 VALUE '63'. CGLKMO
- 88 LKMO-FL-CLIEUN-64 VALUE '64'. CGLKMO
- 88 LKMO-FL-CLIEUN-65 VALUE '65'. CGLKMO
- 88 LKMO-FL-CLIEUN-66 VALUE '66'. CGLKMO
- 88 LKMO-FL-CLIEUN-67 VALUE '67'. CGLKMO
- 88 LKMO-FL-CLIEUN-68 VALUE '68'. CGLKMO
- 88 LKMO-FL-CLIEUN-69 VALUE '69'. CGLKMO
- 88 LKMO-FL-CLIEUN-70 VALUE '70'. CGLKMO
- 88 LKMO-FL-CLIEUN-71 VALUE '71'. CGLKMO
- 88 LKMO-FL-CLIEUN-72 VALUE '72'. CGLKMO
- 88 LKMO-FL-CLIEUN-73 VALUE '73'. CGLKMO
- 88 LKMO-FL-CLIEUN-74 VALUE '74'. CGLKMO
- 88 LKMO-FL-CLIEUN-75 VALUE '75'. CGLKMO
- 88 LKMO-FL-CLIEUN-76 VALUE '76'. CGLKMO
- 88 LKMO-FL-CLIEUN-77 VALUE '77'. CGLKMO
- 88 LKMO-FL-CLIEUN-78 VALUE '78'. CGLKMO
- 88 LKMO-FL-CLIEUN-79 VALUE '79'. CGLKMO
- 88 LKMO-FL-CLIEUN-80 VALUE '80'. CGLKMO
- 88 LKMO-FL-CLIEUN-81 VALUE '81'. CGLKMO
- 88 LKMO-FL-CLIEUN-82 VALUE '82'. CGLKMO
- 88 LKMO-FL-CLIEUN-83 VALUE '83'. CGLKMO
- 88 LKMO-FL-CLIEUN-84 VALUE '84'. CGLKMO
- 88 LKMO-FL-CLIEUN-85 VALUE '85'. CGLKMO
- 88 LKMO-FL-CLIEUN-86 VALUE '86'. CGLKMO
- 88 LKMO-FL-CLIEUN-87 VALUE '87'. CGLKMO
- 88 LKMO-FL-CLIEUN-88 VALUE '88'. CGLKMO
- 88 LKMO-FL-CLIEUN-89 VALUE '89'. CGLKMO
- 88 LKMO-FL-CLIEUN-90 VALUE '90'. CGLKMO
- 88 LKMO-FL-CLIEUN-91 VALUE '91'. CGLKMO
- 88 LKMO-FL-CLIEUN-92 VALUE '92'. CGLKMO
- 88 LKMO-FL-CLIEUN-93 VALUE '93'. CGLKMO
- 88 LKMO-FL-CLIEUN-94 VALUE '94'. CGLKMO
- 88 LKMO-FL-CLIEUN-95 VALUE '95'. CGLKMO
- 88 LKMO-FL-CLIEUN-97 VALUE '97'. CGLKMO
- 88 LKMO-FL-CLIEUN-98 VALUE '98'. CGLKMO
- 88 LKMO-FL-CLIEUN-99 VALUE '99'. CGLKMO
- 23 LKMO-LLOCNA PIC X(40). CGLKMO
- 23 LKMO-CDTOMN PIC X(3). CGLKMO
- 88 LKMO-FL-CDTOMN-971 VALUE '971'. CGLKMO
- 88 LKMO-FL-CDTOMN-972 VALUE '972'. CGLKMO
- 88 LKMO-FL-CDTOMN-973 VALUE '973'. CGLKMO
- 88 LKMO-FL-CDTOMN-974 VALUE '974'. CGLKMO
- 88 LKMO-FL-CDTOMN-975 VALUE '975'. CGLKMO
- 88 LKMO-FL-CDTOMN-976 VALUE '976'. CGLKMO
- 88 LKMO-FL-CDTOMN-977 VALUE '977'. CGLKMO
- 88 LKMO-FL-CDTOMN-978 VALUE '978'. CGLKMO
- 88 LKMO-FL-CDTOMN-984 VALUE '984'. CGLKMO
- 88 LKMO-FL-CDTOMN-985 VALUE '985'. CGLKMO
- 88 LKMO-FL-CDTOMN-986 VALUE '986'. CGLKMO
- 88 LKMO-FL-CDTOMN-987 VALUE '987'. CGLKMO
- 88 LKMO-FL-CDTOMN-988 VALUE '988'. CGLKMO
- 88 LKMO-FL-CDTOMN-989 VALUE '989'. CGLKMO
- 23 LKMO-LPAYNA PIC X(40). CGLKMO
- 23 LKMO-DAAVPF PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-DAESMA PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 23 LKMO-M05AAH PIC S9(5)V9(2) COMP-3. CGLKMO
- 23 LKMO-M06AAH PIC S9(5)V9(2) COMP-3. CGLKMO
- 23 LKMO-DDADES PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-DSTFLU PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FSTFLU PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDRVI001 PIC X(3). CGLKMO
- 23 LKMO-CNAREF PIC X(1). CGLKMO
- 88 LKMO-FL-PERS-PHYS-REF VALUE 'P'. CGLKMO
- 88 LKMO-FL-PERS-MRAL-REF VALUE 'M'. CGLKMO
- 23 LKMO-NREFER PIC S9(7) COMP-3. CGLKMO
- 23 LKMO-CDRAPE PIC X(1). CGLKMO
- 23 LKMO-NIDASS PIC X(8). CGLKMO
- 23 LKMO-NAGDRE PIC X(10). CGLKMO
- 23 LKMO-NDUPLI PIC S9(3) COMP-3. CGLKMO
- 23 LKMO-CFORAF PIC X(1). CGLKMO
- 23 LKMO-NPSCMG PIC X(14). CGLKMO
- 23 LKMO-NDRSAL PIC X(15). CGLKMO
- 23 LKMO-DETDED PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CNAREF1 PIC X(1). CGLKMO
- 88 LKMO-FL-PERS-PHYS-REF1 VALUE 'P'. CGLKMO
- 88 LKMO-FL-PERS-MRAL-REF1 VALUE 'M'. CGLKMO
- 23 LKMO-NREFER1 PIC S9(7) COMP-3. CGLKMO
- 23 LKMO-CNAISP PIC X(1). CGLKMO
- 88 LKMO-FL-CNAISP-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CNAISP-N VALUE 'N'. CGLKMO
- 88 LKMO-FL-CNAISP-J VALUE 'J'. CGLKMO
- 23 LKMO-LPREN2 PIC X(15). CGLKMO
- 23 LKMO-LPREN3 PIC X(15). CGLKMO
- 23 LKMO-LCONAI PIC X(26). CGLKMO
- 23 LKMO-NORIMM PIC S9(5) COMP-3. CGLKMO
- 23 LKMO-DTRSDI PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CORGNA PIC X(4). CGLKMO
- 23 LKMO-CODRNC PIC X(4). CGLKMO
- 23 LKMO-CNIR20 PIC X(1). CGLKMO
- 88 LKMO-FL-CNIR20-E VALUE 'E'. CGLKMO
- 88 LKMO-FL-CNIR20-A VALUE 'A'. CGLKMO
- 88 LKMO-FL-CNIR20-P VALUE 'P'. CGLKMO
- 23 LKMO-DOBNIA PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CNAREF2 PIC X(1). CGLKMO
- 88 LKMO-FL-PERS-PHYS-REF2 VALUE 'P'. CGLKMO
- 88 LKMO-FL-PERS-MRAL-REF2 VALUE 'M'. CGLKMO
- 23 LKMO-NREFER2 PIC S9(7) COMP-3. CGLKMO
- 17 LKMO-CGPEH1 CGLKMO
- OCCURS 003 TIMES CGLKMO
- INDEXED BY IX-OCP. CGLKMO
- 20 LKMO-CDHIS001 PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CDHIS002 PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CGPEHIND. CGLKMO
- 23 LKMO-INDAAH PIC 9(1). CGLKMO
- 23 LKMO-INDABM PIC 9(1). CGLKMO
- 23 LKMO-INDABP PIC 9(1). CGLKMO
- 23 LKMO-INDABS PIC 9(1). CGLKMO
- 23 LKMO-INDACC PIC 9(1). CGLKMO
- 23 LKMO-INDACE PIC 9(1). CGLKMO
- 23 LKMO-INDACH PIC 9(1). CGLKMO
- 23 LKMO-INDAES PIC 9(1). CGLKMO
- 23 LKMO-INDAFE PIC 9(1). CGLKMO
- 23 LKMO-INDAGE PIC 9(1). CGLKMO
- 23 LKMO-INDAPC PIC 9(1). CGLKMO
- 23 LKMO-INDAPH PIC 9(1). CGLKMO
- 23 LKMO-INDARS PIC 9(1). CGLKMO
- 23 LKMO-INDAVM PIC 9(1). CGLKMO
- 23 LKMO-INDBEP PIC 9(1). CGLKMO
- 23 LKMO-INDCAP PIC 9(1). CGLKMO
- 23 LKMO-INDCIB PIC 9(1). CGLKMO
- 23 LKMO-INDCOT PIC 9(1). CGLKMO
- 23 LKMO-INDCOV PIC 9(1). CGLKMO
- 23 LKMO-INDCRA PIC 9(1). CGLKMO
- 23 LKMO-INDCRE PIC 9(1). CGLKMO
- 23 LKMO-INDCRM PIC 9(1). CGLKMO
- 23 LKMO-INDCTS PIC 9(1). CGLKMO
- 23 LKMO-INDDAE PIC 9(1). CGLKMO
- 23 LKMO-INDDAP PIC 9(1). CGLKMO
- 23 LKMO-INDDAR PIC 9(1). CGLKMO
- 23 LKMO-INDDDA PIC 9(1). CGLKMO
- 23 LKMO-INDDDI PIC 9(1). CGLKMO
- 23 LKMO-INDDER PIC 9(1). CGLKMO
- 23 LKMO-INDDPE PIC 9(1). CGLKMO
- 23 LKMO-INDDPO PIC 9(1). CGLKMO
- 23 LKMO-INDDRJ PIC 9(1). CGLKMO
- 23 LKMO-INDEAA PIC 9(1). CGLKMO
- 23 LKMO-INDEBO PIC 9(1). CGLKMO
- 23 LKMO-INDHAH PIC 9(1). CGLKMO
- 23 LKMO-INDHMI PIC 9(1). CGLKMO
- 23 LKMO-INDHOS PIC 9(1). CGLKMO
- 23 LKMO-INDHRA PIC 9(1). CGLKMO
- 23 LKMO-INDIAG PIC 9(1). CGLKMO
- 23 LKMO-INDICE PIC 9(1). CGLKMO
- 23 LKMO-INDINC PIC 9(1). CGLKMO
- 23 LKMO-INDINV PIC 9(1). CGLKMO
- 23 LKMO-INDJUE PIC 9(1). CGLKMO
- 23 LKMO-INDLAF PIC 9(1). CGLKMO
- 23 LKMO-INDLIM PIC 9(1). CGLKMO
- 23 LKMO-INDLIP PIC 9(1). CGLKMO
- 23 LKMO-INDMGA PIC 9(1). CGLKMO
- 23 LKMO-INDMGG PIC 9(1). CGLKMO
- 23 LKMO-INDMRP PIC 9(1). CGLKMO
- 23 LKMO-INDNAA PIC 9(1). CGLKMO
- 23 LKMO-INDOAH PIC 9(1). CGLKMO
- 23 LKMO-INDOES PIC 9(1). CGLKMO
- 23 LKMO-INDPAC PIC 9(1). CGLKMO
- 23 LKMO-INDPAH PIC 9(1). CGLKMO
- 23 LKMO-INDPEN PIC 9(1). CGLKMO
- 23 LKMO-INDRAA PIC 9(1). CGLKMO
- 23 LKMO-INDRAL PIC 9(1). CGLKMO
- 23 LKMO-INDRAT PIC 9(1). CGLKMO
- 23 LKMO-INDRD0 PIC 9(1). CGLKMO
- 23 LKMO-INDRSD PIC 9(1). CGLKMO
- 23 LKMO-INDSAI PIC 9(1). CGLKMO
- 23 LKMO-INDSEJ PIC 9(1). CGLKMO
- 23 LKMO-INDSRP PIC 9(1). CGLKMO
- 23 LKMO-INDSUS PIC 9(1). CGLKMO
- 23 LKMO-INDTAG PIC 9(1). CGLKMO
- 23 LKMO-INDTPA PIC 9(1). CGLKMO
- 23 LKMO-INDTPE PIC 9(1). CGLKMO
- 20 LKMO-CGPEHGDD. CGLKMO
- 23 LKMO-PE0AAH. CGLKMO
- 26 LKMO-EACTPN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FACTPN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIAAH. CGLKMO
- 29 LKMO-CACTIV PIC X(3). CGLKMO
- 88 LKMO-FL-ACT-NON-SAL-MET VALUE 'ETI' 'TSA' 'CSCGLKMO
- - 'S' 'INT' 'SAB' 'GSA'. CGLKMO
- 88 LKMO-FL-ACT-ENF VALUE 'APP' 'SAL' 'ETCGLKMO
- - 'S'. CGLKMO
- 88 LKMO-FL-ACT-DOM VALUE 'AFA' 'MAR' 'EXCGLKMO
- - 'P' 'EXS'. CGLKMO
- 88 LKMO-FL-ACT-CES VALUE 'CES' 'CEA' 'CECGLKMO
- - 'N' 'EXS' 'CSA' 'CIS' 'CIA'. CGLKMO
- 88 LKMO-FL-ACT-STA VALUE 'PIL' 'AFC' 'SFCGLKMO
- - 'P'. CGLKMO
- 88 LKMO-FL-ACT-AAH VALUE 'AAP' 'CAT'. CGLKMO
- 88 LKMO-FL-ACT-SAL-NOR VALUE 'SAL' 'ETI' 'TSCGLKMO
- - 'A' 'VRP' 'AMA' 'INT' 'MOA' 'DNL' 'GSA' 'APP'. CGLKMO
- 88 LKMO-FL-ACT-SAL-NO1 VALUE 'CAT' 'CGP' 'ETCGLKMO
- - 'S'. CGLKMO
- 88 LKMO-FL-ACT-SAL-NO2 VALUE 'CSA' 'CIS' 'RMCGLKMO
- - 'A'. CGLKMO
- 88 LKMO-FL-ACT-CHO VALUE 'ASS' 'ABA' 'AFCGLKMO
- - 'D' 'AIN' 'ASP' 'ADA' 'ADN' 'FDA' 'FDN'. CGLKMO
- 88 LKMO-FL-ACT-CHO-1 VALUE 'CDN' 'CDA' 'CPCGLKMO
- - 'L'. CGLKMO
- 88 LKMO-FL-ACT-CHO-BIS VALUE 'CNI' 'CPL' 'AFCGLKMO
- - 'C' 'ANI'. CGLKMO
- 88 LKMO-FL-ACT-ET-CHO VALUE 'ANI' 'CDA' 'CDCGLKMO
- - 'N'. CGLKMO
- 88 LKMO-FL-CHO-APE VALUE 'ASS' 'ABA' 'AFCGLKMO
- - 'D' 'AIN' 'AFC' 'ASP' 'ADA' 'CPL' 'FDA' 'CHO'. CGLKMO
- 88 LKMO-FL-ACT-INC-NON-JUS VALUE 'NCH' 'DSF' 'JNCGLKMO
- - 'F' 'SIN'. CGLKMO
- 88 LKMO-FL-RED-ACT VALUE 'RAC' 'CPL' 'AMCGLKMO
- - 'T' 'MAT'. CGLKMO
- 88 LKMO-FL-ACT-DR1 VALUE 'SAL' 'VRP' 'CACGLKMO
- - 'T' 'AAP' 'AMT' 'DNL' 'RAC' 'INT' 'TSA' 'CGP'. CGLKMO
- 88 LKMO-FL-ACT-DR2 VALUE 'SFP' 'ANI' 'CPCGLKMO
- - 'L' 'CDA' 'CDN' 'ETS'. CGLKMO
- 88 LKMO-FL-AID-ABA-1 VALUE 'ABA' 'CPL' 'ASCGLKMO
- - 'P' 'AFC' 'RET' 'INV' 'RAT' 'PRE'. CGLKMO
- 88 LKMO-FL-AID-ABA-2 VALUE 'MLD' 'SUR' 'HACGLKMO
- - 'N' 'CDA' 'ADA' 'CEA' 'FDA' 'CLD'. CGLKMO
- 88 LKMO-FL-AID-NEU-1 VALUE 'SNA' 'ABS' 'CACGLKMO
- - 'C' 'CNI' 'AMT' 'AFD' 'ASS' 'SAC' 'ANI' 'CCV'. CGLKMO
- 88 LKMO-FL-AID-NEU-2 VALUE 'RAC' 'AIN' 'ADCGLKMO
- - 'N' 'CEN' 'FDN' 'CSS' 'CDN' 'SAB'. CGLKMO
- 88 LKMO-FL-ACT-AUT1 VALUE 'AMT' 'RAC' 'PICGLKMO
- - 'L' 'MAR' 'CPL' 'AFA' 'SFP'. CGLKMO
- 88 LKMO-FL-ACT-AUT2 VALUE 'EXP' 'CJT' 'EXCGLKMO
- - 'S'. CGLKMO
- 88 LKMO-FL-SANS-ACT-AUT1 VALUE 'SSA' 'SAV' 'SACGLKMO
- - 'C' 'CAC' 'RET' 'INV' 'RAT' 'RSA' 'ETU' 'CNI'. CGLKMO
- 88 LKMO-FL-SANS-ACT-AUT2 VALUE 'INP' 'HAN' 'ABCGLKMO
- - 'S' 'SUR' 'MOC' 'SAB' 'EBO' 'SNA' 'SNR'. CGLKMO
- 88 LKMO-FL-SANS-ACT-AUT3 VALUE 'CSS'. CGLKMO
- 88 LKMO-FL-SANS-ACT-AUT4 VALUE 'MLD' 'PRE' 'AFCGLKMO
- - 'C'. CGLKMO
- 88 LKMO-FL-ACT-ALL-RMI1 VALUE 'ETI' 'TSA' 'SACGLKMO
- - 'B' 'CSS' 'INT' 'SNA' 'ETU' 'SNR' 'SIN' 'GSA'. CGLKMO
- 88 LKMO-FL-INA-ABS-SUB1 VALUE 'CAC' 'CNI' 'CJCGLKMO
- - 'T' 'MOC' 'SAC' 'SSA' 'SNR' 'CSS'. CGLKMO
- 88 LKMO-FL-INA-ABS-SUB2 VALUE 'SAB' 'ETU' 'ANCGLKMO
- - 'P'. CGLKMO
- 88 LKMO-FL-INA-NEU VALUE 'CAC' 'CNI' 'SNCGLKMO
- - 'R' 'CAR' 'ABS'. CGLKMO
- 88 LKMO-FL-SIT-PRO-1 VALUE 'AAP' 'CAT' 'PICGLKMO
- - 'L' 'EXS' 'EXP' 'MAR' 'AFA' 'SFP' 'CJT'. CGLKMO
- 88 LKMO-FL-ACT-MAT VALUE 'MMC' 'MMI' 'MACGLKMO
- - 'T' 'MAL'. CGLKMO
- 88 LKMO-FL-ACT-ETI VALUE 'ETI' 'MAR' 'GSCGLKMO
- - 'A' 'EXP' 'EXS'. CGLKMO
- 88 LKMO-FL-ACT-ETI-EFO VALUE 'ETI' 'MAR' 'EXCGLKMO
- - 'P' 'EXS'. CGLKMO
- 88 LKMO-FL-ACT-ET1 VALUE 'ETI' 'MAR'. CGLKMO
- 88 LKMO-FL-ACT-ET2 VALUE 'EXP' 'EXS'. CGLKMO
- 88 LKMO-FL-ACT-ADM-RMI VALUE 'ETI' 'TSA' 'CSCGLKMO
- - 'S' 'INT' 'SAB' 'MAR' 'GSA' 'EXP'. CGLKMO
- 88 LKMO-FL-ACT-APR-CHO VALUE 'MMC' 'MMI' 'CECGLKMO
- - 'N' 'CEA'. CGLKMO
- 88 LKMO-FL-ACT-BORNE1-M VALUE 'AAP' 'CAT' 'AMCGLKMO
- - 'A' 'AFA' 'CAC' 'MAT'. CGLKMO
- 88 LKMO-FL-ACT-BORNE2-M VALUE 'SAB' 'INP' 'HACGLKMO
- - 'N' 'MMC' 'MMI' 'MOA' 'MOC' 'AMT' 'INV' 'PRE'. CGLKMO
- 88 LKMO-FL-ACT-BORNE3-M VALUE 'RAC' 'RAT' 'SACGLKMO
- - 'L' 'SAC' 'SAV' 'SSA' 'PIL' 'ETS' 'SNR' 'INT'. CGLKMO
- 88 LKMO-FL-ACT-BORNE4-M VALUE 'TSA' 'VRP' 'CJCGLKMO
- - 'T' 'DNL' 'APP'. CGLKMO
- 88 LKMO-FL-ACT-ENF-20A VALUE 'INP' 'INV' 'RACGLKMO
- - 'T'. CGLKMO
- 88 LKMO-FL-ACT-ENF-16A VALUE 'SNA' 'CES' 'RMCGLKMO
- - 'A' 'ANP' 'SFP' 'ETS' 'SAL' 'CSS' 'HAN'. CGLKMO
- 88 LKMO-FL-ACT-ENF-14A VALUE 'SFP' 'APP' 'JNCGLKMO
- - 'F'. CGLKMO
- 88 LKMO-FL-ACT-ENF-BOR VALUE 'CIA' 'CSS' 'CICGLKMO
- - 'S' 'CES' 'CSA' 'APP'. CGLKMO
- 88 LKMO-FL-ACT-ENF-ECA1 VALUE 'SCI' 'SCF' 'EBCGLKMO
- - 'O' 'ETU' 'SCO' 'APP' 'ETS'. CGLKMO
- 88 LKMO-FL-ACT-ENF-ECA3 VALUE 'CES' 'CIA' 'CNCGLKMO
- - 'I' 'CHR' 'CHA' 'RMA'. CGLKMO
- 88 LKMO-FL-ACT-EVA-RES VALUE 'MAR' 'ETI' 'MOCGLKMO
- - 'C' 'MOA' 'GSA' 'EXP' 'EXS' 'AFA'. CGLKMO
- 88 LKMO-FL-ACT-CAF VALUE 'SAL' 'AMT' 'SNCGLKMO
- - 'A' 'MAT' 'MLD' 'SUR' 'CES' 'CSA' 'MAL' 'CGP'. CGLKMO
- 88 LKMO-FL-ACT-CAF-1 VALUE 'PRE' 'SAB' 'CSCGLKMO
- - 'S' 'DNL' 'CAC' 'SFP' 'CIA' 'CIS' 'CDA' 'CCV'. CGLKMO
- 88 LKMO-FL-ACT-CAF-2 VALUE 'RMA' 'ETS' 'AMCGLKMO
- - 'A'. CGLKMO
- 88 LKMO-FL-ENF-REM-NOD VALUE 'SAL' 'APP' 'RMCGLKMO
- - 'A' 'ETS' 'SFP' 'DNL' 'CHA' 'CHR'. CGLKMO
- 88 LKMO-FL-ENF-NRE-NOD VALUE 'MNE' 'NAS' 'NCCGLKMO
- - 'H' 'SNA' 'JNF' 'DSF'. CGLKMO
- 88 LKMO-FL-AUT-OD VALUE 'HAN' 'INP' 'INCGLKMO
- - 'V' 'RAT'. CGLKMO
- 88 LKMO-FL-APE-CES-ACT1 VALUE 'CAC' 'SSA' 'CSCGLKMO
- - 'S' 'CNI' 'INP' 'SAB' 'ETU' 'MOC'. CGLKMO
- 88 LKMO-FL-APE-CES-ACT2 VALUE 'SAV' 'RAT' 'ABCGLKMO
- - 'S' 'SUR' 'SNR' 'SAC'. CGLKMO
- 88 LKMO-FL-ACT-AGD1 VALUE 'SAL' 'TSA' 'VRCGLKMO
- - 'P' 'AMA' 'INT' 'MOA' 'DNL' 'APP' 'RMA' 'CGP'. CGLKMO
- 88 LKMO-FL-ACT-AGD2 VALUE 'CPL' 'AMT' 'RACGLKMO
- - 'C' 'ETS'. CGLKMO
- 88 LKMO-FL-ACT-G65-2 VALUE 'SSA' 'SAC' 'SACGLKMO
- - 'V' 'CSS' 'SAB'. CGLKMO
- 88 LKMO-FL-ACT-G65-3 VALUE 'SNA' 'ABS' 'CNCGLKMO
- - 'I' 'SSA' 'RET' 'CAC' 'CSS' 'SAB'. CGLKMO
- 88 LKMO-FL-ACT-G65-4 VALUE 'RSA'. CGLKMO
- 88 LKMO-FL-ACT-G65-5 VALUE 'SNA' 'ABS' 'SSCGLKMO
- - 'A' 'RET' 'CAC' 'CSS' 'SAB' 'CNI' 'SAC' 'SIN'. CGLKMO
- 88 LKMO-FL-ACT-EFO VALUE 'AMA' 'CEN' 'MOCGLKMO
- - 'A' 'PIL' 'GSA' 'APP' 'RMA' 'ETS'. CGLKMO
- 88 LKMO-FL-ACT-EFO1 VALUE 'CES' 'AMT' 'PICGLKMO
- - 'L' 'MAT' 'SFP' 'CSA' 'CIS' 'MAL' 'CIA'. CGLKMO
- 88 LKMO-FL-ACT-CHO-ABA VALUE 'AFC' 'FDA' 'ADCGLKMO
- - 'A' 'CPL' 'CDA'. CGLKMO
- 88 LKMO-FL-ACT-CHO-NEU VALUE 'ASS' 'AIN' 'ADCGLKMO
- - 'N' 'FDN' 'CNI' 'ANI' 'CDN'. CGLKMO
- 88 LKMO-FL-STA-SAL VALUE 'ACR' 'AMT' 'PICGLKMO
- - 'L' 'MAT' 'SFP' 'ETS'. CGLKMO
- 88 LKMO-FL-STA-ETI VALUE 'ETI' 'MAR' 'CJCGLKMO
- - 'T' 'EXP' 'GSA'. CGLKMO
- 88 LKMO-FL-STA-ABA-CHO VALUE 'ABA' 'AFC' 'ASCGLKMO
- - 'P' 'ADA' 'FDA' 'MMC' 'CDA'. CGLKMO
- 88 LKMO-FL-STA-NEU-CHO VALUE 'SAC' 'ASS' 'AFCGLKMO
- - 'D' 'AIN' 'ADN' 'CNI' 'FDN' 'MMI' 'ANI' 'CDN'. CGLKMO
- 88 LKMO-FL-STA-RET VALUE 'PRE' 'RET' 'INCGLKMO
- - 'P' 'RSA'. CGLKMO
- 88 LKMO-FL-STA-ETU VALUE 'EBO' 'ETU'. CGLKMO
- 88 LKMO-FL-STA-MEM-AUT1 VALUE 'SAB' 'CSS' 'SACGLKMO
- - 'V' 'SSA' 'CAC'. CGLKMO
- 88 LKMO-FL-STA-AUT VALUE 'ABS' 'CBS' 'MOCGLKMO
- - 'C' 'MAL'. CGLKMO
- 88 LKMO-FL-STA-SCO VALUE 'SCF' 'IAD' 'SCCGLKMO
- - 'O' 'ETS'. CGLKMO
- 88 LKMO-FL-STA-INF VALUE 'SCI' 'INF' 'HACGLKMO
- - 'N' 'INV' 'RAT' 'MAL'. CGLKMO
- 88 LKMO-FL-STA-SAL-55 VALUE 'CES' 'SAL' 'CICGLKMO
- - 'A' 'CHA' 'CHR' 'RMA' 'ETS'. CGLKMO
- 88 LKMO-FL-STA-ENF-AUT VALUE 'CSS' 'DEG' 'INCGLKMO
- - 'P' 'ANP' 'SSA' 'CNI'. CGLKMO
- 88 LKMO-FL-CHO-SPL VALUE 'AFC' 'MMC' 'MMCGLKMO
- - 'I'. CGLKMO
- 88 LKMO-FL-PEN-SPL VALUE 'SUR' 'MLD' 'INCGLKMO
- - 'V' 'PRE' 'RAT' 'RET' 'INP' 'RSA'. CGLKMO
- 88 LKMO-FL-ACT-SPL VALUE 'CJT' 'EXP' 'SNCGLKMO
- - 'R' 'MAT' 'EXS' 'MAL'. CGLKMO
- 88 LKMO-FL-ACT-ENT-CAF1 VALUE 'CAR' 'CEA' 'CECGLKMO
- - 'N' 'ASS' 'AIN' 'AFC' 'ADA' 'ADN' 'CDA' 'CDN'. CGLKMO
- 88 LKMO-FL-ACT-ENT-CAF2 VALUE 'CNI' 'ANI' 'CECGLKMO
- - 'S' 'FDA' 'FDN' 'SFP' 'SNR' 'CIA'. CGLKMO
- 88 LKMO-FL-CACTIV-NONCDI VALUE 'CEA' 'CEN' 'CECGLKMO
- - 'S' 'PIL' 'SFP' 'INT' 'TSA' 'RMA' 'APP'. CGLKMO
- 88 LKMO-FL-STA-NEU-DIV VALUE 'ABS' 'CAC' 'SNCGLKMO
- - 'A' 'CEN' 'CBS'. CGLKMO
- 88 LKMO-FL-ACT-STA-ENF VALUE 'SFP'. CGLKMO
- 88 LKMO-FL-STA-ABA-HAN VALUE 'HAN' 'INV' 'RACGLKMO
- - 'T' 'SUR'. CGLKMO
- 88 LKMO-FL-STA-ABA-AUT VALUE 'CEA' 'MLD' 'CLCGLKMO
- - 'D'. CGLKMO
- 88 LKMO-FL-STA-APP VALUE 'APP'. CGLKMO
- 88 LKMO-FL-CHO-SS-ACT VALUE 'CHR'. CGLKMO
- 88 LKMO-FL-CHO-AV-ACT VALUE 'CHA'. CGLKMO
- 88 LKMO-FL-STA-AAH-PRO VALUE 'AAP' 'CAT' 'RACGLKMO
- - 'C'. CGLKMO
- 88 LKMO-FL-CACTIV-CHAREM VALUE 'APP' 'ETS' 'RMCGLKMO
- - 'A' 'SFP' 'CHR' 'CHA' 'SAL'. CGLKMO
- 88 LKMO-FL-CACTIV-INCAR VALUE 'ABS' 'CBS'. CGLKMO
- 88 LKMO-FL-CACTIV-CHO VALUE 'CAR'. CGLKMO
- 88 LKMO-FL-CACTIV-CHO-AUT VALUE 'CAP'. CGLKMO
- 88 LKMO-FL-CACTIV-CONGE VALUE 'CCV' 'CGP' 'CSCGLKMO
- - 'S' 'SAB'. CGLKMO
- 88 LKMO-FL-CACTIV-AJPP-CPP VALUE 'AMA' 'CEA' 'CECGLKMO
- - 'N' 'CES' 'MOA' 'AMT' 'SAL' 'TSA' 'CIA' 'ETS'. CGLKMO
- 88 LKMO-FL-CACTIV-AJPP-CPP2 VALUE 'MAT' 'MAL' 'ANCGLKMO
- - 'I'. CGLKMO
- 88 LKMO-FL-CACTIV-AJPP-CHO VALUE 'ASS' 'AIN' 'AFCGLKMO
- - 'C' 'ADA' 'CDA' 'CDN' 'FDA' 'ADN' 'MMC' 'MMI'. CGLKMO
- 88 LKMO-FL-CACTIV-AJPP-AUT VALUE 'AFA' 'AMA' 'SACGLKMO
- - 'L' 'DNL' 'CJT' 'INT' 'VRP' 'ETS'. CGLKMO
- 88 LKMO-FL-CACTIV-NREP-NABS VALUE 'SIN' 'SNA' 'NCCGLKMO
- - 'H' 'DSF' 'JNF'. CGLKMO
- 88 LKMO-FL-CACTIV-ABA-AAH-1 VALUE 'CAT' 'SAL' 'ETCGLKMO
- - 'S' 'TSA' 'VRP' 'AMA' 'APP' 'INT' 'MOA' 'DNL'. CGLKMO
- 88 LKMO-FL-CACTIV-ABA-AAH-2 VALUE 'AAP' 'CGP' 'CDCGLKMO
- - 'A' 'CPL' 'SFP' 'AFA' 'CHA' 'CES' 'CEA' 'CEN'. CGLKMO
- 88 LKMO-FL-CACTIV-ABA-AAH-3 VALUE 'CIA' 'CSA' 'CICGLKMO
- - 'S' 'CAP' 'AMT' 'AFC' 'RMA'. CGLKMO
- 88 LKMO-FL-CACTIV-DEMRSO VALUE 'AFC' 'ADA' 'ADCGLKMO
- - 'N' 'FDA' 'FDN' 'ASS' 'AIN' 'AFD' 'INV' 'RET'. CGLKMO
- 88 LKMO-FL-CACTIV-DEMRSO2 VALUE 'CNI'. CGLKMO
- 88 LKMO-FL-CACTIV-AMI-SCO VALUE 'SCO' 'SCI'. CGLKMO
- 88 LKMO-FL-CACTIV-AMI-ETU VALUE 'ETU' 'ETS' 'EBCGLKMO
- - 'O'. CGLKMO
- 88 LKMO-FL-CACTIV-AMI-APP VALUE 'APP'. CGLKMO
- 88 LKMO-FL-CACTIV-AMI-MAL VALUE 'MAL'. CGLKMO
- 88 LKMO-FL-CACTIV-AMI-CHOACT VALUE 'CDA' 'CDN'. CGLKMO
- 88 LKMO-FL-CACTIV-MLD VALUE 'MLD'. CGLKMO
- 29 LKMO-NCTAPP PIC X(7). CGLKMO
- 29 LKMO-CPAYSX PIC X(3). CGLKMO
- 88 LKMO-FL-PAY-FRA VALUE 'FRA'. CGLKMO
- 88 LKMO-FL-PAY-CEE-ASS VALUE 'CEE'. CGLKMO
- 88 LKMO-FL-PAY-CONV VALUE 'CNV'. CGLKMO
- 88 LKMO-FL-PAY-AUT VALUE 'AUT'. CGLKMO
- 88 LKMO-FL-CPAYSX-ACE VALUE 'ACE'. CGLKMO
- 88 LKMO-FL-CPAYSX-ETR VALUE 'CEE' 'CNV' 'AUCGLKMO
- - 'T' 'ACE'. CGLKMO
- 88 LKMO-FL-CPAYSX-LUX VALUE 'LUX'. CGLKMO
- 29 LKMO-NSIRPN PIC X(18). CGLKMO
- 29 LKMO-CREGIM PIC X(2). CGLKMO
- 88 LKMO-FL-GENE VALUE 'GE'. CGLKMO
- 88 LKMO-FL-ADMT-NO-OUV-DRT VALUE 'AD'. CGLKMO
- 88 LKMO-FL-ADM-AL-ABS-PF VALUE 'AL'. CGLKMO
- 88 LKMO-FL-ADMT-OUV-DRT-CAF VALUE 'AM'. CGLKMO
- 88 LKMO-FL-AGRI VALUE 'AG'. CGLKMO
- 88 LKMO-FL-MAR1-DE-COMR VALUE 'MC'. CGLKMO
- 88 LKMO-FL-MINE VALUE 'MI'. CGLKMO
- 88 LKMO-FL-MINE-OUEST VALUE 'MO'. CGLKMO
- 88 LKMO-FL-NAVI-INT VALUE 'NI'. CGLKMO
- 88 LKMO-FL-PECH VALUE 'PM'. CGLKMO
- 88 LKMO-FL-CLTV-LOCL VALUE 'CL'. CGLKMO
- 88 LKMO-FL-PENS-AUTR-REGI VALUE 'TG'. CGLKMO
- 88 LKMO-FL-CREGIM-RP VALUE 'RP'. CGLKMO
- 88 LKMO-FL-CREGIM-RE VALUE 'RE'. CGLKMO
- 88 LKMO-FL-CREGIM-RL VALUE 'RL'. CGLKMO
- 88 LKMO-FL-CREGIM-AA VALUE 'AA'. CGLKMO
- 88 LKMO-FL-CREGIM-FT VALUE 'FT'. CGLKMO
- 88 LKMO-FL-CREGIM-SN VALUE 'SN'. CGLKMO
- 88 LKMO-FL-CREGIM-PT VALUE 'PT'. CGLKMO
- 88 LKMO-FL-CREGIM-EF VALUE 'EF'. CGLKMO
- 88 LKMO-FL-CREGIM-FP VALUE 'FP'. CGLKMO
- 88 LKMO-FL-CREGIM-EN VALUE 'EN'. CGLKMO
- 88 LKMO-FL-CREGIM-TR VALUE 'TR'. CGLKMO
- 88 LKMO-FL-CREGIM-TS VALUE 'TS'. CGLKMO
- 88 LKMO-FL-CREGIM-TM VALUE 'TM'. CGLKMO
- 29 LKMO-TAUXAC PIC S9(3)V9(2) COMP-3. CGLKMO
- 29 LKMO-CNAREF PIC X(1). CGLKMO
- 88 LKMO-FL-PERS-PHYS-REF VALUE 'P'. CGLKMO
- 88 LKMO-FL-PERS-MRAL-REF VALUE 'M'. CGLKMO
- 29 LKMO-NREFER PIC S9(7) COMP-3. CGLKMO
- 29 LKMO-CFISCO PIC X(2). CGLKMO
- 88 LKMO-FL-CFISCO-PR VALUE 'PR'. CGLKMO
- 88 LKMO-FL-CFISCO-PC VALUE 'PC'. CGLKMO
- 88 LKMO-FL-CFISCO-SR VALUE 'SR'. CGLKMO
- 88 LKMO-FL-CFISCO-SC VALUE 'SC'. CGLKMO
- 88 LKMO-FL-CFISCO-ND VALUE 'ND'. CGLKMO
- 88 LKMO-FL-CFISCO-EP VALUE 'EP'. CGLKMO
- 88 LKMO-FL-CFISCO-CO VALUE 'CO'. CGLKMO
- 88 LKMO-FL-CFISCO-LY VALUE 'LY'. CGLKMO
- 88 LKMO-FL-CFISCO-2012 VALUE 'EP' 'CO' 'LY'.CGLKMO
- 29 LKMO-CINAPE PIC X(1). CGLKMO
- 88 LKMO-FL-CINAPE-I VALUE 'I'. CGLKMO
- 88 LKMO-FL-CINAPE-F VALUE 'F'. CGLKMO
- 88 LKMO-FL-CINAPE-R VALUE 'R'. CGLKMO
- 29 LKMO-CSIRSO PIC X(2). CGLKMO
- 29 LKMO-CIMADI PIC X(3). CGLKMO
- 88 LKMO-FL-CIMADI-DPE VALUE 'DPE'. CGLKMO
- 88 LKMO-FL-CIMADI-PPE VALUE 'PPE'. CGLKMO
- 88 LKMO-FL-CIMADI-PPF VALUE 'PPF'. CGLKMO
- 88 LKMO-FL-CIMADI-INA VALUE 'INA'. CGLKMO
- 88 LKMO-FL-CIMADI-AOI VALUE 'AOI'. CGLKMO
- 88 LKMO-FL-CIMADI-CCD VALUE 'CCD'. CGLKMO
- 88 LKMO-FL-CIMADI-CCN VALUE 'CCN'. CGLKMO
- 88 LKMO-FL-CIMADI-XPE VALUE 'XPE'. CGLKMO
- 88 LKMO-FL-CIMADI-XNA VALUE 'XNA'. CGLKMO
- 29 LKMO-CHAREM PIC X(1). CGLKMO
- 88 LKMO-FL-CHAREM-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CHAREM-N VALUE 'N'. CGLKMO
- 29 LKMO-COTRSA PIC X(3). CGLKMO
- 88 LKMO-FL-COTRSA-AUT VALUE 'AUT'. CGLKMO
- 88 LKMO-FL-COTRSA-CA VALUE 'CA '. CGLKMO
- 88 LKMO-FL-COTRSA-CDD VALUE 'CDD'. CGLKMO
- 88 LKMO-FL-COTRSA-CDI VALUE 'CDI'. CGLKMO
- 88 LKMO-FL-COTRSA-CUI VALUE 'CUI'. CGLKMO
- 88 LKMO-FL-COTRSA-CU1 VALUE 'CU1'. CGLKMO
- 88 LKMO-FL-COTRSA-CU2 VALUE 'CU2'. CGLKMO
- 88 LKMO-FL-COTRSA-CU3 VALUE 'CU3'. CGLKMO
- 88 LKMO-FL-COTRSA-CU4 VALUE 'CU4'. CGLKMO
- 88 LKMO-FL-COTRSA-INT VALUE 'INT'. CGLKMO
- 88 LKMO-FL-COTRSA-AEN VALUE 'AEN'. CGLKMO
- 88 LKMO-FL-COTRSA-VDI VALUE 'VDI'. CGLKMO
- 88 LKMO-FL-COTRSA-DET VALUE 'DET'. CGLKMO
- 88 LKMO-FL-COTRSA-CONTRAT VALUE 'AUT' 'CA ' 'CDCGLKMO
- - 'D' 'CDI' 'CUI' 'INT' 'CU1' 'CU2' 'CU3' 'CU4'. CGLKMO
- 88 LKMO-FL-COTRSA-TYPECUI VALUE 'CUI' 'CU1' 'CUCGLKMO
- - '2' 'CU3' 'CU4'. CGLKMO
- 29 LKMO-CADRSA PIC X(1). CGLKMO
- 88 LKMO-FL-CADRSA-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CADRSA-N VALUE 'N'. CGLKMO
- 88 LKMO-FL-CADRSA-P VALUE 'P'. CGLKMO
- 29 LKMO-CPYACT PIC X(2). CGLKMO
- 88 LKMO-FL-CPYACT-UE-1 VALUE 'AT' 'BE' 'BG' CGLKMO
- 'CY' 'CZ' 'DE' 'DK' 'EE' 'ES' 'FI' 'FR' 'GB'. CGLKMO
- 88 LKMO-FL-CPYACT-UE-2 VALUE 'GR' 'HU' 'IE' CGLKMO
- 'IT' 'LT' 'LU' 'LV' 'MT' 'NL' 'PL' 'PT' 'RO'. CGLKMO
- 88 LKMO-FL-CPYACT-UE-3 VALUE 'SE' 'SI' 'SK' CGLKMO
- 'HR'. CGLKMO
- 88 LKMO-FL-CPYACT-EEE VALUE 'IS' 'LI' 'NO'.CGLKMO
- 88 LKMO-FL-CPYACT-SUISSE VALUE 'CH'. CGLKMO
- 88 LKMO-FL-CPYACT-CNV VALUE 'BA' 'MA' 'MC' CGLKMO
- 'ME' 'MK' 'RS' 'TN' 'TR' 'XK'. CGLKMO
- 23 LKMO-PE0ABM. CGLKMO
- 26 LKMO-EASFEM PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FASFEM PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIABM. CGLKMO
- 29 LKMO-CSSFRP1 PIC X(2). CGLKMO
- 88 LKMO-FL-DCD VALUE 'DC'. CGLKMO
- 88 LKMO-FL-NO-RECO-ENF VALUE 'NR'. CGLKMO
- 88 LKMO-FL-HORS-ETAT VALUE 'HB'. CGLKMO
- 88 LKMO-FL-ABAN-NO-JUGE VALUE 'OE'. CGLKMO
- 88 LKMO-FL-ABAN-JUGE-SS-PENS VALUE 'PA'. CGLKMO
- 88 LKMO-FL-ABAN-PENS-FIXE VALUE 'TP'. CGLKMO
- 88 LKMO-FL-AUTR-SITU VALUE 'AS'. CGLKMO
- 88 LKMO-FL-ASF-ADOP VALUE 'AD'. CGLKMO
- 88 LKMO-FL-CSSFRP-RS VALUE 'RS'. CGLKMO
- 88 LKMO-FL-CSSFRP-CP VALUE 'CP'. CGLKMO
- 88 LKMO-FL-SITASF-APP VALUE 'AS' 'AD'. CGLKMO
- 88 LKMO-FL-SITASF-INC VALUE 'NR' 'HB'. CGLKMO
- 88 LKMO-FL-SITASF-ABA VALUE 'OE' 'PA' 'TP'.CGLKMO
- 29 LKMO-CMOAS1 PIC X(3). CGLKMO
- 88 LKMO-FL-CMOASF-VIOLENT VALUE 'VAJ' 'VAP'. CGLKMO
- 88 LKMO-FL-CMOASF-MEDFAM VALUE 'SMF' 'PSM' 'APCGLKMO
- - 'C'. CGLKMO
- 29 LKMO-DPSFEM PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-DAPSFM PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-CNAREF5 PIC X(1). CGLKMO
- 88 LKMO-FL-PERS-PHYS-REF2 VALUE 'P'. CGLKMO
- 88 LKMO-FL-PERS-MRAL-REF2 VALUE 'M'. CGLKMO
- 29 LKMO-NREFER5 PIC S9(7) COMP-3. CGLKMO
- 23 LKMO-PE0ABP. CGLKMO
- 26 LKMO-EASPEP PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FASFEP PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIABP. CGLKMO
- 29 LKMO-CSSFRP PIC X(2). CGLKMO
- 88 LKMO-FL-DCD VALUE 'DC'. CGLKMO
- 88 LKMO-FL-NO-RECO-ENF VALUE 'NR'. CGLKMO
- 88 LKMO-FL-HORS-ETAT VALUE 'HB'. CGLKMO
- 88 LKMO-FL-ABAN-NO-JUGE VALUE 'OE'. CGLKMO
- 88 LKMO-FL-ABAN-JUGE-SS-PENS VALUE 'PA'. CGLKMO
- 88 LKMO-FL-ABAN-PENS-FIXE VALUE 'TP'. CGLKMO
- 88 LKMO-FL-AUTR-SITU VALUE 'AS'. CGLKMO
- 88 LKMO-FL-ASF-ADOP VALUE 'AD'. CGLKMO
- 88 LKMO-FL-CSSFRP-RS VALUE 'RS'. CGLKMO
- 88 LKMO-FL-CSSFRP-CP VALUE 'CP'. CGLKMO
- 88 LKMO-FL-SITASF-APP VALUE 'AS' 'AD'. CGLKMO
- 88 LKMO-FL-SITASF-INC VALUE 'NR' 'HB'. CGLKMO
- 88 LKMO-FL-SITASF-ABA VALUE 'OE' 'PA' 'TP'.CGLKMO
- 29 LKMO-CMOASF PIC X(3). CGLKMO
- 88 LKMO-FL-CMOASF-VIOLENT VALUE 'VAJ' 'VAP'. CGLKMO
- 88 LKMO-FL-CMOASF-MEDFAM VALUE 'SMF' 'PSM' 'APCGLKMO
- - 'C'. CGLKMO
- 29 LKMO-DPSFEP PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-DAPSFP PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-CNAREF4 PIC X(1). CGLKMO
- 88 LKMO-FL-PERS-PHYS-REF2 VALUE 'P'. CGLKMO
- 88 LKMO-FL-PERS-MRAL-REF2 VALUE 'M'. CGLKMO
- 29 LKMO-NREFER4 PIC S9(7) COMP-3. CGLKMO
- 23 LKMO-PE0ABS. CGLKMO
- 26 LKMO-EABFYO PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FABFYO PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIABS. CGLKMO
- 29 LKMO-CTYAES PIC X(1). CGLKMO
- 88 LKMO-FL-NO-DRT VALUE '0'. CGLKMO
- 88 LKMO-FL-DRT-AES-SIMP VALUE '1'. CGLKMO
- 88 LKMO-FL-DRT-AES-1ERE-CAT VALUE '2'. CGLKMO
- 88 LKMO-FL-DRT-AES-2ERE-CAT VALUE '3'. CGLKMO
- 88 LKMO-FL-DRT-AES-3ERE-CAT VALUE '4'. CGLKMO
- 88 LKMO-FL-DRT-CMP-1ERE-CAT VALUE '5'. CGLKMO
- 88 LKMO-FL-DRT-CMP-2ERE-CAT VALUE '6'. CGLKMO
- 88 LKMO-FL-CTYAES-A VALUE 'A'. CGLKMO
- 88 LKMO-FL-CTYAES-B VALUE 'B'. CGLKMO
- 88 LKMO-FL-CTYAES-C VALUE 'C'. CGLKMO
- 88 LKMO-FL-CTYAES-D VALUE 'D'. CGLKMO
- 88 LKMO-FL-CTYAES-E VALUE 'E'. CGLKMO
- 88 LKMO-FL-CTYAES-F VALUE 'F'. CGLKMO
- 88 LKMO-FL-CTYAES-G VALUE 'G'. CGLKMO
- 88 LKMO-FL-CTYAES-H VALUE 'H'. CGLKMO
- 88 LKMO-FL-CTYAES-I VALUE 'I'. CGLKMO
- 88 LKMO-FL-CTYAES-J VALUE 'J'. CGLKMO
- 88 LKMO-FL-CTYAES-K VALUE 'K'. CGLKMO
- 88 LKMO-FL-CTYAES-L VALUE 'L'. CGLKMO
- 88 LKMO-FL-CTYAES-MPI VALUE 'B' 'C' 'D' 'E'CGLKMO
- 'F' 'H' 'I' 'J' 'K' 'L'. CGLKMO
- 29 LKMO-CIEDES PIC X(1). CGLKMO
- 88 LKMO-FL-INTN VALUE 'I'. CGLKMO
- 88 LKMO-FL-EXTN VALUE 'E'. CGLKMO
- 88 LKMO-FL-SEM-INTN VALUE 'S'. CGLKMO
- 29 LKMO-CPCDES PIC X(1). CGLKMO
- 88 LKMO-FL-PRIS-CHRG-TOT VALUE 'O'. CGLKMO
- 88 LKMO-FL-PRIS-CHRG-PART VALUE 'N'. CGLKMO
- 29 LKMO-CORCOM PIC X(1). CGLKMO
- 88 LKMO-FL-CORCOM-E VALUE 'E'. CGLKMO
- 88 LKMO-FL-CORCOM-F VALUE 'F'. CGLKMO
- 29 LKMO-CHOPCH PIC X(1). CGLKMO
- 88 LKMO-FL-CHOPCH-P VALUE 'P'. CGLKMO
- 88 LKMO-FL-CHOPCH-C VALUE 'C'. CGLKMO
- 29 LKMO-CELPCH PIC X(1). CGLKMO
- 88 LKMO-FL-CELPCH-1 VALUE '1'. CGLKMO
- 88 LKMO-FL-CELPCH-3 VALUE '3'. CGLKMO
- 88 LKMO-FL-CELPCH-A VALUE 'A'. CGLKMO
- 23 LKMO-PE0ACC. CGLKMO
- 26 LKMO-EACDES PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FACDES PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIACC. CGLKMO
- 29 LKMO-CSDMES PIC X(1). CGLKMO
- 88 LKMO-FL-CDES-ACC VALUE 'A'. CGLKMO
- 88 LKMO-FL-CDES-HOS VALUE 'H'. CGLKMO
- 88 LKMO-FL-CDES-REF VALUE 'R'. CGLKMO
- 88 LKMO-FL-CSDMES-ACC VALUE 'A' 'H'. CGLKMO
- 29 LKMO-NCMDES PIC S9(7) COMP-3. CGLKMO
- 29 LKMO-DCMDES PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-DPROUR PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-CPROUR PIC X(1). CGLKMO
- 88 LKMO-FL-CPROUR-A VALUE 'A'. CGLKMO
- 88 LKMO-FL-CPROUR-C VALUE 'C'. CGLKMO
- 23 LKMO-PE0ACH. CGLKMO
- 26 LKMO-EACHAR PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FACHAR PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIACH. CGLKMO
- 29 LKMO-CACHAR PIC X(1). CGLKMO
- 88 LKMO-FLA-CHRG-SENS-CGOD VALUE 'O'. CGLKMO
- 88 LKMO-FLA-NO-A-CHRG VALUE 'N'. CGLKMO
- 88 LKMO-FL-CACHAR-A VALUE 'A'. CGLKMO
- 23 LKMO-PE0AES. CGLKMO
- 26 LKMO-EPSFYO PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FPSFYO PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIAES. CGLKMO
- 29 LKMO-CTYAES1 PIC X(1). CGLKMO
- 88 LKMO-FL-CTYAES1-MPI VALUE 'B' 'C' 'D' 'E'CGLKMO
- 'F' 'H' 'I' 'J' 'K' 'L'. CGLKMO
- 29 LKMO-CORCO1 PIC X(1). CGLKMO
- 88 LKMO-FL-CORCOM-E VALUE 'E'. CGLKMO
- 88 LKMO-FL-CORCOM-F VALUE 'F'. CGLKMO
- 29 LKMO-CHOPC1 PIC X(1). CGLKMO
- 88 LKMO-FL-CHOPC1-P VALUE 'P'. CGLKMO
- 88 LKMO-FL-CHOPC1-C VALUE 'C'. CGLKMO
- 29 LKMO-CELPC1 PIC X(1). CGLKMO
- 88 LKMO-FL-CELPC1-1 VALUE '1'. CGLKMO
- 88 LKMO-FL-CELPC1-3 VALUE '3'. CGLKMO
- 88 LKMO-FL-CELPC1-A VALUE 'A'. CGLKMO
- 23 LKMO-PE0AFE. CGLKMO
- 26 LKMO-AFEDEB PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-AFEFIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIAFE. CGLKMO
- 29 LKMO-DEMPUR PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-NEMPUR PIC 9(18). CGLKMO
- 29 LKMO-CNAREF2 PIC X(1). CGLKMO
- 88 LKMO-FL-PERS-PHYS-REF2 VALUE 'P'. CGLKMO
- 88 LKMO-FL-PERS-MRAL-REF2 VALUE 'M'. CGLKMO
- 29 LKMO-NREFER2 PIC S9(7) COMP-3. CGLKMO
- 29 LKMO-NPSEUD PIC S9(15) COMP-3. CGLKMO
- 23 LKMO-PE0AGE. CGLKMO
- 26 LKMO-AGEDEB PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-AGEFIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIAGE. CGLKMO
- 29 LKMO-DEMPUR1 PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-NEMPUR1 PIC 9(18). CGLKMO
- 29 LKMO-CNAREF1 PIC X(1). CGLKMO
- 88 LKMO-FL-PERS-PHYS-REF1 VALUE 'P'. CGLKMO
- 88 LKMO-FL-PERS-MRAL-REF1 VALUE 'M'. CGLKMO
- 29 LKMO-NREFER1 PIC S9(7) COMP-3. CGLKMO
- 23 LKMO-PE0APC. CGLKMO
- 26 LKMO-EAVAPE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FAVAPE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIAPC. CGLKMO
- 29 LKMO-DDEMDS PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-DREFAP PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-CRGAPE PIC 9(1). CGLKMO
- 29 LKMO-DRETDS PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-CRETDS PIC X(1). CGLKMO
- 29 LKMO-NFICPN6 PIC S9(7) COMP-3. CGLKMO
- 23 LKMO-PE0APH. CGLKMO
- 26 LKMO-EAVICH PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FAVICH PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIAPH. CGLKMO
- 29 LKMO-CAVICH PIC X(1). CGLKMO
- 88 LKMO-FL-CAVICH-I VALUE 'I'. CGLKMO
- 88 LKMO-FL-CAVICH-A VALUE 'A'. CGLKMO
- 88 LKMO-FL-CAVICH-R VALUE 'R'. CGLKMO
- 88 LKMO-FL-CAVICH-M VALUE 'M'. CGLKMO
- 23 LKMO-PE0ARS. CGLKMO
- 26 LKMO-DANARS PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FANARS PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIARS. CGLKMO
- 29 LKMO-CATARS PIC X(1). CGLKMO
- 88 LKMO-FL-ARS-ATT VALUE 'A'. CGLKMO
- 88 LKMO-FL-ARS-CHA VALUE 'T'. CGLKMO
- 88 LKMO-FL-ARS-ATT-CHA VALUE 'X'. CGLKMO
- 88 LKMO-FL-ARS-AUT-REG VALUE 'P'. CGLKMO
- 23 LKMO-PE0AVM. CGLKMO
- 26 LKMO-EAMAIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FAMAIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIAVM. CGLKMO
- 29 LKMO-CAMAIN PIC X(1). CGLKMO
- 88 LKMO-FL-CAMAIN-D VALUE 'D'. CGLKMO
- 88 LKMO-FL-CAMAIN-A VALUE 'A'. CGLKMO
- 88 LKMO-FL-CAMAIN-R VALUE 'R'. CGLKMO
- 23 LKMO-PE0BEP. CGLKMO
- 26 LKMO-EBAMRE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FBAMRE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIBEP. CGLKMO
- 29 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 29 LKMO-MEMOMA PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-CINDMR PIC X(1). CGLKMO
- 88 LKMO-FL-CINDMR-B VALUE 'B'. CGLKMO
- 88 LKMO-FL-CINDMR-F VALUE 'F'. CGLKMO
- 88 LKMO-FL-CINDMR-9 VALUE '9'. CGLKMO
- 29 LKMO-MAEF10 PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-MAEF20 PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-MAEF30 PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-MENEUR PIC S9(7)V9(2) COMP-3. CGLKMO
- 23 LKMO-PE0CAP. CGLKMO
- 26 LKMO-EMOCRM PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FMOCRM PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEICAP. CGLKMO
- 29 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 29 LKMO-MANAPI PIC S9(5)V9(2) COMP-3. CGLKMO
- 29 LKMO-MINTPI PIC S9(5)V9(2) COMP-3. CGLKMO
- 29 LKMO-MITHEP PIC S9(5)V9(2) COMP-3. CGLKMO
- 23 LKMO-PE0CIB. CGLKMO
- 26 LKMO-ETICIR1 PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FTICIR1 PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEICIB. CGLKMO
- 29 LKMO-ETICIR PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-FTICIR PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-FILLER CGLKMO
- OCCURS 023 TIMES PIC X(1). CGLKMO
- 23 LKMO-PE0COT. CGLKMO
- 26 LKMO-EACOAH PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FACOAH PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEICOT. CGLKMO
- 29 LKMO-CACOAH PIC X(1). CGLKMO
- 88 LKMO-FL-INI-COTO-AAH VALUE 'I'. CGLKMO
- 88 LKMO-FL-REN-COTO-AAH VALUE 'A'. CGLKMO
- 88 LKMO-FL-REFU-COTO-AAH VALUE 'R'. CGLKMO
- 88 LKMO-FL-CACOAH-M VALUE 'M'. CGLKMO
- 29 LKMO-NCODAH PIC S9(11) COMP-3. CGLKMO
- 23 LKMO-PE0COV. CGLKMO
- 26 LKMO-EACOAV PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FACOAV PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEICOV. CGLKMO
- 29 LKMO-CACOAV PIC X(1). CGLKMO
- 88 LKMO-FL-COTAV-ACC VALUE 'A'. CGLKMO
- 88 LKMO-FL-COTAV-REJ VALUE 'R'. CGLKMO
- 29 LKMO-NACOAV PIC X(10). CGLKMO
- 23 LKMO-PE0CRA. CGLKMO
- 26 LKMO-ECRALI PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FCRALI PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEICRA. CGLKMO
- 29 LKMO-CCRALI PIC X(2). CGLKMO
- 88 LKMO-FL-CCRALI-DD VALUE 'DD'. CGLKMO
- 88 LKMO-FL-CCRALI-DA VALUE 'DA'. CGLKMO
- 88 LKMO-FL-CCRALI-DR VALUE 'DR'. CGLKMO
- 88 LKMO-FL-CCRALI-TR VALUE 'TR'. CGLKMO
- 88 LKMO-FL-CCRALI-PE VALUE 'PE'. CGLKMO
- 88 LKMO-FL-CCRALI-SF VALUE 'SF'. CGLKMO
- 88 LKMO-FL-CCRALI-RE VALUE 'RE'. CGLKMO
- 88 LKMO-FL-CCRALI-PS VALUE 'PS'. CGLKMO
- 88 LKMO-FL-CCRALI-SA VALUE 'SA'. CGLKMO
- 88 LKMO-FL-CCRALI-AT VALUE 'AT'. CGLKMO
- 88 LKMO-FL-CCRALI-AC VALUE 'AC'. CGLKMO
- 88 LKMO-FL-CCRALI-AA VALUE 'AA'. CGLKMO
- 88 LKMO-FL-CCRALI-DS VALUE 'DS'. CGLKMO
- 88 LKMO-FL-CCRALI-MS VALUE 'MS'. CGLKMO
- 88 LKMO-FL-CCRALI-RM VALUE 'RM'. CGLKMO
- 88 LKMO-FL-CCRALI-SI VALUE 'SI'. CGLKMO
- 88 LKMO-FL-CCRALI-MA VALUE 'MA'. CGLKMO
- 29 LKMO-COROBA PIC X(3). CGLKMO
- 88 LKMO-FL-CORCRA-CJT VALUE 'CJT'. CGLKMO
- 88 LKMO-FL-CORCRA-PAR VALUE 'PAR'. CGLKMO
- 29 LKMO-CMDOBA PIC X(3). CGLKMO
- 88 LKMO-FL-CMDOBA-AVA VALUE 'AVA'. CGLKMO
- 88 LKMO-FL-CMDOBA-LOG VALUE 'LOG'. CGLKMO
- 88 LKMO-FL-CMDOBA-PAM VALUE 'PAM'. CGLKMO
- 88 LKMO-FL-CMDOBA-PHE VALUE 'PHE'. CGLKMO
- 88 LKMO-FL-CMDOBA-DCG VALUE 'DCG'. CGLKMO
- 88 LKMO-FL-CMDOBA-AUT VALUE 'AUT'. CGLKMO
- 29 LKMO-CEASFC PIC X(1). CGLKMO
- 88 LKMO-FL-CEASFC-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CEASFC-N VALUE 'N'. CGLKMO
- 29 LKMO-MSNCRA PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-MPACRA PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-LCOCRA PIC X(50). CGLKMO
- 23 LKMO-PE0CRE. CGLKMO
- 26 LKMO-EBAMRE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FBAMRE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEICRE. CGLKMO
- 29 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 29 LKMO-MBMRPE PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-CABNEU PIC X(2). CGLKMO
- 88 LKMO-FL-NEU-GEN VALUE 'NG'. CGLKMO
- 88 LKMO-FL-ABA-AUT-GEN VALUE 'AG'. CGLKMO
- 88 LKMO-FL-ABA-CHO-GEN VALUE 'CG'. CGLKMO
- 88 LKMO-FL-NEU-CAT VALUE 'NC'. CGLKMO
- 88 LKMO-FL-NEU-AAH VALUE 'NA'. CGLKMO
- 88 LKMO-FL-CABNEU-NR VALUE 'NR'. CGLKMO
- 88 LKMO-FL-CABNEU-NP VALUE 'NP'. CGLKMO
- 88 LKMO-FL-CABNEU-CP VALUE 'CP'. CGLKMO
- 88 LKMO-FL-CABNEU-CN VALUE 'CN'. CGLKMO
- 29 LKMO-CABNER PIC X(2). CGLKMO
- 88 LKMO-FL-CABNER-RN VALUE 'RN'. CGLKMO
- 88 LKMO-FL-CABNER-RM VALUE 'RM'. CGLKMO
- 29 LKMO-CMERES PIC X(1). CGLKMO
- 88 LKMO-FL-CMERES-A VALUE 'A'. CGLKMO
- 88 LKMO-FL-CMERES-C VALUE 'C'. CGLKMO
- 88 LKMO-FL-CMERES-N VALUE 'N'. CGLKMO
- 88 LKMO-FL-CMERES-H VALUE 'H'. CGLKMO
- 23 LKMO-PE0CRM. CGLKMO
- 26 LKMO-EMOCRM PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FMOCRM PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEICRM. CGLKMO
- 29 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 29 LKMO-MABNEU PIC S9(5)V9(2) COMP-3. CGLKMO
- 29 LKMO-MINTRM PIC S9(5)V9(2) COMP-3. CGLKMO
- 29 LKMO-MABIND PIC S9(5)V9(2) COMP-3. CGLKMO
- 29 LKMO-MREDHO PIC S9(5)V9(2) COMP-3. CGLKMO
- 29 LKMO-MITHEM PIC S9(5)V9(2) COMP-3. CGLKMO
- 23 LKMO-PE0CTS. CGLKMO
- 26 LKMO-ETSEJO PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FTSEJO PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEICTS. CGLKMO
- 29 LKMO-CTSNAT PIC X(3). CGLKMO
- 88 LKMO-FL-CTSNAT-AND VALUE 'AND'. CGLKMO
- 88 LKMO-FL-CTSNAT-APF VALUE 'APF'. CGLKMO
- 88 LKMO-FL-CTSNAT-APS VALUE 'APS'. CGLKMO
- 88 LKMO-FL-CTSNAT-APT VALUE 'APT'. CGLKMO
- 88 LKMO-FL-CTSNAT-AUT VALUE 'AUT'. CGLKMO
- 88 LKMO-FL-CTSNAT-CCT VALUE 'CCT'. CGLKMO
- 88 LKMO-FL-CTSNAT-CRA VALUE 'CRA'. CGLKMO
- 88 LKMO-FL-CTSNAT-CRC VALUE 'CRC'. CGLKMO
- 88 LKMO-FL-CTSNAT-CRE VALUE 'CRE'. CGLKMO
- 88 LKMO-FL-CTSNAT-CST VALUE 'CST'. CGLKMO
- 88 LKMO-FL-CTSNAT-CTS VALUE 'CTS'. CGLKMO
- 88 LKMO-FL-CTSNAT-DIS VALUE 'DIS'. CGLKMO
- 88 LKMO-FL-CTSNAT-DCE VALUE 'DCE'. CGLKMO
- 88 LKMO-FL-CTSNAT-FRO VALUE 'FRO'. CGLKMO
- 88 LKMO-FL-CTSNAT-MON VALUE 'MON'. CGLKMO
- 88 LKMO-FL-CTSNAT-OFP VALUE 'OFP'. CGLKMO
- 88 LKMO-FL-CTSNAT-OMI VALUE 'OMI'. CGLKMO
- 88 LKMO-FL-CTSNAT-PDC VALUE 'PDC'. CGLKMO
- 88 LKMO-FL-CTSNAT-RCS VALUE 'RCS'. CGLKMO
- 88 LKMO-FL-CTSNAT-REF VALUE 'REF'. CGLKMO
- 88 LKMO-FL-CTSNAT-RRA VALUE 'RRA'. CGLKMO
- 88 LKMO-FL-CTSNAT-RRC VALUE 'RRC'. CGLKMO
- 88 LKMO-FL-CTSNAT-RRE VALUE 'RRE'. CGLKMO
- 88 LKMO-FL-CTSNAT-RTS VALUE 'RTS'. CGLKMO
- 88 LKMO-FL-CTSNAT-RSA VALUE 'RSA'. CGLKMO
- 88 LKMO-FL-CTSNAT-RSR VALUE 'RSR'. CGLKMO
- 88 LKMO-FL-CTSNAT-RUN VALUE 'RUN'. CGLKMO
- 88 LKMO-FL-CTSNAT-RVA VALUE 'RVA'. CGLKMO
- 88 LKMO-FL-CTSNAT-VAC VALUE 'VAC'. CGLKMO
- 88 LKMO-FL-CTSNAT-VLS VALUE 'VLS'. CGLKMO
- 88 LKMO-FL-CTSNAT-CVC VALUE 'CVC'. CGLKMO
- 88 LKMO-FL-CTSNAT-RAF VALUE 'RAF'. CGLKMO
- 88 LKMO-FL-CTSNAT-RDA VALUE 'RDA'. CGLKMO
- 88 LKMO-FL-CTSNAT-RPI VALUE 'RPI'. CGLKMO
- 88 LKMO-FL-CTSNAT-ACC VALUE 'ACC'. CGLKMO
- 88 LKMO-FL-CTSNAT-M3M VALUE 'CRE' 'CRA' 'CSCGLKMO
- - 'T'. CGLKMO
- 88 LKMO-FL-CTSNAT-ENF-18A VALUE 'VLS' 'OMI' 'DICGLKMO
- - 'S' 'AUT' 'CVC' 'DCE' 'OFP' 'VAC' 'APF' 'CRC'. CGLKMO
- 88 LKMO-FL-CTSNAT-PER-18A VALUE 'DCE' 'OMI' 'DICGLKMO
- - 'S' 'VLS' 'CVC' 'OFP' 'VAC' 'APF'. CGLKMO
- 88 LKMO-FL-CTSNAT-PERS1 VALUE 'CRE' 'RUN' 'RVCGLKMO
- - 'A' 'RTS' 'RSR' 'RSA' 'AND' 'MON' 'VLS' 'APS'. CGLKMO
- 88 LKMO-FL-CTSNAT-PERS2 VALUE 'APT' 'CTS' 'FRCGLKMO
- - 'O' 'PDC' 'REF' 'CST' 'RCS' 'CRA' 'RRA' 'AUT'. CGLKMO
- 88 LKMO-FL-CTSNAT-PERS3 VALUE 'RRE' 'CRC' 'RACGLKMO
- - 'F' 'RDA' 'RPI'. CGLKMO
- 88 LKMO-FL-CTSNAT-MENTION VALUE 'RVA' 'RTS' 'RSCGLKMO
- - 'R' 'RSA' 'PDC' 'CST' 'CRC' 'APS' 'VLS' 'RAF'. CGLKMO
- 88 LKMO-FL-CTSNAT-MENTION1 VALUE 'RDA' 'RPI'. CGLKMO
- 29 LKMO-CTSMEN PIC X(2). CGLKMO
- 88 LKMO-FL-CTSMEN-AM VALUE 'AM'. CGLKMO
- 88 LKMO-FL-CTSMEN-AO VALUE 'AO'. CGLKMO
- 88 LKMO-FL-CTSMEN-AP VALUE 'AP'. CGLKMO
- 88 LKMO-FL-CTSMEN-A5 VALUE 'A5'. CGLKMO
- 88 LKMO-FL-CTSMEN-AS VALUE 'AS'. CGLKMO
- 88 LKMO-FL-CTSMEN-AT VALUE 'AT'. CGLKMO
- 88 LKMO-FL-CTSMEN-DR VALUE 'DR'. CGLKMO
- 88 LKMO-FL-CTSMEN-DS VALUE 'DS'. CGLKMO
- 88 LKMO-FL-CTSMEN-MF VALUE 'MF'. CGLKMO
- 88 LKMO-FL-CTSMEN-RF VALUE 'RF'. CGLKMO
- 88 LKMO-FL-CTSMEN-RR VALUE 'RR'. CGLKMO
- 88 LKMO-FL-CTSMEN-RS VALUE 'RS'. CGLKMO
- 88 LKMO-FL-CTSMEN-VF VALUE 'VF'. CGLKMO
- 88 LKMO-FL-CTSMEN-V5 VALUE 'V5'. CGLKMO
- 88 LKMO-FL-CTSMEN-RE VALUE 'RE'. CGLKMO
- 88 LKMO-FL-CTSMEN-CS VALUE 'CS'. CGLKMO
- 88 LKMO-FL-CTSMEN-PF VALUE 'PF'. CGLKMO
- 88 LKMO-FL-CTSMEN-PS VALUE 'PS'. CGLKMO
- 88 LKMO-FL-CTSMEN-SC VALUE 'SC'. CGLKMO
- 88 LKMO-FL-CTSMEN-S5 VALUE 'S5'. CGLKMO
- 88 LKMO-FL-CTSMEN-PE VALUE 'PE'. CGLKMO
- 88 LKMO-FL-CTSMEN-PT VALUE 'PT'. CGLKMO
- 88 LKMO-FL-CTSMEN-JT VALUE 'JT'. CGLKMO
- 88 LKMO-FL-CTSMEN-VI VALUE 'VI'. CGLKMO
- 88 LKMO-FL-CTSMEN-IO VALUE 'IO'. CGLKMO
- 88 LKMO-FL-CTSMEN-ET VALUE 'ET'. CGLKMO
- 88 LKMO-FL-CTSMEN-EO VALUE 'EO'. CGLKMO
- 88 LKMO-FL-CTSMEN-SA VALUE 'SA'. CGLKMO
- 88 LKMO-FL-CTSMEN-SO VALUE 'SO'. CGLKMO
- 88 LKMO-FL-CTSMEN-TT VALUE 'TT'. CGLKMO
- 88 LKMO-FL-CTSMEN-TO VALUE 'TO'. CGLKMO
- 88 LKMO-FL-CTSMEN-VO VALUE 'VO'. CGLKMO
- 88 LKMO-FL-CTSMEN-R5 VALUE 'R5'. CGLKMO
- 88 LKMO-FL-CTSMEN-AC VALUE 'AC'. CGLKMO
- 88 LKMO-FL-CTSMEN-AD VALUE 'AD'. CGLKMO
- 88 LKMO-FL-CTSMEN-CA VALUE 'CA'. CGLKMO
- 88 LKMO-FL-CTSMEN-CN VALUE 'CN'. CGLKMO
- 88 LKMO-FL-CTSMEN-CR VALUE 'CR'. CGLKMO
- 88 LKMO-FL-CTSMEN-DO VALUE 'DO'. CGLKMO
- 88 LKMO-FL-CTSMEN-DT VALUE 'DT'. CGLKMO
- 88 LKMO-FL-CTSMEN-RT VALUE 'RT'. CGLKMO
- 88 LKMO-FL-CTSMEN-RM VALUE 'RM'. CGLKMO
- 88 LKMO-FL-CTSMEN-PR VALUE 'PR'. CGLKMO
- 88 LKMO-FL-CTSMEN-CH VALUE 'CH'. CGLKMO
- 88 LKMO-FL-CTSMEN-C0 VALUE 'CO'. CGLKMO
- 88 LKMO-FL-CTSMEN-G0 VALUE 'GO'. CGLKMO
- 88 LKMO-FL-CTSMEN-SG VALUE 'SG'. CGLKMO
- 88 LKMO-FL-CTSMEN-FA VALUE 'FA'. CGLKMO
- 23 LKMO-PE0DAE. CGLKMO
- 26 LKMO-EENAPE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FENAPE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIDAE. CGLKMO
- 29 LKMO-CENAPE PIC X(1). CGLKMO
- 88 LKMO-FL-ENF-ORIG-DRT-APE VALUE 'O'. CGLKMO
- 88 LKMO-FL-ENF-NO-CONC-APE VALUE 'N'. CGLKMO
- 88 LKMO-FL-CENAPE-A VALUE 'A'. CGLKMO
- 23 LKMO-PE0DAP. CGLKMO
- 26 LKMO-EENAPI PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FENAPI PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIDAP. CGLKMO
- 29 LKMO-CENAPI PIC X(1). CGLKMO
- 88 LKMO-FL-ENF-ORIG-DRT-API VALUE 'O'. CGLKMO
- 88 LKMO-FL-ENF-NO-CONC VALUE 'N'. CGLKMO
- 23 LKMO-PE0DAR. CGLKMO
- 26 LKMO-EBAMRE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FBAMRE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIDAR. CGLKMO
- 29 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 29 LKMO-MABAAH PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-MABF10 PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-MABF20 PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-MABF30 PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-MNEURE PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-MARGAH PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-MABA10 PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-CPPNEX PIC X(1). CGLKMO
- 23 LKMO-PE0DDA. CGLKMO
- 26 LKMO-EWADSF PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FWADSF PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIDDA. CGLKMO
- 29 LKMO-CWADSF PIC X(1). CGLKMO
- 88 LKMO-FL-REFU-DISP VALUE 'R'. CGLKMO
- 88 LKMO-FL-ACOD-DISP-AVR VALUE 'A'. CGLKMO
- 88 LKMO-FL-ACOD-DISP-SS-REDU VALUE 'S'. CGLKMO
- 88 LKMO-FL-CWADSF-P VALUE 'P'. CGLKMO
- 23 LKMO-PE0DDI. CGLKMO
- 26 LKMO-DDIDEB PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-DDIFIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIDDI. CGLKMO
- 29 LKMO-DWDDSF PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-CWDDSF PIC X(2). CGLKMO
- 88 LKMO-FL-PRO-REF-DIS VALUE 'RF'. CGLKMO
- 88 LKMO-FL-PRO-DISP-AVR VALUE 'DR'. CGLKMO
- 88 LKMO-FL-PRO-DISP-TOT VALUE 'DT'. CGLKMO
- 88 LKMO-FL-ACT-ENG VALUE 'AE'. CGLKMO
- 23 LKMO-PE0DER. CGLKMO
- 26 LKMO-EWDEPR PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FWDEPR PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIDER. CGLKMO
- 29 LKMO-CWDEAG PIC X(1). CGLKMO
- 88 LKMO-FL-CWDEAG-D VALUE 'D'. CGLKMO
- 88 LKMO-FL-CWDEAG-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CWDEAG-N VALUE 'N'. CGLKMO
- 29 LKMO-CWDERE PIC X(1). CGLKMO
- 88 LKMO-FL-CWDERE-D VALUE 'D'. CGLKMO
- 88 LKMO-FL-CWDERE-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CWDERE-N VALUE 'N'. CGLKMO
- 29 LKMO-CWDENA PIC X(1). CGLKMO
- 88 LKMO-FL-CWDENA-D VALUE 'D'. CGLKMO
- 88 LKMO-FL-CWDENA-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CWDENA-N VALUE 'N'. CGLKMO
- 29 LKMO-CWDEAC PIC X(1). CGLKMO
- 88 LKMO-FL-CWDEAC-D VALUE 'D'. CGLKMO
- 88 LKMO-FL-CWDEAC-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CWDEAC-N VALUE 'N'. CGLKMO
- 29 LKMO-CWDESU PIC X(1). CGLKMO
- 88 LKMO-FL-CWDESU-D VALUE 'D'. CGLKMO
- 88 LKMO-FL-CWDESU-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CWDESU-N VALUE 'N'. CGLKMO
- 23 LKMO-PE0DPE. CGLKMO
- 26 LKMO-EDOPER PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FDOPER PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIDPE. CGLKMO
- 29 LKMO-CDOPER PIC X(3). CGLKMO
- 88 LKMO-FL-AGNT-CAF VALUE 'CAF'. CGLKMO
- 88 LKMO-FL-AGNT-CTRI VALUE 'CTI'. CGLKMO
- 88 LKMO-FL-ADTR-CTRI VALUE 'ADM'. CGLKMO
- 23 LKMO-PE0DPO. CGLKMO
- 26 LKMO-EPOTRM PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FPOTRM PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIDPO. CGLKMO
- 29 LKMO-CWDRPO PIC X(1). CGLKMO
- 88 LKMO-FL-DRT-POTI-RMI VALUE 'O'. CGLKMO
- 88 LKMO-FL-PAS-DRT-POTI-RMI VALUE 'N'. CGLKMO
- 88 LKMO-FL-CWDRPO-J VALUE 'J'. CGLKMO
- 88 LKMO-FL-CWDRPO-P VALUE 'P'. CGLKMO
- 23 LKMO-PE0DRJ. CGLKMO
- 26 LKMO-EDTSEJ PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FDTSEJ PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIDRJ. CGLKMO
- 29 LKMO-CTDTSJ PIC X(1). CGLKMO
- 88 LKMO-FL-CTDTSJ-P VALUE 'P'. CGLKMO
- 88 LKMO-FL-CTDTSJ-D VALUE 'D'. CGLKMO
- 29 LKMO-CODTSJ PIC X(2). CGLKMO
- 88 LKMO-FL-CODTSJ-AC VALUE 'AC'. CGLKMO
- 88 LKMO-FL-CODTSJ-IN VALUE 'IN'. CGLKMO
- 88 LKMO-FL-CODTSJ-EF VALUE 'EF'. CGLKMO
- 88 LKMO-FL-CODTSJ-CJ VALUE 'CJ'. CGLKMO
- 88 LKMO-FL-CODTSJ-DE VALUE 'DE'. CGLKMO
- 88 LKMO-FL-CODTSJ-TR VALUE 'TR'. CGLKMO
- 29 LKMO-CNDTSJ PIC X(3). CGLKMO
- 88 LKMO-FL-CNDTSJ-DSA VALUE 'DSA'. CGLKMO
- 88 LKMO-FL-CNDTSJ-DSM VALUE 'DSM'. CGLKMO
- 88 LKMO-FL-CNDTSJ-DSP VALUE 'DSP'. CGLKMO
- 88 LKMO-FL-CNDSTJ-NDS VALUE 'NDS'. CGLKMO
- 23 LKMO-PE0EAA. CGLKMO
- 26 LKMO-EACAAH PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FACAAH PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIEAA. CGLKMO
- 29 LKMO-CACTIV1 PIC X(3). CGLKMO
- 23 LKMO-PE0EBO. CGLKMO
- 26 LKMO-EBODEB PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-EBOFIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIEBO. CGLKMO
- 29 LKMO-FILLER PIC X(1). CGLKMO
- 23 LKMO-PE0HAH. CGLKMO
- 26 LKMO-EEFHAH PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FAFHAH PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIHAH. CGLKMO
- 29 LKMO-CHOSPI2 PIC X(6). CGLKMO
- 29 LKMO-CPADFJ2 PIC X(1). CGLKMO
- 23 LKMO-PE0HMI. CGLKMO
- 26 LKMO-EWEFHO PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FWEFHO PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIHMI. CGLKMO
- 29 LKMO-CHOSPI1 PIC X(6). CGLKMO
- 29 LKMO-CPADFJ1 PIC X(1). CGLKMO
- 23 LKMO-PE0HOS. CGLKMO
- 26 LKMO-EPMHOS1 PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FPMHOS PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIHOS. CGLKMO
- 29 LKMO-QJRFYM PIC S9(3) COMP-3. CGLKMO
- 29 LKMO-EPMHOS PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-PE0HRA. CGLKMO
- 26 LKMO-EHOSPE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FHOSPE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIHRA. CGLKMO
- 29 LKMO-CHOSPI PIC X(6). CGLKMO
- 88 LKMO-FL-HOSP-SS-INDM-JOUR VALUE 'HOSSIJ'. CGLKMO
- 88 LKMO-FL-HOSP-AVEC-IND VALUE 'HOSIND'. CGLKMO
- 88 LKMO-FL-HOSP-NON-PEC VALUE 'HOSNPC'. CGLKMO
- 88 LKMO-FL-HOSP-AVEC-PEC VALUE 'HOSPEC'. CGLKMO
- 88 LKMO-FL-PLAC-EN-MAS VALUE 'PLAMAS'. CGLKMO
- 88 LKMO-FL-HEBE-EN-CHRS VALUE 'HEBCHR'. CGLKMO
- 88 LKMO-FL-MAFY-SR-AVIS-COTO VALUE 'MAIFOY'. CGLKMO
- 88 LKMO-FL-HEBE-TEMP VALUE 'HEBTEM'. CGLKMO
- 88 LKMO-FL-HEBE-DFNT VALUE 'HEBDEF'. CGLKMO
- 88 LKMO-FL-MEI-AVEC-OEM VALUE 'MAIMAS'. CGLKMO
- 88 LKMO-FL-MEI-AVEC-OEF-HEBE VALUE 'MAIHEB'. CGLKMO
- 88 LKMO-FL-MEI-SS-DECI-ORIE VALUE 'MAISDO'. CGLKMO
- 88 LKMO-FL-HOSP VALUE 'HOSSIJ' 'HOSINCGLKMO
- - 'D' 'HOSNPC' 'HOSPEC' 'PLAMAS' 'HEBCHR'. CGLKMO
- 88 LKMO-FL-HOSP-SS-INDM VALUE 'HOSSIJ' 'HOSNPCGLKMO
- - 'C'. CGLKMO
- 29 LKMO-CPADFJ PIC X(1). CGLKMO
- 88 LKMO-FL-CPADFJ-T VALUE 'T'. CGLKMO
- 88 LKMO-FL-CPADFJ-M VALUE 'M'. CGLKMO
- 88 LKMO-FL-AAH-PAI-FOJ VALUE 'O'. CGLKMO
- 88 LKMO-FL-AAH-NON-FOJ VALUE 'N'. CGLKMO
- 29 LKMO-DSUIFJ PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-CSUIFJ PIC X(1). CGLKMO
- 88 LKMO-FL-CSUIFJ-A VALUE 'A'. CGLKMO
- 88 LKMO-FL-CSUIFJ-N VALUE 'N'. CGLKMO
- 88 LKMO-FL-CSUIFJ-R VALUE 'R'. CGLKMO
- 23 LKMO-PE0IAG. CGLKMO
- 26 LKMO-ETRIAG PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FTRIAG1 PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIIAG. CGLKMO
- 29 LKMO-CCUVAG PIC X(1). CGLKMO
- 88 LKMO-FL-AGED-COTI VALUE 'O'. CGLKMO
- 88 LKMO-FL-AGED-NO-COTI VALUE 'N'. CGLKMO
- 29 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 29 LKMO-MCOTAG PIC S9(5)V9(2) COMP-3. CGLKMO
- 29 LKMO-CCAVAC PIC X(1). CGLKMO
- 29 LKMO-FTRIAG PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-PE0INC. CGLKMO
- 26 LKMO-EINCPE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FINCPE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIINC. CGLKMO
- 29 LKMO-TINCPN PIC S9(3)V9(2) COMP-3. CGLKMO
- 23 LKMO-PE0INV. CGLKMO
- 26 LKMO-EINVPE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FINVPE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIINV. CGLKMO
- 29 LKMO-CCAINV PIC X(1). CGLKMO
- 88 LKMO-FL-CRT-INV-TRA VALUE 'T'. CGLKMO
- 88 LKMO-FL-CRT-INV-GUE VALUE 'G'. CGLKMO
- 88 LKMO-FL-CRT-INV-S80 VALUE 'Z'. CGLKMO
- 88 LKMO-FL-CRT-INV-DEF VALUE 'D'. CGLKMO
- 29 LKMO-NDCINV PIC X(9). CGLKMO
- 23 LKMO-PE0JUE. CGLKMO
- 26 LKMO-JUEDEB PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-JUEFIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIJUE. CGLKMO
- 29 LKMO-CJUENF PIC X(1). CGLKMO
- 88 LKMO-FL-CJUENF-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CJUENF-N VALUE 'N'. CGLKMO
- 88 LKMO-FL-CJUENF-I VALUE 'I'. CGLKMO
- 88 LKMO-FL-CJUENF-P VALUE 'P'. CGLKMO
- 29 LKMO-CNOREP PIC X(2). CGLKMO
- 88 LKMO-FL-CNOREP-HD VALUE 'HD'. CGLKMO
- 88 LKMO-FL-CNOREP-HM VALUE 'HM'. CGLKMO
- 88 LKMO-FL-CNOREP-PV VALUE 'SP'. CGLKMO
- 88 LKMO-FL-CNOREP-CO VALUE 'CO'. CGLKMO
- 88 LKMO-FL-CNOREP-XX VALUE 'XX'. CGLKMO
- 23 LKMO-PE0LAF. CGLKMO
- 26 LKMO-EPLACE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FPLACE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEILAF. CGLKMO
- 29 LKMO-CNADES1 PIC X(1). CGLKMO
- 29 LKMO-NDESTI1 PIC S9(7) COMP-3. CGLKMO
- 29 LKMO-CLAFMA PIC X(1). CGLKMO
- 88 LKMO-FL-LIEN-AFFE-MAIN VALUE 'O'. CGLKMO
- 88 LKMO-FL-LIEN-AFFE-NO-MAIN VALUE 'N'. CGLKMO
- 88 LKMO-FL-LIEN-MAIN-PAI-PAR VALUE 'M'. CGLKMO
- 29 LKMO-CTYPLA PIC X(3). CGLKMO
- 88 LKMO-FL-CTYPLA-ASE VALUE 'ASE'. CGLKMO
- 88 LKMO-FL-CTYPLA-ORG VALUE 'ORG'. CGLKMO
- 88 LKMO-FL-CTYPLA-URG VALUE 'URG'. CGLKMO
- 88 LKMO-FL-CTYPLA-AED VALUE 'AED'. CGLKMO
- 23 LKMO-PE0LIM. CGLKMO
- 26 LKMO-ELIPEA PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FLIPEA PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEILIM. CGLKMO
- 29 LKMO-NFICPN1 PIC S9(7) COMP-3. CGLKMO
- 29 LKMO-CTYPAR1 PIC X(3). CGLKMO
- 88 LKMO-FL-LGIT VALUE 'LEG'. CGLKMO
- 88 LKMO-FL-CTYPAR-LEA VALUE 'LEA'. CGLKMO
- 88 LKMO-FL-RECL VALUE 'REC'. CGLKMO
- 88 LKMO-FL-REV-ADOP VALUE 'REA'. CGLKMO
- 88 LKMO-FL-ADOP VALUE 'ADP'. CGLKMO
- 88 LKMO-FL-NATU VALUE 'NAT'. CGLKMO
- 88 LKMO-FL-FRER-OU-SOEU VALUE 'FRE'. CGLKMO
- 88 LKMO-FL-NEVE-OU-NIEC VALUE 'NEV'. CGLKMO
- 88 LKMO-FL-DECD VALUE 'DES'. CGLKMO
- 88 LKMO-FL-ASCD VALUE 'ASC'. CGLKMO
- 88 LKMO-FL-ONCL-OU-TANT VALUE 'ONC'. CGLKMO
- 88 LKMO-FL-AUTR-OU-SS-LDP VALUE 'AUT'. CGLKMO
- 88 LKMO-FL-BAFI-OU-BEFI VALUE 'BFI'. CGLKMO
- 88 LKMO-FL-COLL-DE-DEGR-QUA VALUE 'COL'. CGLKMO
- 88 LKMO-FL-CTYPAR-CPAM-E VALUE 'LEG' 'REC' 'RECGLKMO
- - 'A' 'ADP' 'NAT' 'LEA'. CGLKMO
- 88 LKMO-FL-CTYPAR-CPAM-AD VALUE 'FRE' 'NEV' 'DECGLKMO
- - 'S' 'ASC' 'ONC' 'BFI' 'COL'. CGLKMO
- 88 LKMO-FL-CTYPAR-CPAM-AA VALUE 'AUT'. CGLKMO
- 23 LKMO-PE0LIP. CGLKMO
- 26 LKMO-ELIPER PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FLIPER PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEILIP. CGLKMO
- 29 LKMO-NFICPN2 PIC S9(7) COMP-3. CGLKMO
- 29 LKMO-CTYPAR PIC X(3). CGLKMO
- 88 LKMO-FL-LGIT VALUE 'LEG'. CGLKMO
- 88 LKMO-FL-CTYPAR-LEA VALUE 'LEA'. CGLKMO
- 88 LKMO-FL-RECL VALUE 'REC'. CGLKMO
- 88 LKMO-FL-REV-ADOP VALUE 'REA'. CGLKMO
- 88 LKMO-FL-ADOP VALUE 'ADP'. CGLKMO
- 88 LKMO-FL-NATU VALUE 'NAT'. CGLKMO
- 88 LKMO-FL-FRER-OU-SOEU VALUE 'FRE'. CGLKMO
- 88 LKMO-FL-NEVE-OU-NIEC VALUE 'NEV'. CGLKMO
- 88 LKMO-FL-DECD VALUE 'DES'. CGLKMO
- 88 LKMO-FL-ASCD VALUE 'ASC'. CGLKMO
- 88 LKMO-FL-ONCL-OU-TANT VALUE 'ONC'. CGLKMO
- 88 LKMO-FL-AUTR-OU-SS-LDP VALUE 'AUT'. CGLKMO
- 88 LKMO-FL-BAFI-OU-BEFI VALUE 'BFI'. CGLKMO
- 88 LKMO-FL-COLL-DE-DEGR-QUA VALUE 'COL'. CGLKMO
- 88 LKMO-FL-CTYPAR-CPAM-E VALUE 'LEG' 'REC' 'RECGLKMO
- - 'A' 'ADP' 'NAT' 'LEA'. CGLKMO
- 88 LKMO-FL-CTYPAR-CPAM-AD VALUE 'FRE' 'NEV' 'DECGLKMO
- - 'S' 'ASC' 'ONC' 'BFI' 'COL'. CGLKMO
- 88 LKMO-FL-CTYPAR-CPAM-AA VALUE 'AUT'. CGLKMO
- 23 LKMO-PE0MGA. CGLKMO
- 26 LKMO-MGADEB PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-MGAFIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIMGA. CGLKMO
- 29 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 29 LKMO-MREVCM PIC S9(7)V9(2) COMP-3. CGLKMO
- 29 LKMO-CCAVAV PIC X(1). CGLKMO
- 88 LKMO-FL-CCAVAV-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CCAVAV-N VALUE 'N'. CGLKMO
- 23 LKMO-PE0MGG. CGLKMO
- 26 LKMO-MGGDEB PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-MGGFIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIMGG. CGLKMO
- 29 LKMO-FILLER PIC X(1). CGLKMO
- 23 LKMO-PE0MRP. CGLKMO
- 26 LKMO-MRPDEB PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-MRPFIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIMRP. CGLKMO
- 29 LKMO-MRPRMN PIC S9(5)V9(2) COMP-3. CGLKMO
- 29 LKMO-MRPABN PIC S9(5)V9(2) COMP-3. CGLKMO
- 29 LKMO-MRPEXC PIC S9(5)V9(2) COMP-3. CGLKMO
- 23 LKMO-PE0NAA. CGLKMO
- 26 LKMO-EACMAH PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FACMAH PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEINAA. CGLKMO
- 29 LKMO-CACTIV2 PIC X(3). CGLKMO
- 29 LKMO-EACTPN3 PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-PE0OAH. CGLKMO
- 26 LKMO-EOPPOS PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FOPPOS PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIOAH. CGLKMO
- 29 LKMO-CNADES2 PIC X(1). CGLKMO
- 29 LKMO-NDESTI2 PIC S9(7) COMP-3. CGLKMO
- 23 LKMO-PE0OES. CGLKMO
- 26 LKMO-EOAESE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FOAESE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIOES. CGLKMO
- 29 LKMO-CNADES3 PIC X(1). CGLKMO
- 29 LKMO-NDESTI3 PIC S9(7) COMP-3. CGLKMO
- 23 LKMO-PE0PAC. CGLKMO
- 26 LKMO-EACCOM PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FACCOM PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIPAC. CGLKMO
- 29 LKMO-CACNAT PIC X(4). CGLKMO
- 88 LKMO-FL-CACNAT-PP VALUE 'PP'. CGLKMO
- 88 LKMO-FL-CACNAT-CT VALUE 'CT'. CGLKMO
- 88 LKMO-FL-CACNAT-CERM VALUE 'CERM'. CGLKMO
- 88 LKMO-FL-CACNAT-CERP VALUE 'CERP'. CGLKMO
- 88 LKMO-FL-CACNAT-CERS VALUE 'CERS'. CGLKMO
- 29 LKMO-CACETA PIC X(1). CGLKMO
- 88 LKMO-FL-CACETA-I VALUE 'I'. CGLKMO
- 88 LKMO-FL-CACETA-R VALUE 'R'. CGLKMO
- 29 LKMO-YCORSA PIC X(1). CGLKMO
- 88 LKMO-FL-PERS-PHYS-REF VALUE 'P'. CGLKMO
- 88 LKMO-FL-PERS-MRAL-REF VALUE 'M'. CGLKMO
- 29 LKMO-NCORS1 PIC S9(7) COMP-3. CGLKMO
- 23 LKMO-PE0PAH. CGLKMO
- 26 LKMO-EGESAH PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FGESAH PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIPAH. CGLKMO
- 29 LKMO-CGESAH PIC X(1). CGLKMO
- 88 LKMO-FL-CGESAH-A VALUE 'A'. CGLKMO
- 88 LKMO-FL-CGESAH-T VALUE 'T'. CGLKMO
- 23 LKMO-CDPE0PEN. CGLKMO
- 26 LKMO-DRDMPE PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CRDMPN PIC X(1). CGLKMO
- 88 LKMO-FL-RCP-DEP VALUE 'D'. CGLKMO
- 88 LKMO-FL-REPO-DE-LIQU-PERR VALUE 'R'. CGLKMO
- 88 LKMO-FL-NO-RECU-PERR VALUE 'N'. CGLKMO
- 88 LKMO-FL-CRDMPN-M VALUE 'M'. CGLKMO
- 23 LKMO-PE0RAL. CGLKMO
- 26 LKMO-RALDEB PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-RALFIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIRAL. CGLKMO
- 29 LKMO-EAVPAF PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-CAVPAF PIC X(1). CGLKMO
- 88 LKMO-FL-CAVPAF-A VALUE 'A'. CGLKMO
- 88 LKMO-FL-CAVPAF-D VALUE 'D'. CGLKMO
- 29 LKMO-CETPAF PIC X(1). CGLKMO
- 88 LKMO-FL-CETPAF-P VALUE 'P'. CGLKMO
- 88 LKMO-FL-CETPAF-A VALUE 'A'. CGLKMO
- 88 LKMO-FL-CETPAF-U VALUE 'U'. CGLKMO
- 88 LKMO-FL-CETPAF-F VALUE 'F'. CGLKMO
- 23 LKMO-PE0RD0. CGLKMO
- 26 LKMO-EPTPAY PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FPTPAY PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIRD0. CGLKMO
- 29 LKMO-DDPTRF PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-QJRTFP PIC S9(3) COMP-3. CGLKMO
- 29 LKMO-QJRTRQ PIC S9(3) COMP-3. CGLKMO
- 23 LKMO-PE0RSD. CGLKMO
- 26 LKMO-ERESPN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FRESPX PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEIRSD. CGLKMO
- 29 LKMO-CRESPN PIC X(2). CGLKMO
- 88 LKMO-FL-MTPL-SAUF-IDF VALUE 'M0'. CGLKMO
- 88 LKMO-FL-DOM-RES VALUE 'M2'. CGLKMO
- 88 LKMO-FL-ASML-TRDE-EN-CE VALUE 'M3'. CGLKMO
- 88 LKMO-FL-ASML-TRDE-HORS-CE VALUE 'M4'. CGLKMO
- 88 LKMO-FL-ETBL-BELG-AA-COTO VALUE 'M5'. CGLKMO
- 88 LKMO-FL-HAE-CE-OU-HOCE VALUE 'M6'. CGLKMO
- 88 LKMO-FL-CE-HORS-FRA-AUSI VALUE 'M7'. CGLKMO
- 88 LKMO-FL-ETR-HORS-CEE-AUSI VALUE 'M8'. CGLKMO
- 88 LKMO-FL-ETR-FAM-FRA VALUE 'M9'. CGLKMO
- 88 LKMO-FL-ETR-FAM-SANS-PF VALUE 'MA'. CGLKMO
- 88 LKMO-FL-ACC-PAR-DET VALUE 'MB'. CGLKMO
- 29 LKMO-CTSEJE PIC X(2). CGLKMO
- 88 LKMO-FL-SANT-RES VALUE '10'. CGLKMO
- 88 LKMO-FL-ETUD-BOUR-RES VALUE '11'. CGLKMO
- 88 LKMO-FL-APP-LANG-RES VALUE '12'. CGLKMO
- 88 LKMO-FL-STAG-FORM-PROF VALUE '13'. CGLKMO
- 88 LKMO-FL-APP-RES VALUE '14'. CGLKMO
- 88 LKMO-FL-AUTR-RES VALUE '15'. CGLKMO
- 88 LKMO-FL-ETUD-NON-BOUR-RES VALUE '16'. CGLKMO
- 29 LKMO-CPYRES PIC X(2). CGLKMO
- 88 LKMO-FL-CPYRES-UE-1 VALUE 'AT' 'BE' 'BG' CGLKMO
- 'CY' 'CZ' 'DE' 'DK' 'EE' 'ES' 'FI' 'GB' 'GR'. CGLKMO
- 88 LKMO-FL-CPYRES-UE-2 VALUE 'HU' 'IE' 'IT' CGLKMO
- 'LT' 'LU' 'LV' 'MT' 'NL' 'PL' 'PT' 'RO' 'SE'. CGLKMO
- 88 LKMO-FL-CPYRES-UE-3 VALUE 'SI' 'SK' 'HR'.CGLKMO
- 88 LKMO-FL-CPYRES-EEE VALUE 'IS' 'LI' 'NO'.CGLKMO
- 88 LKMO-FL-CPYRES-SUISSE VALUE 'CH'. CGLKMO
- 23 LKMO-PE0SAI. CGLKMO
- 26 LKMO-EWCASA PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FWCASA PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEISAI. CGLKMO
- 29 LKMO-CASETI PIC X(1). CGLKMO
- 88 LKMO-FL-COND-ADMF VALUE 'O'. CGLKMO
- 88 LKMO-FL-COND-ADMF-NO-REMP VALUE 'N'. CGLKMO
- 23 LKMO-PE0SEJ. CGLKMO
- 26 LKMO-ETISEJ PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FTISEJ PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEISEJ. CGLKMO
- 29 LKMO-CNATSE PIC X(3). CGLKMO
- 88 LKMO-FL-TIS-AVP VALUE 'AVP'. CGLKMO
- 88 LKMO-FL-TIS-ENT-REG VALUE 'ERG'. CGLKMO
- 88 LKMO-FL-TIS-NON-DRO VALUE 'NDR'. CGLKMO
- 88 LKMO-FL-TIS-LOG-PF VALUE 'PFL'. CGLKMO
- 88 LKMO-FL-TIS-TOU-PRE VALUE 'TTP'. CGLKMO
- 88 LKMO-FL-TIS-SAUF-RMI VALUE 'TTM'. CGLKMO
- 88 LKMO-FL-TIS-RMI VALUE 'RMI'. CGLKMO
- 88 LKMO-FL-CNATSE-TTV VALUE 'TTV'. CGLKMO
- 88 LKMO-FL-CNATSE-RSA VALUE 'RSA'. CGLKMO
- 88 LKMO-FL-CNATSE-PPA VALUE 'PPA'. CGLKMO
- 88 LKMO-FL-CNATSE-PAM VALUE 'PAM'. CGLKMO
- 23 LKMO-PE0SRP. CGLKMO
- 26 LKMO-ESUCPA PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FSUCPA PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEISRP. CGLKMO
- 29 LKMO-CPECSU PIC X(1). CGLKMO
- 88 LKMO-FL-CPECSU-L VALUE 'L'. CGLKMO
- 88 LKMO-FL-CPECSU-S VALUE 'S'. CGLKMO
- 29 LKMO-CORCPA PIC X(2). CGLKMO
- 88 LKMO-FL-CORCPA-IA VALUE 'IA'. CGLKMO
- 88 LKMO-FL-CORCPA-CG VALUE 'CG'. CGLKMO
- 29 LKMO-QMOCPA PIC S9(3) COMP-3. CGLKMO
- 29 LKMO-CNAPRS PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-PRX VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-APX VALUE 'AP1' 'AP2' 'APCGLKMO
- - '3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-IND1 VALUE 'AJE' 'CFA' 'AHCGLKMO
- - '1' 'AH2' 'ALS' 'ALF' 'ARS' 'PJ1' 'PJ2' 'PJ3'. CGLKMO
- 88 LKMO-FL-CNAPRS-IND2 VALUE 'APL' 'AGD' 'AFCGLKMO
- - 'E' 'RSO' 'PJ4'. CGLKMO
- 88 LKMO-FL-CNAPRS-NON-MEN VALUE 'AFE' 'AGD' 'PJCGLKMO
- - '4' 'API' 'RMI' 'ADI' 'PJ5'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-NOTIF VALUE 'RSD' 'RSI' 'RSCGLKMO
- - 'U' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-25 VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-SOC VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RSJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-ACT VALUE 'RCB' 'RCD' 'RCCGLKMO
- - 'I' 'RCU' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-JEU VALUE 'RSJ' 'RCJ' 'RSCGLKMO
- - 'U'. CGLKMO
- 88 LKMO-FL-CNAPRS-PAC VALUE 'PPA' 'PPI'. CGLKMO
- 88 LKMO-FL-CNAPRS-AH1 VALUE 'AH1' 'FH1' 'CHCGLKMO
- - '1' 'CH3' 'CR1' 'CR3'. CGLKMO
- 88 LKMO-FL-CNAPRS-AH2 VALUE 'AH2' 'FH2' 'CHCGLKMO
- - '2' 'CH4' 'CR2' 'CR4'. CGLKMO
- 88 LKMO-FL-CNAPRS-LOG VALUE 'ALF' 'ALS' 'APCGLKMO
- - 'L'. CGLKMO
- 88 LKMO-FL-CNAPRS-ASF VALUE 'ASF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RMA VALUE 'RMA'. CGLKMO
- 88 LKMO-FL-CNAPRS-CAV VALUE 'CAV'. CGLKMO
- 88 LKMO-FL-CNAPRS-CDI VALUE 'CDI'. CGLKMO
- 88 LKMO-FL-CNAPRS-FICTIVE VALUE 'PAF' 'SAF' 'SICGLKMO
- - 'F'. CGLKMO
- 88 LKMO-FL-CNAPRS-PAF VALUE 'PAF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-FICTIF VALUE 'SAF' 'SIF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSF VALUE 'RSF'. CGLKMO
- 29 LKMO-CNAPRS1 PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 23 LKMO-PE0SUS. CGLKMO
- 26 LKMO-ESUSPN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FSUSPN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEISUS. CGLKMO
- 29 LKMO-CSUSPN PIC X(1). CGLKMO
- 88 LKMO-FL-AUTR-MTF-SUS VALUE 'A'. CGLKMO
- 88 LKMO-FL-CSUSPN-B VALUE 'B'. CGLKMO
- 88 LKMO-FL-CTRL-CHRG-ENF-SUS VALUE 'C'. CGLKMO
- 88 LKMO-FL-CTRL-RSDT-ENF-SUS VALUE 'R'. CGLKMO
- 88 LKMO-FL-CSUSPN-E VALUE 'E'. CGLKMO
- 88 LKMO-FL-CSUSPN-G VALUE 'G'. CGLKMO
- 88 LKMO-FL-CSUSPN-V VALUE 'V'. CGLKMO
- 23 LKMO-PE0TAG. CGLKMO
- 26 LKMO-ETRIAG PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-FTRIAG PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEITAG. CGLKMO
- 29 LKMO-TAUXAG PIC X(3). CGLKMO
- 88 LKMO-FL-AGED-75 VALUE '075'. CGLKMO
- 88 LKMO-FL-AGED-50 VALUE '050'. CGLKMO
- 88 LKMO-FL-AGED-MI VALUE 'MIN'. CGLKMO
- 88 LKMO-FL-AGED-75-MAIN VALUE '75M'. CGLKMO
- 88 LKMO-FL-AGED-50-MAIN VALUE '50M'. CGLKMO
- 88 LKMO-FL-AGED-75-SAI VALUE '75S'. CGLKMO
- 88 LKMO-FL-AGED-50-SAI VALUE '50S'. CGLKMO
- 23 LKMO-PE0TPA. CGLKMO
- 26 LKMO-TPADEB PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-TPAFIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEITPA. CGLKMO
- 29 LKMO-DACTNA PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-CTPAYS PIC X(1). CGLKMO
- 88 LKMO-FL-FRAN-TPA VALUE 'F'. CGLKMO
- 88 LKMO-FL-CE-TPA VALUE 'C'. CGLKMO
- 88 LKMO-FL-AUTR-TPA VALUE 'A'. CGLKMO
- 29 LKMO-CNATIO PIC X(2). CGLKMO
- 88 LKMO-FL-CNATIO-UE-1 VALUE 'AT' 'BE' 'BG' CGLKMO
- 'CY' 'CZ' 'DE' 'DK' 'EE' 'ES' 'FI' 'FR' 'GB'. CGLKMO
- 88 LKMO-FL-CNATIO-UE-2 VALUE 'GR' 'HU' 'IE' CGLKMO
- 'IT' 'LT' 'LU' 'LV' 'MT' 'NL' 'PL' 'PT' 'RO'. CGLKMO
- 88 LKMO-FL-CNATIO-UE-3 VALUE 'SE' 'SI' 'SK'.CGLKMO
- 88 LKMO-FL-CNATIO-EEE VALUE 'IS' 'LI' 'NO'.CGLKMO
- 23 LKMO-PE0TPE. CGLKMO
- 26 LKMO-TPEDEB PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-TPEFIN PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CDPEITPE. CGLKMO
- 29 LKMO-CTAPAR PIC X(3). CGLKMO
- 88 LKMO-FL-CTAPAR-TX1 VALUE 'TX1'. CGLKMO
- 88 LKMO-FL-CTAPAR-TX2 VALUE 'TX2'. CGLKMO
- 17 LKMO-CGPEPOS. CGLKMO
- 20 LKMO-CGPOSRES. CGLKMO
- 23 LKMO-RESS-IBAN03 PIC S9(3) COMP-3. CGLKMO
- 20 LKMO-CGPOSJUG. CGLKMO
- 23 LKMO-JUG-IBAN03 PIC S9(3) COMP-3. CGLKMO
- 17 LKMO-CGDEMAN. CGLKMO
- 20 LKMO-CGDMASF. CGLKMO
- 23 LKMO-DSF-DDMASF PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-DSF-CCH1PA PIC X(1). CGLKMO
- 11 LKMO-RESSOURCES CGLKMO
- OCCURS 013 TIMES CGLKMO
- INDEXED BY IX-PERSS. CGLKMO
- 14 LKMO-CGPE0RES CGLKMO
- OCCURS 011 TIMES CGLKMO
- INDEXED BY IX-CPR1. CGLKMO
- 17 LKMO-CPTRSA PIC X(1). CGLKMO
- 88 LKMO-FL-ANN-REP VALUE 'A'. CGLKMO
- 88 LKMO-FL-REP-ANN-BIC VALUE 'B'. CGLKMO
- 88 LKMO-FL-TRI-API-REP VALUE 'T'. CGLKMO
- 88 LKMO-FL-TRI-RMI-REP VALUE 'R'. CGLKMO
- 88 LKMO-FL-TRI-AGD-REP VALUE 'G'. CGLKMO
- 88 LKMO-FL-PER-EVA-NOU VALUE 'N'. CGLKMO
- 88 LKMO-FL-MENS-REP VALUE 'M'. CGLKMO
- 88 LKMO-FL-MENS-AGD VALUE 'D'. CGLKMO
- 88 LKMO-FL-CPTRSA-API VALUE 'F'. CGLKMO
- 88 LKMO-FL-EVA-REP VALUE 'E'. CGLKMO
- 88 LKMO-FL-PER-EVA-CAT VALUE 'C'. CGLKMO
- 88 LKMO-FL-PER-GR VALUE 'H'. CGLKMO
- 88 LKMO-FL-CPTRSA-J VALUE 'J'. CGLKMO
- 88 LKMO-FL-CPTRSA-L VALUE 'L'. CGLKMO
- 88 LKMO-FL-PER-CAR-RMI VALUE 'Q'. CGLKMO
- 88 LKMO-FL-PER-CUM-PEN VALUE 'P'. CGLKMO
- 88 LKMO-FL-ANN-AVT-TDF VALUE 'Z'. CGLKMO
- 88 LKMO-FL-CPTRSA-Y VALUE 'Y'. CGLKMO
- 88 LKMO-FL-CPTRSA-I VALUE 'I'. CGLKMO
- 88 LKMO-FL-CPTRSA-K VALUE 'K'. CGLKMO
- 88 LKMO-FL-CPTRSA-S VALUE 'S'. CGLKMO
- 88 LKMO-FL-CPTRSA-U VALUE 'U'. CGLKMO
- 88 LKMO-FL-CPTRSA-V VALUE 'V'. CGLKMO
- 88 LKMO-FL-CPTRSA-W VALUE 'W'. CGLKMO
- 88 LKMO-FL-CPTRSA-X VALUE 'X'. CGLKMO
- 88 LKMO-FL-CPTRSA-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CPTRSA-1 VALUE '1'. CGLKMO
- 17 LKMO-INDRES PIC 9(1). CGLKMO
- 17 LKMO-RESSOURC. CGLKMO
- 20 LKMO-CDHIS001 PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CDHIS002 PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CGPERRES. CGLKMO
- 23 LKMO-CORRES PIC X(1). CGLKMO
- 88 LKMO-FL-CORRES-D VALUE 'D'. CGLKMO
- 88 LKMO-FL-CORRES-T VALUE 'T'. CGLKMO
- 88 LKMO-FL-CORRES-W VALUE 'W'. CGLKMO
- 88 LKMO-FL-CORRES-L VALUE 'L'. CGLKMO
- 88 LKMO-FL-CORRES-V VALUE 'V'. CGLKMO
- 88 LKMO-FL-CORRES-S VALUE 'S'. CGLKMO
- 88 LKMO-FL-CORRES-C VALUE 'C'. CGLKMO
- 88 LKMO-FL-CORRES-G VALUE 'G'. CGLKMO
- 88 LKMO-FL-CORRES-H VALUE 'H'. CGLKMO
- 23 LKMO-ERARES PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-NAT-RESS CGLKMO
- OCCURS 012 TIMES CGLKMO
- INDEXED BY IX-RES1. CGLKMO
- 26 LKMO-CNARES PIC X(3). CGLKMO
- 88 LKMO-FL-RES-NUL VALUE '000'. CGLKMO
- 88 LKMO-FL-PA-VER VALUE '060'. CGLKMO
- 88 LKMO-FL-REN-NOU-EVA VALUE '080' '082' '08CGLKMO
- - '3' '085' '087' '088'. CGLKMO
- 88 LKMO-FL-TRI-ANN1 VALUE '001' '010' '01CGLKMO
- - '1' '020' '021' '022' '023' '024' '026' '027'. CGLKMO
- 88 LKMO-FL-TRI-ANN2 VALUE '040' '041' '07CGLKMO
- - '0' '071' '072' '012'. CGLKMO
- 88 LKMO-FL-TRI-API VALUE '300' '301' '30CGLKMO
- - '3' '305' '302'. CGLKMO
- 88 LKMO-FL-TRI-RMI VALUE '025' '203' '20CGLKMO
- - '4' '205' '206'. CGLKMO
- 88 LKMO-FL-CNADES-RMIAPI VALUE '200' '201' '21CGLKMO
- - '5' '306' '212' '030' '007'. CGLKMO
- 88 LKMO-FL-REV-FOY VALUE '003' '025' '03CGLKMO
- - '0' '031' '032' '033' '040' '041' '034'. CGLKMO
- 88 LKMO-FL-REV-ANN VALUE '003' '012' '02CGLKMO
- - '5' '028' '030' '031' '032' '040' '041' '888'. CGLKMO
- 88 LKMO-FL-REV-ANN-SUI VALUE '000' '002' '03CGLKMO
- - '3' '042' '061' '062' '063' '999' '060' '064'. CGLKMO
- 88 LKMO-FL-REV-ANN-SUI1 VALUE '065' '005' '02CGLKMO
- - '9' '066' '777' '034'. CGLKMO
- 88 LKMO-FL-REV-ANN-RAC VALUE '029' '005'. CGLKMO
- 88 LKMO-FL-STA-ANN-ETI VALUE '030' '031' '03CGLKMO
- - '4'. CGLKMO
- 88 LKMO-FL-STA-ANN-AGR VALUE '032' '033'. CGLKMO
- 88 LKMO-FL-STA-ANN-AUT VALUE '024' '027' '04CGLKMO
- - '0' '041' '025'. CGLKMO
- 88 LKMO-FL-STA-RMI-ACT VALUE '001' '205' '03CGLKMO
- - '0' '034'. CGLKMO
- 88 LKMO-FL-STA-RMI-INS VALUE '200' '215'. CGLKMO
- 88 LKMO-FL-STA-TRI-IND VALUE '011' '012'. CGLKMO
- 88 LKMO-FL-STA-TRI-PEN VALUE '020' '021' '02CGLKMO
- - '2' '023' '024' '027' '070' '071' '072'. CGLKMO
- 88 LKMO-FL-STA-RMI-AUT VALUE '040' '041' '20CGLKMO
- - '6'. CGLKMO
- 88 LKMO-FL-STA-API-AUT VALUE '040' '041' '30CGLKMO
- - '1' '302'. CGLKMO
- 88 LKMO-FL-CNARES-034 VALUE '034'. CGLKMO
- 88 LKMO-FL-CNARES-999 VALUE '999'. CGLKMO
- 88 LKMO-FL-CNARES-888 VALUE '888'. CGLKMO
- 88 LKMO-FL-CNARES-066 VALUE '066'. CGLKMO
- 88 LKMO-FL-CNARES-SIM-SAL VALUE '001' '003' '00CGLKMO
- - '5'. CGLKMO
- 88 LKMO-FL-CNARES-SIM-F-REEL VALUE '002'. CGLKMO
- 88 LKMO-FL-CNARES-SIM-IJ VALUE '011' '012'. CGLKMO
- 88 LKMO-FL-CNARES-SIM-ALL-CH VALUE '010'. CGLKMO
- 88 LKMO-FL-CNARES-SIM-BEN-FO VALUE '040'. CGLKMO
- 88 LKMO-FL-CNARES-SIM-REV-ET VALUE '030' '031' '03CGLKMO
- - '2' '033' '034'. CGLKMO
- 88 LKMO-FL-CNARES-SIM-DEF-ET VALUE '062'. CGLKMO
- 88 LKMO-FL-CNARES-SIM-DEF-FO VALUE '063'. CGLKMO
- 88 LKMO-FL-CNARES-SIM-PA-REC VALUE '026'. CGLKMO
- 88 LKMO-FL-CNARES-SIM-RET VALUE '020' '021' '02CGLKMO
- - '2' '024' '025' '028' '029'. CGLKMO
- 88 LKMO-FL-CNARES-SIM-AUTRE VALUE '023' '027' '04CGLKMO
- - '1' '042' '043'. CGLKMO
- 88 LKMO-FL-CNARES-SIM-PA-VER VALUE '060' '064' '06CGLKMO
- - '5'. CGLKMO
- 88 LKMO-FL-CNARES-PAT-DEC VALUE '800' '801' '80CGLKMO
- - '2' '811' '812' '000' '888' '999'. CGLKMO
- 88 LKMO-FL-CNARES-PAT-RET VALUE '820' '821' '82CGLKMO
- - '2'. CGLKMO
- 88 LKMO-FL-CNARES-SPE-PPA VALUE '070' '209' '70CGLKMO
- - '0' '702'. CGLKMO
- 88 LKMO-FL-CNARES-SPE-RSA VALUE '027' '030' '04CGLKMO
- - '0' '041' '044' '100' '203' '205' '023'. CGLKMO
- 88 LKMO-FL-CNARES-SPE-ERA-RS VALUE '010' '201' '20CGLKMO
- - '8'. CGLKMO
- 88 LKMO-FL-CNARES-SPE-ERA-PP VALUE '010' '201' '20CGLKMO
- - '8' '209'. CGLKMO
- 26 LKMO-MTREPN PIC S9(7)V9(2) COMP-3. CGLKMO
- 26 LKMO-TRESPN PIC S9(3)V9(2) COMP-3. CGLKMO
- 26 LKMO-QM2JAR PIC S9(5) COMP-3. CGLKMO
- 26 LKMO-QHREPN PIC S9(3) COMP-3. CGLKMO
- 26 LKMO-CDEVIS PIC X(2). CGLKMO
- 88 LKMO-FL-DEV-DAN VALUE 'CD'. CGLKMO
- 88 LKMO-FL-CDEVIS-CE VALUE 'CE'. CGLKMO
- 88 LKMO-FL-CDEVIS-CQ VALUE 'CQ'. CGLKMO
- 88 LKMO-FL-MARK VALUE 'DM'. CGLKMO
- 88 LKMO-FL-DEV-GRE VALUE 'DG'. CGLKMO
- 88 LKMO-FL-DEV-POR VALUE 'EP'. CGLKMO
- 88 LKMO-FL-DEV-EUR VALUE 'EU'. CGLKMO
- 88 LKMO-FL-DEV-NEE VALUE 'FN'. CGLKMO
- 88 LKMO-FL-FR-BELG VALUE 'FB'. CGLKMO
- 88 LKMO-FL-FR-SUIS VALUE 'FS'. CGLKMO
- 88 LKMO-FL-LIVR VALUE 'LS'. CGLKMO
- 88 LKMO-FL-DEV-IRL VALUE 'LR'. CGLKMO
- 88 LKMO-FL-DEV-ITA VALUE 'LT'. CGLKMO
- 88 LKMO-FL-DEV-ESP VALUE 'PE'. CGLKMO
- 88 LKMO-FL-DEV-ISL VALUE 'CI'. CGLKMO
- 88 LKMO-FL-DEV-NOR VALUE 'CN'. CGLKMO
- 88 LKMO-FL-DEV-SUE VALUE 'CS'. CGLKMO
- 88 LKMO-FL-DEV-FIN VALUE 'MF'. CGLKMO
- 88 LKMO-FL-DEV-AUT VALUE 'SA'. CGLKMO
- 88 LKMO-FL-CDEVIS-CT VALUE 'CT'. CGLKMO
- 88 LKMO-FL-CDEVIS-FH VALUE 'FH'. CGLKMO
- 88 LKMO-FL-CDEVIS-ZP VALUE 'ZP'. CGLKMO
- 88 LKMO-FL-CDEVIS-LO VALUE 'LO'. CGLKMO
- 88 LKMO-FL-CDEVIS-LL VALUE 'LL'. CGLKMO
- 88 LKMO-FL-CDEVIS-LB VALUE 'LB'. CGLKMO
- 88 LKMO-FL-CDEVIS-LU VALUE 'LU'. CGLKMO
- 88 LKMO-FL-CDEVIS-ZONE-EURO VALUE 'PE' 'EP' 'LT' CGLKMO
- 'SA' 'DM' 'FN' 'LR' 'MF' 'FB' 'DG'. CGLKMO
- 88 LKMO-FL-CDEVIS-DA VALUE 'DA'. CGLKMO
- 88 LKMO-FL-CDEVIS-ES VALUE 'ES'. CGLKMO
- 88 LKMO-FL-CDEVIS-CF VALUE 'CF'. CGLKMO
- 88 LKMO-FL-CDEVIS-AR VALUE 'AR'. CGLKMO
- 88 LKMO-FL-CDEVIS-UM VALUE 'UM'. CGLKMO
- 26 LKMO-MTREPN1 PIC S9(7)V9(2) COMP-3. CGLKMO
- 14 LKMO-CGPE0EVA. CGLKMO
- 17 LKMO-NFICPN PIC S9(7) COMP-3. CGLKMO
- 17 LKMO-CGPEREVA CGLKMO
- OCCURS 005 TIMES CGLKMO
- INDEXED BY IX-EVA2. CGLKMO
- 20 LKMO-INDEVA PIC 9(1). CGLKMO
- 20 LKMO-CPTRSA PIC X(1). CGLKMO
- 88 LKMO-FL-ANN-REP VALUE 'A'. CGLKMO
- 88 LKMO-FL-REP-ANN-BIC VALUE 'B'. CGLKMO
- 88 LKMO-FL-TRI-API-REP VALUE 'T'. CGLKMO
- 88 LKMO-FL-TRI-RMI-REP VALUE 'R'. CGLKMO
- 88 LKMO-FL-TRI-AGD-REP VALUE 'G'. CGLKMO
- 88 LKMO-FL-PER-EVA-NOU VALUE 'N'. CGLKMO
- 88 LKMO-FL-MENS-REP VALUE 'M'. CGLKMO
- 88 LKMO-FL-MENS-AGD VALUE 'D'. CGLKMO
- 88 LKMO-FL-CPTRSA-API VALUE 'F'. CGLKMO
- 88 LKMO-FL-EVA-REP VALUE 'E'. CGLKMO
- 88 LKMO-FL-PER-EVA-CAT VALUE 'C'. CGLKMO
- 88 LKMO-FL-PER-GR VALUE 'H'. CGLKMO
- 88 LKMO-FL-CPTRSA-J VALUE 'J'. CGLKMO
- 88 LKMO-FL-CPTRSA-L VALUE 'L'. CGLKMO
- 88 LKMO-FL-PER-CAR-RMI VALUE 'Q'. CGLKMO
- 88 LKMO-FL-PER-CUM-PEN VALUE 'P'. CGLKMO
- 88 LKMO-FL-ANN-AVT-TDF VALUE 'Z'. CGLKMO
- 88 LKMO-FL-CPTRSA-Y VALUE 'Y'. CGLKMO
- 88 LKMO-FL-CPTRSA-I VALUE 'I'. CGLKMO
- 88 LKMO-FL-CPTRSA-K VALUE 'K'. CGLKMO
- 88 LKMO-FL-CPTRSA-S VALUE 'S'. CGLKMO
- 88 LKMO-FL-CPTRSA-U VALUE 'U'. CGLKMO
- 88 LKMO-FL-CPTRSA-V VALUE 'V'. CGLKMO
- 88 LKMO-FL-CPTRSA-W VALUE 'W'. CGLKMO
- 88 LKMO-FL-CPTRSA-X VALUE 'X'. CGLKMO
- 88 LKMO-FL-CPTRSA-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CPTRSA-1 VALUE '1'. CGLKMO
- 20 LKMO-CDHIS001 PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CDHIS002 PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CDRESEVA. CGLKMO
- 23 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 23 LKMO-CNARES1 PIC X(3). CGLKMO
- 88 LKMO-FL-STA-ANN-ETI VALUE '030' '031'. CGLKMO
- 88 LKMO-FL-STA-ANN-AGR VALUE '032' '033'. CGLKMO
- 88 LKMO-FL-STA-ANN-AUT VALUE '024' '027' '04CGLKMO
- - '0' '041' '025'. CGLKMO
- 88 LKMO-FL-STA-RMI-ACT VALUE '001' '205' '03CGLKMO
- - '0'. CGLKMO
- 88 LKMO-FL-STA-RMI-INS VALUE '200' '215'. CGLKMO
- 88 LKMO-FL-STA-TRI-IND VALUE '011' '012'. CGLKMO
- 88 LKMO-FL-STA-TRI-PEN VALUE '020' '021' '02CGLKMO
- - '2' '023' '024' '027' '070' '071' '072'. CGLKMO
- 88 LKMO-FL-STA-RMI-AUT VALUE '040' '041' '20CGLKMO
- - '6'. CGLKMO
- 88 LKMO-FL-STA-API-AUT VALUE '040' '041' '30CGLKMO
- - '1' '302'. CGLKMO
- 23 LKMO-MAEVFO PIC S9(7)V9(2) COMP-3. CGLKMO
- 23 LKMO-MMSEVF PIC S9(7)V9(2) COMP-3. CGLKMO
- 23 LKMO-CDEVA003 PIC S9(3)V9(2) COMP-3. CGLKMO
- 23 LKMO-DMOIEF PIC S9(9) COMP-3. CGLKMO
- 14 LKMO-CGPE0RAB CGLKMO
- OCCURS 002 TIMES CGLKMO
- INDEXED BY IX-CPR2. CGLKMO
- 17 LKMO-CPTRSA PIC X(1). CGLKMO
- 88 LKMO-FL-ANN-REP VALUE 'A'. CGLKMO
- 88 LKMO-FL-REP-ANN-BIC VALUE 'B'. CGLKMO
- 88 LKMO-FL-TRI-API-REP VALUE 'T'. CGLKMO
- 88 LKMO-FL-TRI-RMI-REP VALUE 'R'. CGLKMO
- 88 LKMO-FL-TRI-AGD-REP VALUE 'G'. CGLKMO
- 88 LKMO-FL-PER-EVA-NOU VALUE 'N'. CGLKMO
- 88 LKMO-FL-MENS-REP VALUE 'M'. CGLKMO
- 88 LKMO-FL-MENS-AGD VALUE 'D'. CGLKMO
- 88 LKMO-FL-CPTRSA-API VALUE 'F'. CGLKMO
- 88 LKMO-FL-EVA-REP VALUE 'E'. CGLKMO
- 88 LKMO-FL-PER-EVA-CAT VALUE 'C'. CGLKMO
- 88 LKMO-FL-PER-GR VALUE 'H'. CGLKMO
- 88 LKMO-FL-CPTRSA-J VALUE 'J'. CGLKMO
- 88 LKMO-FL-CPTRSA-L VALUE 'L'. CGLKMO
- 88 LKMO-FL-PER-CAR-RMI VALUE 'Q'. CGLKMO
- 88 LKMO-FL-PER-CUM-PEN VALUE 'P'. CGLKMO
- 88 LKMO-FL-ANN-AVT-TDF VALUE 'Z'. CGLKMO
- 88 LKMO-FL-CPTRSA-Y VALUE 'Y'. CGLKMO
- 88 LKMO-FL-CPTRSA-I VALUE 'I'. CGLKMO
- 88 LKMO-FL-CPTRSA-K VALUE 'K'. CGLKMO
- 88 LKMO-FL-CPTRSA-S VALUE 'S'. CGLKMO
- 88 LKMO-FL-CPTRSA-U VALUE 'U'. CGLKMO
- 88 LKMO-FL-CPTRSA-V VALUE 'V'. CGLKMO
- 88 LKMO-FL-CPTRSA-W VALUE 'W'. CGLKMO
- 88 LKMO-FL-CPTRSA-X VALUE 'X'. CGLKMO
- 88 LKMO-FL-CPTRSA-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CPTRSA-1 VALUE '1'. CGLKMO
- 17 LKMO-INDRAB PIC 9(1). CGLKMO
- 17 LKMO-CDHIS001 PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CDHIS002 PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-ABATTEMENT. CGLKMO
- 20 LKMO-CGPERRAB CGLKMO
- OCCURS 005 TIMES CGLKMO
- INDEXED BY IX-RES2. CGLKMO
- 23 LKMO-CNARES2 PIC X(3). CGLKMO
- 23 LKMO-MABDPR PIC S9(5)V9(2) COMP-3. CGLKMO
- 23 LKMO-CWARRA PIC X(1). CGLKMO
- 88 LKMO-FL-NEUT VALUE 'N'. CGLKMO
- 88 LKMO-FL-ABAT-SAD-PREF VALUE 'A'. CGLKMO
- 88 LKMO-FL-ABAT-ATDE-PREF VALUE 'S'. CGLKMO
- 88 LKMO-FL-RMI-REF-PRE VALUE 'R'. CGLKMO
- 11 LKMO-DETAIL-DOSSIER-MOIS. CGLKMO
- 14 LKMO-CDDOIZZZ. CGLKMO
- 17 LKMO-NDOPFE PIC X(15). CGLKMO
- 17 LKMO-CLCNDO PIC X(1). CGLKMO
- 17 LKMO-DIDAFF PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DLVCPR PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CIUGES PIC X(2). CGLKMO
- 17 LKMO-D1ODPL PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CSESOC PIC X(4). CGLKMO
- 17 LKMO-CAPRES PIC X(2). CGLKMO
- 88 LKMO-FL-PAS-APEL-A-FAIR VALUE '00'. CGLKMO
- 88 LKMO-FL-APEL-A-FAIR-RESS VALUE '01'. CGLKMO
- 88 LKMO-FL-RELA-PF-SAUF-APL VALUE '02'. CGLKMO
- 88 LKMO-FL-APEL-RECU VALUE '03'. CGLKMO
- 88 LKMO-FL-PAS-RELA-SS-RESS VALUE '04'. CGLKMO
- 88 LKMO-FL-RELA-APL-SAUF-OHE VALUE '05'. CGLKMO
- 88 LKMO-FL-RELA-OHE-POTI VALUE '07'. CGLKMO
- 88 LKMO-FL-CAPRES-08 VALUE '08'. CGLKMO
- 88 LKMO-FL-CAPRES-09 VALUE '09'. CGLKMO
- 88 LKMO-FL-CAPRES-10 VALUE '10'. CGLKMO
- 17 LKMO-DMCDOS PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CSTACP PIC X(1). CGLKMO
- 88 LKMO-FL-STAB VALUE '0'. CGLKMO
- 88 LKMO-FL-ISTA VALUE '1'. CGLKMO
- 88 LKMO-FL-LIQU-CVER-EN-CRS VALUE '2'. CGLKMO
- 88 LKMO-FL-VERI-EN-CRS VALUE '3'. CGLKMO
- 88 LKMO-FL-TRT-BATC-EN-CRS VALUE '4'. CGLKMO
- 17 LKMO-CUNGES PIC X(7). CGLKMO
- 17 LKMO-CMETRA PIC X(1). CGLKMO
- 17 LKMO-DANARS PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DDECRA PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DNOTPA PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DDECAL PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DMOCGM PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DAPRES PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DRERES PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DMAJDO PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DNDPOT PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CONFID PIC X(4). CGLKMO
- 88 LKMO-FL-CONFID-RAZR VALUE 'RAZR'. CGLKMO
- 17 LKMO-COEFFK PIC X(1). CGLKMO
- 17 LKMO-CORGIM PIC X(3). CGLKMO
- 17 LKMO-CONFOR PIC X(1). CGLKMO
- 88 LKMO-FL-FOR-CONV VALUE 'C'. CGLKMO
- 88 LKMO-FL-FOR-TECH VALUE 'T'. CGLKMO
- 88 LKMO-FL-FOR-DEUX VALUE 'D'. CGLKMO
- 17 LKMO-DOHEIX PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CTIMCO PIC X(2). CGLKMO
- 88 LKMO-FL-CTIMCO-BS VALUE 'MA' 'TN'. CGLKMO
- 88 LKMO-FL-CTIMCO-RAT VALUE 'AL' 'MA' 'TN'.CGLKMO
- 88 LKMO-FL-CTIMCO-CHOIN VALUE 'AL' 'MA' 'TN'.CGLKMO
- 17 LKMO-DEPAJE PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DAPLMA PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DBARSA PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CTYBAS PIC X(1). CGLKMO
- 88 LKMO-FL-CTYBAS-D VALUE 'D'. CGLKMO
- 88 LKMO-FL-CTYBAS-P VALUE 'P'. CGLKMO
- 88 LKMO-FL-CTYBAS-T VALUE 'T'. CGLKMO
- 88 LKMO-FL-CTYBAS-E VALUE 'E'. CGLKMO
- 17 LKMO-DMJDCP PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-HMJDCP PIC S9(7) COMP-3. CGLKMO
- 17 LKMO-CORIMM PIC X(3). CGLKMO
- 88 LKMO-FL-CORIMM-TEC VALUE 'TEC'. CGLKMO
- 88 LKMO-FL-CORIMM-WEB VALUE 'WEB'. CGLKMO
- 17 LKMO-DINCRA PIC S9(9) COMP-3. CGLKMO
- 14 LKMO-CGDOH1 CGLKMO
- OCCURS 003 TIMES CGLKMO
- INDEXED BY IX-DOS. CGLKMO
- 17 LKMO-CDHIS001 PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CDHIS002 PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CGDOHIND. CGLKMO
- 20 LKMO-INDAIA PIC 9(1). CGLKMO
- 20 LKMO-INDAMI PIC 9(1). CGLKMO
- 20 LKMO-INDAOH PIC 9(1). CGLKMO
- 20 LKMO-INDAOR PIC 9(1). CGLKMO
- 20 LKMO-INDAPR PIC 9(1). CGLKMO
- 20 LKMO-INDASX PIC 9(1). CGLKMO
- 20 LKMO-INDBEF PIC 9(1). CGLKMO
- 20 LKMO-INDCCA PIC 9(1). CGLKMO
- 20 LKMO-INDCLG PIC 9(1). CGLKMO
- 20 LKMO-INDCPI PIC 9(1). CGLKMO
- 20 LKMO-INDCRE PIC 9(1). CGLKMO
- 20 LKMO-INDCRM PIC 9(1). CGLKMO
- 20 LKMO-INDDAR PIC 9(1). CGLKMO
- 20 LKMO-INDEEO PIC 9(1). CGLKMO
- 20 LKMO-INDLIM PIC 9(1). CGLKMO
- 20 LKMO-INDMCF PIC 9(1). CGLKMO
- 20 LKMO-INDMGC PIC 9(1). CGLKMO
- 20 LKMO-INDMGJ PIC 9(1). CGLKMO
- 20 LKMO-INDMGP PIC 9(1). CGLKMO
- 20 LKMO-INDMSD PIC 9(1). CGLKMO
- 20 LKMO-INDNEC PIC 9(1). CGLKMO
- 20 LKMO-INDOLG PIC 9(1). CGLKMO
- 20 LKMO-INDPLP PIC 9(1). CGLKMO
- 20 LKMO-INDQFA PIC 9(1). CGLKMO
- 20 LKMO-INDQFR PIC 9(1). CGLKMO
- 20 LKMO-INDQFV PIC 9(1). CGLKMO
- 20 LKMO-INDQUI PIC 9(1). CGLKMO
- 20 LKMO-INDRNG PIC 9(1). CGLKMO
- 20 LKMO-INDRSF PIC 9(1). CGLKMO
- 20 LKMO-INDSDO PIC 9(1). CGLKMO
- 20 LKMO-INDSUR PIC 9(1). CGLKMO
- 20 LKMO-INDTIE PIC 9(1). CGLKMO
- 20 LKMO-INDTIT PIC 9(1). CGLKMO
- 17 LKMO-CGDOHGDD. CGLKMO
- 20 LKMO-DO0AOH. CGLKMO
- 23 LKMO-ECRHLO PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FINAOH PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDOIAOH. CGLKMO
- 26 LKMO-CRHLOG PIC X(3). CGLKMO
- 88 LKMO-FL-CRHLOG-IND VALUE 'IND'. CGLKMO
- 88 LKMO-FL-CRHLOG-DEP VALUE 'DEP'. CGLKMO
- 88 LKMO-FL-CRHLOG-OLI VALUE 'OLI'. CGLKMO
- 20 LKMO-DO0AOR. CGLKMO
- 23 LKMO-DEBAOR PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FINAOR PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDOIAOR. CGLKMO
- 26 LKMO-EWAFOC PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CWOCLG PIC X(3). CGLKMO
- 88 LKMO-FL-HEBE-CLTI-A-TIGR VALUE 'HCG'. CGLKMO
- 88 LKMO-FL-HEBE-CLTI-A-TION VALUE 'HCO'. CGLKMO
- 88 LKMO-FL-HATG-PAR-PTCU VALUE 'HGP'. CGLKMO
- 88 LKMO-FL-LOCT-OU-SLOC VALUE 'LOC'. CGLKMO
- 88 LKMO-FL-HOT VALUE 'HOT'. CGLKMO
- 88 LKMO-FL-PROP-AV-CHRG-RBMT VALUE 'ACC'. CGLKMO
- 88 LKMO-FL-PROP-SS-CHRG-RBMT VALUE 'PRO'. CGLKMO
- 88 LKMO-FL-HE-ONER-PACU VALUE 'HOP'. CGLKMO
- 88 LKMO-FL-SANS-RES-ONE VALUE 'SRO'. CGLKMO
- 88 LKMO-FL-SANS-RES-GRA VALUE 'SRG'. CGLKMO
- 88 LKMO-FL-RMI-HEB-GRA VALUE 'HCG' 'HGP' 'PRCGLKMO
- - 'O' 'SRG'. CGLKMO
- 88 LKMO-FL-RMI-AL-AUT VALUE 'BAL'. CGLKMO
- 88 LKMO-FL-CWOCLG-OLI VALUE 'OLI'. CGLKMO
- 26 LKMO-CNAREF1 PIC X(1). CGLKMO
- 88 LKMO-FL-PERS-PHYS-REF1 VALUE 'P'. CGLKMO
- 88 LKMO-FL-PERS-MRAL-REF1 VALUE 'M'. CGLKMO
- 26 LKMO-NREFER1 PIC S9(7) COMP-3. CGLKMO
- 20 LKMO-DO0APR. CGLKMO
- 23 LKMO-EWAVPR PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FWAVPR PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0APR. CGLKMO
- 26 LKMO-DAVIPR PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CWEDOS PIC X(2). CGLKMO
- 88 LKMO-FL-ACC-PREF VALUE 'AP'. CGLKMO
- 88 LKMO-FL-REFU-PREF VALUE 'RP'. CGLKMO
- 88 LKMO-FL-REFU-CAF VALUE 'RC'. CGLKMO
- 88 LKMO-FL-POSU VALUE 'PS'. CGLKMO
- 88 LKMO-FL-PROR VALUE 'PR'. CGLKMO
- 88 LKMO-FL-FIN-DE-DRT-PREF VALUE 'FD'. CGLKMO
- 88 LKMO-FL-AJNM VALUE 'AJ'. CGLKMO
- 88 LKMO-FL-RNVL-RMI VALUE 'RN'. CGLKMO
- 88 LKMO-FL-ACCO-OK VALUE 'AP' 'PS' 'PR' CGLKMO
- 'RN'. CGLKMO
- 26 LKMO-DCOMPR PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-DO0ASX. CGLKMO
- 23 LKMO-DEBASX PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FINASX PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDOIASX. CGLKMO
- 26 LKMO-MASREX PIC S9(5)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0BEF. CGLKMO
- 23 LKMO-EBAMRE1 PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FBAMRE1 PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0BEF. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MEFOYE PIC S9(7)V9(2) COMP-3. CGLKMO
- 26 LKMO-MDEBEV PIC S9(7)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0CCA. CGLKMO
- 23 LKMO-ECOMPC PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FCOMPC PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDOICCA. CGLKMO
- 26 LKMO-CCOMPC PIC X(3). CGLKMO
- 88 LKMO-FL-CCOMPC-COP VALUE 'COP'. CGLKMO
- 88 LKMO-FL-CCOMPC-CNP VALUE 'CNP'. CGLKMO
- 26 LKMO-CMFCOM PIC X(3). CGLKMO
- 88 LKMO-FL-CMFCOM-AUT VALUE 'AUT'. CGLKMO
- 88 LKMO-FL-CMFCON-ERA VALUE 'ERA'. CGLKMO
- 88 LKMO-FL-CMFCOM-DES VALUE 'DES'. CGLKMO
- 88 LKMO-FL-CMFCOM-DFA VALUE 'DFA'. CGLKMO
- 88 LKMO-FL-CMFCOM-NAT VALUE 'NAT'. CGLKMO
- 88 LKMO-FL-CMFCOM-RFA VALUE 'RFA'. CGLKMO
- 88 LKMO-FL-CMFCOM-SEP VALUE 'SEP'. CGLKMO
- 26 LKMO-CEDCES PIC X(1). CGLKMO
- 88 LKMO-FL-CEDCES-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CEDCES-N VALUE 'N'. CGLKMO
- 20 LKMO-DO0CLG. CGLKMO
- 23 LKMO-EMOCRM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FMOCRM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDOICLG. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MCHALO PIC S9(5)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0CPI. CGLKMO
- 23 LKMO-EMOCRM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FMOCRM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0CPI. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MFALAP PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MPFAPI PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MFALRF PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MRMAPI PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MCAVPI PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MSANPI PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MAPIRE PIC S9(5)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0CRE. CGLKMO
- 23 LKMO-EBAMRE PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FBAMRE PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0CRE. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MBMRFO PIC S9(7)V9(2) COMP-3. CGLKMO
- 26 LKMO-MDEBRE PIC S9(7)V9(2) COMP-3. CGLKMO
- 26 LKMO-MFIBRE PIC S9(7)V9(2) COMP-3. CGLKMO
- 26 LKMO-MFILOG PIC S9(5)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0CRM. CGLKMO
- 23 LKMO-EMOCRM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FMOCRM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0CRM. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MASRES PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MRESPF PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MFORAL PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MPLAFO PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MONRMA PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MONCAV PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MASFID PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MPAFID PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-MRMIRE PIC S9(5)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0DAR. CGLKMO
- 23 LKMO-EBAMRE PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FBAMRE PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0DAR. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MABRES PIC S9(7)V9(2) COMP-3. CGLKMO
- 26 LKMO-MABDAC PIC S9(7)V9(2) COMP-3. CGLKMO
- 26 LKMO-MARPAP PIC S9(7)V9(2) COMP-3. CGLKMO
- 26 LKMO-MAEPAP PIC S9(7)V9(2) COMP-3. CGLKMO
- 26 LKMO-MRFRGA PIC S9(7)V9(2) COMP-3. CGLKMO
- 26 LKMO-MEFRGA PIC S9(7)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0EEO. CGLKMO
- 23 LKMO-EPOBPE PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FPOBPE PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDOIEEO. CGLKMO
- 26 LKMO-CPOBPE PIC X(1). CGLKMO
- 88 LKMO-FL-CPOBPE-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CPOBPE-N VALUE 'N'. CGLKMO
- 20 LKMO-DO0LIM. CGLKMO
- 23 LKMO-ELIMAT PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FLIMAT PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0LIM. CGLKMO
- 26 LKMO-CTLMAT PIC X(3). CGLKMO
- 88 LKMO-FL-CELI VALUE 'CEL'. CGLKMO
- 88 LKMO-FL-MARG VALUE 'MAR'. CGLKMO
- 88 LKMO-FL-VIE-MART VALUE 'VIM'. CGLKMO
- 88 LKMO-FL-CTLMAT-PAC VALUE 'PAC'. CGLKMO
- 88 LKMO-FL-DIVO VALUE 'DIV'. CGLKMO
- 88 LKMO-FL-VEUV VALUE 'VEU'. CGLKMO
- 88 LKMO-FL-SEPA-DE-FAIT VALUE 'SEF'. CGLKMO
- 88 LKMO-FL-SEPA-LEGA VALUE 'SEL'. CGLKMO
- 88 LKMO-FL-ABAN VALUE 'ABA'. CGLKMO
- 88 LKMO-FL-ISOL-AVM VALUE 'ISO'. CGLKMO
- 88 LKMO-FL-RVC-SR-MARG VALUE 'RVM'. CGLKMO
- 88 LKMO-FL-RVC-SR-MART VALUE 'RVC'. CGLKMO
- 88 LKMO-FL-CTLMAT-RPA VALUE 'RPA'. CGLKMO
- 88 LKMO-FL-SIT-ISOL VALUE 'CEL' 'VEU' 'DICGLKMO
- - 'V' 'ABA' 'SEF' 'SEL' 'ISO'. CGLKMO
- 88 LKMO-FL-CTLMAT-ISO-API VALUE 'VEU' 'DIV' 'ABCGLKMO
- - 'A' 'SEF' 'SEL' 'ISO'. CGLKMO
- 88 LKMO-FL-CTLMAT-ISO-CRA VALUE 'CEL' 'DIV' 'SECGLKMO
- - 'F' 'SEL' 'ISO'. CGLKMO
- 88 LKMO-FL-SIT-COUP VALUE 'MAR' 'VIM' 'RVCGLKMO
- - 'M' 'RVC' 'PAC' 'RPA'. CGLKMO
- 88 LKMO-FL-SIT-VEU VALUE 'VEU' 'ABA'. CGLKMO
- 88 LKMO-FL-CTLMAT-SIT-PAC VALUE 'PAC' 'RPA'. CGLKMO
- 88 LKMO-FL-SIT-MAR VALUE 'MAR' 'RVM'. CGLKMO
- 88 LKMO-FL-SIT-CON VALUE 'VIM' 'RVC' 'PACGLKMO
- - 'C' 'RPA'. CGLKMO
- 88 LKMO-FL-SIT-CELIBAT VALUE 'CEL' 'ISO'. CGLKMO
- 88 LKMO-FL-SIT-SEPARE VALUE 'SEF' 'SEL'. CGLKMO
- 20 LKMO-DO0MCF. CGLKMO
- 23 LKMO-DEBMCF PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FINMCF PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDOIMCF. CGLKMO
- 26 LKMO-MAJCFA PIC S9(5)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0MGC. CGLKMO
- 23 LKMO-EMOCRM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FMOCRM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDOIMGC. CGLKMO
- 26 LKMO-MPLACU PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-QE03CU PIC S9(3) COMP-3. CGLKMO
- 26 LKMO-ME03CU PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-QE36CU PIC S9(3) COMP-3. CGLKMO
- 26 LKMO-ME36CU PIC S9(5)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0MGP. CGLKMO
- 23 LKMO-ECMGPL PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FCMGPL PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDOIMGP. CGLKMO
- 26 LKMO-CPLCMG PIC X(1). CGLKMO
- 88 LKMO-FL-CPLACMG-A VALUE 'A'. CGLKMO
- 88 LKMO-FL-CPLACMG-B VALUE 'B'. CGLKMO
- 88 LKMO-FL-CPLACMG-C VALUE 'C'. CGLKMO
- 88 LKMO-FL-CPLACMG-D VALUE 'D'. CGLKMO
- 26 LKMO-MPLACO PIC S9(5)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0MSD. CGLKMO
- 23 LKMO-EMSIDO PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FMSIDO PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0MSD. CGLKMO
- 26 LKMO-CMSIDO PIC X(2). CGLKMO
- 88 LKMO-FL-PREM-AFFI VALUE 'AF'. CGLKMO
- 88 LKMO-FL-AFFI-SUIT-MUTA VALUE 'AM'. CGLKMO
- 88 LKMO-FL-REGR-DOSI VALUE 'RD'. CGLKMO
- 88 LKMO-FL-TRPT VALUE 'AT'. CGLKMO
- 88 LKMO-FL-FIN-DRT VALUE 'RF'. CGLKMO
- 88 LKMO-FL-RDT-MUTA VALUE 'RM'. CGLKMO
- 88 LKMO-FL-REA-RAD-FDR VALUE 'AR'. CGLKMO
- 88 LKMO-FL-TRFT-ENF VALUE 'TE'. CGLKMO
- 88 LKMO-FL-RDT-SUSP VALUE 'RS'. CGLKMO
- 88 LKMO-FL-AFF-PART VALUE 'AP'. CGLKMO
- 88 LKMO-FL-RAD-REIM VALUE 'RR'. CGLKMO
- 88 LKMO-FL-RAD-ORG VALUE 'RO'. CGLKMO
- 88 LKMO-FL-RAD-PUR VALUE 'RG'. CGLKMO
- 88 LKMO-FL-CMSIDO-AFF VALUE 'AF' 'AR' 'RD' CGLKMO
- 'TE'. CGLKMO
- 88 LKMO-FL-CMSIDO-MUT VALUE 'AM' 'AP'. CGLKMO
- 26 LKMO-CSITDO PIC X(1). CGLKMO
- 88 LKMO-FL-AFFL VALUE 'A'. CGLKMO
- 88 LKMO-FL-RADT VALUE 'R'. CGLKMO
- 88 LKMO-FL-AFFL-EN-CRS VALUE 'C'. CGLKMO
- 88 LKMO-FL-CSITDO-P VALUE 'P'. CGLKMO
- 26 LKMO-CNAPRS PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-PRX VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-APX VALUE 'AP1' 'AP2' 'APCGLKMO
- - '3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-IND1 VALUE 'AJE' 'CFA' 'AHCGLKMO
- - '1' 'AH2' 'ALS' 'ALF' 'ARS' 'PJ1' 'PJ2' 'PJ3'. CGLKMO
- 88 LKMO-FL-CNAPRS-IND2 VALUE 'APL' 'AGD' 'AFCGLKMO
- - 'E' 'RSO' 'PJ4'. CGLKMO
- 88 LKMO-FL-CNAPRS-NON-MEN VALUE 'AFE' 'AGD' 'PJCGLKMO
- - '4' 'API' 'RMI' 'ADI' 'PJ5'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-NOTIF VALUE 'RSD' 'RSI' 'RSCGLKMO
- - 'U' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-25 VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-SOC VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RSJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-ACT VALUE 'RCB' 'RCD' 'RCCGLKMO
- - 'I' 'RCU' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-JEU VALUE 'RSJ' 'RCJ' 'RSCGLKMO
- - 'U'. CGLKMO
- 88 LKMO-FL-CNAPRS-PAC VALUE 'PPA' 'PPI'. CGLKMO
- 88 LKMO-FL-CNAPRS-AH1 VALUE 'AH1' 'FH1' 'CHCGLKMO
- - '1' 'CH3' 'CR1' 'CR3'. CGLKMO
- 88 LKMO-FL-CNAPRS-AH2 VALUE 'AH2' 'FH2' 'CHCGLKMO
- - '2' 'CH4' 'CR2' 'CR4'. CGLKMO
- 88 LKMO-FL-CNAPRS-LOG VALUE 'ALF' 'ALS' 'APCGLKMO
- - 'L'. CGLKMO
- 88 LKMO-FL-CNAPRS-ASF VALUE 'ASF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RMA VALUE 'RMA'. CGLKMO
- 88 LKMO-FL-CNAPRS-CAV VALUE 'CAV'. CGLKMO
- 88 LKMO-FL-CNAPRS-CDI VALUE 'CDI'. CGLKMO
- 88 LKMO-FL-CNAPRS-FICTIVE VALUE 'PAF' 'SAF' 'SICGLKMO
- - 'F'. CGLKMO
- 88 LKMO-FL-CNAPRS-PAF VALUE 'PAF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-FICTIF VALUE 'SAF' 'SIF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSF VALUE 'RSF'. CGLKMO
- 26 LKMO-CNAPRS1 PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 26 LKMO-CNAPRS2 PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 26 LKMO-CNAPRS3 PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 26 LKMO-CNAPRS4 PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 26 LKMO-CNAPRS5 PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 26 LKMO-CNAPRS6 PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 26 LKMO-CNAPRS7 PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 26 LKMO-CNAPRS8 PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 26 LKMO-CNAPRS9 PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 26 LKMO-CNAPRSA PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 26 LKMO-FILLER PIC X(1). CGLKMO
- 20 LKMO-DO0NEC. CGLKMO
- 23 LKMO-ENECCG PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FNECCG PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0NEC. CGLKMO
- 26 LKMO-QECCGO PIC S9(3) COMP-3. CGLKMO
- 20 LKMO-DO0OLG. CGLKMO
- 23 LKMO-EOCLOG PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FOCLOG PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0OLG. CGLKMO
- 26 LKMO-RLOGEM PIC S9(3) COMP-3. CGLKMO
- 20 LKMO-DO0QFA. CGLKMO
- 23 LKMO-EQIFAM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FQIFAM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0QFA. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MQIFAM PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-QPARQF PIC S9(2)V9(1) COMP-3. CGLKMO
- 26 LKMO-MASSQF PIC S9(7)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0QFR. CGLKMO
- 23 LKMO-EMOCRM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FMOCRM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDOIQFR. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-CDQFR000. CGLKMO
- 29 LKMO-MQIFAM3 PIC S9(5)V9(2) COMP-3. CGLKMO
- 29 LKMO-QPARPR3 PIC S9(2)V9(1) COMP-3. CGLKMO
- 29 LKMO-MTRESS PIC S9(9)V9(2) COMP-3. CGLKMO
- 29 LKMO-MTPRES PIC S9(5)V9(2) COMP-3. CGLKMO
- 29 LKMO-CORICH PIC X(1). CGLKMO
- 88 LKMO-FL-CORICH-P VALUE 'P'. CGLKMO
- 88 LKMO-FL-CORICH-I VALUE 'I'. CGLKMO
- 88 LKMO-FL-CORICH-F VALUE 'F'. CGLKMO
- 88 LKMO-FL-CORICH-L VALUE 'L'. CGLKMO
- 29 LKMO-MCHLOG PIC S9(5)V9(2) COMP-3. CGLKMO
- 29 LKMO-CORIQF PIC X(1). CGLKMO
- 88 LKMO-FL-CORIQF-QFC VALUE 'C'. CGLKMO
- 88 LKMO-FL-CORIQF-QFF VALUE 'F'. CGLKMO
- 29 LKMO-CREPRP PIC X(1). CGLKMO
- 88 LKMO-FL-CREPRP-A VALUE 'A'. CGLKMO
- 88 LKMO-FL-CREPRP-H VALUE 'H'. CGLKMO
- 88 LKMO-FL-CREPRP-S VALUE 'S'. CGLKMO
- 20 LKMO-DO0QFV. CGLKMO
- 23 LKMO-EQFAAV PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FQFAAV PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0QFV. CGLKMO
- 26 LKMO-CMOFOR PIC X(1). CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MQIFAM2 PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-QPARQF2 PIC S9(2)V9(1) COMP-3. CGLKMO
- 20 LKMO-DO0QUI. CGLKMO
- 23 LKMO-EELTDQ PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FELTDQ PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDOIQUI. CGLKMO
- 26 LKMO-QENFDQ PIC S9(3) COMP-3. CGLKMO
- 26 LKMO-MTPFDQ PIC S9(7)V9(2) COMP-3. CGLKMO
- 26 LKMO-MTFLDQ PIC S9(7)V9(2) COMP-3. CGLKMO
- 26 LKMO-MTREDQ PIC S9(7)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0RNG. CGLKMO
- 23 LKMO-EBAMRE PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FBAMRE PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0RNG. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MREFOY PIC S9(7)V9(2) COMP-3. CGLKMO
- 20 LKMO-DO0RSF. CGLKMO
- 23 LKMO-ERESFA PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FRESFA PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0RSF. CGLKMO
- 26 LKMO-CRESFA PIC X(2). CGLKMO
- 88 LKMO-FL-RSDT-SEPA VALUE 'RS'. CGLKMO
- 88 LKMO-FL-CHRG-FAM VALUE 'CF'. CGLKMO
- 20 LKMO-DO0SDO. CGLKMO
- 23 LKMO-ESUSDO PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FSUSDO PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0SDO. CGLKMO
- 26 LKMO-CSUSDO PIC X(1). CGLKMO
- 88 LKMO-FL-SITU-DE-FAM VALUE 'A'. CGLKMO
- 88 LKMO-FL-RESS VALUE 'B'. CGLKMO
- 88 LKMO-FL-ENQE-ADMF VALUE 'C'. CGLKMO
- 88 LKMO-FL-ENQE-SOC VALUE 'D'. CGLKMO
- 88 LKMO-FL-ABS-IMP-CAMP-CTRL VALUE 'E'. CGLKMO
- 88 LKMO-FL-IMP-CHCA-NO-FRNI VALUE 'F'. CGLKMO
- 88 LKMO-FL-DECE-MME VALUE 'G'. CGLKMO
- 88 LKMO-FL-DECE-MR VALUE 'H'. CGLKMO
- 88 LKMO-FL-AUTR-MTF-DSU VALUE 'I'. CGLKMO
- 88 LKMO-FL-DSU-AVEC-PAI VALUE 'J'. CGLKMO
- 88 LKMO-FL-DSU-CTRL-ASS VALUE 'K'. CGLKMO
- 88 LKMO-FL-DSU-NPAI VALUE 'L'. CGLKMO
- 88 LKMO-FL-DSU-RES-INC VALUE 'M'. CGLKMO
- 88 LKMO-FL-DSU-DIV-SANS-SUS VALUE 'N'. CGLKMO
- 88 LKMO-FL-DSU-DIV-AVEC-SUS VALUE 'O'. CGLKMO
- 88 LKMO-FL-DSU-ASF-HET VALUE 'P'. CGLKMO
- 88 LKMO-FL-CSUSDO-Q VALUE 'Q'. CGLKMO
- 88 LKMO-FL-CSUSDO-R VALUE 'R'. CGLKMO
- 88 LKMO-FL-CSUSDO-S VALUE 'S'. CGLKMO
- 88 LKMO-FL-CSUSDO-T VALUE 'T'. CGLKMO
- 88 LKMO-FL-CSUSDO-U VALUE 'U'. CGLKMO
- 88 LKMO-FL-CSUSDO-V VALUE 'V'. CGLKMO
- 20 LKMO-DO0TIT. CGLKMO
- 23 LKMO-DEBTIT PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FINTIT PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDDO0TIT. CGLKMO
- 26 LKMO-DTPEDO PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-NFICPN PIC S9(7) COMP-3. CGLKMO
- 11 LKMO-LOGEMENT. CGLKMO
- 14 LKMO-RLOGEM PIC S9(3) COMP-3. CGLKMO
- 14 LKMO-CDLOGZZZ. CGLKMO
- 17 LKMO-DCONVE PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CPGLGT PIC X(5). CGLKMO
- 17 LKMO-CLGTRE PIC X(13). CGLKMO
- 17 LKMO-DACHTV PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DDEMEN PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CDDPDE PIC X(1). CGLKMO
- 88 LKMO-FL-ACC-DERO VALUE 'A'. CGLKMO
- 88 LKMO-FL-REFU-DERO VALUE 'R'. CGLKMO
- 17 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 17 LKMO-MTFRDE PIC S9(5)V9(2) COMP-3. CGLKMO
- 17 LKMO-MPAREX PIC S9(5)V9(2) COMP-3. CGLKMO
- 17 LKMO-DDMPDE PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CAPLOY PIC X(2). CGLKMO
- 88 LKMO-FL-PAS-APEL VALUE '00'. CGLKMO
- 88 LKMO-FL-APEL-AL-A-FAIR VALUE '01'. CGLKMO
- 88 LKMO-FL-APEL-AL-FAIT VALUE '02'. CGLKMO
- 88 LKMO-FL-APEL-AL-RECU VALUE '03'. CGLKMO
- 88 LKMO-FL-APEL-APL-A-FAIR VALUE '05'. CGLKMO
- 88 LKMO-FL-APEL-APL-FAIT VALUE '06'. CGLKMO
- 88 LKMO-FL-APEL-APL-RECU VALUE '07'. CGLKMO
- 17 LKMO-DAPLOY PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DRELOY PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CSULOY PIC X(1). CGLKMO
- 88 LKMO-FL-SUP-IND-BAI VALUE 'J'. CGLKMO
- 88 LKMO-FL-SUP-MAG VALUE 'M'. CGLKMO
- 88 LKMO-FL-SUP-LIS VALUE 'L'. CGLKMO
- 88 LKMO-FL-SUP-RES-NAT VALUE 'N'. CGLKMO
- 88 LKMO-FL-SUP-RES VALUE 'R'. CGLKMO
- 88 LKMO-FL-SUP-PAP VALUE 'J' 'L'. CGLKMO
- 88 LKMO-FL-CSULOY-T VALUE 'T'. CGLKMO
- 88 LKMO-FL-CSULOY-Q VALUE 'Q'. CGLKMO
- 88 LKMO-FL-CSULOY-P VALUE 'P'. CGLKMO
- 88 LKMO-FL-CSULOY-EDI VALUE 'N' 'R' 'M'. CGLKMO
- 17 LKMO-CNATAO PIC X(1). CGLKMO
- 88 LKMO-FL-ATTE-EXIG-NO-FRNI VALUE 'E'. CGLKMO
- 88 LKMO-FL-ATTE-EXIG-ET-FRNI VALUE 'F'. CGLKMO
- 17 LKMO-CJLGPR PIC X(1). CGLKMO
- 88 LKMO-FL-AJOU-CMS VALUE 'O'. CGLKMO
- 88 LKMO-FL-NO-AJOU-CMS VALUE 'N'. CGLKMO
- 88 LKMO-FL-CMS-APP-PIE VALUE 'A'. CGLKMO
- 17 LKMO-CDCAJ001 PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-EDRAPL PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-FDRAPL PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DDEMAL PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-DCONST PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-NINVLG PIC X(12). CGLKMO
- 17 LKMO-RLOGEM1 PIC S9(3) COMP-3. CGLKMO
- 17 LKMO-CDLCO001 PIC S9(7) COMP-3. CGLKMO
- 17 LKMO-FILLER CGLKMO
- OCCURS 007 TIMES PIC X(1). CGLKMO
- 14 LKMO-CGLGH1 CGLKMO
- OCCURS 002 TIMES CGLKMO
- INDEXED BY IX-OCL. CGLKMO
- 17 LKMO-CDHIS001 PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CDHIS002 PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CGLGHIND. CGLKMO
- 20 LKMO-INDBAI PIC 9(1). CGLKMO
- 20 LKMO-INDCAI PIC 9(1). CGLKMO
- 20 LKMO-INDCAL PIC 9(1). CGLKMO
- 20 LKMO-INDCHL PIC 9(1). CGLKMO
- 20 LKMO-INDCML PIC 9(1). CGLKMO
- 20 LKMO-INDCNA PIC 9(1). CGLKMO
- 20 LKMO-INDCOL PIC 9(1). CGLKMO
- 20 LKMO-INDDEC PIC 9(1). CGLKMO
- 20 LKMO-INDDPL PIC 9(1). CGLKMO
- 20 LKMO-INDETU PIC 9(1). CGLKMO
- 20 LKMO-INDLAI PIC 9(1). CGLKMO
- 20 LKMO-INDMPL PIC 9(1). CGLKMO
- 20 LKMO-INDNRL PIC 9(1). CGLKMO
- 20 LKMO-INDPPL PIC 9(1). CGLKMO
- 20 LKMO-INDSAL PIC 9(1). CGLKMO
- 20 LKMO-INDSIN PIC 9(1). CGLKMO
- 17 LKMO-CGLGHGDD. CGLKMO
- 20 LKMO-LG0BAI. CGLKMO
- 23 LKMO-EEFBAI PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FBAILL PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGBAI. CGLKMO
- 26 LKMO-CNABAI PIC X(1). CGLKMO
- 88 LKMO-FL-PERS-PHYS-BAI VALUE 'P'. CGLKMO
- 88 LKMO-FL-PERS-MRAL-BAI VALUE 'M'. CGLKMO
- 26 LKMO-NBAILL PIC S9(7) COMP-3. CGLKMO
- 26 LKMO-CTIBAI PIC X(3). CGLKMO
- 88 LKMO-FL-CTIBAI-MON VALUE 'MON'. CGLKMO
- 88 LKMO-FL-CTIBAI-MME VALUE 'MME'. CGLKMO
- 88 LKMO-FL-CTIBAI-CPL VALUE 'CPL'. CGLKMO
- 20 LKMO-LG0CAI. CGLKMO
- 23 LKMO-CAIDEB PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CAIFIN PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGCAI. CGLKMO
- 26 LKMO-COFCAD PIC X(1). CGLKMO
- 20 LKMO-LG0CAL. CGLKMO
- 23 LKMO-CALDEB PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CALFIN PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGCAL. CGLKMO
- 26 LKMO-DCARLO PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CPLLGT PIC X(2). CGLKMO
- 88 LKMO-FL-AUTR-PAIE-NORM VALUE '01'. CGLKMO
- 88 LKMO-FL-LOG-FOYR-PERS-AGE VALUE '03'. CGLKMO
- 88 LKMO-FL-LFJT-OU-BNEF-RMI VALUE '04'. CGLKMO
- 88 LKMO-FL-RESID-U VALUE '06'. CGLKMO
- 88 LKMO-FL-LNPO-INF-0759 VALUE '10'. CGLKMO
- 88 LKMO-FL-LNPO-0759-0660 VALUE '11'. CGLKMO
- 88 LKMO-FL-LNPO-0760-0661 VALUE '12'. CGLKMO
- 88 LKMO-FL-LNPO-0761-0662 VALUE '13'. CGLKMO
- 88 LKMO-FL-LNPO-0762-0663 VALUE '14'. CGLKMO
- 88 LKMO-FL-LNPO-0763-0664 VALUE '15'. CGLKMO
- 88 LKMO-FL-0764-0666 VALUE '16'. CGLKMO
- 88 LKMO-FL-0764-0666-DEROG VALUE '17'. CGLKMO
- 88 LKMO-FL-LNPO-0766-0672 VALUE '18'. CGLKMO
- 88 LKMO-FL-LNPO-0772-0674 VALUE '19'. CGLKMO
- 88 LKMO-FL-LNPO-0774-0675 VALUE '20'. CGLKMO
- 88 LKMO-FL-LNPO-0775-0676 VALUE '21'. CGLKMO
- 88 LKMO-FL-LNPO-0776-0677 VALUE '22'. CGLKMO
- 88 LKMO-FL-LNPO-0777-0678 VALUE '23'. CGLKMO
- 88 LKMO-FL-LNPO-0778-0679 VALUE '24'. CGLKMO
- 88 LKMO-FL-LNPO-0779-0680 VALUE '25'. CGLKMO
- 88 LKMO-FL-LNPO-0780-0681 VALUE '26'. CGLKMO
- 88 LKMO-FL-LNPO-0781-1181 VALUE '27'. CGLKMO
- 88 LKMO-FL-LNPO-1281-0682 VALUE '28'. CGLKMO
- 88 LKMO-FL-LNPO-0782-0683 VALUE '29'. CGLKMO
- 88 LKMO-FL-LAOC-INF-0762 VALUE '30'. CGLKMO
- 88 LKMO-FL-LAOC-0762-0664 VALUE '31'. CGLKMO
- 88 LKMO-FL-LAOC-0764-0672 VALUE '32'. CGLKMO
- 88 LKMO-FL-LALA-INF-01-07-62 VALUE '33'. CGLKMO
- 88 LKMO-FL-LALA-0762-0663 VALUE '34'. CGLKMO
- 88 LKMO-FL-LALA-0763-0664 VALUE '35'. CGLKMO
- 88 LKMO-FL-LALA-0764-0672 VALUE '36'. CGLKMO
- 88 LKMO-FL-LNPO-0783-0684 VALUE '37'. CGLKMO
- 88 LKMO-FL-LNPO-0784-0685 VALUE '38'. CGLKMO
- 88 LKMO-FL-LNPO-0785-0686 VALUE '39'. CGLKMO
- 88 LKMO-FL-LNPO-0786-0687 VALUE '40'. CGLKMO
- 88 LKMO-FL-LNPO-0787-0688 VALUE '41'. CGLKMO
- 88 LKMO-FL-LNPO-0788-0689 VALUE '42'. CGLKMO
- 88 LKMO-FL-LNPO-0789-0690 VALUE '43'. CGLKMO
- 88 LKMO-FL-LNPO-0790-0691 VALUE '44'. CGLKMO
- 88 LKMO-FL-LNPO-0791-0692 VALUE '45'. CGLKMO
- 88 LKMO-FL-LNPO-0792-0694 VALUE '46'. CGLKMO
- 88 LKMO-FL-LNPO-0794-0695 VALUE '47'. CGLKMO
- 88 LKMO-FL-LNPO-0795-0696 VALUE '48'. CGLKMO
- 88 LKMO-FL-LNPO-0796 VALUE '49'. CGLKMO
- 88 LKMO-FL-LNPO-0797 VALUE '50'. CGLKMO
- 88 LKMO-FL-LNPO-0798 VALUE '51'. CGLKMO
- 88 LKMO-FL-LNPO-0799 VALUE '52'. CGLKMO
- 88 LKMO-FL-CPLLGT-0700 VALUE '53'. CGLKMO
- 88 LKMO-FL-CPLLGT-0701 VALUE '54'. CGLKMO
- 88 LKMO-FL-CPLLGT-0702 VALUE '55'. CGLKMO
- 88 LKMO-FL-CPLLGT-0703 VALUE '56'. CGLKMO
- 88 LKMO-FL-CPLLGT-0704 VALUE '57'. CGLKMO
- 88 LKMO-FL-CPLLGT-0705 VALUE '58'. CGLKMO
- 88 LKMO-FL-FLLC-AV-0176-DOM VALUE '60'. CGLKMO
- 88 LKMO-FL-FLLC-EE-0176-1285 VALUE '61'. CGLKMO
- 88 LKMO-FL-FLLC-APR-31-12-85 VALUE '62'. CGLKMO
- 88 LKMO-FL-PLA-LOC VALUE '01' '03' '04' CGLKMO
- '06'. CGLKMO
- 88 LKMO-FL-PLA-LOC-DOM VALUE '01' '03' '04' CGLKMO
- '06' '60' '61' '62' '63'. CGLKMO
- 88 LKMO-FL-PLA-ACC-PAR1 VALUE '10' '11' '12' CGLKMO
- '13' '14' '15' '16' '17' '18' '19'. CGLKMO
- 88 LKMO-FL-PLA-ACC-PAR2 VALUE '20' '21' '22' CGLKMO
- '23' '24' '25' '26' '27' '28' '29'. CGLKMO
- 88 LKMO-FL-PLA-ACC-PAR3 VALUE '30' '31' '32' CGLKMO
- '33' '34' '35' '36' '37' '38' '39'. CGLKMO
- 88 LKMO-FL-PLA-ACC-PAR4 VALUE '40' '41' '42' CGLKMO
- '43' '44' '45' '46' '47' '48' '49' '50' '51'. CGLKMO
- 88 LKMO-FL-PLA-ACC-PAR5 VALUE '52' '53' '54' CGLKMO
- '55' '56' '57' '58' '59' '70' '71' '72' '73'. CGLKMO
- 88 LKMO-FL-PLA-ACC-PAR6 VALUE '74' '75' '76' CGLKMO
- '77' '78'. CGLKMO
- 26 LKMO-COCLGT PIC X(2). CGLKMO
- 88 LKMO-FL-LOCL-NU-OCI VALUE '01'. CGLKMO
- 88 LKMO-FL-LOCT-MEUB-HOPE VALUE '02'. CGLKMO
- 88 LKMO-FL-SOUS-LOCT-LOCL-NU VALUE '03'. CGLKMO
- 88 LKMO-FL-LLNM-OU-SOUS-LOEP VALUE '04'. CGLKMO
- 88 LKMO-FL-OCC-RESID-U VALUE '05'. CGLKMO
- 88 LKMO-FL-COCLGT-5X VALUE '5X'. CGLKMO
- 88 LKMO-FL-COCLGT-5Y VALUE '5Y'. CGLKMO
- 88 LKMO-FL-OCC-FOY-AUT VALUE '06'. CGLKMO
- 88 LKMO-FL-LOGE-FOYR-OCI VALUE '07'. CGLKMO
- 88 LKMO-FL-MAIS-DE-RETR-OCI VALUE '08'. CGLKMO
- 88 LKMO-FL-CTRE-DE-LG-SEJO VALUE '09'. CGLKMO
- 88 LKMO-FL-CHA-MEU VALUE '10'. CGLKMO
- 88 LKMO-FL-CHA-NUE VALUE '11'. CGLKMO
- 88 LKMO-FL-SOUS-LOLO-MEUB VALUE '13'. CGLKMO
- 88 LKMO-FL-LLMM-OU-SOUS-LOEP VALUE '14'. CGLKMO
- 88 LKMO-FL-LOCT-RELV-DU-FEMG VALUE '15'. CGLKMO
- 88 LKMO-FL-HEBE-PA-OU-PI-CHP VALUE '16'. CGLKMO
- 88 LKMO-FL-LOCT-ACSO-CTDT VALUE '17'. CGLKMO
- 88 LKMO-FL-NU-MIX VALUE '18'. CGLKMO
- 88 LKMO-FL-NU-MIX-HLM VALUE '19'. CGLKMO
- 88 LKMO-FL-IMEU-ANCI-OCUP VALUE '20'. CGLKMO
- 88 LKMO-FL-IMEU-ANCI-LIBR VALUE '21'. CGLKMO
- 88 LKMO-FL-IMEU-NEU-INF-DEC VALUE '22'. CGLKMO
- 88 LKMO-FL-IMEU-NEU-INEG-DEC VALUE '23'. CGLKMO
- 88 LKMO-FL-AMEL-SAUF-HLM VALUE '24'. CGLKMO
- 88 LKMO-FL-DOM-LOC-LTS VALUE '30'. CGLKMO
- 88 LKMO-FL-DOM-LOC-LES VALUE '31'. CGLKMO
- 88 LKMO-FL-DOM-ACC-LTS VALUE '40'. CGLKMO
- 88 LKMO-FL-DOM-ACC-LES VALUE '41'. CGLKMO
- 88 LKMO-FL-APL1-RES-SOC VALUE '50'. CGLKMO
- 88 LKMO-FL-APL2-RES-SOC VALUE '5A'. CGLKMO
- 88 LKMO-FL-HLM-NEU-OUAC-ETAM VALUE '51'. CGLKMO
- 88 LKMO-FL-LOG-FOYR-OCI VALUE '52'. CGLKMO
- 88 LKMO-FL-AUTR-LOG-NEU-OUAC VALUE '53'. CGLKMO
- 88 LKMO-FL-APL1-FOY-JT VALUE '54'. CGLKMO
- 88 LKMO-FL-HLM-CONV-AP-TRAV VALUE '55'. CGLKMO
- 88 LKMO-FL-AUTR-LOCO-AP-TRAV VALUE '56'. CGLKMO
- 88 LKMO-FL-HLM-CONV-SS-TRAV VALUE '57'. CGLKMO
- 88 LKMO-FL-AUTR-LOCO-SS-TRAV VALUE '58'. CGLKMO
- 88 LKMO-FL-OCC-FJT VALUE '59'. CGLKMO
- 88 LKMO-FL-LOG-NEU-OUAC-ETAM VALUE '60'. CGLKMO
- 88 LKMO-FL-LOG-AMEL-OCI VALUE '61'. CGLKMO
- 88 LKMO-FL-LOG-SS-TRAV-OCI VALUE '62'. CGLKMO
- 88 LKMO-FL-CHA VALUE '63'. CGLKMO
- 88 LKMO-FL-ACQU-LOG-NEU-OCI VALUE '70'. CGLKMO
- 88 LKMO-FL-ACQU-ET-AMEL-OCI VALUE '71'. CGLKMO
- 88 LKMO-FL-AGRD-OCI VALUE '72'. CGLKMO
- 88 LKMO-FL-AMEL-OCI VALUE '73'. CGLKMO
- 88 LKMO-FL-LOCA-ACES-OCI VALUE '74'. CGLKMO
- 88 LKMO-FL-EXPR-ALA-SS-TRAV VALUE '75'. CGLKMO
- 88 LKMO-FL-ACQU-LAN-SS-TRAV VALUE '76'. CGLKMO
- 88 LKMO-FL-HLM-LOC-NU VALUE '77'. CGLKMO
- 88 LKMO-FL-HLM-MIX-SSLO VALUE '78'. CGLKMO
- 88 LKMO-FL-HLM-PAPI-PART VALUE '79'. CGLKMO
- 88 LKMO-FL-HLM-ANC-OCC VALUE '80'. CGLKMO
- 88 LKMO-FL-HLM-ANC-LIB VALUE '81'. CGLKMO
- 88 LKMO-FL-HLM-AVT-07-72 VALUE '82'. CGLKMO
- 88 LKMO-FL-HLM-APR-07-72 VALUE '83'. CGLKMO
- 88 LKMO-FL-AMEL-HLM VALUE '84'. CGLKMO
- 88 LKMO-FL-LOCA-ORDI VALUE '01' '02' '03' CGLKMO
- '04' '13' '14' '15' '16' '17' '77' '78' '79'. CGLKMO
- 88 LKMO-FL-LOCA-ORDI-2 VALUE '10' '11' '30' CGLKMO
- '31' '18' '19' '5Y'. CGLKMO
- 88 LKMO-FL-FOYER-AL VALUE '05' '06' '07' CGLKMO
- '08' '09' '5X'. CGLKMO
- 88 LKMO-FL-LOCA-AL VALUE '01' '02' '03' CGLKMO
- '04' '05' '06' '07' '08' '09' '13' '10' '11'. CGLKMO
- 88 LKMO-FL-LOCA-AL2 VALUE '14' '15' '16' CGLKMO
- '17' '77' '78' '79' '30' '31' '18' '19'. CGLKMO
- 88 LKMO-FL-LOCA-AL3 VALUE '5X' '5Y'. CGLKMO
- 88 LKMO-FL-LOCA-APL1 VALUE '50' '51' '52' CGLKMO
- '53' '54' '60'. CGLKMO
- 88 LKMO-FL-LOCA-APL2 VALUE '5A' '55' '56' CGLKMO
- '57' '58' '59' '61' '62' '63'. CGLKMO
- 88 LKMO-FL-REF-APL-LOC VALUE '51' '53' '55' CGLKMO
- '56' '57' '58' '60' '61' '62' '63'. CGLKMO
- 88 LKMO-FL-LOCA-ALDOM VALUE '14' '16' '30' CGLKMO
- '31' '5X' '18' '19' '77' '78' '79' '5Y'. CGLKMO
- 88 LKMO-FL-LOCA-ALMET VALUE '14' '15' '16' CGLKMO
- '17' '18' '19' '77' '78' '79' '5X' '5Y'. CGLKMO
- 88 LKMO-FL-ACCES-ALDOM VALUE '23' '24' '40' CGLKMO
- '41' '83' '84'. CGLKMO
- 88 LKMO-FL-ACCES-ALMET VALUE '20' '21' '22' CGLKMO
- '23' '24' '80' '81' '82' '83' '84'. CGLKMO
- 88 LKMO-FL-ACCES-AL VALUE '20' '21' '22' CGLKMO
- '23' '24' '80' '81' '82' '83' '84' '40' '41'. CGLKMO
- 88 LKMO-FL-ACCES-APL VALUE '70' '71' '72' CGLKMO
- '73' '74' '75' '76'. CGLKMO
- 88 LKMO-FL-HEB-ONER-APL-LOC VALUE '60' '61'. CGLKMO
- 88 LKMO-FL-HEB-ONER-NEW-APL VALUE '61' '62'. CGLKMO
- 88 LKMO-FL-HEB-ONER-AL VALUE '16' '79'. CGLKMO
- 88 LKMO-FL-AUTRE-QUAMEL-APL VALUE '70' '71' '72' CGLKMO
- '74' '75'. CGLKMO
- 88 LKMO-FL-FOYER-RET VALUE '07' '08'. CGLKMO
- 88 LKMO-FL-ACC-ALS VALUE '20' '21' '22' CGLKMO
- '23' '80' '81' '82' '83' '40' '41'. CGLKMO
- 88 LKMO-FL-AMEL-ALF VALUE '24' '84'. CGLKMO
- 88 LKMO-FL-COCLGT-CRH1 VALUE '01' '02' '03' CGLKMO
- '04' '10' '11' '13' '14' '15' '17' '18' '16'. CGLKMO
- 88 LKMO-FL-COCLGT-CRH2 VALUE '30' '31' '51' CGLKMO
- '53' '55' '56' '57' '58' '60' '61' '62' '63'. CGLKMO
- 88 LKMO-FL-STA-LOC-HLM VALUE '77' '78' '79' CGLKMO
- '19'. CGLKMO
- 88 LKMO-FL-STA-LOC-AUT VALUE '01' '02' '03' CGLKMO
- '04' '13' '14' '15' '16' '17' '18' '30' '31'. CGLKMO
- 88 LKMO-FL-STA-LOC-CHA VALUE '10' '11'. CGLKMO
- 88 LKMO-FL-STA-AME VALUE '24' '84'. CGLKMO
- 88 LKMO-FL-STA-ACC-HLM VALUE '80' '81' '82' CGLKMO
- '83'. CGLKMO
- 88 LKMO-FL-STA-ACC-AUT VALUE '20' '21' '22' CGLKMO
- '23' '40' '41'. CGLKMO
- 88 LKMO-FL-STA-LOG-FOY VALUE '06' '07'. CGLKMO
- 88 LKMO-FL-STA-MAI-RET VALUE '08' '09'. CGLKMO
- 88 LKMO-FL-STA-LOC-MEU VALUE '02' '03' '04' CGLKMO
- '10' '13' '14' '78'. CGLKMO
- 88 LKMO-FL-STA-APL-LOC VALUE '51' '53' '55' CGLKMO
- '56' '57' '58' '60' '61' '62' '63'. CGLKMO
- 88 LKMO-FL-STA-APL-ACC-NEU VALUE '70' '74'. CGLKMO
- 88 LKMO-FL-STA-APL1-FOY VALUE '50' '52' '54'.CGLKMO
- 88 LKMO-FL-STA-APL2-FOY VALUE '59' '5A'. CGLKMO
- 88 LKMO-FL-STA-APL-ACC-STR VALUE '75' '76'. CGLKMO
- 88 LKMO-FL-OCC-QUI-RED VALUE '02' '03' '04' CGLKMO
- '10' '13' '14' '78' '5Y'. CGLKMO
- 88 LKMO-FL-COCLGT-MAYOTTE VALUE '01' '23' '24' CGLKMO
- '83' '84'. CGLKMO
- 26 LKMO-CZGLGT PIC X(1). CGLKMO
- 88 LKMO-FL-ZONE-UN VALUE '1'. CGLKMO
- 88 LKMO-FL-ZONE-DEU VALUE '2'. CGLKMO
- 88 LKMO-FL-ZONE-TRO VALUE '3'. CGLKMO
- 88 LKMO-FL-SPEC-DOM VALUE '9'. CGLKMO
- 26 LKMO-QSURLG PIC S9(5) COMP-3. CGLKMO
- 26 LKMO-TSUHAB PIC S9(3)V9(2) COMP-3. CGLKMO
- 26 LKMO-QM2HAB PIC S9(5) COMP-3. CGLKMO
- 26 LKMO-QMPALF PIC S9(3) COMP-3. CGLKMO
- 26 LKMO-QMPALS PIC S9(3) COMP-3. CGLKMO
- 20 LKMO-LG0CHL. CGLKMO
- 23 LKMO-CHLDEB PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CHLFIN PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGCHL. CGLKMO
- 26 LKMO-DCHRES PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MCHRLG PIC S9(5)V9(2) COMP-3. CGLKMO
- 26 LKMO-CNMTCL PIC X(1). CGLKMO
- 88 LKMO-FL-CHRG-RSDU VALUE 'R'. CGLKMO
- 88 LKMO-FL-AVTG-SIML-ALS VALUE 'S'. CGLKMO
- 88 LKMO-FL-LNM-ASS VALUE 'A'. CGLKMO
- 20 LKMO-LG0CML. CGLKMO
- 23 LKMO-EPECML PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FPECML PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGCML. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MMLRBT PIC S9(5)V9(2) COMP-3. CGLKMO
- 20 LKMO-LG0CNA. CGLKMO
- 23 LKMO-CAIDEB PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CAIFIN PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGCNA. CGLKMO
- 26 LKMO-CONSAL PIC X(2). CGLKMO
- 88 LKMO-FL-CONSAL-IN VALUE 'IN'. CGLKMO
- 88 LKMO-FL-CONSAL-I6 VALUE 'I6'. CGLKMO
- 88 LKMO-FL-CONSAL-R1 VALUE 'R1'. CGLKMO
- 88 LKMO-FL-CONSAL-R2 VALUE 'R2'. CGLKMO
- 26 LKMO-DENRAL PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-DSABAI PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CETCAL PIC X(2). CGLKMO
- 88 LKMO-FL-CETCAL-CO VALUE 'CO'. CGLKMO
- 88 LKMO-FL-CETCAL-PA VALUE 'PA'. CGLKMO
- 88 LKMO-FL-CETCAL-AN VALUE 'AN'. CGLKMO
- 20 LKMO-LG0COL. CGLKMO
- 23 LKMO-COLDEB PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-COLFIN PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGCOL. CGLKMO
- 26 LKMO-DANCOL PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-QCOLGT PIC S9(3) COMP-3. CGLKMO
- 20 LKMO-LG0DEC. CGLKMO
- 23 LKMO-EDECLG PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FDECLG PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGDEC. CGLKMO
- 26 LKMO-CDECLG PIC X(2). CGLKMO
- 88 LKMO-FL-CDECLG-AU VALUE 'AU'. CGLKMO
- 88 LKMO-FL-CDECLG-DA VALUE 'DA'. CGLKMO
- 88 LKMO-FL-CDECLG-DL VALUE 'DL'. CGLKMO
- 88 LKMO-FL-CDECLG-IC VALUE 'IC'. CGLKMO
- 88 LKMO-FL-CDECLG-PI VALUE 'PI'. CGLKMO
- 26 LKMO-DPROLO PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CPROLO PIC X(1). CGLKMO
- 88 LKMO-FL-CPROLO-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CPROLO-N VALUE 'N'. CGLKMO
- 88 LKMO-FL-CPROLO-R VALUE 'R'. CGLKMO
- 26 LKMO-CDISAL PIC X(1). CGLKMO
- 88 LKMO-FL-CDISAL-C VALUE 'C'. CGLKMO
- 88 LKMO-FL-CDISAL-S VALUE 'S'. CGLKMO
- 20 LKMO-LG0DPL. CGLKMO
- 23 LKMO-EDEPLG PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FDEPLG PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGDPL. CGLKMO
- 26 LKMO-CDEPLG PIC X(1). CGLKMO
- 88 LKMO-FL-DERO-PAC-SUPL VALUE '1'. CGLKMO
- 88 LKMO-FL-DERO-DECI VALUE '2'. CGLKMO
- 88 LKMO-FL-DERO-LEG VALUE '3'. CGLKMO
- 88 LKMO-FL-DERO-CRA VALUE '4'. CGLKMO
- 88 LKMO-FL-DERO-SRVC-ADMF VALUE '5'. CGLKMO
- 88 LKMO-FL-DERO-GEN VALUE '6'. CGLKMO
- 88 LKMO-FL-DERO-DEFI VALUE '7'. CGLKMO
- 88 LKMO-FL-DERO-REFU VALUE '8'. CGLKMO
- 88 LKMO-FL-DERO-PAC-GEN VALUE '9'. CGLKMO
- 26 LKMO-QPDEPL PIC S9(3) COMP-3. CGLKMO
- 20 LKMO-LG0ETU. CGLKMO
- 23 LKMO-ETUDEB PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-ETUFIN PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGETU. CGLKMO
- 26 LKMO-EETULO PIC S9(9) COMP-3. CGLKMO
- 26 LKMO-CETULO PIC X(1). CGLKMO
- 88 LKMO-FL-CETULO-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CETULO-N VALUE 'N'. CGLKMO
- 88 LKMO-FL-CETULO-R VALUE 'R'. CGLKMO
- 88 LKMO-FL-CETULO-E VALUE 'E'. CGLKMO
- 20 LKMO-LG0LAI. CGLKMO
- 23 LKMO-LAIDEB PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-LAIFIN PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGLAI. CGLKMO
- 26 LKMO-CELIFC PIC X(1). CGLKMO
- 88 LKMO-FL-CELIFC-E VALUE 'E'. CGLKMO
- 88 LKMO-FL-CELIFC-N VALUE 'N'. CGLKMO
- 20 LKMO-LG0MPL. CGLKMO
- 23 LKMO-MPLDEB PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-MPLFIN PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGMPL. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MCALLO PIC S9(5)V9(2) COMP-3. CGLKMO
- 20 LKMO-LG0NRL. CGLKMO
- 23 LKMO-ENRPNL PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FNRPNL PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGNRL. CGLKMO
- 26 LKMO-QPNLGT PIC S9(3) COMP-3. CGLKMO
- 20 LKMO-LG0PPL. CGLKMO
- 23 LKMO-ETYPRE PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FTYPRE PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGPPL. CGLKMO
- 26 LKMO-RPRETX PIC S9(3) COMP-3. CGLKMO
- 20 LKMO-LG0SAL. CGLKMO
- 23 LKMO-EDSALG PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FDSALG PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGSAL. CGLKMO
- 26 LKMO-CDSALG PIC X(1). CGLKMO
- 88 LKMO-FL-DERO-SRVC-ADMF-LD VALUE '1'. CGLKMO
- 88 LKMO-FL-DERO-CA-LD VALUE '2'. CGLKMO
- 88 LKMO-FL-DERO-REFU-LD VALUE '3'. CGLKMO
- 88 LKMO-FL-FIN-DE-DERO-ATT VALUE '4'. CGLKMO
- 20 LKMO-LG0SIN. CGLKMO
- 23 LKMO-DDEROL PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-FDEROL PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDLOGSIN. CGLKMO
- 26 LKMO-CDEROL PIC X(1). CGLKMO
- 88 LKMO-FL-CDEROL-P VALUE 'P'. CGLKMO
- 88 LKMO-FL-CDEROL-S VALUE 'S'. CGLKMO
- 88 LKMO-FL-CDEROL-N VALUE 'N'. CGLKMO
- 11 LKMO-PRET-LOG-ACC. CGLKMO
- 14 LKMO-RLOGEM PIC S9(3) COMP-3. CGLKMO
- 14 LKMO-CGPR01. CGLKMO
- 17 LKMO-CDPREZZZ. CGLKMO
- 20 LKMO-CNAREF PIC X(1). CGLKMO
- 88 LKMO-FL-PERS-PHYS-REF VALUE 'P'. CGLKMO
- 88 LKMO-FL-PERS-MRAL-REF VALUE 'M'. CGLKMO
- 20 LKMO-NREFER PIC S9(7) COMP-3. CGLKMO
- 20 LKMO-NPRETX PIC X(20). CGLKMO
- 20 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 20 LKMO-MGLPRE PIC S9(7)V9(2) COMP-3. CGLKMO
- 20 LKMO-TPCPRE PIC S9(3)V9(2) COMP-3. CGLKMO
- 20 LKMO-CTIPRE PIC X(3). CGLKMO
- 88 LKMO-FL-MR-PRE VALUE 'MON'. CGLKMO
- 88 LKMO-FL-MME-PRE VALUE 'MME'. CGLKMO
- 88 LKMO-FL-MR-ET-MME-PRE VALUE 'MEM'. CGLKMO
- 20 LKMO-QDUPRM PIC S9(3) COMP-3. CGLKMO
- 20 LKMO-CTPREE PIC X(1). CGLKMO
- 88 LKMO-FL-TERM-A-ECHO VALUE 'A'. CGLKMO
- 88 LKMO-FL-TERM-ECHU VALUE 'E'. CGLKMO
- 20 LKMO-DRATPR PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-DRAPPR PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-DSICON PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CPEPRE PIC X(1). CGLKMO
- 88 LKMO-FL-MENS-PRE VALUE 'M'. CGLKMO
- 88 LKMO-FL-TRIM-PRE VALUE 'T'. CGLKMO
- 88 LKMO-FL-SMTR-PRE VALUE 'S'. CGLKMO
- 88 LKMO-FL-ANN-PRE VALUE 'A'. CGLKMO
- 20 LKMO-CNAPRE PIC X(1). CGLKMO
- 88 LKMO-FL-PRET-AIDE-PAR-ETA VALUE 'A'. CGLKMO
- 88 LKMO-FL-PRET-CONV-PRN VALUE 'C'. CGLKMO
- 88 LKMO-FL-AUTR-PRN-PRN VALUE 'Z'. CGLKMO
- 88 LKMO-FL-PRN-PAP-CST VALUE 'P'. CGLKMO
- 88 LKMO-FL-PRN-PC-CST VALUE 'V'. CGLKMO
- 88 LKMO-FL-PRN-TX-ZERO VALUE 'T'. CGLKMO
- 88 LKMO-FL-CNAPRE-PAP VALUE 'A' 'P'. CGLKMO
- 88 LKMO-FL-CNAPRE-CNV VALUE 'C' 'V'. CGLKMO
- 88 LKMO-FL-CNAPRE-COM VALUE 'Z' 'T'. CGLKMO
- 11 LKMO-ALLOCATAIRE. CGLKMO
- 14 LKMO-ALLOC-FAMILLE-PRESTA CGLKMO
- OCCURS 010 TIMES CGLKMO
- INDEXED BY IX-AL0. CGLKMO
- 17 LKMO-ALLO-CFAPRS PIC X(3). CGLKMO
- 88 LKMO-ALLO-FL-PFA-ALF VALUE 'PFA'. CGLKMO
- 88 LKMO-ALLO-FL-APL-ALF VALUE 'APL'. CGLKMO
- 88 LKMO-ALLO-FL-RMI-ALF VALUE 'RMI'. CGLKMO
- 88 LKMO-ALLO-FL-ALS-ALF VALUE 'ALS'. CGLKMO
- 88 LKMO-ALLO-FL-AH1-ALF VALUE 'AH1'. CGLKMO
- 88 LKMO-ALLO-FL-AH2-ALF VALUE 'AH2'. CGLKMO
- 88 LKMO-ALLO-FL-PEL-ALF VALUE 'PEL'. CGLKMO
- 88 LKMO-ALLO-FL-CFAPRS-RSO VALUE 'RSO'. CGLKMO
- 88 LKMO-ALLO-FL-CFAPRS-RSA VALUE 'RSA'. CGLKMO
- 88 LKMO-ALLO-FL-CFAPRS-AMI VALUE 'AMI'. CGLKMO
- 88 LKMO-ALLO-FL-CFAPRS-PAC VALUE 'PAC'. CGLKMO
- 17 LKMO-ALLO-CGAL0ALC. CGLKMO
- 20 LKMO-INDALC PIC 9(1). CGLKMO
- 20 LKMO-CDHIS001 PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CDHIS002 PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CDALLALC. CGLKMO
- 23 LKMO-NFICPN PIC S9(7) COMP-3. CGLKMO
- 11 LKMO-ASS-MATER-DOS. CGLKMO
- 14 LKMO-ASS-MATER-PER CGLKMO
- OCCURS 005 TIMES CGLKMO
- INDEXED BY IX-PEA. CGLKMO
- 17 LKMO-ASS-MATER-GDD. CGLKMO
- 20 LKMO-NFICPN PIC S9(7) COMP-3. CGLKMO
- 20 LKMO-D4A2MJ1 PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-EAGRAM PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-FAGRAM PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CAGAMT PIC X(1). CGLKMO
- 88 LKMO-FL-AGRE VALUE 'A'. CGLKMO
- 88 LKMO-FL-CAGAMT-G VALUE 'G'. CGLKMO
- 88 LKMO-FL-CAGAMT-T VALUE 'T'. CGLKMO
- 88 LKMO-FL-NO-AGRE VALUE 'P'. CGLKMO
- 88 LKMO-FL-CAGAMT-M VALUE 'M'. CGLKMO
- 20 LKMO-ASS-MATER-EMP-GDD CGLKMO
- OCCURS 002 TIMES CGLKMO
- INDEXED BY IX-PEE. CGLKMO
- 23 LKMO-NFICPN1 PIC S9(7) COMP-3. CGLKMO
- 23 LKMO-ASS-MATER-OCC-GDD. CGLKMO
- 26 LKMO-CGAM0AEF. CGLKMO
- 29 LKMO-INDAEF PIC 9(1). CGLKMO
- 29 LKMO-CDHIS001 PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-CDHIS002 PIC S9(9) COMP-3. CGLKMO
- 29 LKMO-CDAM0AEF. CGLKMO
- 32 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 32 LKMO-MSTFAM PIC S9(5)V9(2) COMP-3. CGLKMO
- 32 LKMO-QJTFAM PIC S9(3) COMP-3. CGLKMO
- 32 LKMO-MSSFAM PIC S9(5)V9(2) COMP-3. CGLKMO
- 32 LKMO-MIRFAM PIC S9(5)V9(2) COMP-3. CGLKMO
- 32 LKMO-MAIFAM PIC S9(5)V9(2) COMP-3. CGLKMO
- 32 LKMO-MCSFAM PIC S9(5)V9(2) COMP-3. CGLKMO
- 32 LKMO-MRCFAM PIC S9(5)V9(2) COMP-3. CGLKMO
- 32 LKMO-MTCASS PIC S9(5)V9(2) COMP-3. CGLKMO
- 32 LKMO-DRIDNT PIC S9(9) COMP-3. CGLKMO
- 32 LKMO-MCTAFA PIC S9(5)V9(2) COMP-3. CGLKMO
- 32 LKMO-CCOTIV PIC X(1). CGLKMO
- 88 LKMO-FL-COTE VALUE 'O'. CGLKMO
- 88 LKMO-FL-NO-COTE VALUE 'N'. CGLKMO
- 32 LKMO-MRDFAM PIC S9(5)V9(2) COMP-3. CGLKMO
- 32 LKMO-CETDNT PIC X(1). CGLKMO
- 88 LKMO-FL-1ER-CALCUL VALUE '1'. CGLKMO
- 88 LKMO-FL-AUT-CALCUL VALUE '2'. CGLKMO
- 88 LKMO-FL-1ER-PMT VALUE '3'. CGLKMO
- 88 LKMO-FL-AUT-PMT VALUE '4'. CGLKMO
- 11 LKMO-JUGEMENTS. CGLKMO
- 14 LKMO-JUGEMT-PERSONNES CGLKMO
- OCCURS 015 TIMES CGLKMO
- INDEXED BY IX-PJU. CGLKMO
- 17 LKMO-JUGEMT-TIERS CGLKMO
- OCCURS 002 TIMES CGLKMO
- INDEXED BY IX-TJU. CGLKMO
- 20 LKMO-CGJUGZZZ. CGLKMO
- 23 LKMO-CTNE01 PIC 9(1). CGLKMO
- 23 LKMO-NFICPN PIC S9(7) COMP-3. CGLKMO
- 23 LKMO-NJUGEM PIC S9(13) COMP-3. CGLKMO
- 23 LKMO-DJUGEM PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-DASJUG PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-D1MDPA PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CVPA18 PIC X(1). CGLKMO
- 88 LKMO-FL-OUI-VSMT VALUE 'O'. CGLKMO
- 88 LKMO-FL-NO-VSMT VALUE 'N'. CGLKMO
- 23 LKMO-CNAJUG PIC X(1). CGLKMO
- 88 LKMO-FL-NJU-ARR-CRE VALUE 'A'. CGLKMO
- 88 LKMO-FL-ORDO-DE-NO-COCL VALUE 'C'. CGLKMO
- 88 LKMO-FL-DIVO-NJU VALUE 'D'. CGLKMO
- 88 LKMO-FL-NJU-ORD-MOD VALUE 'F'. CGLKMO
- 88 LKMO-FL-NJU-PLA-PRO VALUE 'J'. CGLKMO
- 88 LKMO-FL-NJU-CHA-MAR VALUE 'M'. CGLKMO
- 88 LKMO-FL-NJU-ORD-PLA VALUE 'P'. CGLKMO
- 88 LKMO-FL-NJU-ORD-REF VALUE 'R'. CGLKMO
- 88 LKMO-FL-NJU-ORD-SEP VALUE 'S'. CGLKMO
- 88 LKMO-FL-NJU-JUG-TUT VALUE 'T'. CGLKMO
- 88 LKMO-FL-NJU-PVE-CON VALUE 'V'. CGLKMO
- 88 LKMO-FL-CNAJUG-G VALUE 'G'. CGLKMO
- 88 LKMO-FL-CNAJUG-O VALUE 'O'. CGLKMO
- 88 LKMO-FL-CNAJUG-U VALUE 'U'. CGLKMO
- 88 LKMO-FL-CNAJUG-I VALUE 'I'. CGLKMO
- 88 LKMO-FL-CNAJUG-H VALUE 'H'. CGLKMO
- 88 LKMO-FL-CNAJUG-K VALUE 'K'. CGLKMO
- 88 LKMO-FL-CNAJUG-E VALUE 'E'. CGLKMO
- 88 LKMO-FL-CNAJUG-B VALUE 'B'. CGLKMO
- 88 LKMO-FL-CNAJUG-L VALUE 'L'. CGLKMO
- 88 LKMO-FL-CNAJUG-W VALUE 'W'. CGLKMO
- 88 LKMO-FL-CNAJUG-X VALUE 'X'. CGLKMO
- 88 LKMO-FL-CNAJUG-NON-HOM VALUE 'W' 'X'. CGLKMO
- 23 LKMO-LIMITE-VALIDITE. CGLKMO
- 26 LKMO-JUG-D4A2MJ PIC S9(9) COMP-3. CGLKMO
- 20 LKMO-CGJUGPAT. CGLKMO
- 23 LKMO-INDPAT PIC 9(1). CGLKMO
- 23 LKMO-CDHIS001 PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDHIS002 PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDJUGPAT. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MPPADU PIC S9(5)V9(2) COMP-3. CGLKMO
- 20 LKMO-PAVERSEE. CGLKMO
- 23 LKMO-PAVERSEE-MOIS CGLKMO
- OCCURS 026 TIMES CGLKMO
- INDEXED BY IX-MPA. CGLKMO
- 26 LKMO-INDPEN PIC 9(1). CGLKMO
- 26 LKMO-MTBA9P PIC S9(5)V9(2) COMP-3. CGLKMO
- 20 LKMO-CGJUGPAC. CGLKMO
- 23 LKMO-INDPAC PIC 9(1). CGLKMO
- 23 LKMO-CDHIS001 PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDHIS002 PIC S9(9) COMP-3. CGLKMO
- 23 LKMO-CDJUGPAC. CGLKMO
- 26 LKMO-CMOREF PIC X(1). CGLKMO
- 88 LKMO-FL-CMOREF-E VALUE 'E'. CGLKMO
- 26 LKMO-MINDEB PIC S9(5) COMP-3. CGLKMO
- 17 LKMO-JUGEMT-ASF. CGLKMO
- 20 LKMO-JUGT-IBAN03 PIC S9(3) COMP-3. CGLKMO
- 20 LKMO-JUGT-DDMASF PIC S9(9) COMP-3. CGLKMO
- 11 LKMO-CGSUSPRE. CGLKMO
- 14 LKMO-CGSUPSPR CGLKMO
- OCCURS 005 TIMES CGLKMO
- INDEXED BY IX-SUSP. CGLKMO
- 17 LKMO-CNAPRS PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-PRX VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-APX VALUE 'AP1' 'AP2' 'APCGLKMO
- - '3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-IND1 VALUE 'AJE' 'CFA' 'AHCGLKMO
- - '1' 'AH2' 'ALS' 'ALF' 'ARS' 'PJ1' 'PJ2' 'PJ3'. CGLKMO
- 88 LKMO-FL-CNAPRS-IND2 VALUE 'APL' 'AGD' 'AFCGLKMO
- - 'E' 'RSO' 'PJ4'. CGLKMO
- 88 LKMO-FL-CNAPRS-NON-MEN VALUE 'AFE' 'AGD' 'PJCGLKMO
- - '4' 'API' 'RMI' 'ADI' 'PJ5'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-NOTIF VALUE 'RSD' 'RSI' 'RSCGLKMO
- - 'U' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-25 VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-SOC VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RSJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-ACT VALUE 'RCB' 'RCD' 'RCCGLKMO
- - 'I' 'RCU' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-JEU VALUE 'RSJ' 'RCJ' 'RSCGLKMO
- - 'U'. CGLKMO
- 88 LKMO-FL-CNAPRS-PAC VALUE 'PPA' 'PPI'. CGLKMO
- 88 LKMO-FL-CNAPRS-AH1 VALUE 'AH1' 'FH1' 'CHCGLKMO
- - '1' 'CH3' 'CR1' 'CR3'. CGLKMO
- 88 LKMO-FL-CNAPRS-AH2 VALUE 'AH2' 'FH2' 'CHCGLKMO
- - '2' 'CH4' 'CR2' 'CR4'. CGLKMO
- 88 LKMO-FL-CNAPRS-LOG VALUE 'ALF' 'ALS' 'APCGLKMO
- - 'L'. CGLKMO
- 88 LKMO-FL-CNAPRS-ASF VALUE 'ASF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RMA VALUE 'RMA'. CGLKMO
- 88 LKMO-FL-CNAPRS-CAV VALUE 'CAV'. CGLKMO
- 88 LKMO-FL-CNAPRS-CDI VALUE 'CDI'. CGLKMO
- 88 LKMO-FL-CNAPRS-FICTIVE VALUE 'PAF' 'SAF' 'SICGLKMO
- - 'F'. CGLKMO
- 88 LKMO-FL-CNAPRS-PAF VALUE 'PAF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-FICTIF VALUE 'SAF' 'SIF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSF VALUE 'RSF'. CGLKMO
- 17 LKMO-CDHIS001 PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-CDHIS002 PIC S9(9) COMP-3. CGLKMO
- 17 LKMO-INDSPR PIC 9(1). CGLKMO
- 17 LKMO-CDSUPSPR. CGLKMO
- 20 LKMO-CSUSPO PIC X(2). CGLKMO
- 88 LKMO-FL-AUTR-MTF-PSU VALUE '00'. CGLKMO
- 88 LKMO-FL-BNEF-APL-NAJ-LOYR VALUE '01'. CGLKMO
- 88 LKMO-FL-FIN-ACOD-DECI-SDA VALUE '02'. CGLKMO
- 88 LKMO-FL-ATTE-DE-NO-PRP VALUE '03'. CGLKMO
- 88 LKMO-FL-CSUSPO-04 VALUE '04'. CGLKMO
- 88 LKMO-FL-AUTR-PERS-PAFR VALUE '06'. CGLKMO
- 88 LKMO-FL-CSUSPO-07 VALUE '07'. CGLKMO
- 88 LKMO-FL-DETE-IMPY VALUE '08'. CGLKMO
- 88 LKMO-FL-PLAN-APUR-NO-RECU VALUE '09'. CGLKMO
- 88 LKMO-FL-DECI-FSL-NO-RECU VALUE '10'. CGLKMO
- 88 LKMO-FL-CTRL-ANN-RDP-DEC VALUE '11'. CGLKMO
- 88 LKMO-FL-FIN-PROC-ABS-RPSE VALUE '12'. CGLKMO
- 88 LKMO-FL-PLAN-APUR-NO-RESP VALUE '13'. CGLKMO
- 88 LKMO-FL-CSUSPO-14 VALUE '14'. CGLKMO
- 88 LKMO-FL-REFU-DPOS-DMDE VALUE '15'. CGLKMO
- 88 LKMO-FL-LIQU-CONT-RESS VALUE '16'. CGLKMO
- 88 LKMO-FL-SUP-APL-DOS VALUE '17'. CGLKMO
- 88 LKMO-FL-SUP-ACT-AGED VALUE '18'. CGLKMO
- 88 LKMO-FL-SUP-AVEC-PAI VALUE '19'. CGLKMO
- 88 LKMO-FL-SUP-RMI-PRE VALUE '20'. CGLKMO
- 88 LKMO-FL-SUP-MUT-DIF VALUE '21'. CGLKMO
- 88 LKMO-FL-SUP-PRE-DEQ VALUE '22'. CGLKMO
- 88 LKMO-FL-SUP-AL-FIN-PAL VALUE '24'. CGLKMO
- 88 LKMO-FL-SUP-ACT-APE VALUE '25'. CGLKMO
- 88 LKMO-FL-SUP-ECH-BAI VALUE '26'. CGLKMO
- 88 LKMO-FL-SUP-RMI-INS VALUE '27'. CGLKMO
- 88 LKMO-FL-SUP-CTL-RES VALUE '28'. CGLKMO
- 88 LKMO-FL-SUP-DIV-AVEC-SUS VALUE '29'. CGLKMO
- 88 LKMO-FL-SUP-DIV-SANS-SUS VALUE '30'. CGLKMO
- 88 LKMO-FL-SUP-RMI-CNA VALUE '31'. CGLKMO
- 88 LKMO-FL-SUP-ASS-APE VALUE '32'. CGLKMO
- 88 LKMO-FL-SUP-CTR-ETU VALUE '33'. CGLKMO
- 88 LKMO-FL-SUP-ASF-HET VALUE '35'. CGLKMO
- 88 LKMO-FL-SUP-SUR-DOM VALUE '36'. CGLKMO
- 88 LKMO-FL-SUP-RMI-ACT VALUE '37'. CGLKMO
- 88 LKMO-FL-CSUSPO-38 VALUE '38'. CGLKMO
- 88 LKMO-FL-CSUSPO-39 VALUE '39'. CGLKMO
- 88 LKMO-FL-CSUSPO-40 VALUE '40'. CGLKMO
- 88 LKMO-FL-CSUSPO-41 VALUE '41'. CGLKMO
- 88 LKMO-FL-CSUSPO-42 VALUE '42'. CGLKMO
- 88 LKMO-FL-CSUSPO-43 VALUE '43'. CGLKMO
- 88 LKMO-FL-CSUSPO-44 VALUE '44'. CGLKMO
- 88 LKMO-FL-CSUSPO-45 VALUE '45'. CGLKMO
- 88 LKMO-FL-CSUSPO-46 VALUE '46'. CGLKMO
- 88 LKMO-FL-CSUSPO-47 VALUE '47'. CGLKMO
- 88 LKMO-FL-CSUSPO-48 VALUE '48'. CGLKMO
- 88 LKMO-FL-CSUSPO-49 VALUE '49'. CGLKMO
- 88 LKMO-FL-CSUSPO-50 VALUE '50'. CGLKMO
- 88 LKMO-FL-CSUSPO-51 VALUE '51'. CGLKMO
- 88 LKMO-FL-CSUSPO-52 VALUE '52'. CGLKMO
- 88 LKMO-FL-CSUSPO-53 VALUE '53'. CGLKMO
- 88 LKMO-FL-CSUSPO-54 VALUE '54'. CGLKMO
- 88 LKMO-FL-CSUSPO-55 VALUE '55'. CGLKMO
- 88 LKMO-FL-CSUSPO-56 VALUE '56'. CGLKMO
- 88 LKMO-FL-CSUSPO-57 VALUE '57'. CGLKMO
- 88 LKMO-FL-CSUSPO-58 VALUE '58'. CGLKMO
- 88 LKMO-FL-CSUSPO-59 VALUE '59'. CGLKMO
- 88 LKMO-FL-CSUSPO-60 VALUE '60'. CGLKMO
- 88 LKMO-FL-CSUSPO-61 VALUE '61'. CGLKMO
- 88 LKMO-FL-CSUSPO-62 VALUE '62'. CGLKMO
- 88 LKMO-FL-CSUSPO-63 VALUE '63'. CGLKMO
- 88 LKMO-FL-CSUSPO-64 VALUE '64'. CGLKMO
- 88 LKMO-FL-CSUSPO-65 VALUE '65'. CGLKMO
- 88 LKMO-FL-SUP-METRO VALUE '01' '02' '17' CGLKMO
- '22'. CGLKMO
- 88 LKMO-FL-SUSP-AL-CONS VALUE '61' '62'. CGLKMO
- 88 LKMO-FL-CSUSPO-IMP VALUE '07' '08' '09' CGLKMO
- '10' '11' '12' '13' '14'. CGLKMO
- 88 LKMO-FL-CSUSPO-BOR VALUE '45' '46' '47' CGLKMO
- '48' '49'. CGLKMO
- 88 LKMO-FL-CSUSPO-SUR VALUE '50' '51' '52' CGLKMO
- '53'. CGLKMO
- 08 LKMO-CGLK100. CGLKMO
- 11 LKMO-CANEVAS. CGLKMO
- 14 LKMO-CANVAS-INTERNE-PELEM. CGLKMO
- 17 LKMO-CRIT1 PIC S9(5) COMP-3. CGLKMO
- 17 LKMO-CRIT2 PIC S9(5) COMP-3. CGLKMO
- 17 LKMO-CNAPRG PIC X(5). CGLKMO
- 88 LKMO-FL-CNAPRG-PAF-N-MAJO VALUE 'PAFF1' 'PAFF2'CGLKMO
- 'PAFF4' 'PAFFA' 'PAFFB' 'PAFFD'. CGLKMO
- 88 LKMO-FL-CNAPRG-PAF-N-MAJ2 VALUE 'PAFF5' 'PAFF6'CGLKMO
- 'PAFF7' 'PAFFE' 'PAFFF' 'PAFFG'. CGLKMO
- 88 LKMO-FL-CNAPRG-PAF-N-MAJ3 VALUE 'PAFF8' 'PAFF9'CGLKMO
- 'PAFFH' 'PAFFI'. CGLKMO
- 88 LKMO-FL-CNAPRG-PAF-MAJO VALUE 'PAFF3' 'PAFFC'CGLKMO
- . CGLKMO
- 88 LKMO-FL-CNAPRG-PPA-N-MAJO VALUE 'PPAN1' 'PPAN2'CGLKMO
- 'PPAN4'. CGLKMO
- 88 LKMO-FL-CNAPRG-PPA-MAJO VALUE 'PPIN1'. CGLKMO
- 17 LKMO-LIGNE-CNVA-PAR-PELEM CGLKMO
- OCCURS 275 TIMES CGLKMO
- INDEXED BY IX-CAN005. CGLKMO
- 20 LKMO-PCODFN PIC X(1). CGLKMO
- 20 LKMO-PCODOP PIC X(2). CGLKMO
- 20 LKMO-PCORGL PIC X(6). CGLKMO
- 20 LKMO-CITEUN PIC X(1). CGLKMO
- 20 LKMO-CCRTRC PIC X(1). CGLKMO
- 20 LKMO-BCTXB0 PIC X(1). CGLKMO
- 20 LKMO-ZFONCT PIC X(3). CGLKMO
- 11 LKMO-SERVICE. CGLKMO
- 14 LKMO-ESRV. CGLKMO
- 17 LKMO-ESRV-CRTSRV PIC X(2). CGLKMO
- 14 LKMO-CRTSRV PIC X(2). CGLKMO
- 14 LKMO-CABEND PIC X(4). CGLKMO
- 14 LKMO-TABEND PIC X(1). CGLKMO
- 14 LKMO-PCDRET PIC X(4). CGLKMO
- 14 LKMO-IDORGA PIC X(4). CGLKMO
- 14 LKMO-ZTYPAP PIC X(1). CGLKMO
- 88 LKMO-FL-ZTYPAP-BATCH VALUE 'B'. CGLKMO
- 88 LKMO-FL-ZTYPAP-TP VALUE 'T'. CGLKMO
- 88 LKMO-FL-ZTYPAP-BATCH-TP VALUE 'A'. CGLKMO
- 14 LKMO-ZDSVCM PIC X(1). CGLKMO
- 88 LKMO-FL-ZDSVCM-DSV VALUE 'V'. CGLKMO
- 88 LKMO-FL-ZDSVCM-DSC VALUE 'C'. CGLKMO
- 88 LKMO-FL-ZDSVCM-DSM VALUE 'M'. CGLKMO
- 14 LKMO-ZAPPLT PIC X(8). CGLKMO
- 14 LKMO-NDOMAT PIC S9(7) COMP-3. CGLKMO
- 14 LKMO-CORGTR PIC X(2). CGLKMO
- 88 LKMO-FL-DRT-POTI-TRR VALUE 'DP'. CGLKMO
- 88 LKMO-FL-ECHE-TRR VALUE 'EC'. CGLKMO
- 88 LKMO-FL-DRT-REEL-TRR VALUE 'DR'. CGLKMO
- 88 LKMO-FL-PRLD-TRR VALUE 'PR'. CGLKMO
- 88 LKMO-FL-SIMU-TRR VALUE 'SI'. CGLKMO
- 88 LKMO-FL-REN-APL-TRR VALUE 'RA'. CGLKMO
- 88 LKMO-FL-EF-TRR VALUE 'EF'. CGLKMO
- 88 LKMO-FL-DRT-EF-TRR VALUE 'RE'. CGLKMO
- 14 LKMO-ESESSI PIC S9(9) COMP-3. CGLKMO
- 14 LKMO-HSESSI PIC S9(7) COMP-3. CGLKMO
- 14 LKMO-ELIQUI PIC S9(9) COMP-3. CGLKMO
- 14 LKMO-HLIQUI PIC S9(7) COMP-3. CGLKMO
- 14 LKMO-EPTAEX PIC S9(9) COMP-3. CGLKMO
- 14 LKMO-FPTAEX PIC S9(9) COMP-3. CGLKMO
- 14 LKMO-DB4A2M PIC S9(9) COMP-3. CGLKMO
- 14 LKMO-DB4A2M1 PIC S9(9) COMP-3. CGLKMO
- 14 LKMO-ZFONCT PIC X(3). CGLKMO
- 08 LKMO-CGLKN070. CGLKMO
- 11 LKMO-GPAR08B PIC S9(9) COMP-3. CGLKMO
- 11 LKMO-CGMN70TA CGLKMO
- OCCURS 275 TIMES CGLKMO
- INDEXED BY IX-LK70. CGLKMO
- 14 LKMO-N70-CNAPRG PIC X(5). CGLKMO
- 88 LKMO-N70-FL-CNAPRG-PAF-N-MAJO VALUE 'PAFF1' 'PAFF2'CGLKMO
- 'PAFF4' 'PAFFA' 'PAFFB' 'PAFFD'. CGLKMO
- 88 LKMO-N70-FL-CNAPRG-PAF-N-MAJ2 VALUE 'PAFF5' 'PAFF6'CGLKMO
- 'PAFF7' 'PAFFE' 'PAFFF' 'PAFFG'. CGLKMO
- 88 LKMO-N70-FL-CNAPRG-PAF-N-MAJ3 VALUE 'PAFF8' 'PAFF9'CGLKMO
- 'PAFFH' 'PAFFI'. CGLKMO
- 88 LKMO-N70-FL-CNAPRG-PAF-MAJO VALUE 'PAFF3' 'PAFFC'CGLKMO
- . CGLKMO
- 88 LKMO-N70-FL-CNAPRG-PPA-N-MAJO VALUE 'PPAN1' 'PPAN2'CGLKMO
- 'PPAN4'. CGLKMO
- 88 LKMO-N70-FL-CNAPRG-PPA-MAJO VALUE 'PPIN1'. CGLKMO
- 14 LKMO-N70-CNAPRG1 REDEFINES LKMO-N70-CNAPRG. CGLKMO
- 17 LKMO-CNAPRS PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-PRX VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-APX VALUE 'AP1' 'AP2' 'APCGLKMO
- - '3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-IND1 VALUE 'AJE' 'CFA' 'AHCGLKMO
- - '1' 'AH2' 'ALS' 'ALF' 'ARS' 'PJ1' 'PJ2' 'PJ3'. CGLKMO
- 88 LKMO-FL-CNAPRS-IND2 VALUE 'APL' 'AGD' 'AFCGLKMO
- - 'E' 'RSO' 'PJ4'. CGLKMO
- 88 LKMO-FL-CNAPRS-NON-MEN VALUE 'AFE' 'AGD' 'PJCGLKMO
- - '4' 'API' 'RMI' 'ADI' 'PJ5'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-NOTIF VALUE 'RSD' 'RSI' 'RSCGLKMO
- - 'U' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-25 VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-SOC VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RSJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-ACT VALUE 'RCB' 'RCD' 'RCCGLKMO
- - 'I' 'RCU' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-JEU VALUE 'RSJ' 'RCJ' 'RSCGLKMO
- - 'U'. CGLKMO
- 88 LKMO-FL-CNAPRS-PAC VALUE 'PPA' 'PPI'. CGLKMO
- 88 LKMO-FL-CNAPRS-AH1 VALUE 'AH1' 'FH1' 'CHCGLKMO
- - '1' 'CH3' 'CR1' 'CR3'. CGLKMO
- 88 LKMO-FL-CNAPRS-AH2 VALUE 'AH2' 'FH2' 'CHCGLKMO
- - '2' 'CH4' 'CR2' 'CR4'. CGLKMO
- 88 LKMO-FL-CNAPRS-LOG VALUE 'ALF' 'ALS' 'APCGLKMO
- - 'L'. CGLKMO
- 88 LKMO-FL-CNAPRS-ASF VALUE 'ASF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RMA VALUE 'RMA'. CGLKMO
- 88 LKMO-FL-CNAPRS-CAV VALUE 'CAV'. CGLKMO
- 88 LKMO-FL-CNAPRS-CDI VALUE 'CDI'. CGLKMO
- 88 LKMO-FL-CNAPRS-FICTIVE VALUE 'PAF' 'SAF' 'SICGLKMO
- - 'F'. CGLKMO
- 88 LKMO-FL-CNAPRS-PAF VALUE 'PAF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-FICTIF VALUE 'SAF' 'SIF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSF VALUE 'RSF'. CGLKMO
- 17 LKMO-RSNAPR PIC X(2). CGLKMO
- 08 LKMO-CGANN070. CGLKMO
- 11 LKMO-ANC-GPAR08A PIC S9(9) COMP-3. CGLKMO
- 11 LKMO-ANC-GPAR08B PIC S9(9) COMP-3. CGLKMO
- 11 LKMO-ANC-PCDRET PIC X(4). CGLKMO
- 11 LKMO-ANC-CGMN70TB CGLKMO
- OCCURS 275 TIMES CGLKMO
- INDEXED BY IX-AN70. CGLKMO
- 14 LKMO-N70-CNAPRG PIC X(5). CGLKMO
- 88 LKMO-N70-FL-CNAPRG-PAF-N-MAJO VALUE 'PAFF1' 'PAFF2'CGLKMO
- 'PAFF4' 'PAFFA' 'PAFFB' 'PAFFD'. CGLKMO
- 88 LKMO-N70-FL-CNAPRG-PAF-N-MAJ2 VALUE 'PAFF5' 'PAFF6'CGLKMO
- 'PAFF7' 'PAFFE' 'PAFFF' 'PAFFG'. CGLKMO
- 88 LKMO-N70-FL-CNAPRG-PAF-N-MAJ3 VALUE 'PAFF8' 'PAFF9'CGLKMO
- 'PAFFH' 'PAFFI'. CGLKMO
- 88 LKMO-N70-FL-CNAPRG-PAF-MAJO VALUE 'PAFF3' 'PAFFC'CGLKMO
- . CGLKMO
- 88 LKMO-N70-FL-CNAPRG-PPA-N-MAJO VALUE 'PPAN1' 'PPAN2'CGLKMO
- 'PPAN4'. CGLKMO
- 88 LKMO-N70-FL-CNAPRG-PPA-MAJO VALUE 'PPIN1'. CGLKMO
- 14 LKMO-N70-CNAPRG1 REDEFINES LKMO-N70-CNAPRG. CGLKMO
- 17 LKMO-CNAPRS PIC X(3). CGLKMO
- 88 LKMO-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMO
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-PRX VALUE 'PR1' 'PR2' 'PRCGLKMO
- - '3' 'PR4' 'PR5'. CGLKMO
- 88 LKMO-FL-CNAPRS-PEL-APX VALUE 'AP1' 'AP2' 'APCGLKMO
- - '3' 'AP4' 'AP5'. CGLKMO
- 88 LKMO-FL-CNAPRS-IND1 VALUE 'AJE' 'CFA' 'AHCGLKMO
- - '1' 'AH2' 'ALS' 'ALF' 'ARS' 'PJ1' 'PJ2' 'PJ3'. CGLKMO
- 88 LKMO-FL-CNAPRS-IND2 VALUE 'APL' 'AGD' 'AFCGLKMO
- - 'E' 'RSO' 'PJ4'. CGLKMO
- 88 LKMO-FL-CNAPRS-NON-MEN VALUE 'AFE' 'AGD' 'PJCGLKMO
- - '4' 'API' 'RMI' 'ADI' 'PJ5'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-NOTIF VALUE 'RSD' 'RSI' 'RSCGLKMO
- - 'U' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-25 VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-SOC VALUE 'RSB' 'RSD' 'RSCGLKMO
- - 'I' 'RSU' 'RSJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-ACT VALUE 'RCB' 'RCD' 'RCCGLKMO
- - 'I' 'RCU' 'RCJ'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-JEU VALUE 'RSJ' 'RCJ' 'RSCGLKMO
- - 'U'. CGLKMO
- 88 LKMO-FL-CNAPRS-PAC VALUE 'PPA' 'PPI'. CGLKMO
- 88 LKMO-FL-CNAPRS-AH1 VALUE 'AH1' 'FH1' 'CHCGLKMO
- - '1' 'CH3' 'CR1' 'CR3'. CGLKMO
- 88 LKMO-FL-CNAPRS-AH2 VALUE 'AH2' 'FH2' 'CHCGLKMO
- - '2' 'CH4' 'CR2' 'CR4'. CGLKMO
- 88 LKMO-FL-CNAPRS-LOG VALUE 'ALF' 'ALS' 'APCGLKMO
- - 'L'. CGLKMO
- 88 LKMO-FL-CNAPRS-ASF VALUE 'ASF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RMA VALUE 'RMA'. CGLKMO
- 88 LKMO-FL-CNAPRS-CAV VALUE 'CAV'. CGLKMO
- 88 LKMO-FL-CNAPRS-CDI VALUE 'CDI'. CGLKMO
- 88 LKMO-FL-CNAPRS-FICTIVE VALUE 'PAF' 'SAF' 'SICGLKMO
- - 'F'. CGLKMO
- 88 LKMO-FL-CNAPRS-PAF VALUE 'PAF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSA-FICTIF VALUE 'SAF' 'SIF'. CGLKMO
- 88 LKMO-FL-CNAPRS-RSF VALUE 'RSF'. CGLKMO
- 17 LKMO-RSNAPR PIC X(2). CGLKMO
- *END_OF_COPY_FILE CGLKMO
- * COPY CGLKMP.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLKMP.CPY" CGLKMP
- ***************************************************************** CGLKMP
- * * CGLKMP
- * COPYBOOK NAME : CGLKMP * CGLKMP
- * * CGLKMP
- * COPYBOOK DESC : LK OPERATION ACCES PARTIC * CGLKMP
- * * CGLKMP
- * GENERATION DATE: 03/03/17 * CGLKMP
- * TIME: 11:47:44 * CGLKMP
- ***************************************************************** CGLKMP
- 05 LKMP-RECORD-LKMP. CGLKMP
- 08 LKMP-PERSONNE CGLKMP
- OCCURS 027 TIMES CGLKMP
- INDEXED BY IX-PEP. CGLKMP
- 11 LKMP-CGPE4PNS CGLKMP
- OCCURS 003 TIMES CGLKMP
- INDEXED BY IX-PPNS. CGLKMP
- 14 LKMP-CNAPEN PIC X(1). CGLKMP
- 88 LKMP-FL-PENS-SAUF-REOR VALUE '1'. CGLKMP
- 88 LKMP-FL-REOR-CRAM-CDC VALUE '2'. CGLKMP
- 88 LKMP-FL-AUTR-PERE-OU-REVS VALUE '3'. CGLKMP
- 88 LKMP-FL-AVAN-VIEI VALUE '3' '4' '5' '6'CGLKMP
- . CGLKMP
- 88 LKMP-FL-PNS-RAT VALUE '7'. CGLKMP
- 88 LKMP-FL-PNS-AUT VALUE '8'. CGLKMP
- 88 LKMP-FL-PNS-CJT-CHA VALUE '9'. CGLKMP
- 88 LKMP-FL-PNS-ABS VALUE 'N'. CGLKMP
- 88 LKMP-FL-PNS VALUE '1' '2' '3' '4'CGLKMP
- '5' '6' '7' '8' '9'. CGLKMP
- 14 LKMP-CNAREF PIC X(1). CGLKMP
- 88 LKMP-FL-PERS-PHYS-REF VALUE 'P'. CGLKMP
- 88 LKMP-FL-PERS-MRAL-REF VALUE 'M'. CGLKMP
- 14 LKMP-NREFER PIC S9(7) COMP-3. CGLKMP
- 14 LKMP-INDPNS PIC 9(1). CGLKMP
- 14 LKMP-CDHIS001 PIC S9(9) COMP-3. CGLKMP
- 14 LKMP-CDHIS002 PIC S9(9) COMP-3. CGLKMP
- 14 LKMP-CDPE4PNS. CGLKMP
- 17 LKMP-CPENAR PIC X(1). CGLKMP
- 88 LKMP-FL-DEMA-ACT VALUE 'A'. CGLKMP
- 88 LKMP-FL-DEMA-REFU VALUE 'R'. CGLKMP
- 17 LKMP-ECPSAH PIC S9(9) COMP-3. CGLKMP
- 17 LKMP-FCPSAH PIC S9(9) COMP-3. CGLKMP
- 17 LKMP-CMOREF PIC X(1). CGLKMP
- 88 LKMP-FL-CMOREF-E VALUE 'E'. CGLKMP
- 17 LKMP-MCPSAH PIC S9(7)V9(2) COMP-3. CGLKMP
- 08 LKMP-DEMANDE CGLKMP
- OCCURS 003 TIMES CGLKMP
- INDEXED BY IX-PDD. CGLKMP
- 11 LKMP-DDE CGLKMP
- OCCURS 002 TIMES CGLKMP
- INDEXED BY IX-DDE. CGLKMP
- 14 LKMP-NFICPN PIC S9(7) COMP-3. CGLKMP
- 14 LKMP-CDHIS001 PIC S9(9) COMP-3. CGLKMP
- 14 LKMP-CDHIS002 PIC S9(9) COMP-3. CGLKMP
- 08 LKMP-CGASM CGLKMP
- OCCURS 005 TIMES CGLKMP
- INDEXED BY IX-PPA. CGLKMP
- 11 LKMP-CGAM0AGR. CGLKMP
- 14 LKMP-INDAGR PIC 9(1). CGLKMP
- 14 LKMP-CDAM0AGR. CGLKMP
- 17 LKMP-EAGAMD PIC S9(9) COMP-3. CGLKMP
- 17 LKMP-FAGAMD PIC S9(9) COMP-3. CGLKMP
- 08 LKMP-RUPTURES. CGLKMP
- 11 LKMP-RUPTUR-PGEDA2. CGLKMP
- 14 LKMP-RUPT-CDHIS001 PIC S9(9) COMP-3. CGLKMP
- 14 LKMP-RUPT-CGPGNDAD. CGLKMP
- 17 LKMP-RUPT-CMOREF PIC X(1). CGLKMP
- 88 LKMP-RUPT-FL-CMOREF-E VALUE 'E'. CGLKMP
- 17 LKMP-RUPT-CGPGEDA1. CGLKMP
- 20 LKMP-CDPGEDA2 CGLKMP
- OCCURS 025 TIMES CGLKMP
- INDEXED BY IX-PGEADI. CGLKMP
- 23 LKMP-CNAPRS PIC X(3). CGLKMP
- 88 LKMP-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMP
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMP
- 88 LKMP-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMP
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMP
- 88 LKMP-FL-CNAPRS-PEL-PRX VALUE 'PR1' 'PR2' 'PRCGLKMP
- - '3' 'PR4' 'PR5'. CGLKMP
- 88 LKMP-FL-CNAPRS-PEL-APX VALUE 'AP1' 'AP2' 'APCGLKMP
- - '3' 'AP4' 'AP5'. CGLKMP
- 88 LKMP-FL-CNAPRS-IND1 VALUE 'AJE' 'CFA' 'AHCGLKMP
- - '1' 'AH2' 'ALS' 'ALF' 'ARS' 'PJ1' 'PJ2' 'PJ3'. CGLKMP
- 88 LKMP-FL-CNAPRS-IND2 VALUE 'APL' 'AGD' 'AFCGLKMP
- - 'E' 'RSO' 'PJ4'. CGLKMP
- 88 LKMP-FL-CNAPRS-NON-MEN VALUE 'AFE' 'AGD' 'PJCGLKMP
- - '4' 'API' 'RMI' 'ADI' 'PJ5'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMP
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-NOTIF VALUE 'RSD' 'RSI' 'RSCGLKMP
- - 'U' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-25 VALUE 'RSB' 'RSD' 'RSCGLKMP
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-SOC VALUE 'RSB' 'RSD' 'RSCGLKMP
- - 'I' 'RSU' 'RSJ'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-ACT VALUE 'RCB' 'RCD' 'RCCGLKMP
- - 'I' 'RCU' 'RCJ'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-JEU VALUE 'RSJ' 'RCJ' 'RSCGLKMP
- - 'U'. CGLKMP
- 88 LKMP-FL-CNAPRS-PAC VALUE 'PPA' 'PPI'. CGLKMP
- 88 LKMP-FL-CNAPRS-AH1 VALUE 'AH1' 'FH1' 'CHCGLKMP
- - '1' 'CH3' 'CR1' 'CR3'. CGLKMP
- 88 LKMP-FL-CNAPRS-AH2 VALUE 'AH2' 'FH2' 'CHCGLKMP
- - '2' 'CH4' 'CR2' 'CR4'. CGLKMP
- 88 LKMP-FL-CNAPRS-LOG VALUE 'ALF' 'ALS' 'APCGLKMP
- - 'L'. CGLKMP
- 88 LKMP-FL-CNAPRS-ASF VALUE 'ASF'. CGLKMP
- 88 LKMP-FL-CNAPRS-RMA VALUE 'RMA'. CGLKMP
- 88 LKMP-FL-CNAPRS-CAV VALUE 'CAV'. CGLKMP
- 88 LKMP-FL-CNAPRS-CDI VALUE 'CDI'. CGLKMP
- 88 LKMP-FL-CNAPRS-FICTIVE VALUE 'PAF' 'SAF' 'SICGLKMP
- - 'F'. CGLKMP
- 88 LKMP-FL-CNAPRS-PAF VALUE 'PAF'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-FICTIF VALUE 'SAF' 'SIF'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSF VALUE 'RSF'. CGLKMP
- 23 LKMP-RSNAPR PIC X(2). CGLKMP
- 23 LKMP-CDDRO022 PIC S9(5)V9(2) COMP-3. CGLKMP
- 11 LKMP-RUPTUR-DO1APC. CGLKMP
- 14 LKMP-RUPT-CDHIS001 PIC S9(9) COMP-3. CGLKMP
- 14 LKMP-RUPT-DO1APCD PIC X(175). CGLKMP
- 14 LKMP-RUPT-CGDO11R2 REDEFINES LKMP-RUPT-DO1APCD. CGLKMP
- 17 LKMP-RUPT-DO1APC CGLKMP
- OCCURS 025 TIMES CGLKMP
- INDEXED BY IX-CHARG. CGLKMP
- 20 LKMP-CNAPRS PIC X(3). CGLKMP
- 88 LKMP-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMP
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMP
- 88 LKMP-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMP
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMP
- 88 LKMP-FL-CNAPRS-PEL-PRX VALUE 'PR1' 'PR2' 'PRCGLKMP
- - '3' 'PR4' 'PR5'. CGLKMP
- 88 LKMP-FL-CNAPRS-PEL-APX VALUE 'AP1' 'AP2' 'APCGLKMP
- - '3' 'AP4' 'AP5'. CGLKMP
- 88 LKMP-FL-CNAPRS-IND1 VALUE 'AJE' 'CFA' 'AHCGLKMP
- - '1' 'AH2' 'ALS' 'ALF' 'ARS' 'PJ1' 'PJ2' 'PJ3'. CGLKMP
- 88 LKMP-FL-CNAPRS-IND2 VALUE 'APL' 'AGD' 'AFCGLKMP
- - 'E' 'RSO' 'PJ4'. CGLKMP
- 88 LKMP-FL-CNAPRS-NON-MEN VALUE 'AFE' 'AGD' 'PJCGLKMP
- - '4' 'API' 'RMI' 'ADI' 'PJ5'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMP
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-NOTIF VALUE 'RSD' 'RSI' 'RSCGLKMP
- - 'U' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-25 VALUE 'RSB' 'RSD' 'RSCGLKMP
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-SOC VALUE 'RSB' 'RSD' 'RSCGLKMP
- - 'I' 'RSU' 'RSJ'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-ACT VALUE 'RCB' 'RCD' 'RCCGLKMP
- - 'I' 'RCU' 'RCJ'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-JEU VALUE 'RSJ' 'RCJ' 'RSCGLKMP
- - 'U'. CGLKMP
- 88 LKMP-FL-CNAPRS-PAC VALUE 'PPA' 'PPI'. CGLKMP
- 88 LKMP-FL-CNAPRS-AH1 VALUE 'AH1' 'FH1' 'CHCGLKMP
- - '1' 'CH3' 'CR1' 'CR3'. CGLKMP
- 88 LKMP-FL-CNAPRS-AH2 VALUE 'AH2' 'FH2' 'CHCGLKMP
- - '2' 'CH4' 'CR2' 'CR4'. CGLKMP
- 88 LKMP-FL-CNAPRS-LOG VALUE 'ALF' 'ALS' 'APCGLKMP
- - 'L'. CGLKMP
- 88 LKMP-FL-CNAPRS-ASF VALUE 'ASF'. CGLKMP
- 88 LKMP-FL-CNAPRS-RMA VALUE 'RMA'. CGLKMP
- 88 LKMP-FL-CNAPRS-CAV VALUE 'CAV'. CGLKMP
- 88 LKMP-FL-CNAPRS-CDI VALUE 'CDI'. CGLKMP
- 88 LKMP-FL-CNAPRS-FICTIVE VALUE 'PAF' 'SAF' 'SICGLKMP
- - 'F'. CGLKMP
- 88 LKMP-FL-CNAPRS-PAF VALUE 'PAF'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-FICTIF VALUE 'SAF' 'SIF'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSF VALUE 'RSF'. CGLKMP
- 20 LKMP-RSNAPR PIC X(2). CGLKMP
- 20 LKMP-QAPCMO PIC S9(3) COMP-3. CGLKMP
- 11 LKMP-RUPTUR-DO0DAR. CGLKMP
- 14 LKMP-RUPT-CDHIS001 PIC S9(9) COMP-3. CGLKMP
- 14 LKMP-RUPT-CDDO0DAR. CGLKMP
- 17 LKMP-CMOREF PIC X(1). CGLKMP
- 88 LKMP-FL-CMOREF-E VALUE 'E'. CGLKMP
- 17 LKMP-MABRES PIC S9(7)V9(2) COMP-3. CGLKMP
- 17 LKMP-MABDAC PIC S9(7)V9(2) COMP-3. CGLKMP
- 17 LKMP-MARPAP PIC S9(7)V9(2) COMP-3. CGLKMP
- 17 LKMP-MAEPAP PIC S9(7)V9(2) COMP-3. CGLKMP
- 17 LKMP-MRFRGA PIC S9(7)V9(2) COMP-3. CGLKMP
- 17 LKMP-MEFRGA PIC S9(7)V9(2) COMP-3. CGLKMP
- 08 LKMP-STOCK-CGM130. CGLKMP
- 11 LKMP-STOCK-DO1APC. CGLKMP
- 14 LKMP-S130-CDHIS001 PIC S9(9) COMP-3. CGLKMP
- 14 LKMP-S130-CDHIS002 PIC S9(9) COMP-3. CGLKMP
- 14 LKMP-S130-DO1APCD PIC X(175). CGLKMP
- 14 LKMP-S130-CGDO11R3 REDEFINES LKMP-S130-DO1APCD. CGLKMP
- 17 LKMP-S130-DO1APC CGLKMP
- OCCURS 025 TIMES CGLKMP
- INDEXED BY IX-AUTPC. CGLKMP
- 20 LKMP-CNAPRS PIC X(3). CGLKMP
- 88 LKMP-FL-CNAPRS-PEL VALUE 'PR1' 'PR2' 'PRCGLKMP
- - '3' 'PR4' 'PR5' 'AP1' 'AP2' 'AP3' 'AP4' 'AP5'. CGLKMP
- 88 LKMP-FL-CNAPRS-PEL-T99 VALUE 'T01' 'T02' 'T0CGLKMP
- - '3' 'T04' 'T05' 'T06' 'T07' 'T08' 'T09' 'T10'. CGLKMP
- 88 LKMP-FL-CNAPRS-PEL-PRX VALUE 'PR1' 'PR2' 'PRCGLKMP
- - '3' 'PR4' 'PR5'. CGLKMP
- 88 LKMP-FL-CNAPRS-PEL-APX VALUE 'AP1' 'AP2' 'APCGLKMP
- - '3' 'AP4' 'AP5'. CGLKMP
- 88 LKMP-FL-CNAPRS-IND1 VALUE 'AJE' 'CFA' 'AHCGLKMP
- - '1' 'AH2' 'ALS' 'ALF' 'ARS' 'PJ1' 'PJ2' 'PJ3'. CGLKMP
- 88 LKMP-FL-CNAPRS-IND2 VALUE 'APL' 'AGD' 'AFCGLKMP
- - 'E' 'RSO' 'PJ4'. CGLKMP
- 88 LKMP-FL-CNAPRS-NON-MEN VALUE 'AFE' 'AGD' 'PJCGLKMP
- - '4' 'API' 'RMI' 'ADI' 'PJ5'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA VALUE 'RSB' 'RSD' 'RSCGLKMP
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-NOTIF VALUE 'RSD' 'RSI' 'RSCGLKMP
- - 'U' 'RCB' 'RCD' 'RCI' 'RCU' 'RSJ' 'RCJ'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-25 VALUE 'RSB' 'RSD' 'RSCGLKMP
- - 'I' 'RSU' 'RCB' 'RCD' 'RCI' 'RCU'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-SOC VALUE 'RSB' 'RSD' 'RSCGLKMP
- - 'I' 'RSU' 'RSJ'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-ACT VALUE 'RCB' 'RCD' 'RCCGLKMP
- - 'I' 'RCU' 'RCJ'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-JEU VALUE 'RSJ' 'RCJ' 'RSCGLKMP
- - 'U'. CGLKMP
- 88 LKMP-FL-CNAPRS-PAC VALUE 'PPA' 'PPI'. CGLKMP
- 88 LKMP-FL-CNAPRS-AH1 VALUE 'AH1' 'FH1' 'CHCGLKMP
- - '1' 'CH3' 'CR1' 'CR3'. CGLKMP
- 88 LKMP-FL-CNAPRS-AH2 VALUE 'AH2' 'FH2' 'CHCGLKMP
- - '2' 'CH4' 'CR2' 'CR4'. CGLKMP
- 88 LKMP-FL-CNAPRS-LOG VALUE 'ALF' 'ALS' 'APCGLKMP
- - 'L'. CGLKMP
- 88 LKMP-FL-CNAPRS-ASF VALUE 'ASF'. CGLKMP
- 88 LKMP-FL-CNAPRS-RMA VALUE 'RMA'. CGLKMP
- 88 LKMP-FL-CNAPRS-CAV VALUE 'CAV'. CGLKMP
- 88 LKMP-FL-CNAPRS-CDI VALUE 'CDI'. CGLKMP
- 88 LKMP-FL-CNAPRS-FICTIVE VALUE 'PAF' 'SAF' 'SICGLKMP
- - 'F'. CGLKMP
- 88 LKMP-FL-CNAPRS-PAF VALUE 'PAF'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSA-FICTIF VALUE 'SAF' 'SIF'. CGLKMP
- 88 LKMP-FL-CNAPRS-RSF VALUE 'RSF'. CGLKMP
- 20 LKMP-RSNAPR PIC X(2). CGLKMP
- 20 LKMP-QAPCMO PIC S9(3) COMP-3. CGLKMP
- *END_OF_COPY_FILE CGLKMP
- * COPY CGLKNVAS.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLKNVAS.CPY" CGLKNVAS
- ***************************************************************** CGLKNVAS
- * CGLKNVAS CGLKNVAS
- * * CGLKNVAS
- * * CGLKNVAS
- ***************************************************************** CGLKNVAS
- * * CGLKNVAS
- * LINKAGE CGM100 * CGLKNVAS
- * ============== * CGLKNVAS
- * * CGLKNVAS
- * ZCOM1 : zones en entrée * CGLKNVAS
- * ZCOM2 : zones en entrée et sortie * CGLKNVAS
- * * * CGLKNVAS
- ***************************************************************** CGLKNVAS
- 05 LK100-ZONCOM. CGLKNVAS
- * données en entrée CGLKNVAS
- 10 LK100-ZCOM1. CGLKNVAS
- * - code fonction demandée * CGLKNVAS
- 15 LK100-CFNCAN PIC X(02). CGLKNVAS
- * données en entrée et en sortie CGLKNVAS
- 10 LK100-ZCOM2. CGLKNVAS
- * - index en-cours liste pelem * CGLKNVAS
- 15 LK100-ICANB PIC S9(04). CGLKNVAS
- * - code retour * CGLKNVAS
- 15 LK100-CRTCAN PIC X(02). CGLKNVAS
- * - code retour * CGLKNVAS
- 15 LK100-PELEMS-PAYABLES. CGLKNVAS
- 20 LK100-CNAPRG OCCURS 275 CGLKNVAS
- ASCENDING KEY IS LK100-PELEM CGLKNVAS
- INDEXED BY IX-CNAPRG. CGLKNVAS
- 25 LK100-PELEM. CGLKNVAS
- 30 LK100-CNAPRS PIC X(3). CGLKNVAS
- 30 LK100-RSNAPR PIC X(2). CGLKNVAS
- 15 LK100-DPTREF PIC 9(8). CGLKNVAS
- 15 LK100-DPERRF PIC 9(8). CGLKNVAS
- ****************************************** FIN COPY CGLKNVAS **** CGLKNVAS
- ***************************************************************** CGLKNVAS
- / CGLKNVAS
- 05 LS-INDICE-PELEMX. CGLKNVAS
- 15 LS-IN-PELEM-AFAD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AFAN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AFAN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AFAN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AFAN4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AFAN5 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AFAM1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AFRN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AFRN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AFRN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AFRN4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AESNA PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AESN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AESM1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AESNB PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AESN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AESM2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AESNC PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AESN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AESND PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AESN4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AESNE PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AESN5 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-MPIN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-MPIN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ASFN4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ASFN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ASFN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ASFN6 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ASFN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ASFN5 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ASFN7 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ASFN8 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AH1N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AH1N6 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AH1N7 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AH2N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AH2N6 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AH2N7 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ3N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ3N2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ3N3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ3N4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ3N5 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ3N6 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ3N7 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ6N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ6NA PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ6N2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ6N3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ6N4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ6N5 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ6N6 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ6N7 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ2N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ2N2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ4N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ4N3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ4N4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ5N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ5N2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ5N3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-CFAD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-CFAN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-CFAD2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-CFAN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-APLN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-APLN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-APLN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-APLN4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-APLN5 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ALFD2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ALFD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ALFN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ALFN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ALFN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ALSD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ALSN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ARSN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ARSN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ARSN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ARSN4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ARSN5 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ARSM1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSIN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSID1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSIN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCIN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCID1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSDN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSDN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSDD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSDD2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSDN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSDN4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCDN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCDN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCDD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCDD2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSJN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSJD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSJN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCJN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCJD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSUN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSUN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSUN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSUN4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSUD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSUD2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSUD3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSUD4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCUN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCUN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCUN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCUN4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCUD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCUD2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCUD3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCUD4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSBN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSBN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSBN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSBD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSBD2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSBD3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCBN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCBN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCBN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCBD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCBD2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RCBD3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFF1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFFA PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFF2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFFB PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFF3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFFC PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFF4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFFD PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFF5 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFFE PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFF6 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFFF PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFF7 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFFG PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFF8 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFFH PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFF9 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PAFFI PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PPAN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PPAN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PPAN4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PPIN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-SAFF1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-SAFF2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-SAFF3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-SAFFA PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-SAFFB PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-SAFFC PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-SIFF1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-SIFF2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-SIFF3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-SIFFA PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-SIFFB PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-SIFFC PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ADIN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-ADIN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-DGTN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-DGTN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-FH1N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-FH1N2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-FH2N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-FH2N2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-MV1N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-MV1N3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-MV2N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-MV2N3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-CH1N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-CH1N3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-CH2N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-CH2N3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-CDIN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AJ1N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AJ2N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AJ3N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AVPN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AVPN2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AVPN4 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AVPN5 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AVPN3 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AVPN6 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AVPN7 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AVPN8 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AVPN9 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-RSOD1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ1N1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-PJ1N2 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-AMIN1 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0200 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0201 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0202 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0203 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0204 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0205 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0206 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0207 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0208 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0209 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0210 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0211 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0212 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0213 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0214 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0215 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0216 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0217 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0218 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0219 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0220 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0221 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0222 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0223 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0224 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0225 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0226 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0227 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0228 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0229 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0230 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0231 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0232 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0233 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0234 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0235 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0236 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0237 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0238 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0239 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0240 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0241 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0242 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0243 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0244 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0245 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0246 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0247 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0248 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0249 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- 15 LS-IN-PELEM-0250 PIC S9(5) COMP-3 VALUE 00000. CGLKNVAS
- * CGLKNVAS
- * Texte : A998.CCR1678 : Création nvlle prestation : Allocation dCGLKNVAS
- * installation etudiante (ALINE) CGLKNVAS
- * (code prestation = AIE) CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V02100 CGLKNVAS
- * CGLKNVAS
- * Chantier : 1455H Début : 14/02/2007 Fin : 14/02/2007 CGLKNVAS
- * CGLKNVAS
- * Texte : PAJE : CMG structure CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V02200 CGLKNVAS
- * CGLKNVAS
- * Chantier : 1728B Début : 24/07/2007 Fin : 24/07/2007 CGLKNVAS
- * CGLKNVAS
- * Texte : Prise en compte RSA : A998.CCR1728B. CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V02400 CGLKNVAS
- * CGLKNVAS
- * Chantier : 1689D Début : 01/02/2008 Fin : 01/02/2008 CGLKNVAS
- * CGLKNVAS
- * Texte : AVP congé soutient familial. CGLKNVAS
- * Création AVPN8 CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V03100 CGLKNVAS
- * CGLKNVAS
- * Chantier : 1943D Début : 08/02/2010 Fin : 08/02/2010 CGLKNVAS
- * CGLKNVAS
- * Texte : CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V03200 CGLKNVAS
- * CGLKNVAS
- * Chantier : 1961F Début : 19/03/2010 Fin : 12/04/2010 CGLKNVAS
- * CGLKNVAS
- * Texte : A998.CCR1961 : RSA jeune. CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V03310 CGLKNVAS
- * CGLKNVAS
- * Chantier : 2015A Début : 22/10/2010 Fin : 22/10/2010 CGLKNVAS
- * CGLKNVAS
- * Texte : CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V03400 CGLKNVAS
- * CGLKNVAS
- * Chantier : 2050C Début : 08/02/2011 Fin : 08/02/2011 CGLKNVAS
- * CGLKNVAS
- * Texte : CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V03800 CGLKNVAS
- * CGLKNVAS
- * Chantier : 2100B Début : 23/07/2012 Fin : 23/07/2012 CGLKNVAS
- * CGLKNVAS
- * Texte : A998.CCR2100B : CEE - Calcul des droits CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V03900 CGLKNVAS
- * CGLKNVAS
- * Chantier : 2221A Début : 25/02/2013 Fin : 25/02/2013 CGLKNVAS
- * CGLKNVAS
- * Texte : AMI - Allocation Migrants CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V04000 CGLKNVAS
- * CGLKNVAS
- * Chantier : 1R400 Début : 09/04/2013 Fin : 09/04/2013 CGLKNVAS
- * CGLKNVAS
- * Texte : hors la loi dmt/dmf CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V04100 CGLKNVAS
- * CGLKNVAS
- * Chantier : 2300A Début : 09/10/2013 Fin : 09/10/2013 CGLKNVAS
- * CGLKNVAS
- * Texte : CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V04500 CGLKNVAS
- * CGLKNVAS
- * Chantier : 2414A Début : 19/01/2015 Fin : 19/01/2015 CGLKNVAS
- * CGLKNVAS
- * Texte : a998.cce2414a:suppression des canevas suivants CGLKNVAS
- * CAV,CAVN1,CAP,CAPN1,RMA,RMAN1,RMP,RMPN1,PFI,PFIN1,PFR,PCGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V04600 CGLKNVAS
- * CGLKNVAS
- * Chantier : 2409A Début : 10/03/2015 Fin : 10/03/2015 CGLKNVAS
- * CGLKNVAS
- * Texte : A998.CCR2409A : Mise sous condition ressources AFA. CGLKNVAS
- * Création des canevas des pelem AFR et màj hiérarchisatiCGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V04700 CGLKNVAS
- * CGLKNVAS
- * Chantier : 2445C Début : 23/06/2015 Fin : 23/06/2015 CGLKNVAS
- * CGLKNVAS
- * Texte : A998.CCR2445C : PAC simple fictive. CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- * Version : V04800 CGLKNVAS
- * CGLKNVAS
- * Chantier : 2470F Début : 11/01/2016 Fin : 14/01/2016 CGLKNVAS
- * CGLKNVAS
- * Texte : A998.CCR2470F : PPA: Conditions élégibilité CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * CGLKNVAS
- * DMFS : CGLKNVAS
- * : CGLKNVAS
- *--------------------------------------------------------------- CGLKNVAS
- *END_OF_COPY_FILE CGLKNVAS
- * COPY CGLKPIMO.
- *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CGLKPIMO.CPY" CGLKPIMO
- ***************************************************************** CGLKPIMO
- * D615M.CGLKPIMO CGLKPIMO CGLKPIMO
- ***************************************************************** CGLKPIMO
- * * CGLKPIMO
- * ============================================ * CGLKPIMO
- * DONNEES PILOTE-MODULES CGLKPIMO
- * ============================================= * CGLKPIMO
- * * CGLKPIMO
- ***************************************************************** CGLKPIMO
- 05 LS-MANUELLE. CGLKPIMO
- ***************************************************************** CGLKPIMO
- *OUISYSPUNCH CGLKPIMO
- 10 LS-MANUELLE-ALPHA. CGLKPIMO
- *-- code fonction (pour trace) CGLKPIMO
- 15 LS-PCODFN PIC X. CGLKPIMO
- *--- code opération CGLKPIMO
- 15 LS-PCODOP PIC XX. CGLKPIMO
- *--- u242p.cgrGPERS fonction Générale autres PERS CGLKPIMO
- 88 LS-PCODOP-FL-GPERS VALUE '03'. CGLKPIMO
- *--- u242p.cgrGMRME fonction Générale MR mME. CGLKPIMO
- 88 LS-PCODOP-FL-GMRME VALUE '06'. CGLKPIMO
- *--- u242p.cgrGENFT fonction Générale ENFanTs. CGLKPIMO
- 88 LS-PCODOP-FL-GENFT VALUE '07'. CGLKPIMO
- *--- u242p.cgrALLOC fonction ED condit° ALLOCataire CGLKPIMO
- 88 LS-PCODOP-FL-ALLOC VALUE '11'. CGLKPIMO
- *--- u242p.cgrCOCJT fonction ED condit° COnJoint CGLKPIMO
- 88 LS-PCODOP-FL-COCJT VALUE '12'. CGLKPIMO
- *--- u242p.cgrENFAN fonction ED condit° ENFANt CGLKPIMO
- 88 LS-PCODOP-FL-ENFAN VALUE '14'. CGLKPIMO
- *--- u242p.cgrHIERA fonction HIERArchisation cgmX01 CGLKPIMO
- 88 LS-PCODOP-FL-HIERA-X01 VALUE '22'. CGLKPIMO
- *--- u242p.cgrHIERA fonction HIERArchisation cgmX02 CGLKPIMO
- 88 LS-PCODOP-FL-HIERA-X02 VALUE '25'. CGLKPIMO
- * CGLKPIMO
- *--- code PELEM (décomposé) nature prestation étudiée + rang CGLKPIMO
- 15 LS-CNAPRG. CGLKPIMO
- 20 LS-CNAPRS PIC XXX. CGLKPIMO
- 88 LS-FL-CNAPRS-AMI VALUE 'AMI'. CGLKPIMO
- 88 LS-FL-CNAPRS-PAC VALUE 'PAF' 'PPA' 'PPI'. CGLKPIMO
- 88 LS-FL-CNAPRS-PAF VALUE 'PAF'. CGLKPIMO
- 88 LS-FL-CNAPRS-RSA-FIGE VALUE 'SAF' 'SIF' 'RSD' CGLKPIMO
- 'RSI' 'RSJ'. CGLKPIMO
- 20 LS-RSNAPR. CGLKPIMO
- 25 LS-RSNAPR-1 PIC X. CGLKPIMO
- 25 LS-RSNAPR-2 PIC X. CGLKPIMO
- 25 LS-RSNAPR-2-N REDEFINES LS-RSNAPR-2 PIC 9. CGLKPIMO
- 15 LS-CNAPRG-PELEM REDEFINES LS-CNAPRG PIC X(5). CGLKPIMO
- 88 LS-FL-CNAPRG-RSA-FIGE VALUE 'SAFF1' 'SAFF2' CGLKPIMO
- 'SAFF3' CGLKPIMO
- 'SAFFA' 'SAFFB' 'SAFFC' CGLKPIMO
- 'SIFF1' 'SIFF2' 'SIFF3' CGLKPIMO
- 'SIFFA' 'SIFFB' 'SIFFC' CGLKPIMO
- 'RSDN3' 'RSDN4' CGLKPIMO
- 'RSIN2' 'RSJN2'. CGLKPIMO
- *utile? 88 LS-FL-CNAPRG-PELEM-RSA-FIC-SAFFx CGLKPIMO
- *utile? VALUE 'SAFF1' 'SAFF2' CGLKPIMO
- *utile? 'SAFF3' 'SAFFA' CGLKPIMO
- *utile? 'SAFFB' 'SAFFC'. CGLKPIMO
- * CGLKPIMO
- *--- Famille de la prestation CGLKPIMO
- 15 LS-CFAPRS PIC XXX. CGLKPIMO
- *--- Top maj table DR1 examen DP CGLKPIMO
- 15 LS-FL-MAJ-CDDRP PIC X. CGLKPIMO
- *--- Indicateur edition notif DP CGLKPIMO
- 15 LS-FL-EDIT-NOTIF PIC X. CGLKPIMO
- *--- Indicateur AT (X28,X29 et X78)* CGLKPIMO
- 15 LS-IND-AT PIC XX. CGLKPIMO
- *--- accès CDDRV droits CGLKPIMO
- 15 LS-CNAPRS1 PIC X(03). CGLKPIMO
- 15 LS-RSNAPR1 PIC X(02). CGLKPIMO
- 15 LS-CNADES PIC X. CGLKPIMO
- *--- accès CDPER ressources CGLKPIMO
- 15 LS-CPTRSA PIC X. CGLKPIMO
- 88 LS-FL-CPTRSA-PER-GARANTIE-RESS VALUE 'H'. CGLKPIMO
- 88 LS-FL-CPTRSA-PER-CUM-PEN VALUE 'P'. CGLKPIMO
- 88 LS-FL-CPTRSA-ANNUEL-AAH VALUE 'V'. CGLKPIMO
- 88 LS-FL-CPTRSA-ESAT-TRIM VALUE 'W'. CGLKPIMO
- 88 LS-FL-CPTRSA-MENSUEL-CDI VALUE 'L'. CGLKPIMO
- 88 LS-FL-CPTRSA-ANNUEL-PATRIMOINE VALUE '1'. CGLKPIMO
- 15 LS-CNARES PIC X(03). CGLKPIMO
- 88 LS-FL-CNARES-400-PROP-PENS VALUE '400'. CGLKPIMO
- 88 LS-FL-CNARES-406-MAIN-OHEIX VALUE '406'. CGLKPIMO
- 88 LS-FL-CNARES-500 VALUE '500'. CGLKPIMO
- *--- CGLKPIMO
- *--- Cd motif forcage qf AAV CGLKPIMO
- 15 LS-FORCAGE-QF-AAV PIC X. CGLKPIMO
- * CGLKPIMO
- *--- Gesdro transmet plusieurs codes informatio aux notif. CGLKPIMO
- *--- 4443 dans la règle U244P.CGRCDASM (Z01) CGLKPIMO
- *--- 4445 U244P.CGRNATAV (M59) CGLKPIMO
- *--- 8860 8870 8880 U244P.CGRQFPPR (Y03) CGLKPIMO
- *--- La màj de la table notification s'effectue dans CGM130A CGLKPIMO
- 15 LS-CD-INFOS. CGLKPIMO
- 20 LS-TAB-CD-INFOS OCCURS 10 CGLKPIMO
- INDEXED BY IX-CINFOR-1 IX-CINFOR-2 CGLKPIMO
- IX-CINFOR-3. CGLKPIMO
- 25 LS-CINFOR PIC 9(5). CGLKPIMO
- 25 LS-PERSONNE PIC 9(2). CGLKPIMO
- 20 LS-IX-CINFOR-MAX PIC S9(3) COMP-3. CGLKPIMO
- * CGLKPIMO
- * CODE MONNAIE FRANC EURO CGLKPIMO
- 15 LS-CMOREF PIC X. CGLKPIMO
- 88 LS-FL-CMOREF-F VALUE 'F'. CGLKPIMO
- 88 LS-FL-CMOREF-E VALUE 'E'. CGLKPIMO
- 88 LS-FL-CMOREF-B VALUE 'B'. CGLKPIMO
- 88 LS-FL-CMOREF-P VALUE 'P'. CGLKPIMO
- * * CGLKPIMO
- *--- Stockage des codes CINAPE de PE7AAH pour l'APEND cgrM43p CGLKPIMO
- 15 LS-APE-CINAPE-TAB. CGLKPIMO
- 20 LS-APE-CINAPE-PER CGLKPIMO
- OCCURS 27 INDEXED BY IX-APE-PER-1. CGLKPIMO
- 25 LS-APE-CINAPE PIC X. CGLKPIMO
- 25 LS-APE-EACTPN3 PIC S9(9) COMP-3. CGLKPIMO
- * * CGLKPIMO
- *--- 1572D indicateurs à 'O' si "positionnés". CGLKPIMO
- 15 LS-LOGIND-INDIC-LOGT-INDEPENDT PIC X. CGLKPIMO
- 15 LS-LOGOLI-INDIC-LOGT-INCONNU PIC X. CGLKPIMO
- 15 LS-INAC12-INACTIVITE-12MOIS PIC X. CGLKPIMO
- 15 LS-INACMT-INACTIVITE-MT PIC X. CGLKPIMO
- * CGLKPIMO
- *--- Donnée en E/S de cgrKSTRI CGLKPIMO
- *--- (sortie pr module Alloc et entrée pr module conjoint) CGLKPIMO
- 15 LS-IND-ALLOC-TRAITE-OU-PAS PIC X. CGLKPIMO
- 88 LS-IND-ALLOC-TRAITE VALUE 'P'. CGLKPIMO
- 88 LS-IND-ALLOC-TRAITE-NON-SIGNIF VALUE SPACES. CGLKPIMO
- * CGLKPIMO
- *-La Zone qui suit a pour objectif de remplacer - dans un but de CGLKPIMO
- * simplification- tous les blocs de données initialisés chaque CGLKPIMO
- * mois, par un seul bloc. CGLKPIMO
- 10 LS-INITIALISATION-MENSUELLE. CGLKPIMO
- *--- D710P.CDDRCEE : Indicateur type droit CEE. CGLKPIMO
- 15 LS-CDDRCEE-TYP-DRT-CEE PIC X(3). CGLKPIMO
- 88 LS-FL-CDDRCEE-TYP-DRT-CEE-INIT VALUE SPACES. CGLKPIMO
- 88 LS-FL-CDDRCEE-TYP-DRT-CEE-CDI VALUE 'CDI'. CGLKPIMO
- 88 LS-FL-CDDRCEE-TYP-DRT-CEE-PFE VALUE 'PFE'. CGLKPIMO
- * CGLKPIMO
- *--- Positionne dans Canevas CGRGENER ou CGRGENCE CGLKPIMO
- 15 LS-DOSSIER-CEE-OU-RI PIC X. CGLKPIMO
- 88 LS-FL-DOSSIER-CEE VALUE 'C'. CGLKPIMO
- 88 LS-FL-DOSSIER-RI VALUE SPACE. CGLKPIMO
- 15 LS-FL-VERIF-DOSRI PIC X. CGLKPIMO
- 88 LS-DOSRI-OK VALUE 'O'. CGLKPIMO
- 88 LS-DOSRI-KO VALUE 'N'. CGLKPIMO
- *--- Date de demande AGED CGLKPIMO
- 15 LS-DDMGED PIC S9(09) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- Montant forfait logement mois de référence API CGLKPIMO
- 15 LS-MFALRF-DOHCPI PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 15 LS-TOP-MAJ-DOHCPI PIC 9. CGLKPIMO
- ****--- ATTENTION RSA effet fige CAVAPI stocke ici, aussi CGLKPIMO
- 15 LS-CAVAPI PIC X. CGLKPIMO
- 88 LS-FL-DMD-EFFE-CAVAPI VALUE 'O'. CGLKPIMO
- 88 LS-FL-DMD-NO-EFFE-CAVAPI VALUE 'N'. CGLKPIMO
- *--- Demande d'API déterminée ds cgrdeman et utilisée en hiéra CGLKPIMO
- 15 LS-DDMAPI PIC S9(9) COMP-3. CGLKPIMO
- *--- Type pers. du demandeur d'API CGLKPIMO
- 15 LS-CTYPER-API PIC XXX. CGLKPIMO
- *--- Date de naissance enfant + 3 mois à destination de règles CGLKPIMO
- *--- pour prise en compte PJ2 ou non. CGLKPIMO
- *--- D710p.DT3MOIS mois de date de naissance + 3 mois. CGLKPIMO
- 15 LS-DT3MOIS PIC 9(8). CGLKPIMO
- *--Zones utiles jusqu'à ce que le RSA forcé devienne RSA non forcéCGLKPIMO
- *-- c'est à dire au jour d'aujourd'hui jusqu'à l'été 2009. CGLKPIMO
- *--- Stockage du cwmond RSM car effacé par préhiéra qd forçage CGLKPIMO
- 15 LS-CWMOND-RSM-SAUV PIC XX. CGLKPIMO
- *--- Stockage du cwmond RSP car effacé par préhiéra qd forçage CGLKPIMO
- 15 LS-CWMOND-RSP-SAUV PIC XX. CGLKPIMO
- *--- Indicateur positionné dans un but de performance pour M98 CGLKPIMO
- *--- Indicateur Enfant gardé moins de 16h (U244P.CGRENFGA) CGLKPIMO
- 15 LS-INDICATEUR-MOINS-16H PIC X. CGLKPIMO
- 88 LS-FL-IND-MOINS-16H-N-SIGNIF VALUE SPACE. CGLKPIMO
- 88 FL-IND-MOINS-16H-OUI VALUE 'O'. CGLKPIMO
- 88 FL-IND-MOINS-16H-NON VALUE 'N'. CGLKPIMO
- *--- Cumul dépense pour la PELEM D710P.MTDEPCMG pour CGLKPIMO
- *--- PJ5N1 ou PJ5N2 ou PJ5N3 CGLKPIMO
- 15 LS-MTDEPCMG-PJ5N1 PIC S9(7)V99 COMP-3. CGLKPIMO
- 15 LS-MTDEPCMG-PJ5N2 PIC S9(7)V99 COMP-3. CGLKPIMO
- 15 LS-MTDEPCMG-PJ5N3 PIC S9(7)V99 COMP-3. CGLKPIMO
- * CGLKPIMO
- 15 LS-PJ5-STRUCT-INDIC PIC X OCCURS 3 CGLKPIMO
- INDEXED BY IX-PJ5-STRUCT-1 IX-PJ5-STRUCT-2. CGLKPIMO
- 88 FL-PJ5-STRUCT-INDIC-INIT VALUE SPACE. CGLKPIMO
- *--- Valeur(s) significative(s) de "positionné" : CGLKPIMO
- 88 FL-PJ5-STRUCT-INDIC-POSIT VALUE 'P'. CGLKPIMO
- *--- Valeur pour "positionner" l'indicateur "structure OKCGLKPIMO
- 88 FL-PJ5-STRUCT-INDIC-POSIT-P VALUE 'P'. CGLKPIMO
- 15 LS-PJ5-STRUCT-CNAPRG-TABLE. CGLKPIMO
- 20 LS-PJ5-STRUCT-CNAPRG-TABLE-OCC OCCURS 3 CGLKPIMO
- INDEXED BY IX-PJ5-STRUCT-CNAPRG-1 CGLKPIMO
- IX-PJ5-STRUCT-CNAPRG-2. CGLKPIMO
- 25 LS-PJ5-STRUCT-CNAPRG PIC X(5). CGLKPIMO
- *--- L'alimentation de LS-PJ5-STRUCT-CNAPRG-TOUS est faite CGLKPIMO
- *--- par LT-PJ5-STRUCT-CNAPRG-TOUS dans la copie applicativeCGLKPIMO
- *--- des services, tout comme le IN-PJ5-STRUCT-MAX CGLKPIMO
- *--- Ces zones LT-PJ5... sont définies dans la copie workingCGLKPIMO
- *--- des modules SERVICE. CGLKPIMO
- 15 LS-PJ5-STRUCT-CNAPRG-TOUS REDEFINES CGLKPIMO
- LS-PJ5-STRUCT-CNAPRG-TABLE PIC X(15). CGLKPIMO
- *--- Nombre max d'occ. des tableaux LS-PJ5-...-STRUCT CGLKPIMO
- 15 LS-IN-PJ5-STRUCT-MAX PIC S9(3) COMP-3. CGLKPIMO
- * CGLKPIMO
- 15 LS-AFR-CNAPRG-TAB. CGLKPIMO
- 20 LS-AFR-CNAPRG-TAB-OCC OCCURS 4 CGLKPIMO
- INDEXED BY IX-AFR-CNAPRG-1 CGLKPIMO
- IX-AFR-CNAPRG-2. CGLKPIMO
- 25 LS-AFR-CNAPRG. CGLKPIMO
- 30 LS-AFR-CNAPRS PIC X(3). CGLKPIMO
- 30 LS-AFR-RSNAPR PIC X(2). CGLKPIMO
- * CGLKPIMO
- *--- L'alimentation de LS-AFR-CNAPRG-TOUTES est faite CGLKPIMO
- *--- par LT-AFR-CNAPRG-TOUTES dans la copie applicative CGLKPIMO
- *--- des services, tout comme le LS-IN-AFR-CNAPRG-MAX CGLKPIMO
- *--- Ces zones LT-AFR... sont définies dans la copie workingCGLKPIMO
- *--- des modules SERVICE. CGLKPIMO
- 15 LS-AFR-CNAPRG-TOUTES REDEFINES CGLKPIMO
- LS-AFR-CNAPRG-TAB PIC X(20). CGLKPIMO
- *--- Nombre max d'occ. des tableaux LS-AFR- CGLKPIMO
- 15 LS-IN-AFR-CNAPRG-MAX PIC S9(3) COMP-3. CGLKPIMO
- * CGLKPIMO
- 15 LS-AFR-INDIC-TAB. CGLKPIMO
- 20 LS-AFR-INDIC-TAB-OCC OCCURS 4 CGLKPIMO
- INDEXED BY IX-AFR-IND-1 CGLKPIMO
- IX-AFR-IND-2. CGLKPIMO
- *--- D710P.QTENFTOD Nombre d'enfants ouvrant droit CGLKPIMO
- 25 LS-AFR-QTENFTOD PIC S9(3) COMP-3. CGLKPIMO
- *--- D710P.MTBINFT2 Plafond de ressources (borne inf. tranche2) CGLKPIMO
- 25 LS-AFR-MTBINFT2 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- D710P.MTBSUPT2 Plafond de ressources (borne sup. tranche2) CGLKPIMO
- 25 LS-AFR-MTBSUPT2 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-AFR-MTAFTR. CGLKPIMO
- *--- D710P.MTAFTR1 MT AF de base tranche retenue CGLKPIMO
- 30 LS-AFR-MTAFTR1 PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- D710P.MTAFTR3 MT AF tranche 3 CGLKPIMO
- 30 LS-AFR-MTAFTR3 PIC S9(5)V9(2) COMP-3. CGLKPIMO
- 25 LS-AFR-MTMAFTR REDEFINES LS-AFR-MTAFTR. CGLKPIMO
- 30 LS-AFR-MTMAFTR1 PIC S9(5)V9(2) COMP-3. CGLKPIMO
- 30 LS-AFR-MTMAFTR3 PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- D710M.CDCTRAFR CD tranche retenue AFR CGLKPIMO
- 25 LS-AFR-CTRAFR PIC X(1). CGLKPIMO
- 88 FL-CTRAFR-1 VALUE '1'. CGLKPIMO
- 88 FL-CTRAFR-2 VALUE '2'. CGLKPIMO
- 88 FL-CTRAFR-3 VALUE '3'. CGLKPIMO
- *--- D710M.CDMBIAFR MT borne inférieure retenue AFR CGLKPIMO
- 25 LS-AFR-MBIAFR PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- D710M.CDMBSAFR MT borne supérieure retenue AFR CGLKPIMO
- 25 LS-AFR-MBSAFR PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- D710M.CDMBCAFR MT borne complément dégressif CGLKPIMO
- 25 LS-AFR-MBCAFR PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- D710M.CDMCPAFR MT complément d'gressif AFR CGLKPIMO
- 25 LS-AFR-MCPAFR PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- Indicateur de présence d'assiette ressource. Mise à jour dansCGLKPIMO
- * U244P.CGRSAJE2(W92) CGLKPIMO
- 25 LS-AFR-ASSIETTE PIC X. CGLKPIMO
- 88 FL-AFR-ASS-PRST VALUE 'O'. CGLKPIMO
- 88 FL-AFR-ASS-ABST VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--- PAC = PAF + PPA CGLKPIMO
- *--- Indicateur application mesures 06/2016 pour conjoint CGLKPIMO
- * CGLKPIMO
- 15 LS-PAC-CNAPRG-TAB. CGLKPIMO
- 20 LS-PAC-CNAPRG-TAB-OCC OCCURS 22 CGLKPIMO
- INDEXED BY IX-PAC-CNAPRG-1 CGLKPIMO
- IX-PAC-CNAPRG-2. CGLKPIMO
- 25 LS-PAC-CNAPRG. CGLKPIMO
- 30 LS-PAC-CNAPRS PIC X(3). CGLKPIMO
- 30 LS-PAC-RSNAPR PIC X(2). CGLKPIMO
- * CGLKPIMO
- *--- L'alimentation de LS-PAC-CNAPRG-TOUTES est faite CGLKPIMO
- *--- par LT-PAC-CNAPRG-TOUTES dans la copie applicative CGLKPIMO
- *--- des services, tout comme le LS-PAC-IN-CNAPRG-MAX CGLKPIMO
- *--- Ces zones LT-PAC... sont définies dans la copie workingCGLKPIMO
- *--- des modules SERVICE. CGLKPIMO
- 15 LS-PAC-CNAPRG-TOUTES REDEFINES CGLKPIMO
- *- LS-PAC-CNAPRG-TAB PIC X(90). CGLKPIMO
- LS-PAC-CNAPRG-TAB PIC X(110). CGLKPIMO
- * CGLKPIMO
- *--- Stockage de la position dans LS-T11- (and co), des CGLKPIMO
- *--- pelem PAF et PPA dues. CGLKPIMO
- 15 LS-PAC-POS-CNAPRG-DS-T11-TAB. CGLKPIMO
- 20 LS-PAC-POS-CNAPRG-DS-T11-OCC OCCURS 22 CGLKPIMO
- INDEXED BY IX-PAC-POS-T11. CGLKPIMO
- 25 LS-PAC-IX-CNAPRG-DS-T11 PIC S9(3) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- Nombre max d'occ. des tableaux LS-PAC- CGLKPIMO
- *--- je prefere mettre LS-PAC- PLUTOT QUE LS-IN-PAC- CGLKPIMO
- 15 LS-PAC-IN-CNAPRG-MAX PIC S9(3) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- La zone qui suit contient la position, CGLKPIMO
- *--- dans le tableau LS-PAC, de la pelem traitee (PAF OU PPA). CGLKPIMO
- *--- (Comme ls-in-pelem est la position de la pelem traitee CGLKPIMO
- *--- dans les tableaux de stockage de toutes les pelem). CGLKPIMO
- * CGLKPIMO
- *--- LS-PAC-IN-PELEM-PAC est alimentee dans A7510-FN-EXAMDROIT CGLKPIMO
- *--- du module CGS101. CGLKPIMO
- **** LS-PAC-IN-PELEM-Pxxxx a pour valeur max LS-PAC-IN-CNAPRG-MAX CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAC PIC S9(3) COMP-3. CGLKPIMO
- ******** LES ZONES QUI SUIVENT CONTIENNENT LA position de la CGLKPIMO
- ******** prestation dans le tableau ls-pac. LA VALEUR DE LA CGLKPIMO
- ******** POSITION (DE 1 A 18) est maj dans cgs101a CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFF1 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFF2 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFF3 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFF4 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFF5 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFF6 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFF7 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFF8 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFF9 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFFA PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFFB PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFFC PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFFD PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFFE PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFFF PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFFG PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFFH PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PAFFI PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PPAN1 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PPAN2 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PPIN1 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-PAC-IN-PELEM-PPAN4 PIC S9(3) COMP-3. CGLKPIMO
- *--- PAC = PAF + PPA et PPI, soit 18 pelem CGLKPIMO
- 15 LS-PAC-DONNEES-TAB. CGLKPIMO
- 20 LS-PAC-DONNEES-TAB-OCC OCCURS 22 CGLKPIMO
- INDEXED BY IX-PAC-PELEM-1 CGLKPIMO
- IX-PAC-PELEM-2. CGLKPIMO
- *--- {D710P.DTDDPPA } DT demande PPA CGLKPIMO
- 25 LS-PAC-DTDDPPA PIC S9(9) COMP-3. CGLKPIMO
- *--- { .CDCORPPA} CD Origine demande PPA CGLKPIMO
- *--- Va avec LS-PAC-DTDDPPA CGLKPIMO
- 25 LS-PAC-CDCORPPA PIC X(3). CGLKPIMO
- 88 LS-FL-PAC-CORPPA-BAS VALUE 'BAS'. CGLKPIMO
- 88 LS-FL-PAC-CORPPA-CTR VALUE 'CTR'. CGLKPIMO
- 88 LS-FL-PAC-CORPPA-DEM VALUE 'DEM'. CGLKPIMO
- 88 LS-FL-PAC-CORPPA-RSA VALUE 'RSA'. CGLKPIMO
- 88 LS-FL-PAC-CORPPA-AAH VALUE 'AAH'. CGLKPIMO
- *--- {D710P.DTPPAINI} DT demande PPA initiale CGLKPIMO
- 25 LS-PAC-DTPPAINI PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710M.CDDTRIRF} DT 1er mois trimestre de référence CGLKPIMO
- 25 LS-PAC-CDDTRIRF PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710M.CDDTRIDO} DT 1er mois trimestre de droit CGLKPIMO
- 25 LS-PAC-CDDTRIDO PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710P.DDTRIREF} Mois début du trimestre référence CGLKPIMO
- 25 LS-PAC-DDTRIREF PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710P.DDTRIDRT} Mois début trimestre de droit CGLKPIMO
- 25 LS-PAC-DDTRIDRT PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710P.DTISOPA} Date isolement PPA CGLKPIMO
- 25 LS-PAC-DTISOPA PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710P.DTSEPIPA} Date séparation initiale PPA CGLKPIMO
- 25 LS-PAC-DTSEPIPA PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710P.DTFPRCJT} Dt fin présence conjoint PPA CGLKPIMO
- 25 LS-PAC-DTFPRCJT PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710P.EVEMAPP} Evenement MAJI PAF CGLKPIMO
- 25 LS-PAC-EVEMAPP PIC X(3). CGLKPIMO
- 88 LS-FL-PAC-EVEMAPP-ENF VALUE 'ENF'. CGLKPIMO
- 88 LS-FL-PAC-EVEMAPP-GRO VALUE 'GRO'. CGLKPIMO
- 88 LS-FL-PAC-EVEMAPP-PEC VALUE 'PEC'. CGLKPIMO
- 88 LS-FL-PAC-EVEMAPP-ISO VALUE 'ISO'. CGLKPIMO
- 88 LS-FL-PAC-EVEMAPP-VIDE VALUE ' '. CGLKPIMO
- * CGLKPIMO
- *--- {D710P.DTEVMAPP} Date evenement MAJI PAF CGLKPIMO
- 25 LS-PAC-DTEVMAPP PIC S9(9) COMP-3. CGLKPIMO
- CGLKPIMO
- *--- {D710P.ENFMAPP} Identifiant de l'enft donnant droit CGLKPIMO
- *--- a la MAJI PAF - c'est le N° fictif pers. = nficpn CGLKPIMO
- 25 LS-PAC-ENFMAPP PIC S9(7) COMP-3. CGLKPIMO
- *-- *-- {D710P.CDMAPP} Indicateur MAJI PAF --* CGLKPIMO
- 25 LS-PAC-CDMAPP PIC X(1). CGLKPIMO
- 88 LS-FL-PAC-CDMAPP-VRAI VALUE 'V'. CGLKPIMO
- 88 LS-FL-PAC-CDMAPP-FAUX VALUE 'F' ' '. CGLKPIMO
- 88 LS-FL-PAC-CDMAPP-F VALUE 'F'. CGLKPIMO
- *-- *-- {D710P.CDREDHOS} Indic.réduction pour --* CGLKPIMO
- *-- *-- hospitalisation --* CGLKPIMO
- 25 LS-PAC-CDRESHOS PIC X(1). CGLKPIMO
- 88 LS-FL-PAC-CDRESHOS-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-PAC-CDRESHOS-NON VALUE 'N'. CGLKPIMO
- *--- {D710P.MTRESFOY} MT total revenus (100% act+ autres)CGLKPIMO
- 25 LS-PAC-MTRESFOY PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- {D710P.MTMFRESS} MT MF-ress PAF remis à zéro CGLKPIMO
- 25 LS-PAC-MTMFRESS PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- {D710P.MTAUTFOY} MT total autres revenus foyer CGLKPIMO
- 25 LS-PAC-MTAUTFOY PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- {D710P.MT100ACF} MT 100% revenus d'activ foyer CGLKPIMO
- 25 LS-PAC-MT100ACF PIC S9(7)V99 COMP-3.CGLKPIMO
- * CGLKPIMO
- *--- {D710P.CDELICJT} indic. cond° eligibilite conjoint CGLKPIMO
- **** les 88 devraient etre LS-FL-PAC et pas LS-PAC <<<<<<<<< CGLKPIMO
- 25 LS-PAC-CDELICJT PIC X. CGLKPIMO
- 88 LS-PAC-CDELICJT-POSIT-O VALUE 'O'. CGLKPIMO
- 88 LS-PAC-CDELICJT-POSIT-N VALUE 'N'. CGLKPIMO
- 88 LS-PAC-CDELICJT-NON-POSIT VALUE SPACE. CGLKPIMO
- * CGLKPIMO
- *--- {D710P.CDDETCKO} Indicateur detachement cjt ko CGLKPIMO
- 25 LS-PAC-CDDETCKO PIC X. CGLKPIMO
- 88 LS-FL-PAC-CDDETCKO-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-FL-PAC-CDDETCKO-NON-POSIT VALUE SPACE. CGLKPIMO
- * CGLKPIMO
- *--- {D710P.CDELIPPA} Indic. application mesures 06/2016 CGLKPIMO
- *--- pour conjoint (alimenté à partir de N286) CGLKPIMO
- 25 LS-PAC-CDELIPPA PIC X. CGLKPIMO
- 88 LS-FL-PAC-CDELIPPA-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-FL-PAC-CDELIPPA-NON-POSIT VALUE SPACE. CGLKPIMO
- * CGLKPIMO
- *--- {D710P.CDNACJKO} Indicateur nationalité conjoint KO CGLKPIMO
- 25 LS-PAC-CDNACJKO PIC X. CGLKPIMO
- 88 LS-FL-PAC-CDNACJKO-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-FL-PAC-CDNACJKO-NON-POSIT VALUE SPACE. CGLKPIMO
- * CGLKPIMO
- *--- {D710P.CDRECJKO} CGLKPIMO
- 25 LS-PAC-CDRECJKO PIC X. CGLKPIMO
- 88 LS-FL-PAC-CDRECJKO-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-FL-PAC-CDRECJKO-NON-POSIT VALUE SPACE. CGLKPIMO
- * CGLKPIMO
- *--- {D710P.MT100AHx} Montant 100% AHx (x = 1 ou 2 selonCGLKPIMO
- * nature PGENE) CGLKPIMO
- 25 LS-PAC-MT100AH1 PIC S9(5)V9(2) COMP-3. CGLKPIMO
- 25 LS-PAC-MT100AH2 PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *------------ {D710P.CDGROSS indicateur de presence de grossesse CGLKPIMO
- 25 LS-PAC-CDGROSS PIC X. CGLKPIMO
- 88 LS-FL-PAC-CDGROSS VALUE ' '. CGLKPIMO
- 88 LS-FL-PAC-CDGROSS-O VALUE 'O'. CGLKPIMO
- 88 LS-FL-PAC-CDGROSS-N VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--- {D710P.CDISOPPA} Indicateur Isolement PPA CGLKPIMO
- 25 LS-PAC-CDISOPPA PIC X. CGLKPIMO
- 88 LS-FL-PAC-CDISOPPA-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-FL-PAC-CDISOPPA-NON-POSIT VALUE SPACE. CGLKPIMO
- *----------------------- CGLKPIMO
- *--- Ce sous niveau pour alimenter table CDACD CGLKPIMO
- *--- ent. ACD gdd ACD CGLKPIMO
- 25 LS-PAC-CDACDACD. CGLKPIMO
- *--- {D710M.CDMFOPAF} MT forfaitaire PAF CGLKPIMO
- 30 LS-PAC-CDMFOPAF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- *--- {D710P.MTACTFOY} MT total rev. d'activité foyer CGLKPIMO
- *--- alimentera {D710M.CDMRAPAF} MT rev.act.38% PAF CGLKPIMO
- 30 LS-PAC-MTACTFOY PIC S9(5)V9(2) COMP-3.CGLKPIMO
- *--- {D710P.MTACTRET} MT tot rev. d'act foyer à cpt L1606CGLKPIMO
- *--- alimentera {D710M.CDMRVPAF} MT rev.act.62% PAF CGLKPIMO
- 30 LS-PAC-MTACTRET PIC S9(5)V9(2) COMP-3.CGLKPIMO
- *--- {D710M.CDMFLPAF} MT forfait logement PAF CGLKPIMO
- 30 LS-PAC-CDMFLPAF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- *--- {D710M.CDMPFPAF} MT PF pec PAF CGLKPIMO
- 30 LS-PAC-CDMPFPAF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- *--- {D710M.CDMMRPAF} MT MF-ress PAF CGLKPIMO
- 30 LS-PAC-CDMMRPAF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- *--- {D710M.CDMRHPAF} MT Reduction hospitaliere CGLKPIMO
- 30 LS-PAC-CDMRHPAF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- *--- {D710M.CDCSIPAF} CD Sitfam PAF CGLKPIMO
- 30 LS-PAC-CSIPAF PIC X(1). CGLKPIMO
- 88 LS-FL-PAC-CSIPAF-COUPLE VALUE 'C'. CGLKPIMO
- 88 LS-FL-PAC-CSIPAF-ISOLE VALUE 'I'. CGLKPIMO
- 88 LS-FL-PAC-CSIPAF-ISOMAJ VALUE 'M'. CGLKPIMO
- *--- {D710M.CDQSPPAF} QT surf plafond expl DOM PAF CGLKPIMO
- 30 LS-PAC-CDQSPPAF PIC S9(3)V9(2) COMP-3.CGLKPIMO
- *-----------------------------------------------------------------CGLKPIMO
- *--- SOUS-NIVEAU PERSONNES CGLKPIMO
- 25 LS-PAC-PERS OCCURS 27 CGLKPIMO
- INDEXED BY IX-PAC-PER-1 CGLKPIMO
- IX-PAC-PER-2. CGLKPIMO
- CGLKPIMO
- *--- {D710P.MTREVACT} MT revenus d'activité avant L1606 CGLKPIMO
- 30 LS-PAC-MTREVACT PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710P.MTRARACT} MT revenus d'activité à cpt L1606 CGLKPIMO
- 30 LS-PAC-MTRARACT PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710P.MT038ACT} MT 38% des revenus d'activité CGLKPIMO
- 30 LS-PAC-MT038ACT PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710P.MT062ACT} MT 38% des revenus d'activité CGLKPIMO
- 30 LS-PAC-MT062ACT PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710P.MTIJSAL } MT des IJ à PEC (pour PAF seules) CGLKPIMO
- 30 LS-PAC-MTIJSAL PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710P.MTBASPER} Base ressources de l'occurrence CGLKPIMO
- 30 LS-PAC-MTBASPER PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- {D710P.MT700PEC} Montant nature 700 pris en compte CGLKPIMO
- 30 LS-PAC-MT700PEC PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- {D710P.CDCEAEXA} Ind cond° de chge deja examineeCGLKPIMO
- 30 LS-PAC-CDCEAEXA PIC X. CGLKPIMO
- 88 LS-FL-PAC-CDCEAEXA-POSIT-P VALUE 'P'. CGLKPIMO
- 88 LS-FL-PAC-CDCEAEXA-NON-POSIT VALUE SPACES. CGLKPIMO
- *--- {D710P.CDCHAPAF} Indicateur de charge PAF CGLKPIMO
- 30 LS-PAC-CDCHAPAF PIC X. CGLKPIMO
- 88 LS-FL-PAC-CDCHAPAF-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-FL-PAC-CDCHAPAF-POSIT-P VALUE 'P'. CGLKPIMO
- 88 LS-FL-PAC-CDCHAPAF-NON-POSIT VALUE SPACES. CGLKPIMO
- *--- {D710P.CD06EG01} Indicateur 006 = 001 CGLKPIMO
- 30 LS-PAC-CD06EG01 PIC X. CGLKPIMO
- 88 LS-FL-PAC-CD06EG01-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-PAC-CD06EG01-NON VALUE 'N'. CGLKPIMO
- CGLKPIMO
- *--- Ce sous niveau pour alimenter table CDACP CGLKPIMO
- *--- ent. ACP gdd ACP CGLKPIMO
- 30 LS-PAC-CDACPACP. CGLKPIMO
- *--- {D710P.MTBONIPP} Montant bonification pour l'occ.CGLKPIMO
- *--- alimentera {D710M.CDMBOPAF} MT bonification CGLKPIMO
- 35 LS-PAC-MTBONIPP PIC S9(3)V9(2) COMP-3. CGLKPIMO
- *--- {D710P.CDNIVBON} Niveau de bonification occ. CGLKPIMO
- *--- alimentera {D710M.CDCNIVBO} CD niveau bonificat. CGLKPIMO
- 35 LS-PAC-CDNIVBON PIC X. CGLKPIMO
- 88 LS-FL-PAC-CDNIVBON-0 VALUE '0'. CGLKPIMO
- 88 LS-FL-PAC-CDNIVBON-1 VALUE '1'. CGLKPIMO
- 88 LS-FL-PAC-CDNIVBON-2 VALUE '2'. CGLKPIMO
- *--- {D710P.MT100ACT} MT 100% des revenus d'activité CGLKPIMO
- *--- alimentera {D710M.CDMRAPAP} MT revenus d'activitéCGLKPIMO
- 35 LS-PAC-MT100ACT PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710P.MTAUTRES} MT autres ressources CGLKPIMO
- *--- alimentera {D710M.CDMARPAF} MT aut.revenus PAF/peCGLKPIMO
- 35 LS-PAC-MTAUTRES PIC S9(5)V9(2) COMP-3. CGLKPIMO
- * CGLKPIMO
- 25 LS-PAC-CDACLACL OCCURS 03 CGLKPIMO
- INDEXED BY IX-PAC-ACL-1 CGLKPIMO
- IX-PAC-ACL-2. CGLKPIMO
- 30 LS-PAC-DMODFI PIC S9(9) COMP-3. CGLKPIMO
- 30 LS-PAC-CDPAF. CGLKPIMO
- 35 LS-PAC-CDPAF-CNAPRS1 PIC X(3). CGLKPIMO
- 35 LS-PAC-CDPAF-RSNAPR1 PIC X(2). CGLKPIMO
- * CGLKPIMO
- *--- RSA = prestations RSA actives à/c de 01/2017 : RSD RSI RSJCGLKPIMO
- *--- + prestations RSA fictives SAF SIF CGLKPIMO
- *--* ATTENTION, CE TABLEAU NE STOCKE PAS LES DONNéES DES CGLKPIMO
- *--* PRESTATIONS RSA dont la DATE DE DEBUT DE VALIDITE CGLKPIMO
- *--* EST ANTERIEURE AU 01/01/2017 CGLKPIMO
- * CGLKPIMO
- 15 LS-RSA-CNAPRG-TAB. CGLKPIMO
- 20 LS-RSA-CNAPRG-TAB-OCC OCCURS 16 CGLKPIMO
- INDEXED BY IX-RSA-CNAPRG-1 CGLKPIMO
- IX-RSA-CNAPRG-2. CGLKPIMO
- 25 LS-RSA-CNAPRG. CGLKPIMO
- 30 LS-RSA-CNAPRS PIC X(3). CGLKPIMO
- 88 LS-FL-RSA-CNAPRS-FICT VALUE 'SAF' 'SIF'. CGLKPIMO
- 30 LS-RSA-RSNAPR PIC X(2). CGLKPIMO
- * CGLKPIMO
- *--- LS-RSA-CNAPRG-JANV17 contient le libelle des CGLKPIMO
- *--- seize pelem RSA de la dmf 2539x CGLKPIMO
- *--- L'alimentation de LS-RSA-CNAPRG-JANV17 est faite CGLKPIMO
- *--- par LT-RSA-CNAPRG-JANV17 dans la copie applicative CGLKPIMO
- *--- des services, tout comme le LS-RSA-IN-CNAPRG-MAX CGLKPIMO
- *--- Ces zones LT-RSA... sont définies dans la copie workingCGLKPIMO
- *--- des modules SERVICE. CGLKPIMO
- 15 LS-RSA-CNAPRG-JANV17 REDEFINES CGLKPIMO
- LS-RSA-CNAPRG-TAB PIC X(80). CGLKPIMO
- * CGLKPIMO
- *--- Stockage de la position dans LS-T11- (and co), des CGLKPIMO
- *--- pelem RSA fictives et RSA dues. (a/c de la dmf2439A) CGLKPIMO
- 15 LS-RSA-POS-CNAPRG-DS-T11-TAB. CGLKPIMO
- 20 LS-RSA-POS-CNAPRG-DS-T11-OCC OCCURS 16 CGLKPIMO
- INDEXED BY IX-RSA-POS-T11. CGLKPIMO
- 25 LS-RSA-IX-CNAPRG-DS-T11 PIC S9(3) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- Nombre max d'occ. des tableaux LS-RSA- CGLKPIMO
- 15 LS-RSA-IN-CNAPRG-MAX PIC S9(3) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- LS-RSA-IN-PELEM-RSA est alimentee dans A7510-FN-EXAMDROIT CGLKPIMO
- *--- du module CGS101. CGLKPIMO
- 15 LS-RSA-IN-PELEM-RSA PIC S9(3) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- LS-RSA-IN-PELEM-Rxxxx a pour valeur max LS-RSA-IN-CNAPRG-MAX CGLKPIMO
- *--- LES ZONES QUI SUIVENT CONTIENNENT LA position de la CGLKPIMO
- *--- prestation dans les tableaux ls-rsa. LA VALEUR DE LA CGLKPIMO
- *--- POSITION (DE 1 A 16) est maj dans cgs101a CGLKPIMO
- 15 LS-RSA-IN-PELEM-SAFF1 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-SAFF2 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-SAFF3 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-SAFFA PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-SAFFB PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-SAFFC PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-SIFF1 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-SIFF2 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-SIFF3 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-SIFFA PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-SIFFB PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-SIFFC PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-RSIN2 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-RSJN2 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-RSDN3 PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-RSA-IN-PELEM-RSDN4 PIC S9(3) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- RSA = SAF + SIF + RSD + RSI + RSJ 01/2017 = soit 16 pelem CGLKPIMO
- 15 LS-RSA-DONNEES-TAB. CGLKPIMO
- 20 LS-RSA-DONNEES-TAB-OCC OCCURS 16 CGLKPIMO
- INDEXED BY IX-RSA-PELEM-1 CGLKPIMO
- IX-RSA-PELEM-2. CGLKPIMO
- *--- {D710P.DTDDRSA } DT demande RSA CGLKPIMO
- 25 LS-RSA-DTDDRSA PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710M.CDDCLRSA} DT cloture/DF demande RSA CGLKPIMO
- 25 LS-RSA-DCLRSA PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710M.CDCORRSA} CD origine demande RSA CGLKPIMO
- 25 LS-RSA-CORRSA PIC X(3). CGLKPIMO
- 88 LS-FL-RSA-CORRSA-DEM VALUE 'DEM'. CGLKPIMO
- *--- {D710M.CDDTRIDO} DT 1er mois trimestre de droit CGLKPIMO
- 25 LS-RSA-DTRIDO PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710M.CDAPIR23} CD allocation de veuvage API/RSA CGLKPIMO
- **** 25 LS-RSA-CAVAPI PIC X. CGLKPIMO
- **** est LS-CAVAPI CGLKPIMO
- **** donnee utilisee par le RSA du - donnee unitaure. CGLKPIMO
- *--- {D710P.DDTRIRES} Mois debut du trimestre RSA CGLKPIMO
- 25 LS-RSA-DDTRIRES PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710P.DFTRIRES} Mois fin du trimestre RSA CGLKPIMO
- 25 LS-RSA-DFTRIRES PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710P.DDDRTRSA} Mois de debut du trim. de droit CGLKPIMO
- 25 LS-RSA-DDDRTRSA PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710P.MOISTD } Rang du mois du TD (1, 2 ou 3) CGLKPIMO
- 25 LS-RSA-MOISTD PIC S9(1) COMP-3. CGLKPIMO
- *--- Date du Rang du mois du TD (1er jour du mois) CGLKPIMO
- 25 LS-RSA-MOISTD-DATE01 PIC S9(9) COMP-3. CGLKPIMO
- *--- Date du Rang du mois du TD (dernier jour du mois) CGLKPIMO
- 25 LS-RSA-MOISTD-DATE31 PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710P.CDSITSAF} CD Sitfam RSA Fictif CGLKPIMO
- *--- et utilisee pour la maj de {D710M.CDCSISAF} CGLKPIMO
- *--- CD Sitfam - entite ??? pour le moment CGLKPIMO
- * CGLKPIMO
- 25 LS-RSA-CDSITSAF PIC X(3). CGLKPIMO
- 88 LS-FL-RSA-CDSITSAF-COUPLE VALUE 'C'. CGLKPIMO
- 88 LS-FL-RSA-CDSITSAF-ISOLE VALUE 'I'. CGLKPIMO
- 88 LS-FL-RSA-CDSITSAF-ISOMAJ VALUE 'M'. CGLKPIMO
- *--- {D710P.DTISOLT } DT isolement CGLKPIMO
- 25 LS-RSA-DTISOLT PIC S9(09) COMP-3. CGLKPIMO
- *--- {D710P.CDAVIRSA} Indicateur condition AVI-RSA CGLKPIMO
- 25 LS-RSA-CDAVIRSA PIC X(1). CGLKPIMO
- *--- Valeur significative de positionné à N CGLKPIMO
- 88 LS-FL-RSA-CDAVIRSA-POSIT-N VALUE 'N'. CGLKPIMO
- *--- {D710P.CDISOLT } Indicateur d'isolement CGLKPIMO
- 25 LS-RSA-CDISOLT PIC X(1). CGLKPIMO
- *--- Valeur signifiant non positionné. CGLKPIMO
- 88 LS-FL-RSA-CDISOLT-NON-POSIT VALUE SPACE. CGLKPIMO
- 88 LS-FL-RSA-CDISOLT-POSIT VALUE 'P'. CGLKPIMO
- *--- {D710P.DTSEPINI} Date séparation initiale couple CGLKPIMO
- 25 LS-RSA-DTSEPINI PIC S9(09) COMP-3. CGLKPIMO
- *--- {D710P.CDSANRSA} Indicateur sanction RSA CGLKPIMO
- 25 LS-RSA-CDSANRSA PIC 9. CGLKPIMO
- 88 LS-FL-RSA-CDSANRSA-NON-POSIT VALUE 0. CGLKPIMO
- 88 LS-FL-RSA-CDSANRSA-POSIT VALUE 1. CGLKPIMO
- *--- {D710P.MTSANPCG} Montant de la sanction CG CGLKPIMO
- 25 LS-RSA-MTSANPCG PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- {D710P.MTSANRSA} Montant de la sanction à appliquer CGLKPIMO
- 25 LS-RSA-MTSANRSA PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- {D710P.CDALL25 } Indic. alloc. de moins de 25 ans CGLKPIMO
- 25 LS-RSA-CDALL25 PIC X(1). CGLKPIMO
- 88 LS-FL-RSA-CDALL25-NON-POSIT VALUE SPACE. CGLKPIMO
- 88 LS-FL-RSA-CDALL25-POSIT VALUE 'P'. CGLKPIMO
- *--- {D710P.CDMAJI } CGLKPIMO
- 25 LS-RSA-CDMAJI PIC X(1). CGLKPIMO
- 88 LS-FL-RSA-CDMAJI-NON-POSIT VALUE SPACE. CGLKPIMO
- 88 LS-FL-RSA-CDMAJI-POSIT VALUE 'P'. CGLKPIMO
- *--- {D710P.MTRGRSM} Montant Revenu Garanti RSM CGLKPIMO
- 25 LS-RSA-MTRGRSM PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- {D710P.MTPFRSA} Mtt des prestations a deduire RSA CGLKPIMO
- 25 LS-RSA-MTPFRSA PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- {D710P.CDREDHOS} Indic. de réduction pour hospital. CGLKPIMO
- 25 LS-RSA-CDREDHOS PIC X(1). CGLKPIMO
- 88 LS-FL-RSA-CDREDHOS-NON-POSIT VALUE SPACE. CGLKPIMO
- 88 LS-FL-RSA-CDREDHOS-POSIT VALUE 'P'. CGLKPIMO
- *--- {D710P.EVEMAJI } Evènement MAJI CGLKPIMO
- 25 LS-RSA-EVEMAJI PIC X(3). CGLKPIMO
- 88 LS-FL-RSA-EVEMAJI-ENF VALUE 'ENF'. CGLKPIMO
- 88 LS-FL-RSA-EVEMAJI-GRO VALUE 'GRO'. CGLKPIMO
- 88 LS-FL-RSA-EVEMAJI-PEC VALUE 'PEC'. CGLKPIMO
- 88 LS-FL-RSA-EVEMAJI-ISO VALUE 'ISO'. CGLKPIMO
- 88 LS-FL-RSA-EVEMAJI-VIDE VALUE ' '. CGLKPIMO
- *--- {D710P.DTEVMAJ } DT évènement MAJI CGLKPIMO
- 25 LS-RSA-DTEVMAJ PIC S9(09) COMP-3. CGLKPIMO
- *--- {D710P.ENFMAJI } Id enfant MAJI CGLKPIMO
- 25 LS-RSA-ENFMAJI PIC S9(7) COMP-3. CGLKPIMO
- * CGLKPIMO
- 25 LS-RSA-CDSADSAD. CGLKPIMO
- *--- {D710M.CDMRSRVM} MT revenu minimum garanti RSA CGLKPIMO
- 30 LS-RSA-CDMRSRVM PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710M.CDMRSPFA} MT prestations familiales RSA CGLKPIMO
- 30 LS-RSA-CDMRSPFA PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710M.CDMRSFLG} MT forfait aide logt CGLKPIMO
- 30 LS-RSA-CDMRSFLG PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710M.CDMRSRMN} MT ressources mensuelles RSA CGLKPIMO
- 30 LS-RSA-CDMRSRMN PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710M.CDMRSSOA} MT sanction alim obligat RSA CGLKPIMO
- 30 LS-RSA-CDMRSSOA PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710M.CDMRSRHS} MT réduction hospital. RSA CGLKPIMO
- 30 LS-RSA-CDMRSRHS PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710M.CDMRSABN} MT abattement neutral. RSA CGLKPIMO
- 30 LS-RSA-CDMRSABN PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710M.CDMRSCMI} MT cumul intégral RSA CGLKPIMO
- 30 LS-RSA-CDMRSCMI PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710M.CDCRMR11} MT assiette RSA PF CGLKPIMO
- 30 LS-RSA-CDCRMR11 PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- {D710M.CDCSISAF} CD situation familiale RSA fict CGLKPIMO
- 30 LS-RSA-CDCSISAF PIC X. CGLKPIMO
- * CGLKPIMO
- * ** groupe créé ici alors que l'on n'est ** CGLKPIMO
- * ** pas par prestations... ** CGLKPIMO
- 25 LS-RSA-CDSARSAR. CGLKPIMO
- *--- {D710M.CDMRSRCG} MT réduction CG RSA CGLKPIMO
- 30 LS-RSA-CDMRSRCG PIC S9(5)V9(2) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- SOUS-NIVEAU PERSONNES LS-RSA- CGLKPIMO
- 25 LS-RSA-PERS OCCURS 27 CGLKPIMO
- INDEXED BY IX-RSA-PER-1 CGLKPIMO
- IX-RSA-PER-2. CGLKPIMO
- *--- {D710P.DTSANRSA} Mois de fin délai sanction RSA CGLKPIMO
- 30 LS-RSA-DTSANRSA PIC S9(9) COMP-3. CGLKPIMO
- *--- {D710P.CDSANPER} Indic. personne à sanctionner CGLKPIMO
- 30 LS-RSA-CDSANPER PIC X(1). CGLKPIMO
- 88 LS-FL-RSA-CDSANPER-NON-POSIT VALUE SPACE. CGLKPIMO
- 88 LS-FL-RSA-CDSANPER-POSIT VALUE 'P'. CGLKPIMO
- *--- {D710P.CDORISAN} origine creance alimentaire CGLKPIMO
- 30 LS-RSA-CDORISAN PIC X(3). CGLKPIMO
- *--- {D710P.MTCUMRSA} Montant cumul intégral CGLKPIMO
- 30 LS-RSA-MTCUMRSA PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- {D710P.MTSANPER} Montant de la sanction CGLKPIMO
- 30 LS-RSA-MTSANPER PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- {D710P.MTREVNEU} Mtt des ressources neutralisees CGLKPIMO
- 30 LS-RSA-MTREVNEU PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- {D710P.CDREVACT} Indicateur "Revenus d'activité" CGLKPIMO
- 30 LS-RSA-CDREVACT PIC X. CGLKPIMO
- 88 LS-FL-RSA-CDREVACT-NON-POSIT VALUE SPACE. CGLKPIMO
- 88 LS-FL-RSA-CDREVACT-POSIT VALUE 'P'. CGLKPIMO
- *--- {D710P.MTABACG } Mtt accordé de l'abattement CG CGLKPIMO
- 30 LS-RSA-MTABACG PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- {D710M.CDMRPABN} MT abtt/neutral. RSA par pers. CGLKPIMO
- 30 LS-RSA-MRPABN PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- {D710P.MTRESENF} Mtt mensuel net pour notion de CGLKPIMO
- 30 LS-RSA-MTRESENF PIC S9(7)V99 COMP-3. CGLKPIMO
- 30 LS-RSA-MTRESENF-INDIC PIC X. CGLKPIMO
- 88 LS-FL-RSA-MTRESENF-NON-SIGNIF VALUE 'N'. CGLKPIMO
- 88 LS-FL-RSA-MTRESENF-SIGNIF VALUE 'O'. CGLKPIMO
- *--- {D710P.MTRESMEN} Montant mensuel net CGLKPIMO
- 30 LS-RSA-MTRESMEN PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- {D710P.MTMOYRA } Mtt moyen des revenus d'activ. CGLKPIMO
- 30 LS-RSA-MTMOYRA PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- {D710P.MTREXPEC } Montant 006/008 pris en compte CGLKPIMO
- 30 LS-RSA-MTREXPEC PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- {D710P.MTIJSAL } Mtt des IJ a considerer comme des salaires CGLKPIMO
- 30 LS-RSA-MTIJSAL PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- non alimenté pour RSA effet fige mais regle CGLKPIMO
- *--- commune à RSA. CGLKPIMO
- CGLKPIMO
- 30 LS-RSA-CDSAPSAP. CGLKPIMO
- *--- {D710M.CDMRPRMN} Montant ress mensuelle RSA CGLKPIMO
- 35 LS-RSA-CDMRPRMN PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- {D710M.CDMRPABN} Montant abattement rsa CGLKPIMO
- 35 LS-RSA-CDMRPABN PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- {D710M.CDMRPEXC} Montant revenu exceptionnel CGLKPIMO
- 35 LS-RSA-CDMRPEXC PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- Top pour màj SAPSAP (différenciation montants CGLKPIMO
- *--- nuls calculés et pas d'occurrence) CGLKPIMO
- 35 LS-RSA-TOP-MAJ-SAPSAP PIC S9(1) COMP-3. CGLKPIMO
- 88 FL-RSA-TOP-MAJ-SAPSAP-N VALUE 0. CGLKPIMO
- 88 FL-RSA-TOP-MAJ-SAPSAP-O VALUE 1. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- 25 LS-RSA-CDACLACL OCCURS 03 CGLKPIMO
- INDEXED BY IX-RSA-ACL-1 CGLKPIMO
- IX-RSA-ACL-2. CGLKPIMO
- 30 LS-RSA-DMODFI PIC S9(9) COMP-3. CGLKPIMO
- 30 LS-RSA-CDSAF. CGLKPIMO
- 35 LS-RSA-CDSAF-CNAPRS1 PIC X(3). CGLKPIMO
- 35 LS-RSA-CDSAF-RSNAPR1 PIC X(2). CGLKPIMO
- * CGLKPIMO
- *--- Indicateurs Agrément OK (D710P.CDAGROK) 1 occur. par enft.CGLKPIMO
- 15 LS-ZONE-AGR. CGLKPIMO
- 20 LS-ZONE-CDAGROK CGLKPIMO
- OCCURS 27 INDEXED BY IX-AGROK. CGLKPIMO
- 25 LS-CDAGROK PIC X. CGLKPIMO
- 88 FL-CDAGROK-OUI VALUE 'O'. CGLKPIMO
- 88 FL-CDAGROK-NON VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--- Demande de RMI déterminée ds cgrddrmi et utilisée en hiéraCGLKPIMO
- 15 LS-DTDDRMI PIC S9(9) COMP-3. CGLKPIMO
- *--- Demande de RSA déterminée ds cgrddRSA CGLKPIMO
- 15 LS-DTDDRSA PIC S9(9) COMP-3. CGLKPIMO
- 15 LS-DEM-CORRSA PIC X(3). CGLKPIMO
- 88 LS-FL-DEM-CORRSA-API VALUE 'API'. CGLKPIMO
- 88 LS-FL-DEM-CORRSA-RMI VALUE 'RMI'. CGLKPIMO
- 88 LS-FL-DEM-CORRSA-DEM VALUE 'DEM'. CGLKPIMO
- 15 F PIC X(3). CGLKPIMO
- 15 LS-DEM-DTRIDO PIC S9(9) COMP-3. CGLKPIMO
- *--- Demande prestation retenue pour le traitement en cours. DMH CGLKPIMO
- 15 LS-DEM-TRAITEE-SAMJX. CGLKPIMO
- 20 LS-DEM-TRAITEE-SAMX. CGLKPIMO
- 25 LS-DEM-TRAITEE-SA9 PIC 9(4). CGLKPIMO
- 25 LS-DEM-TRAITEE-M9 PIC 99. CGLKPIMO
- 20 LS-DEM-TRAITEE-SAM9 REDEFINES CGLKPIMO
- LS-DEM-TRAITEE-SAMX PIC 9(6). CGLKPIMO
- 20 LS-DEM-TRAITEE-J9 PIC 99. CGLKPIMO
- 15 LS-DEM-TRAITEE-SAMJ9 REDEFINES CGLKPIMO
- LS-DEM-TRAITEE-SAMJX PIC 9(8). CGLKPIMO
- * CGLKPIMO
- *--- Stockage des informations concernant la demande RSO CGLKPIMO
- 15 LS-INFO-DDE-RSO. CGLKPIMO
- 20 LS-NFICPN-DDE-RSO PIC S9(7) COMP-3. CGLKPIMO
- 20 LS-DEMRSO-DDE-RSO PIC S9(9) COMP-3. CGLKPIMO
- 20 LS-CDHIS001-DDE-RSO PIC S9(9) COMP-3. CGLKPIMO
- 20 LS-CDHIS002-DDE-RSO PIC S9(9) COMP-3. CGLKPIMO
- 20 LS-C24RMI-DDE-RSO PIC X. CGLKPIMO
- 20 LS-D24RMI-DDE-RSO PIC S9(9) COMP-3. CGLKPIMO
- CGLKPIMO
- *--- Stockage des informations concernant la demande AMI CGLKPIMO
- 15 LS-INFO-DDE-AMI. CGLKPIMO
- 20 LS-MID-DDDRAM PIC S9(9) COMP-3. CGLKPIMO
- 20 LS-MID-DCLDAM PIC S9(9) COMP-3. CGLKPIMO
- 20 LS-MID-CCLDAM PIC X(3). CGLKPIMO
- 20 LS-MID-NREFER PIC S9(7) COMP-3. CGLKPIMO
- 20 LS-MID-CNAREF PIC X(1). CGLKPIMO
- 20 LS-MID-CLPBAM PIC X(2). CGLKPIMO
- 88 LS-MID-CLPBAM-BS VALUE 'BS'. CGLKPIMO
- * CGLKPIMO
- 15 LS-MDROPI-PJ4N3-REDUIT PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 15 LS-MDROPI-PJ4N3-RED-EF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 15 LS-MDROPI-PJ4N3-ENT-EF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- * CGLKPIMO
- 15 LS-MDROPI-PJ4N4-REDUIT PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 15 LS-MDROPI-PJ4N4-RED-EF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 15 LS-MDROPI-PJ4N4-ENT-EF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- * CGLKPIMO
- 15 LS-MDROPI-PJ5N1-REDUIT PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 15 LS-MDROPI-PJ5N1-RED-EF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 15 LS-MDROPI-PJ5N1-ENT-EF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- * CGLKPIMO
- 15 LS-MDROPI-PJ5N2-REDUIT PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 15 LS-MDROPI-PJ5N2-RED-EF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 15 LS-MDROPI-PJ5N2-ENT-EF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- * CGLKPIMO
- 15 LS-MDROPI-PJ5N3-REDUIT PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 15 LS-MDROPI-PJ5N3-RED-EF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 15 LS-MDROPI-PJ5N3-ENT-EF PIC S9(5)V9(2) COMP-3.CGLKPIMO
- *--- Montants AAH-MIN pour AHxN1/N6 CGLKPIMO
- 15 LS-MT-AAH-MIN-AH1N1 PIC S9(7)V99 COMP-3. CGLKPIMO
- 15 LS-MT-AAH-MIN-AH1N6 PIC S9(7)V99 COMP-3. CGLKPIMO
- 15 LS-MT-AAH-MIN-AH2N1 PIC S9(7)V99 COMP-3. CGLKPIMO
- 15 LS-MT-AAH-MIN-AH2N6 PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Initialisation mensuelle LS-CP-DIVERS CGLKPIMO
- 15 LS-CP-DIVERS. CGLKPIMO
- *--- Cpteur d'enfts de - de 03 ans D710M-QTENF3A CGLKPIMO
- *--- { D710P.QTENF3A } CGLKPIMO
- *- 20 LS-QTENF3A PIC 99. CGLKPIMO
- *--- Compteur d'enfants decedes - D710P.NBENCQ01 CGLKPIMO
- 20 LS-NBENCQ01-ENFDCD PIC 99. CGLKPIMO
- *--- Compteur de perso. pour surface CGLKPIMO
- 20 LS-CP-NBPERS-SURF PIC 99. CGLKPIMO
- *--- QT occur entité mr/mme CGLKPIMO
- 20 LS-CP-MRMME PIC S9 COMP-3. CGLKPIMO
- *--- QT occur mr/mme présent ressource* CGLKPIMO
- 20 LS-CP-MRMME-RESS PIC S9 COMP-3. CGLKPIMO
- *--- QT occur mr/mme présent ressource RMI CGLKPIMO
- 20 LS-CP-MRMME-RESS-RMI PIC S9 COMP-3. CGLKPIMO
- *--- QT occur mr/mme présent ressource PAF CGLKPIMO
- 20 LS-CP-MRMME-RESS-PAF PIC S9 COMP-3. CGLKPIMO
- *--- Charges Déduct./Foyer Ress. Réelles CGLKPIMO
- 20 LS-MT-CHA1-FOYER PIC S9(7)V9(2) COMP-3.CGLKPIMO
- *--- Charges Déduct./Foyer Ress. Evaluées CGLKPIMO
- 20 LS-MT-CHA2-FOYER PIC S9(7)V9(2) COMP-3.CGLKPIMO
- *--- QT enfants à charge CGOD CGLKPIMO
- 20 LS-CP-ENF-CHAR-CGOD PIC S9(03) COMP-3. CGLKPIMO
- *--- QT enfants AEC 4 mois-3 ans CGLKPIMO
- 20 LS-CP-ENF-AEC-4M-3ANS PIC S9(03) COMP-3. CGLKPIMO
- *--- QT enfants AEC 3-20 ans CGLKPIMO
- 20 LS-CP-ENF-AEC-3-20ANS PIC S9(03) COMP-3. CGLKPIMO
- *--- QT enfants AEC 10-15 ans CGLKPIMO
- 20 LS-CP-ENF-AEC-10-15ANS PIC S9(03) COMP-3. CGLKPIMO
- *--- QT enfants AEC 15-20 ans CGLKPIMO
- 20 LS-CP-ENF-AEC-15-20ANS PIC S9(03) COMP-3. CGLKPIMO
- *--- QT mensualités calculées CGLKPIMO
- 20 LS-CP-MENSUALITES PIC S9(03) COMP-3. CGLKPIMO
- *--- QT d'abattements fiscaux spéciaux. (ressources) CGLKPIMO
- 20 LS-CP-ABATT-FISC-SPECIAUX PIC S9(03) COMP-3. CGLKPIMO
- *--- QT enfants moins de 7 ans au 31/12 AR (ressources) CGLKPIMO
- 20 LS-CP-ENF-MOINS-7ANS PIC S9(03) COMP-3. CGLKPIMO
- *--- QT enfants moins de 7 ans AR - 1 CGLKPIMO
- 20 LS-CP-ENF-MOINS-7ANS-AR-1 PIC S9(03) COMP-3. CGLKPIMO
- *--- CGLKPIMO
- 20 LS-CP-ENF-MOINS-XANS PIC S9(03) COMP-3. CGLKPIMO
- *--- QT Parts du quotient familial CGLKPIMO
- 20 LS-CP-PART-QF PIC S99V9 COMP-3. CGLKPIMO
- *--- QT Parts du quotient familial AAV CGLKPIMO
- 20 LS-CP-PART-QF-AAV PIC S99V9 COMP-3. CGLKPIMO
- *--- QT Enfants handicapés CGLKPIMO
- 20 LS-CP-ENF-HAND PIC S9(03) COMP-3. CGLKPIMO
- *--- QT Enfants à charge Pinna pour ARS CGLKPIMO
- 20 LS-CP-ENF-ARS-PINNA PIC S9(03) COMP-3. CGLKPIMO
- *--- QT Enfants à charge au sens logement CGLKPIMO
- 20 LS-CP-ENF-CHAR-LOGT PIC S9(03) COMP-3. CGLKPIMO
- *--- Compteurs de personnes handicapées CGLKPIMO
- 20 LS-CP-HANDICAP PIC S9(03) COMP-3. CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- *** A998.CCR1308B : Zone devant disparaitre mais impossible * CGLKPIMO
- *** (le 25/04/02) à cause de la SIMULATION * CGLKPIMO
- * Compteurs d'occurrence AAS CGLKPIMO
- 20 LS-NB-OCC-AAS PIC S9(03) COMP-3. CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- *--- Nombre de droits ARS CGLKPIMO
- 20 LS-QDRTPR-ARS PIC S9(03) COMP-3. CGLKPIMO
- *--- Compteurs nombre de droits ars an 2000 CGLKPIMO
- 20 LS-QOCCPR-ARSN1N3 PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-QDRTPR-ARSN2N4 PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-QOCCUE-ARSN5 PIC S9(03) COMP-3. CGLKPIMO
- *--- Compteurs nombre de droits ars an 2008 CGLKPIMO
- 20 LS-NBDROITS-ARSN1N3-T1-NP PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN2N4-T1-NP PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN1N3-T2-NP PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN2N4-T2-NP PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN1N3-T3-NP PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN2N4-T3-NP PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN1N3-T1-P PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN2N4-T1-P PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN1N3-T2-P PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN2N4-T2-P PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN1N3-T3-P PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN2N4-T3-P PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN5-T1 PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN5-T2 PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-NBDROITS-ARSN5-T3 PIC S9(03) COMP-3. CGLKPIMO
- *--- Compteur d'inassidus CGLKPIMO
- 20 LS-CP-CACTIV-INASSIDU PIC S9(03) COMP-3. CGLKPIMO
- *--- Compteur de non pour AL APL CGLKPIMO
- 20 LS-CP-NON-POUR-AL-APL PIC S9(03) COMP-3. CGLKPIMO
- *--- Compteur de mois de naissance paje. CGLKPIMO
- 20 LS-NBPJ2Q01-NB-NAIS-PAJE PIC 99. CGLKPIMO
- *--- Compteur d'enfants adoptés simultanément. CGLKPIMO
- 20 LS-NBADPQ01-ADOPT-SIMULTA PIC 99. CGLKPIMO
- *--- Compteur de jumeaux. CGLKPIMO
- 20 LS-NBJUMQ01-NB-JUMEAUX PIC 99. CGLKPIMO
- *--- FILLER DISPONIBLE CGLKPIMO
- 20 FILLER PIC X(97). CGLKPIMO
- * CGLKPIMO
- *--- Somme Quantité Heures Spécifiques cumulées CMG Structure CGLKPIMO
- *--- (CDMSC) = CDQHSSTR + Emploi Direct (CDMGC) = CDQHSEMD CGLKPIMO
- *--- pour tous les enfants sur le MT CGLKPIMO
- 15 LS-QHS-TOT-MT PIC 999. CGLKPIMO
- * CGLKPIMO
- *--- Nombre total des jours AJPP à payer {D710P.QTJRSAJP} CGLKPIMO
- 15 LS-QTJRSAJP PIC 999. CGLKPIMO
- *--- Indicateur présence jours AJPP {D710P.CDJRSPP} CGLKPIMO
- 15 LS-CDJRSPP PIC X. CGLKPIMO
- 88 LS-CDJRSPP-OUI VALUE 'O'. CGLKPIMO
- 88 LS-CDJRSPP-NON VALUE 'N'. CGLKPIMO
- *--- Indicateur absence présence parentale {D710P.CDABSPP} CGLKPIMO
- 15 LS-CDABSPP PIC X. CGLKPIMO
- 88 LS-CDABSPP-OUI VALUE 'O'. CGLKPIMO
- 88 LS-CDABSPP-NON VALUE 'N'. CGLKPIMO
- *--- Indicateur activité non conforme {D710P.CDACTAJP} CGLKPIMO
- 15 LS-CDACTAJP PIC X. CGLKPIMO
- 88 LS-CDACTAJP-OUI VALUE 'O'. CGLKPIMO
- 88 LS-CDACTAJP-NON VALUE 'N'. CGLKPIMO
- *--- Indicateur présence DPT {D710P.CDPRDPT} CGLKPIMO
- 15 LS-CDPRDPT PIC X. CGLKPIMO
- 88 LS-CDPRDPT-OUI VALUE 'O'. CGLKPIMO
- 88 LS-CDPRDPT-NON VALUE 'N'. CGLKPIMO
- *--- Indicateur par PELEM AJPP- AJ1N1 - AJ2N1 CGLKPIMO
- *------------------------------------------------- CGLKPIMO
- 15 LS-AJP-CNAPRG-TAB. CGLKPIMO
- 20 LS-AJP-CNAPRG-TAB-OCC OCCURS 2 CGLKPIMO
- INDEXED BY IX-AJP-CNAPRG-1 CGLKPIMO
- IX-AJP-CNAPRG-2. CGLKPIMO
- 25 LS-AJP-CNAPRG. CGLKPIMO
- 30 LS-AJP-CNAPRS PIC X(3). CGLKPIMO
- 30 LS-AJP-RSNAPR PIC X(2). CGLKPIMO
- * CGLKPIMO
- *--- L'alimentation de LS-AJP-CNAPRG-TOUTES est faite CGLKPIMO
- *--- par LT-AJP-CNAPRG-TOUTES dans la copie applicative CGLKPIMO
- *--- des services, tout comme le LS-IN-AJP-CNAPRG-MAX CGLKPIMO
- *--- Ces zones LT-AJP... sont définies dans la copie workingCGLKPIMO
- *--- des modules SERVICE. CGLKPIMO
- 15 LS-AJP-CNAPRG-TOUTES REDEFINES CGLKPIMO
- LS-AJP-CNAPRG-TAB PIC X(10). CGLKPIMO
- *--- Nombre max d'occ. des tableaux LS-AFR- CGLKPIMO
- 15 LS-IN-AJP-CNAPRG-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- Indicateurs AJPP par pelems CGLKPIMO
- 15 LS-AJP-INDIC-TAB. CGLKPIMO
- 20 LS-AJP-INDIC-TAB-OCC OCCURS 2 CGLKPIMO
- INDEXED BY IX-AJP-IND-1 CGLKPIMO
- IX-AJP-IND-2. CGLKPIMO
- *--- Indicateur non cumul complément frais {D710P.CDCUMCF} CGLKPIMO
- 25 LS-CDCUMCF PIC X. CGLKPIMO
- 88 LS-CDCUMCF-OUI VALUE 'O'. CGLKPIMO
- 88 LS-CDCUMCF-NON VALUE 'N'. CGLKPIMO
- *--- Indicateur absence bénéfice PCH {D710P.CDABSPCH) CGLKPIMO
- 15 LS-CDABSPCH PIC X. CGLKPIMO
- 88 FL-CDABSPCH-OUI VALUE 'O'. CGLKPIMO
- 88 FL-CDABSPCH-NON VALUE 'N'. CGLKPIMO
- *--- Indicateur de non affiliation {D710P.CDCNAFF} CGLKPIMO
- 15 LS-CDCNAFF PIC X. CGLKPIMO
- 88 FL-CDCNAFF-OUI VALUE 'O'. CGLKPIMO
- 88 FL-CDCNAFF-NON VALUE 'N'. CGLKPIMO
- *--- Indicateur 1 enfant DOM {D710P.CD1ENDO} CGLKPIMO
- 15 LS-CD1ENDO PIC 9. CGLKPIMO
- 88 FL-CD1ENDO-NON VALUE 0. CGLKPIMO
- 88 FL-CD1ENDO-OUI VALUE 1. CGLKPIMO
- *--- Indicateur présence enfant handicapé {D710P.CDHANDI} CGLKPIMO
- 15 LS-CDHANDI PIC X. CGLKPIMO
- 88 FL-CDHANDI-PRESENCE VALUE 'O'. CGLKPIMO
- 88 FL-CDHANDI-ABSENCE VALUE 'N'. CGLKPIMO
- *--- Bénéficiaires AJPP {D710P.NMENFAJP} CGLKPIMO
- 15 LS-NMENFAJP PIC S9(7) COMP-3 CGLKPIMO
- OCCURS 27 CGLKPIMO
- INDEXED BY IX-AJPP. CGLKPIMO
- *--- Indicateur V {D710P.CDVRMS} CGLKPIMO
- 15 LS-CDVRMS PIC X. CGLKPIMO
- 88 FL-CDVRMS-OUI VALUE 'O'. CGLKPIMO
- 88 FL-CDVRMS-NON VALUE 'N'. CGLKPIMO
- *--- Indicateur CO {D710P.CDRESULT} CGLKPIMO
- 15 LS-CDRESULT PIC XX. CGLKPIMO
- 88 FL-CDRESULT-CO VALUE 'CO'. CGLKPIMO
- *--- Montant Revenu minimum garanti RSA {D710P.MTRMGRSA} CGLKPIMO
- 15 LS-MTRMGRSA PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Montant Revenu Garanti RSM {D710P.MTRGRSM} CGLKPIMO
- 15 LS-MTRGRSM PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Montant PF RSM {D710P.MTPFRSM} CGLKPIMO
- 15 LS-MTPFRSM PIC S9(7)V99 COMP-3. CGLKPIMO
- * CGLKPIMO
- 15 LS-DOSZZZ. CGLKPIMO
- *--- Top de maj doszzz CGLKPIMO
- 20 LS-TOP-MAJ-DOS-ZZZ PIC 9. CGLKPIMO
- *--- Top de maj doszzz - CGLKPIMO
- *--- {D710M.CDDINCRA} DT initiale cplt rev act CGLKPIMO
- 20 LS-TOP-MAJ-DOS-CDDINCRA PIC X. CGLKPIMO
- 88 LS-TOP-MAJ-DOS-CDDINCRA-VRAI VALUE 'V'. CGLKPIMO
- 88 LS-TOP-MAJ-DOS-CDDINCRA-FAUX VALUE 'F' ' '. CGLKPIMO
- * CGLKPIMO
- 15 LS-MRSMRS. CGLKPIMO
- *--- Top de maj MRSMRS CGLKPIMO
- 20 LS-TOP-MAJ-MRSMRS PIC 9. CGLKPIMO
- *--- Mtt revenu minimum rsa CGLKPIMO
- 20 LS-MRS-MRSRVM PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt pente rsa CGLKPIMO
- 20 LS-MRS-MRSPNT PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt bonus rsa CGLKPIMO
- 20 LS-MRS-MRSBNS PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt revenu garanti rsa CGLKPIMO
- 20 LS-MRS-MRSRVG PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt prest. familiales rsa CGLKPIMO
- 20 LS-MRS-MRSPFA PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt forfait logement rsa CGLKPIMO
- 20 LS-MRS-MRSFLG PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt ressources mensuelles rsa CGLKPIMO
- 20 LS-MRS-MRSRMN PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt sanction oblig. alim. rsa CGLKPIMO
- 20 LS-MRS-MRSSOA PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt réduction hospitalière rsa CGLKPIMO
- 20 LS-MRS-MRSRHS PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt réduction CG RSA CGLKPIMO
- 20 LS-MRS-MRSRCG PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt socle rsa CGLKPIMO
- 20 LS-MRS-MRSSCL PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt chapeau rsa CGLKPIMO
- 20 LS-MRS-MRSCHP PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt abattement / neutral. rsa CGLKPIMO
- 20 LS-MRS-MRSABN PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt cumul intégral rsa CGLKPIMO
- 20 LS-MRS-MRSCMI PIC S9(7)V99 COMP-3. CGLKPIMO
- * CGLKPIMO
- 15 LS-DOHDAR. CGLKPIMO
- *--- Mtt abattement double résidence/charge de famille -CDDOH-CGLKPIMO
- 20 LS-DOH-MABRES PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Montant abattement double activité/personne isolée -CDDOH-CGLKPIMO
- 20 LS-DOH-MABDAC PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt abattement PA/PI ressources réelles -CDDOH-CGLKPIMO
- 20 LS-DOH-MARPAP PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt abattement PA/PI ressources évaluées -CDDOH-CGLKPIMO
- 20 LS-DOH-MAEPAP PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt réel frais de garde retenus -CDDOH-CGLKPIMO
- 20 LS-DOH-MRFRGA PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Mtt évalué frais de garde retenus -CDDOH-CGLKPIMO
- 20 LS-DOH-MEFRGA PIC S9(7)V99 COMP-3. CGLKPIMO
- * CGLKPIMO
- 15 LS-DOHAMI. CGLKPIMO
- *--- Quantité enfants retenus AMI - CDDOH - gdd AMI CGLKPIMO
- 20 LS-DOH-QENFAM PIC S9(3) COMP-3. CGLKPIMO
- *--- Infos table CDDOH - gdd EEO --* CGLKPIMO
- 15 LS-DOHEEO. CGLKPIMO
- *--- CD partage obligatoire PPE - CDDOH - gdd EEO CGLKPIMO
- 20 LS-DOH-EEO-CPOBPE PIC X(1). CGLKPIMO
- 88 LS-DOH-EEO-CPOBPE-O VALUE 'O'. CGLKPIMO
- 88 LS-DOH-EEO-CPOBPE-N VALUE 'N'. CGLKPIMO
- 88 LS-DOH-EEO-CPOBPE-SPACES VALUE SPACES. CGLKPIMO
- *--- DD partage obligatoire PPE - CDDOH - gdd EEO CGLKPIMO
- 20 LS-DOH-EEO-EPOBPE PIC S9(9) COMP-3. CGLKPIMO
- *--- DF partage obligatoire PPE - CDDOH - gdd EEO CGLKPIMO
- 20 LS-DOH-EEO-FPOBPE PIC S9(9) COMP-3. CGLKPIMO
- *--- --* CGLKPIMO
- *--- Zone pour prestations familiales françaises (PFE) --* CGLKPIMO
- *--- Mis en place en V03800-A998.CCR2100B CEE/Gesdro --* CGLKPIMO
- *--- Table CDPFF - Ent. PFF - Gdd PFF - Part PF Française--* CGLKPIMO
- 15 LS-PFFPFF. CGLKPIMO
- 20 LS-PFFPFF-OCC OCCURS 50 CGLKPIMO
- INDEXED BY IX-PFFPFF. CGLKPIMO
- *-- *-- N° Fictif Enfant --* CGLKPIMO
- 25 LS-PFF-NFICPN PIC S9(7) COMP-3. CGLKPIMO
- *-- *-- Cd Nature Prestation PF --* CGLKPIMO
- 25 LS-PFF-CNAPRS PIC X(3). CGLKPIMO
- *-- *-- Montant Part PF Françaises --* CGLKPIMO
- 25 LS-PFF-MPARPF PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *-- *-- Nombre d'occurences maximum --* CGLKPIMO
- 20 LS-IX-PFFPFF-MAX PIC S9(3) COMP-3. CGLKPIMO
- *-------------------------------------------------------------* CGLKPIMO
- 15 LS-PRVPRV. CGLKPIMO
- 20 LS-PRVPRV-OCC OCCURS 2 CGLKPIMO
- INDEXED BY IX-PRVPRV-OCC. CGLKPIMO
- * *-- Cd Prestation virtuelle CGLKPIMO
- 25 LS-PRV-CPREVI PIC X(3). CGLKPIMO
- * *-- Montant ALF Virtuelle CGLKPIMO
- 25 LS-PRV-MPREVI PIC S9(5)V9(2) COMP-3. CGLKPIMO
- * *-- Code Nature Prestation Virtuelle CGLKPIMO
- 25 LS-PRV-CNAPRV PIC X(3). CGLKPIMO
- * *-- Type Prestation Virtuelle CGLKPIMO
- 25 LS-PRV-CTYPRV PIC X(3). CGLKPIMO
- 20 LS-IX-PRVPRV-OCC-MAX PIC S9(3) COMP-3. CGLKPIMO
- *-------------------------------------------------------------* CGLKPIMO
- 15 LS-PRIPRI. CGLKPIMO
- 20 LS-PRIPRI-OCC OCCURS 05 INDEXED BY IX-PRI-1. CGLKPIMO
- * *-- Cd prestation CGLKPIMO
- 25 LS-PRI-CNAPRS PIC X(3). CGLKPIMO
- * *-- Rg prestation CGLKPIMO
- 25 LS-PRI-RSNAPR PIC X(2). CGLKPIMO
- * *-- montant prestation < seuil CGLKPIMO
- 25 LS-PRI-MPINFS PIC S9(3)V9(2) COMP-3. CGLKPIMO
- * *-- montant assiette ALF Virtuelle CGLKPIMO
- 15 LS-MTASALFV PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * *-- code soumission droits/devoirs CGLKPIMO
- 15 LS-CSODEV PIC X CGLKPIMO
- OCCURS 2 INDEXED BY IX-CSODEV. CGLKPIMO
- 88 LS-FL-CSODEV-S VALUE 'S'. CGLKPIMO
- 88 LS-FL-CSODEV-N VALUE 'N'. CGLKPIMO
- *-----------------------------------------------------------------CGLKPIMO
- *--- Majoration CFA - CFAD2/CFAN2 - Nouveau à compter de 2014/04 CGLKPIMO
- 15 LS-DOHMCF-MAJCFA PIC S9(5)V9(2) COMP-3. CGLKPIMO
- * CGLKPIMO
- *------- L'indicateur CDMAJOCF, utilisé dans la règle X45 (hiera),CGLKPIMO
- * est mis à jour dans les règles W24 et W41 appelées CGLKPIMO
- * respectivement dans les canevas CFAN1(N2) et CFAD1(D2). CGLKPIMO
- * Ces canevas sont exclusifs : METRO ou DOM. CGLKPIMO
- * => la gestion actuelle peut-être conservée, il n'y a pas lieu CGLKPIMO
- * de mettre en place une gestion par PELEM. CGLKPIMO
- 15 LS-CDMAJOCF PIC X. CGLKPIMO
- *--- Valeur significative de positionné à Oui CGLKPIMO
- 88 FL-CDMAJOCF-POSIT-OUI VALUE 'O'. CGLKPIMO
- *-----------------------------------------------------------------CGLKPIMO
- *--- Mt ASF revalorisation exceptionnelle - à compter de 2014/04 CGLKPIMO
- 15 LS-DOHASX-MASREX PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *-----------------------------------------------------------------CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- *--- INFORMATIONS CONCERNANT REFORME AAH - 1911B CGLKPIMO
- *--- Trimestrialisation des Revenus CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- 10 LS-REFORME-AAH. CGLKPIMO
- *-- *-- Cd nature PELEM CGLKPIMO
- 15 LS-CNAPRG-AAH. CGLKPIMO
- *-- *-- Cd nature Prestation --* CGLKPIMO
- 20 LS-CNAPRS-AAH PIC X(3). CGLKPIMO
- *-- *-- Cd sous nature Prestation --* CGLKPIMO
- 20 LS-RSNAPR-AAH PIC X(2). CGLKPIMO
- *--- Indice pelem AAH étudiée (AH1N6 ou AH2N6) CGLKPIMO
- 15 LS-IN-PELEM-AAH PIC S9(3) COMP-3. CGLKPIMO
- *-- *-- D710P.IDDEMAH1 Zone stockage demandeur AH1 CGLKPIMO
- 15 LS-IDDEMAH1 PIC S9(7) COMP-3. CGLKPIMO
- *-- *-- D710P.IDDEMAH2 Zone stockage demandeur AH2 CGLKPIMO
- 15 LS-IDDEMAH2 PIC S9(7) COMP-3. CGLKPIMO
- *-- *-- D710P.DDTRIRES Mois début du trimestre AAH CGLKPIMO
- 15 LS-DDTRIRES-AAH PIC S9(9) COMP-3. CGLKPIMO
- *-- *-- D710P.DFTRIRES Mois fin du trimestre AAH CGLKPIMO
- 15 LS-DFTRIRES-AAH PIC S9(9) COMP-3. CGLKPIMO
- *-- *-- Booléen Ressources Trimestrielles AAH non fournies CGLKPIMO
- 15 LS-RESSTRIAAH PIC X. CGLKPIMO
- 88 LS-FL-RESSTRIAAH-N-FOURNI-VRAI VALUE 'V'. CGLKPIMO
- 88 LS-FL-RESSTRIAAH-N-FOURNI-FAUX VALUE 'F' ' '. CGLKPIMO
- *-- *-- D710P.NBPAPIAH Cpt d'abatt. fiscaux PA/PI AAH CGLKPIMO
- 15 LS-NBPAPIAH PIC S9(9) COMP-3. CGLKPIMO
- *-- *-- D710P.MTRNPFO Mt des revenus nets perçus CGLKPIMO
- 15 LS-MTRNPFO PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTCHAAH Mt des charges déductibles CGLKPIMO
- 15 LS-MTCHAAH PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTRNGAAH Mt revenu net global du ménage AAH CGLKPIMO
- 15 LS-MTRNGAAH PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTAPAPIH Mt abattement PA/PI AAH CGLKPIMO
- 15 LS-MTAPAPIH PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.CDAAHANN Indicateur AAH annuelle CGLKPIMO
- 15 LS-CDAAHANN PIC X. CGLKPIMO
- 88 LS-FL-CDAAHANN-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDAAHANN-NON VALUE 'N' ' '. CGLKPIMO
- 88 LS-FL-CDAAHANN-POSIT VALUE 'O'. CGLKPIMO
- CGLKPIMO
- *-- Positionnement par PELEM AAH CGLKPIMO
- 15 LS-IN-MAX-PELEM-AAH PIC S9(3) COMP-3. CGLKPIMO
- 15 LS-TABLEAU-PELEM-AAH. CGLKPIMO
- 20 LS-PELEM-AAH PIC X(5) CGLKPIMO
- OCCURS 4 INDEXED BY IX-PELEM-AAH.CGLKPIMO
- 15 LS-PELEM-AAH-TOUS REDEFINES LS-TABLEAU-PELEM-AAH CGLKPIMO
- PIC X(20). CGLKPIMO
- CGLKPIMO
- CGLKPIMO
- 15 LS-MR-MME OCCURS 2 INDEXED BY IX-MR-MME. CGLKPIMO
- *-- *-- D710P.MTNAT001 Montant 001 à retenir CGLKPIMO
- 20 LS-MTNAT001 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *ù- *-- D710P.MTNAT450 Montant 450 à retenir CGLKPIMO
- *ù 20 LS-MTNAT450 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNAT452 Montant 452 à retenir CGLKPIMO
- 20 LS-MTNAT452 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNAT010 Montant 010 à retenir CGLKPIMO
- 20 LS-MTNAT010 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *ù- *-- D710P.MTNAT011 Montant 011 à retenir CGLKPIMO
- *ù 20 LS-MTNAT011 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNAT012 Montant 012 à retenir CGLKPIMO
- 20 LS-MTNAT012 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNAT022 Montant 022 à retenir CGLKPIMO
- 20 LS-MTNAT022 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNAT023 Montant 023 à retenir CGLKPIMO
- 20 LS-MTNAT023 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNAT025 Montant 025 à retenir CGLKPIMO
- 20 LS-MTNAT025 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNAT026 Montant 026 à retenir CGLKPIMO
- 20 LS-MTNAT026 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *ù- *-- D710P.MTNAT029 Montant 029 à retenir CGLKPIMO
- *ù 20 LS-MTNAT029 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNAT030 Montant 030 à retenir CGLKPIMO
- 20 LS-MTNAT030 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNAT451 Montant 451 à retenir CGLKPIMO
- 20 LS-MTNAT451 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNAT040 Montant 040 à retenir CGLKPIMO
- 20 LS-MTNAT040 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNAT041 Montant 041 à retenir CGLKPIMO
- 20 LS-MTNAT041 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *ù- *-- D710P.MTNAT043 Montant 043 à retenir CGLKPIMO
- *ù 20 LS-MTNAT043 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTSALASS Mt des salaires et assimilés CGLKPIMO
- 20 LS-MTSALASS PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTHEUSUP Mt heures complémentaires/supp. CGLKPIMO
- 20 LS-MTHEUSUP PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTPENS Mt des pensions CGLKPIMO
- 20 LS-MTPENS PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTMAJO Mt majo pension/retraite non impo CGLKPIMO
- 20 LS-MTMAJO PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *ù- *-- D710P.MTVEUVA Mt allocation veuvage CGLKPIMO
- *ù 20 LS-MTVEUVA PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTEXCLU Mt . comparer pour exclusion peti CGLKPIMO
- 20 LS-MTEXCLU PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTPENSEX Mt petites pensions . exclure CGLKPIMO
- 20 LS-MTPENSEX PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTREVNET Mt revenu net per u . comparer av CGLKPIMO
- 20 LS-MTREVNET PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTRENVIA Mt rentes viagères CGLKPIMO
- 20 LS-MTRENVIA PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTREVETI Mt des revenus ETI CGLKPIMO
- 20 LS-MTREVETI PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTAUTREV Mt des autres revenus CGLKPIMO
- 20 LS-MTAUTREV PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *ù- *-- D710P.MTTOTAUT Mt autres revenus + prélvements CGLKPIMO
- *ù 20 LS-MTTOTAUT PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTEFCAT Mt EF ESAT CGLKPIMO
- 20 LS-MTEFCAT PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTSALABA Mt des salaires et assimilés CGLKPIMO
- ** 20 LS-MTSALABA PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTSALABC Mt des salaires IJSS avec abatt. CGLKPIMO
- ** 20 LS-MTSALABC PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNEUAAH Mt revenus d'activité neutralisés CGLKPIMO
- 20 LS-MTNEUAAH PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNEUTRA Mt rev. neut. restitués en consultCGLKPIMO
- 20 LS-MTNEUTRA PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTIJATMP Mt IJSS accident trav/maladie profCGLKPIMO
- 20 LS-MTIJATMP PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTIJATMA Mt IJSS AT/MP avec abattement CGLKPIMO
- 20 LS-MTIJATMA PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTABATIJ Mt abatt. 10% sur IJSS AT/MP CGLKPIMO
- 20 LS-MTABATIJ PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTABATIH Mt abatt. 10% sur IJSS AT/MP ap30%CGLKPIMO
- 20 LS-MTABATIH PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.CNC4AB30 Mt abatt. 30% sur ETI CGLKPIMO
- 20 LS-CNC4AB30 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTABA10 Mt abatt. 10% pensions CGLKPIMO
- 20 LS-MTABA10 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTNEUAHA Mt revenus act neutralisé CGLKPIMO
- 20 LS-MTNEUAHA PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.CDPAPIAH Indic. de droit è abbatt. CGLKPIMO
- *-- *-- fiscal PA/PI AAH . CGLKPIMO
- 20 LS-CDPAPIAH PIC X. CGLKPIMO
- 88 LS-FL-CDPAPIAH-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDPAPIAH-NON VALUE 'N' ' '. CGLKPIMO
- *-- *-- D710P.CDNCANN Indicateur NC annuelle CGLKPIMO
- 20 LS-CDNCANN PIC X. CGLKPIMO
- 88 LS-FL-CDNCANN-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDNCANN-NON VALUE 'N' ' '. CGLKPIMO
- *-- *-- D710P.CDNAANN Indicateur NA annuelle CGLKPIMO
- 20 LS-CDNAANN PIC X. CGLKPIMO
- 88 LS-FL-CDNAANN-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDNAANN-NON VALUE 'N' ' '. CGLKPIMO
- *-- *-- D710P.CDNCTRI Indicateur NC trimestrielle CGLKPIMO
- 20 LS-CDNCTRI PIC X. CGLKPIMO
- 88 LS-FL-CDNCTRI-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDNCTRI-NON VALUE 'N' ' '. CGLKPIMO
- *-- *-- D710P.CDNATRI Indicateur NA trimestrielle CGLKPIMO
- 20 LS-CDNATRI PIC X. CGLKPIMO
- 88 LS-FL-CDNATRI-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDNATRI-NON VALUE 'N' ' '. CGLKPIMO
- *-- *-- D710P.CDABATR Indicateur abatt proport. trimes. CGLKPIMO
- 20 LS-CDABATR PIC X. CGLKPIMO
- 88 LS-FL-CDABATR-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDABATR-NON VALUE 'N' ' '. CGLKPIMO
- *-- *-- D710P.CDABAAN Indicateur abatt proport. annuel CGLKPIMO
- 20 LS-CDABAAN PIC X. CGLKPIMO
- 88 LS-FL-CDABAAN-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDABAAN-NON VALUE 'N' ' '. CGLKPIMO
- 88 LS-FL-CDABAAN-POSIT VALUE 'O'. CGLKPIMO
- *-- *-- D710P.TXABAAH Tx abattement proportionnel CGLKPIMO
- 20 LS-TXABAAH PIC S9(3)V9(4) COMP-3. CGLKPIMO
- CGLKPIMO
- 20 LS-PELEM-AAH-1 CGLKPIMO
- OCCURS 4 INDEXED BY IX-PELEM-AAH-1. CGLKPIMO
- *-- *-- D710P.MTSALH CGLKPIMO
- *-- *-- Mt des salaires et assimil.avec pec cumul aah CGLKPIMO
- 25 LS-MTSALH PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTSALHB CGLKPIMO
- *-- *-- Mt de 70% salaires + chômage avec cumul AAH CGLKPIMO
- 25 LS-MTSALHB PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTSALHC CGLKPIMO
- *-- *-- Mt de 70% salaires + 70% chômage avec cumul AAHCGLKPIMO
- 25 LS-MTSALHC PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTETIH CGLKPIMO
- *-- *-- Mt des revenus ETI avec pec cumul CGLKPIMO
- 25 LS-MTETIH PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTETIHB CGLKPIMO
- *-- *-- Mt 70% revenus ETI avec cumul AAH CGLKPIMO
- 25 LS-MTETIHB PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTRAAHTR CGLKPIMO
- *-- *-- Montant des ressources AAH CGLKPIMO
- 25 LS-MTRAAHTR PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTCHO - ajout suite CC.A998.BUGSC5343 CGLKPIMO
- *-- *-- Montant Ind.chômage avec abattement 10 % CGLKPIMO
- 25 LS-MTCHO PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTCHOC- ajout suite CC.A998.BUGSC5343 CGLKPIMO
- *-- *-- Montant Ind.chômage avec abattement 30% et 10% CGLKPIMO
- 25 LS-MTCHOC PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- Montant salaires + assimilés CGLKPIMO
- 25 LS-SAL PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- Montant IJ Chômage CGLKPIMO
- 25 LS-CHOM PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- Montant IJ ATMP CGLKPIMO
- 25 LS-ATMP PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- Montant revenus ETI CGLKPIMO
- 25 LS-ETI PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- Montant salaires + ass. avec abatt 30% CGLKPIMO
- 25 LS-SAL-30 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- Montant salaires + ass. avec abatt 30% /001 CGLKPIMO
- 25 LS-SAL-30CP PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- Montant IJ chômage avec abatt 30% CGLKPIMO
- 25 LS-CHOM-30 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- Montant IJ ATMP avec abatt 30% CGLKPIMO
- 25 LS-ATMP-30 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- Montant revenus ETI avec abatt 30% CGLKPIMO
- 25 LS-ETI-30 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- Montant ressources AAH annuelle/occ/pelem CGLKPIMO
- 25 LS-MTRAAHAN PIC S9(7)V9(2) COMP-3. CGLKPIMO
- CGLKPIMO
- 15 LS-PELEM-AAH-2 OCCURS 4 INDEXED BY IX-PELEM-AAH-2. CGLKPIMO
- *-- *-- D710P.MTCUMAH Montant cumul total CGLKPIMO
- 20 LS-MTCUMAH PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTCUMSAL Montant cumul total SAL CGLKPIMO
- 20 LS-MTCUMSAL PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTCUMETI Montant cumul total ETI CGLKPIMO
- 20 LS-MTCUMETI PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.CDCUMAH Indicateur cumul total CGLKPIMO
- 20 LS-CDCUMAH PIC X. CGLKPIMO
- 88 LS-FL-CDCUMAH-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDCUMAH-NON VALUE 'N' ' '. CGLKPIMO
- *-- *-- D710P.CD8040AH Indicateur abattement 80/40 CGLKPIMO
- 20 LS-CD8040AH PIC X. CGLKPIMO
- 88 LS-FL-CD8040AH-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CD8040AH-NON VALUE 'N' ' '. CGLKPIMO
- *-- *-- D710P.MTAH8040 Montant des revenus 80/40 CGLKPIMO
- 20 LS-MTAH8040 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTBASAAH Base ressources AAH trim CGLKPIMO
- 20 LS-MTBASAAH PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- *-- D710P.MTPAPIF Abatt. PA/PI appliqué à la PELEM CGLKPIMO
- 20 LS-MTPAPIF PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- *--- INDICATEURS DIVERS ALPHA NUMéRIQUES, RAZ MENSUELLE. CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- 10 LS-FL-DIV-RAZ-MENS-ALPHA. CGLKPIMO
- *** A998.CCR1308B : Zone devant disparaitre mais impossible * CGLKPIMO
- *** (le 25/04/02) à cause de la SIMULATION * CGLKPIMO
- *--- Indicateur d'occurrence présente/AAS CGLKPIMO
- 15 LS-INDIC-OCC-AAS PIC X. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur de grossesse en cours CGLKPIMO
- 15 LS-FL-GROSS-ENCOURS PIC X. CGLKPIMO
- *--- Indicateur de grossesse en cours CGLKPIMO
- 15 LS-DPCPJI01-GROSS-EC PIC X. CGLKPIMO
- * CGLKPIMO
- *** Remise en l'état initial CGLKPIMO
- *--- Indicateur de grossesse CGLKPIMO
- *--- D710P.CDGROSS indicateur de presence de grossesse CGLKPIMO
- ****Remise en l'état initial 1854PVDR CGLKPIMO
- 15 LS-CDGROSS PIC X. CGLKPIMO
- 88 LS-FL-CDGROSS-OUI VALUE 'O'. CGLKPIMO
- ****Remise en l'état initial C2412PLT CGLKPIMO
- 15 LS-CDGROSS-RSI PIC X. CGLKPIMO
- 88 LS-FL-CDGROSS-RSI-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDGROSS-RSI-NON VALUE 'N'. CGLKPIMO
- *--- D710P.CDINTGRO indicateur d'interruption de grossesse CGLKPIMO
- 15 LS-CDINTGRO PIC X. CGLKPIMO
- 88 LS-FL-CDINTGRO-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDINTGRO-NON VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--- D710P.CDIGRPPA Indicateur mois grossesse interrompue PPA CGLKPIMO
- 15 LS-CDIGRPPA PIC X. CGLKPIMO
- 88 LS-FL-CDIGRPPA-OUI VALUE 'O'. CGLKPIMO
- * CGLKPIMO
- *--- D710P.CDFGRO18 Indicateur fin grossesse - 18 ans PPA CGLKPIMO
- 15 LS-CDFGRO18 PIC X. CGLKPIMO
- 88 LS-FL-CDFGRO18-OUI VALUE 'O'. CGLKPIMO
- *--- Indicateur forfait CGLKPIMO
- 15 LS-FL-FORFAIT PIC X. CGLKPIMO
- *--- Indicateur d'isolement CGLKPIMO
- 15 LS-FL-ISOLE-AVP PIC X. CGLKPIMO
- * CGLKPIMO
- * Indicateur de présence des ressources CGLKPIMO
- 15 LS-FL-PRE-RESS PIC X. CGLKPIMO
- *--- Indicateurs de présence des ressources 888 ou 999 CGLKPIMO
- 15 LS-FL-PRE-RESS-888 PIC X. CGLKPIMO
- 15 LS-FL-PRE-RESS-999 PIC X. CGLKPIMO
- *-- *-- Booléen Ressources non fournies ( CGRKRNC1-F03) CGLKPIMO
- 15 LS-RESS PIC X. CGLKPIMO
- 88 LS-FL-RESS-N-FOURNI-VRAI VALUE 'V'. CGLKPIMO
- 88 LS-FL-RESS-N-FOURNI-FAUX VALUE 'F'. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur de présence des ressources RSO CGLKPIMO
- 15 LS-FL-PRE-RESS-RSO PIC X. CGLKPIMO
- *--- Indicateurs de présence des ressources 888 ou 999 -RSO- CGLKPIMO
- 15 LS-FL-PRE-RESS-888-RSO PIC X. CGLKPIMO
- 15 LS-FL-PRE-RESS-999-RSO PIC X. CGLKPIMO
- 15 LS-PRE-RESS-RMI PIC X. CGLKPIMO
- 88 LS-FL-PRES-RESS-RMI VALUE 'O'. CGLKPIMO
- 88 LS-FL-ABS-RESS-RMI VALUE 'N'. CGLKPIMO
- *--- Indicateur ressources absentes (pour RSA). CGLKPIMO
- * 15 LS-IND-RESS-ABS-RSA PIC X. CGLKPIMO
- * 88 FL-IND-RESS-ABS-RSA-OUI VALUE 'O'. CGLKPIMO
- * 88 FL-IND-RESS-ABS-RSA-NON VALUE 'N'. CGLKPIMO
- *--- Indicateur ressources absentes (pour PAF). CGLKPIMO
- 15 LS-IND-RESS-ABS-PAF PIC X. CGLKPIMO
- 88 FL-IND-RESS-ABS-PAF-OUI VALUE 'O'. CGLKPIMO
- 88 FL-IND-RESS-ABS-PAF-NON VALUE 'N'. CGLKPIMO
- *--- Indicateur de prés des ress évaluées CGLKPIMO
- 15 LS-IND-PRESEN-RESEVAL PIC X. CGLKPIMO
- 88 LS-FL-IND-PRESEN-RESEVAL-NON-P VALUE ' ' 'N'. CGLKPIMO
- 88 LS-FL-IND-PRESEN-RESEVAL-POS VALUE 'O'. CGLKPIMO
- 88 LS-FL-IND-PRESEN-RESEVAL-POS-N VALUE 'N'. CGLKPIMO
- 15 LS-FL-PRE-RESS-EVAL REDEFINES CGLKPIMO
- LS-IND-PRESEN-RESEVAL PIC X. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur BNEVA CGLKPIMO
- 15 LS-BNEVAI01 PIC X(2). CGLKPIMO
- 88 FL-BNEVAI01-R1 VALUE 'R1'. CGLKPIMO
- 88 FL-BNEVAI01-OD VALUE 'OD'. CGLKPIMO
- 88 FL-BNEVAI01-RN VALUE 'RN'. CGLKPIMO
- 88 FL-BNEVAI01-OS VALUE 'OS'. CGLKPIMO
- 15 LS-BNEVA REDEFINES LS-BNEVAI01 PIC XX. CGLKPIMO
- 88 FL-BNEVA-R1 VALUE 'R1'. CGLKPIMO
- 88 FL-BNEVA-OD VALUE 'OD'. CGLKPIMO
- 88 FL-BNEVA-RN VALUE 'RN'. CGLKPIMO
- 88 FL-BNEVA-OS VALUE 'OS'. CGLKPIMO
- 15 LS-BNEVAI09 PIC X(2). CGLKPIMO
- *--- Indicateur EFJEUNE CGLKPIMO
- 15 LS-EFJEUNE PIC 9. CGLKPIMO
- 88 FL-EFJEUNE-KO VALUE 0. CGLKPIMO
- 88 FL-EFJEUNE-OK VALUE 1. CGLKPIMO
- *--- Indicateur CDEFAB CGLKPIMO
- * 15 LS-CDEFAB PIC 9. CGLKPIMO
- * 88 FL-CDEFAB VALUE 0. CGLKPIMO
- * 88 FL-CDEFAB-OK VALUE 1. CGLKPIMO
- * 88 FL-CDEFAB-KO VALUE 2. CGLKPIMO
- *--- Indicateur d'abatt. fiscal special CGLKPIMO
- 15 LS-FL-ABATT-FIS-SPE PIC X. CGLKPIMO
- *--- Indicateur de non pour AL APL CGLKPIMO
- 15 LS-FL-NON-POUR-AL-APL PIC 9. CGLKPIMO
- *--- Indicateur màj avis préfet CGLKPIMO
- 15 LS-TOP-MAJ-AVIS-PCOGEN PIC X. CGLKPIMO
- *--- Indic. d'accès au bareme AF = D710P.CDBARAF CGLKPIMO
- 15 LS-CDBARAF PIC X. CGLKPIMO
- 88 LS-CDBARAF-OUI VALUE 'O'. CGLKPIMO
- 88 LS-CDBARAF-NON VALUE 'N' ' '. CGLKPIMO
- *--- Taux de prise en charge AGED màj de PEH par LKMO ou BANA CGLKPIMO
- 15 LS-FL-TYPMAJ-PEH PIC X. CGLKPIMO
- * CGLKPIMO
- 15 LS-IND-RESSOURCES-ABSENTES PIC X. CGLKPIMO
- 15 LS-APE-INDIC-1ER-MOIS-INTER PIC X. CGLKPIMO
- 15 LS-TOP-CALCUL-ARS-DIFF PIC X. CGLKPIMO
- 15 LS-TOP-CALCUL-ARS-ENTIER PIC X. CGLKPIMO
- *--- Indicateur conjoint ADI (CGRACTAD/CGRDRADI) CGLKPIMO
- 15 LS-IND-CONJOINT-ADI PIC X. CGLKPIMO
- *--- Indicateur d'exclusion de conjoint CGLKPIMO
- * 15 LS-IND-CONJ-EXC PIC X. CGLKPIMO
- *--- Indicateur DSF CGLKPIMO
- 15 LS-FL-SIT-ENF-IDSF PIC X. CGLKPIMO
- 88 LS-FL-ENF-IDSF-OUI VALUE 'O'. CGLKPIMO
- *--- Indicateurs CMG CGLKPIMO
- 15 LS-CMG. CGLKPIMO
- 20 LS-CMG-INFOS-PERS CGLKPIMO
- OCCURS 27 INDEXED BY IX-CMG. CGLKPIMO
- *-- Indicateur 0-3A {D710P.CDAGE3A1} pour l'enfant CGLKPIMO
- 25 LS-CDAGE3A1 PIC X. CGLKPIMO
- 20 LS-FL-ASSIETTE-PJ4 PIC X. CGLKPIMO
- *--- Indicateur 0-3A {D710P.CDAGE3A2} pour le dossier CGLKPIMO
- 20 LS-CDAGE3A2 PIC X. CGLKPIMO
- *--- Indicateur enfant paje CGLKPIMO
- 15 LS-FL-IND-ENFANT-PAJE PIC X. CGLKPIMO
- 88 FL-ENFANT-PAJE VALUE 'O'. CGLKPIMO
- CGLKPIMO
- *--- D710p.NPECPI Indic. de non prise en compte PJ2 dans API CGLKPIMO
- 15 LS-NPECPI-PJ2-API PIC X. CGLKPIMO
- 88 LS-FL-NPECPI-PJ2-API-VRAI VALUE 'V'. CGLKPIMO
- 88 LS-FL-NPECPI-PJ2-API-FAUX VALUE 'F' ' '. CGLKPIMO
- 88 LS-FL-NPECPI-PJ2-API-F VALUE 'F'. CGLKPIMO
- * CGLKPIMO
- *--- D710p.NPECMI Indic. de non prise en compte PJ2 dans RMI CGLKPIMO
- *--- OU RSD CGLKPIMO
- 15 LS-NPECMI-PJ2-RMI PIC X. CGLKPIMO
- 88 LS-FL-NPECMI-PJ2-RMI-VRAI VALUE 'O'. CGLKPIMO
- 88 LS-FL-NPECMI-PJ2-RMI-FAUX VALUE 'F' ' '. CGLKPIMO
- 88 LS-FL-NPECMI-PJ2-RMI-F VALUE 'F'. CGLKPIMO
- CGLKPIMO
- *--- D710P.NPECDI INDIC. DE NON PRISE EN COMPTE PJ2 DANS ADI CGLKPIMO
- *--- OU RSI CGLKPIMO
- 15 LS-NPECDI-PJ2-ADI PIC X. CGLKPIMO
- 88 LS-FL-NPECDI-PJ2-ADI-VRAI VALUE 'O'. CGLKPIMO
- 88 LS-FL-NPECDI-PJ2-ADI-FAUX VALUE 'F' ' '. CGLKPIMO
- 88 LS-FL-NPECDI-PJ2-ADI-F VALUE 'F'. CGLKPIMO
- *--- D710p.CDNECPI Indic. de non prise en compte PJ2 dans PPA CGLKPIMO
- 15 LS-CDNPECPI-PJ2-PPA PIC X. CGLKPIMO
- 88 LS-FL-CDNPECPI-PJ2-PPA-VRAI VALUE 'V'. CGLKPIMO
- 88 LS-FL-CDNPECPI-PJ2-PPA-FAUX VALUE 'F' ' '. CGLKPIMO
- 88 LS-FL-CDNPECPI-PJ2-PPA-F VALUE 'F'. CGLKPIMO
- * CGLKPIMO
- *--- D710P.CDSUPJ2 Indic. suppression PJ2 mois naissance CGLKPIMO
- 15 LS-CDSUPJ2 PIC X. CGLKPIMO
- 88 LS-FL-CDSUPJ2-POSIT-O VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDSUPJ2-POSIT-N VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *-- *-- Evenement MAJI --* CGLKPIMO
- 15 LS-EVEMAJI PIC X(3). CGLKPIMO
- 88 LS-EVEMAJI-ENF VALUE 'ENF'. CGLKPIMO
- 88 LS-EVEMAJI-GRO VALUE 'GRO'. CGLKPIMO
- 88 LS-EVEMAJI-PEC VALUE 'PEC'. CGLKPIMO
- 88 LS-EVEMAJI-ISO VALUE 'ISO'. CGLKPIMO
- *-- *-- Date évènement MAJI --* CGLKPIMO
- 15 LS-DTEVEMAJ PIC 9(8). CGLKPIMO
- *-- *-- Identifiant de l'enfant donnant droit à la MAJI --* CGLKPIMO
- *-- *-- c'est le N° fictif personne = nficpn --* CGLKPIMO
- 15 LS-ENFMAJI PIC 9(7). CGLKPIMO
- *-- *-- Indicateur MAJI --* CGLKPIMO
- 15 LS-CDMAJI PIC X(1). CGLKPIMO
- 88 LS-FL-CDMAJI-VRAI VALUE 'V'. CGLKPIMO
- 88 LS-FL-CDMAJI-FAUX VALUE 'F' ' '. CGLKPIMO
- 88 LS-FL-CDMAJI-F VALUE 'F'. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- *--- D710P.CDNATALL code nationalité allocataire CGLKPIMO
- *--- F=Français/CV=CEE valide/CNV= CEE non valide/A=Autre CGLKPIMO
- 15 LS-CDNATALL PIC X(1). CGLKPIMO
- 88 FL-CDNATALL-F VALUE 'F'. CGLKPIMO
- 88 FL-CDNATALL-CV VALUE 'V'. CGLKPIMO
- 88 FL-CDNATALL-CNV VALUE 'C'. CGLKPIMO
- 88 FL-CDNATALL-A VALUE 'A'. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur RMA radié CGLKPIMO
- 15 LS-CDRMARAD PIC X. CGLKPIMO
- 88 LS-CDRMARAD-VIERGE VALUE ' '. CGLKPIMO
- 88 LS-CDRMARAD-COUVERT VALUE 'C'. CGLKPIMO
- 88 LS-CDRMARAD-RADIE VALUE 'R'. CGLKPIMO
- CGLKPIMO
- CGLKPIMO
- *-- Top prise en compte nbre de jours AJPP enfants CGLKPIMO
- 15 LS-AJP. CGLKPIMO
- 20 LS-AJP-PRES-JOUR CGLKPIMO
- OCCURS 27 INDEXED BY IX-AJP. CGLKPIMO
- 25 LS-AJP-JOUR-CUM PIC X. CGLKPIMO
- 88 FL-AJP-JO-CUM-OUI VALUE 'O'. CGLKPIMO
- 88 FL-AJP-JO-CUM-NON VALUE 'N'. CGLKPIMO
- CGLKPIMO
- *-- Indicateur AJPP: nombre de jours < 310 (D710P.CD310JRS) CGLKPIMO
- 15 LS-CD310JRS PIC X. CGLKPIMO
- 88 FL-NB-JOURS-310-AJPP-NON VALUE 'N'. CGLKPIMO
- 88 FL-NB-JOURS-310-AJPP-OUI VALUE 'O'. CGLKPIMO
- *--- indicateur montant réduit PJ CGLKPIMO
- 15 LS-IND-REDUIT-PJ3 PIC X. CGLKPIMO
- 88 FL-IND-REDUIT-PJ3-OUI VALUE 'O' '4' '5'. CGLKPIMO
- 88 FL-IND-REDUIT-PJ3-PJ4-PJ5 VALUE 'O'. CGLKPIMO
- 88 FL-IND-REDUIT-PJ3-PJ4 VALUE '4'. CGLKPIMO
- 88 FL-IND-REDUIT-PJ3-PJ5 VALUE '5'. CGLKPIMO
- 88 FL-IND-REDUIT-PJ3-NON VALUE 'N' ' '. CGLKPIMO
- * CGLKPIMO
- *--- indicateur sanction API CGLKPIMO
- 15 LS-CDSANAPI PIC X. CGLKPIMO
- 88 LS-CDSANAPI-OUI VALUE 'O'. CGLKPIMO
- 88 LS-CDSANAPI-NON VALUE 'N'. CGLKPIMO
- 88 LS-CDSANAPI-VIDE VALUE ' '. CGLKPIMO
- *--- Indicateur absence involontaire conjoint CGLKPIMO
- 15 LS-FL-ABS-INV-CONJOINT PIC X. CGLKPIMO
- * Indicateur abs. invo. alloc. RSA CGLKPIMO
- * 3 occurrences RSA : 1 = RSI 2 = RSD 3 = RSJ CGLKPIMO
- 15 LS-FL-ABSINV-ALC-RSA PIC X CGLKPIMO
- OCCURS 3 CGLKPIMO
- INDEXED BY IX-AB-AL. CGLKPIMO
- 88 LS-FL-ABSINV-ALC-RSA-O VALUE 'O'. CGLKPIMO
- 88 LS-FL-ABSINV-ALC-RSA-N VALUE 'N'. CGLKPIMO
- * Indicateur abs. invo. conjt. RSA CGLKPIMO
- * 3 occurrences RSA : 1 = RSI 2 = RSD 3 = RSJ CGLKPIMO
- 15 LS-FL-ABSINV-CONJ-RSA PIC X CGLKPIMO
- OCCURS 3 CGLKPIMO
- INDEXED BY IX-AB-CJ. CGLKPIMO
- 88 LS-FL-ABSINV-CJT-RSA-O VALUE 'O'. CGLKPIMO
- 88 LS-FL-ABSINV-CJT-RSA-N VALUE 'N'. CGLKPIMO
- *--- D710P.CDAVIRSA Indicateur condition AVI-RSA (DMF 2196F) CGLKPIMO
- 15 LS-CDAVIRSA PIC X. CGLKPIMO
- *- Valeur significative de positionné à N CGLKPIMO
- 88 LS-FL-CDAVIRSA-POSIT-N VALUE 'N'. CGLKPIMO
- CGLKPIMO
- *--- {D710P.CDVERARS} Indicateur déduction verpreaut ARS CGLKPIMO
- 15 LS-CDVERARS PIC 9. CGLKPIMO
- 88 LS-FL-CDVERARS-NON VALUE 0. CGLKPIMO
- 88 LS-FL-CDVERARS-OUI VALUE 1. CGLKPIMO
- *--- {D710P.CDVERARJ} Indicateur déduction verpreaut ARJ CGLKPIMO
- 15 LS-CDVERARJ PIC 9. CGLKPIMO
- 88 LS-FL-CDVERARJ-NON VALUE 0. CGLKPIMO
- 88 LS-FL-CDVERARJ-OUI VALUE 1. CGLKPIMO
- * CGLKPIMO
- *--- FILLER DISPONIBLE CGLKPIMO
- 15 FILLER PIC X(44). CGLKPIMO
- * * CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- *--- NUMéRIQUES ETENDUS - RAZ zone à zone, à la demande CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- 10 LS-MANUELLE-NUM-ETENDU. CGLKPIMO
- *--- code type entité logique CGLKPIMO
- 15 LS-NTYPEN PIC 9. CGLKPIMO
- 88 LS-NTYPEN-ALLOC VALUE 1. CGLKPIMO
- 88 LS-NTYPEN-CONJOINT VALUE 2. CGLKPIMO
- 88 LS-NTYPEN-ENFANT VALUE 3. CGLKPIMO
- 88 LS-NTYPEN-AUTPERS VALUE 4. CGLKPIMO
- 88 LS-NTYPEN-RESSOURCE VALUE 5. CGLKPIMO
- 88 LS-NTYPEN-LOGEMENT VALUE 6. CGLKPIMO
- *--- code saut prest. generique suivante CGLKPIMO
- 15 LS-PEGEN-SAUT PIC 9. CGLKPIMO
- * CGLKPIMO
- 15 LS-DT-FIN-MOIS-PREC PIC 9(8). CGLKPIMO
- 15 LS-R-DT-FMP REDEFINES LS-DT-FIN-MOIS-PREC. CGLKPIMO
- 20 LS-MOIS-DATE-FMP PIC 9(6). CGLKPIMO
- 20 LS-R-M-FMP REDEFINES LS-MOIS-DATE-FMP. CGLKPIMO
- 25 LS-AN-DT-FMP PIC 9999. CGLKPIMO
- 25 LS-MM-DT-FMP PIC 99. CGLKPIMO
- 20 LS-JOUR-DATE-FMP PIC 9(2). CGLKPIMO
- * CGLKPIMO
- 15 LS-DT-FIN-MOIS-TRAITE PIC 9(8). CGLKPIMO
- 15 LS-R-DT-FMT REDEFINES LS-DT-FIN-MOIS-TRAITE. CGLKPIMO
- 20 LS-MOIS-DATE-FMT PIC 9(6). CGLKPIMO
- 20 LS-R-M-FMT REDEFINES LS-MOIS-DATE-FMT. CGLKPIMO
- 25 LS-AN-DT-FMT PIC 9999. CGLKPIMO
- 25 LS-MM-DT-FMT PIC 99. CGLKPIMO
- 20 LS-JOUR-DATE-FMT PIC 9(2). CGLKPIMO
- CGLKPIMO
- *--- 1er du mois en cours du dossier plus un mois CGLKPIMO
- 15 LS-DEB-MOIS-EN-COURS-PLUS-UN PIC 9(8). CGLKPIMO
- CGLKPIMO
- *--- 1er du mois en cours du dossier plus deux mois CGLKPIMO
- *--- Attention date renseignée uniquement si le mois en CGLKPIMO
- *--- cours est compris dans la période d'étude des droits CGLKPIMO
- *--- OU si RENOUVELLEMENT APL CGLKPIMO
- 15 LS-DEB-MOIS-EN-COURS-PLUS-DEUX PIC 9(8). CGLKPIMO
- CGLKPIMO
- *--- Dernier du mois en cours du dossier plus deux mois CGLKPIMO
- *--- Attention date renseignée uniquement si le mois en CGLKPIMO
- *--- cours est compris dans la période d'étude des droits CGLKPIMO
- *--- OU si RENOUVELLEMENT APL CGLKPIMO
- 15 LS-FIN-MOIS-EN-COURS-PLUS-DEUX PIC 9(8). CGLKPIMO
- *--- Délai edition entre 2 notifications dp CGLKPIMO
- 15 LS-DELAI-NOTIF PIC 9(02). CGLKPIMO
- *--- accès CDGR1 - rang examen prénatal CGLKPIMO
- 15 LS-REXPRN PIC 9. CGLKPIMO
- *--- accès CDPRS - rang du pret CGLKPIMO
- 15 LS-RPRETX PIC 99. CGLKPIMO
- *--- accès à CDLGS et CDLGH - rang du logement CGLKPIMO
- 15 LS-RLOGEM PIC 999. CGLKPIMO
- 15 LS-DT-DEMENAGEMENT PIC 9(8). CGLKPIMO
- 15 LS-R-DT-DEM REDEFINES LS-DT-DEMENAGEMENT. CGLKPIMO
- 20 LS-DTMOIS-DEM PIC 9(6). CGLKPIMO
- 20 LS-R-M-DEM REDEFINES LS-DTMOIS-DEM. CGLKPIMO
- 25 LS-DTAN-DEM PIC 9999. CGLKPIMO
- 25 LS-DTMM-DEM PIC 99. CGLKPIMO
- 20 LS-DTJJ-DEM PIC 9(2). CGLKPIMO
- *--- Indicateur opération vérifiée ou non. CGLKPIMO
- 15 LS-FL-VERIF-OPER PIC 9. CGLKPIMO
- CGLKPIMO
- *--- Année de référence des ressources CGLKPIMO
- 15 LS-ANNREF-RESS PIC 9(04). CGLKPIMO
- *--- Année de référence des ressources RSO CGLKPIMO
- 15 LS-ANNREF-RESS-RSO PIC 9(04). CGLKPIMO
- * CGLKPIMO
- *--- Indicateur propositions préfet CGLKPIMO
- *--- Indicateur MAJ code information CGLKPIMO
- 15 LS-FL-MAJ-CD-INFO PIC 9. CGLKPIMO
- * CGLKPIMO
- *--- Date de déménagement CGLKPIMO
- 15 LS-DDEMEN PIC 9(8). CGLKPIMO
- 15 LS-DDEMEN-R REDEFINES LS-DDEMEN. CGLKPIMO
- 20 LS-DDEMEN-AM PIC 9(6). CGLKPIMO
- 20 LS-DDEMEN-AM-R REDEFINES LS-DDEMEN-AM. CGLKPIMO
- 25 LS-DDEMEN-A PIC 9999. CGLKPIMO
- 25 LS-DDEMEN-M PIC 99. CGLKPIMO
- 20 LS-DDEMEN-J PIC 99. CGLKPIMO
- CGLKPIMO
- 15 LS-TAB-PMVT-2. CGLKPIMO
- *-- 20 LIGNE-PMVT-2 OCCURS 25 INDEXED BY IX-PMVT-2. CGLKPIMO
- 20 LS-LIGNE-PMVT-2 OCCURS 25 INDEXED BY IX-PMVT-2. CGLKPIMO
- *--- Mois de la PMVT avec neccessitée de ré-exécution CGLKPIMO
- 25 LS-PMVT-2-MOIS PIC S9(9) COMP-3. CGLKPIMO
- *--- Flag notant si ré-exécution necessaire CGLKPIMO
- 25 LS-PMVT-2-A-FAIRE PIC X. CGLKPIMO
- 88 LS-FL-PMVT-2-A-FAIRE VALUE 'O'. CGLKPIMO
- 88 LS-FL-PMVT-2-PAS-A-FAIRE VALUE 'N'. CGLKPIMO
- CGLKPIMO
- 15 LS-RG-PMVT PIC X. CGLKPIMO
- 88 LS-FL-RG-PMVT-1 VALUE '1'. CGLKPIMO
- 88 LS-FL-RG-PMVT-2 VALUE '2'. CGLKPIMO
- *--- FILLER DISPONIBLE CGLKPIMO
- 15 FILLER PIC 9(15). CGLKPIMO
- CGLKPIMO
- * CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- *--- INDICATEURS DIVERS RAZ MENSUELLE. CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- 10 LS-FL-DIV-RAZ-MENS-NUM. CGLKPIMO
- 15 LS-FL-CDANLOG PIC 9. CGLKPIMO
- *--- Indicateur activité SIN (Mon/Mme ADI) CGLKPIMO
- 15 LS-IND-SIN PIC 9. CGLKPIMO
- *--- Indicateur de réduction dispense RSA CGLKPIMO
- 15 LS-CDDISPE PIC 9. CGLKPIMO
- 88 FL-CDDISPE-OK VALUE 1. CGLKPIMO
- 88 FL-CDDISPE-KO VALUE 0. CGLKPIMO
- *--- FILLER DISPONIBLE CGLKPIMO
- 15 FILLER PIC 9(3). CGLKPIMO
- CGLKPIMO
- CGLKPIMO
- *--- base évaluée foyer CGLKPIMO
- 15 LS-MT-BASE-EVA-FOY PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- base évaluée foyer bis CGLKPIMO
- 15 LS-MT-BASE-EVA-FOYB PIC S9(7)V99 COMP-3. CGLKPIMO
- CGLKPIMO
- * Tableau contenant les ressources evaluées (code periodicité N) CGLKPIMO
- * 2 lignes pour Mr et Mme CGLKPIMO
- * 5 colonnes pour 5 occurences: poste 3 pour l'eva. en cours. CGLKPIMO
- CGLKPIMO
- *-- 15 TAB-PEREVA. CGLKPIMO
- 15 LS-TAB-PEREVA. CGLKPIMO
- 20 LS-LIGNE-MRMME OCCURS 2 INDEXED BY IX-PER4. CGLKPIMO
- *-- 25 LIGNE-PEREVA OCCURS 5 INDEXED BY IX-PEREVA. CGLKPIMO
- 25 LS-LIGNE-PEREVA OCCURS 5 INDEXED BY IX-PEREVA. CGLKPIMO
- *--- DD evaluation forfaitaire CGLKPIMO
- 30 LS-PEREVA-CDHIS001 PIC S9(9) COMP-3. CGLKPIMO
- *--- DF evaluation forfaitaire CGLKPIMO
- 30 LS-PEREVA-CDHIS002 PIC S9(9) COMP-3. CGLKPIMO
- 30 LS-PEREVA-CDPE0EVA. CGLKPIMO
- *--- CD nature ressources CGLKPIMO
- 35 LS-PEREVA-CMOREF PIC X(1). CGLKPIMO
- 35 LS-PEREVA-CNARES1 PIC X(3). CGLKPIMO
- 88 LS-FL-PEREVA-CNARES1-SAL-OD VALUE '080'. CGLKPIMO
- 88 LS-FL-PEREVA-CNARES1-SAL-RN VALUE '082'. CGLKPIMO
- 88 LS-FL-PEREVA-CNARES1-SAL-R1 VALUE '083'. CGLKPIMO
- 88 LS-FL-PEREVA-CNARES1-ETI-OD VALUE '085'. CGLKPIMO
- 88 LS-FL-PEREVA-CNARES1-ETI-RN VALUE '087'. CGLKPIMO
- 88 LS-FL-PEREVA-CNARES1-ETI-R1 VALUE '088'. CGLKPIMO
- 88 FL-PEREVA-SALARIE-OD VALUE '080' '090'. CGLKPIMO
- 88 FL-PEREVA-SALARIE-R1 VALUE '083' '092'. CGLKPIMO
- 88 FL-PEREVA-SALARIE-RN VALUE '082' '091'. CGLKPIMO
- 88 FL-PEREVA-SALARIE VALUE '080' '082' CGLKPIMO
- '083' '090' CGLKPIMO
- '091' '092'. CGLKPIMO
- 88 FL-PEREVA-ETI VALUE '085' '087' CGLKPIMO
- '088'. CGLKPIMO
- 88 FL-PEREVA-OD VALUE '080' '085' CGLKPIMO
- '090'. CGLKPIMO
- 88 FL-PEREVA-R1 VALUE '083' '088' CGLKPIMO
- '092'. CGLKPIMO
- 88 FL-PEREVA-RN VALUE '082' '087' CGLKPIMO
- '091'. CGLKPIMO
- * CGLKPIMO
- *--- MT annuel évaluat. forfaitaire CGLKPIMO
- 35 LS-PEREVA-MAEVFO PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- MT mensuel salaire éva. for. CGLKPIMO
- 35 LS-PEREVA-MMSEVF PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- TX abatt. suppl. frais profes. CGLKPIMO
- 35 LS-PEREVA-CDEVA003 PIC S9(3)V9(2) COMP-3.CGLKPIMO
- *--- DT mois reference salaire CGLKPIMO
- 35 LS-PEREVA-DMOIEF PIC S9(9) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- Plafond mensuel des ressources RSO CGLKPIMO
- 15 LS-PLAF-MENS-RESS-RSO PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- Montant unitaire ARS CGLKPIMO
- 15 LS-MVALAR-MTT-UNITAIRE-ARS PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- Montant unitaire ARS par tranche CGLKPIMO
- 15 LS-MONTANT-UNIT-ARS-T1 PIC S9(5)V99 COMP-3. CGLKPIMO
- 15 LS-MONTANT-UNIT-ARS-T2 PIC S9(5)V99 COMP-3. CGLKPIMO
- 15 LS-MONTANT-UNIT-ARS-T3 PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- Montant unitaire ARSN5 Mayotte CGLKPIMO
- 15 LS-MONTANT-UNIT-ARS-976 PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- Date de baissance de l'enfant le plus jeune à charge CGLKPIMO
- *--- cf. CGRDNDGT CGLKPIMO
- 15 LS-DT-NAIS-ENF-PLUS-JEUNE PIC S9(09) COMP-3. CGLKPIMO
- *--- DD grossesse DGT (cf. CGRINFGR) CGLKPIMO
- 15 LS-DD-GRO-DGT PIC S9(09) COMP-3. CGLKPIMO
- *--- DF grossesse DGT (cf. CGRINFGR) CGLKPIMO
- 15 LS-DF-GRO-DGT PIC S9(09) COMP-3. CGLKPIMO
- *--- LS-DTGROSS = Dt de déclaration de grossesse CGLKPIMO
- 15 LS-DTGROSS PIC S9(09) COMP-3. CGLKPIMO
- *--- LS-DTDPC = Date initiale de conception --* CGLKPIMO
- 15 LS-DTDPC PIC S9(09) COMP-3. CGLKPIMO
- *--- Nombre d'enfant conçu (cf. CGRINFGR) CGLKPIMO
- 15 LS-QT-ENF-DGT PIC 9. CGLKPIMO
- *--- Nombre d'enfant arrivés sur le mois CGLKPIMO
- 15 LS-QTARRENF PIC 9. CGLKPIMO
- *--- D710P.CDFGRO25 : Indic. fin grossesse - 25 ans. Pelem RSI CGLKPIMO
- 15 LS-CDFGRO25-RSIX1 PIC X. CGLKPIMO
- *--- Valeurs significatives de non positionné, non OK : CGLKPIMO
- 88 LS-FL-CDFGRO25-RSIX1-NON-POSIT VALUE SPACE 'N'. CGLKPIMO
- *--- Valeurs significatives de positionné (ajout possible CGLKPIMO
- *--- d'autres codes à VALUE) CGLKPIMO
- 88 LS-FL-CDFGRO25-RSIX1-POSIT VALUE 'P'. CGLKPIMO
- *--- Valeurs pour "positionner" LS-CDFGRO25-RSIX1 : CGLKPIMO
- 88 LS-FL-CDFGRO25-RSI-NON-POSIT-N VALUE 'N'. CGLKPIMO
- 88 LS-FL-CDFGRO25-RSIX1-POSIT-P VALUE 'P'. CGLKPIMO
- * CGLKPIMO
- *--- Compteurs spécifiques PJ4N3 / PJ5N1 / PJ5N3 CGLKPIMO
- *--- PJ4N4 / PJ5N2 CGLKPIMO
- 15 LS-COMPTEURS-AGE-GARDE. CGLKPIMO
- 20 LS-TB-COMPTEURS-AGE-GARDE OCCURS 5 CGLKPIMO
- INDEXED BY IX-CPT-AGE-GARDE. CGLKPIMO
- *--- *-- Compteurs spécifiques PJ4N3 / PJ5N1 /PJ5N3 --* CGLKPIMO
- 25 LS-QT3AM PIC 99. CGLKPIMO
- 25 LS-QT6AM PIC 99. CGLKPIMO
- *--- *-- Compteurs spécifiques PJ4N4 / PJ5N2 --* CGLKPIMO
- 25 LS-QT3EM PIC 99. CGLKPIMO
- 25 LS-QT6EM PIC 99. CGLKPIMO
- *--- Plafond de ressources PJ1/PJ2 CGLKPIMO
- 15 LS-MPLPJ1 PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- CDMPLPJ2 MT plafond inter ress PJ2 CGLKPIMO
- 15 LS-MPLPJ2 PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Plafond de ressources PJ4/PJ5 CGLKPIMO
- 15 LS-MPJ4PL PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Compteur d'enfants à charge mois de DD compose dossier : CGLKPIMO
- 15 LS-QT1ERM-CHRG-DOSS PIC S9(3) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- DOHMGC : groupe CMG CONSULTATION/CUMUL CGLKPIMO
- 15 LS-DOHMGC. CGLKPIMO
- 20 LS-DOHMGC-MPLACU PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 20 LS-DOHMGC-QE03CU PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-DOHMGC-ME03CU PIC S9(5)V9(2) COMP-3.CGLKPIMO
- 20 LS-DOHMGC-QE36CU PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-DOHMGC-ME36CU PIC S9(5)V9(2) COMP-3.CGLKPIMO
- * CGLKPIMO
- *--- CD plafond cmg - Table Cddoh - gdd MGP ---* CGLKPIMO
- **** 15 LS-CPLCMG PIC X(2). CGLKPIMO
- *--- DOHMGP : groupe CMG PLAFOND CGLKPIMO
- 15 LS-DOHMGP. CGLKPIMO
- 20 LS-DOHMGP-CPLCMG PIC X(1). CGLKPIMO
- 20 LS-DOHMGP-MPLACO PIC S9(5)V9(2) COMP-3.CGLKPIMO
- *--- stockage frais de garde (1485J) CGLKPIMO
- 15 LS-STOCK-FGRR PIC S9(7)V99. CGLKPIMO
- 15 LS-STOCK-FGRE PIC S9(7)V99. CGLKPIMO
- *--- Compteur de RMAstes CGLKPIMO
- 15 LS-QTRMASTE PIC S9(3) COMP-3. CGLKPIMO
- *--- Compteur de bénéficiaires CAV CGLKPIMO
- 15 LS-QTBENCAV PIC S9(3) COMP-3. CGLKPIMO
- *--- Nombre de jours Retour Foyer Mensuel (1594A) CGLKPIMO
- *--- donnée technique d610m.ctg603 devient d610m.ctg811!!!! CGLKPIMO
- *--- mais le nom dans la LS reste le même pour ne pas avoir CGLKPIMO
- *--- à faire de modif dans les règles qui l'utilisent.... CGLKPIMO
- 15 LS-QJRSAC PIC S9(3) COMP-3. CGLKPIMO
- *--- date de début d'absence involontaire conjoint (D710P) CGLKPIMO
- 15 LS-DTCJTAB PIC S9(9) COMP-3. CGLKPIMO
- *--- Compteur de JNF/DSF pour le RSA CGLKPIMO
- 15 LS-QTJNFDSF PIC S9(3) COMP-3. CGLKPIMO
- *--- Compteur initial d'enfants JNF/DSF MAYOTTE CGLKPIMO
- 15 LS-QTENFMAY PIC S9(3) COMP-3. CGLKPIMO
- *--- Indicateur aucun enfant pour AF CGLKPIMO
- 15 LS-CDABSEAF PIC X. CGLKPIMO
- 88 LS-FL-CDABSEAF-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-FL-CDABSEAF-NON-POSIT VALUE SPACE 'N'. CGLKPIMO
- *--- Compteur enfants AF pour le RSA CGLKPIMO
- 15 LS-QTENFAFR PIC S9(3) COMP-3. CGLKPIMO
- *--- FILLER DISPONIBLE CGLKPIMO
- 15 FILLER PIC X(04). CGLKPIMO
- CGLKPIMO
- *-----------------------------------------------------------------CGLKPIMO
- *--- ZONES DIVERSES - RAZ à LA DEMANDE CGLKPIMO
- *-----------------------------------------------------------------CGLKPIMO
- 10 LS-MANUELLE-AUTRES. CGLKPIMO
- CGLKPIMO
- 15 LS-MANUELLE-AUTRES-DIVERS. CGLKPIMO
- *--- Mois traité CGLKPIMO
- 20 LS-DMSTTE PIC S9(07) COMP-3. CGLKPIMO
- *--- 1er jour du mois traité CGLKPIMO
- 20 LS-DMSTTE-01 PIC S9(09) COMP-3. CGLKPIMO
- *--- date du jour CGLKPIMO
- 20 LS-DATE-JOUR PIC S9(09) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- Nombre d'occurences satisfaisant toutes les conditions CGLKPIMO
- 20 LS-NB-OCC PIC S9(05) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- Compteur d'occ. PAJE CGLKPIMO
- 20 LS-DRPJ2Q01-NB-OCC-PAJE PIC S9(05) COMP-3. CGLKPIMO
- *--- DPC date présumée de conception CGLKPIMO
- 20 LS-DTDPCI01 PIC S9(9) COMP-3. CGLKPIMO
- 20 LS-DPC REDEFINES LS-DTDPCI01 PIC S9(9) COMP-3. CGLKPIMO
- *--- accès CDDRV - montants droits CGLKPIMO
- 20 LS-NDESTI PIC S9(07) COMP-3. CGLKPIMO
- 20 LS-NFICPN PIC S9(07) COMP-3. CGLKPIMO
- 20 LS-EDROIT PIC S9(09) COMP-3. CGLKPIMO
- *--- accès CDGR1 - examens prénatals CGLKPIMO
- 20 LS-EPCOIN PIC S9(9) COMP-3. CGLKPIMO
- *--- accès à CDJU0 - Jugements CGLKPIMO
- 20 LS-NMTIERS PIC S9(07) COMP-3. CGLKPIMO
- 20 LS-NJUGEM PIC S9(13) COMP-3. CGLKPIMO
- *--- acces a CDDR1 OUV - date fin validité infos mémorisées: CGLKPIMO
- 20 LS-DATFIN-PER-VALID PIC S9(9) COMP-3. CGLKPIMO
- *--- Numéro d'employeur AGED CGLKPIMO
- 20 LS-NUM-EMPLOYEUR PIC S9(07) COMP-3. CGLKPIMO
- * CGLKPIMO
- 20 LS-INDIC-3ANS PIC X. CGLKPIMO
- 20 LS-DT-MARIAGE PIC S9(9) COMP-3. CGLKPIMO
- 20 FILLER PIC X(5). CGLKPIMO
- * CGLKPIMO
- 20 LS-DTNAIS PIC S9(9) COMP-3. CGLKPIMO
- 20 LS-CTLMAT-MT PIC X(3). CGLKPIMO
- 88 LS-FL-CTLMAT-MT-CEL VALUE 'CEL'. CGLKPIMO
- 88 LS-FL-CTLMAT-MT-MAR VALUE 'MAR'. CGLKPIMO
- 88 LS-FL-CTLMAT-MT-VIM VALUE 'VIM'. CGLKPIMO
- 88 LS-FL-CTLMAT-MT-DIV VALUE 'DIV'. CGLKPIMO
- 88 LS-FL-CTLMAT-MT-VEU VALUE 'VEU'. CGLKPIMO
- 88 LS-FL-CTLMAT-MT-SEF VALUE 'SEF'. CGLKPIMO
- 88 LS-FL-CTLMAT-MT-SEL VALUE 'SEL'. CGLKPIMO
- 88 LS-FL-CTLMAT-MT-ABA VALUE 'ABA'. CGLKPIMO
- 88 LS-FL-CTLMAT-MT-ISO VALUE 'ISO'. CGLKPIMO
- 88 LS-FL-CTLMAT-MT-RVM VALUE 'RVM'. CGLKPIMO
- 88 LS-FL-CTLMAT-MT-RVC VALUE 'RVC'. CGLKPIMO
- CGLKPIMO
- 88 LS-FL-CTLMAT-MT-ISOLE VALUE 'CEL' 'DIV' 'SEF' CGLKPIMO
- 'SEL' 'ISO' 'VEU' CGLKPIMO
- 'ABA'. CGLKPIMO
- 20 LS-SITMAC01 REDEFINES LS-CTLMAT-MT PIC X(3). CGLKPIMO
- 88 LS-FL-SITMAC01-CEL VALUE 'CEL'. CGLKPIMO
- 88 LS-FL-SITMAC01-MAR VALUE 'MAR'. CGLKPIMO
- 88 LS-FL-SITMAC01-VIM VALUE 'VIM'. CGLKPIMO
- 88 LS-FL-SITMAC01-DIV VALUE 'DIV'. CGLKPIMO
- 88 LS-FL-SITMAC01-VEU VALUE 'VEU'. CGLKPIMO
- 88 LS-FL-SITMAC01-SEF VALUE 'SEF'. CGLKPIMO
- 88 LS-FL-SITMAC01-SEL VALUE 'SEL'. CGLKPIMO
- 88 LS-FL-SITMAC01-ABA VALUE 'ABA'. CGLKPIMO
- 88 LS-FL-SITMAC01-ISO VALUE 'ISO'. CGLKPIMO
- 88 LS-FL-SITMAC01-RVM VALUE 'RVM'. CGLKPIMO
- 88 LS-FL-SITMAC01-RVC VALUE 'RVC'. CGLKPIMO
- 88 LS-FL-SITMAC01-ISOLE VALUE 'CEL' 'DIV' 'SEF' CGLKPIMO
- 'SEL' 'ISO' 'VEU' CGLKPIMO
- 'ABA'. CGLKPIMO
- 88 LS-FL-SITMAC01-COUP VALUE 'MAR' 'VIM' 'RVM' CGLKPIMO
- 'RVC' 'PAC' 'RPA'. CGLKPIMO
- ** DMF0780E regle cgrsitma cgre04p date debut sit.matrimoniale CGLKPIMO
- ** de LS-SITMAC01. CGLKPIMO
- 20 LS-CTLMAT-DD PIC S9(09) COMP-3. CGLKPIMO
- CGLKPIMO
- 20 LS-CTLMAT-AR PIC X(3). CGLKPIMO
- 88 LS-FL-CTLMAT-AR-CEL VALUE 'CEL'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-MAR VALUE 'MAR'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-VIM VALUE 'VIM'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-DIV VALUE 'DIV'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-VEU VALUE 'VEU'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-SEF VALUE 'SEF'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-SEL VALUE 'SEL'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-ABA VALUE 'ABA'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-ISO VALUE 'ISO'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-RVM VALUE 'RVM'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-RVC VALUE 'RVC'. CGLKPIMO
- CGLKPIMO
- 88 LS-FL-CTLMAT-AR-ISOLE VALUE 'CEL' 'DIV' 'SEF' CGLKPIMO
- 'SEL' 'ISO' 'VEU' CGLKPIMO
- 'ABA'. CGLKPIMO
- 20 LS-CTLMAT-AR-1 PIC X(3). CGLKPIMO
- 88 LS-FL-CTLMAT-AR-1-CEL VALUE 'CEL'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-1-MAR VALUE 'MAR'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-1-VIM VALUE 'VIM'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-1-DIV VALUE 'DIV'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-1-VEU VALUE 'VEU'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-1-SEF VALUE 'SEF'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-1-SEL VALUE 'SEL'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-1-ABA VALUE 'ABA'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-1-ISO VALUE 'ISO'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-1-RVM VALUE 'RVM'. CGLKPIMO
- 88 LS-FL-CTLMAT-AR-1-RVC VALUE 'RVC'. CGLKPIMO
- CGLKPIMO
- 88 LS-FL-CTLMAT-AR-1-ISOLE VALUE 'CEL' 'DIV' 'SEF' CGLKPIMO
- 'SEL' 'ISO' 'VEU' CGLKPIMO
- 'ABA'. CGLKPIMO
- 20 LS-AR-SIT-MAT PIC 9(4). CGLKPIMO
- 20 LS-AR-SIT-MAT-1 PIC 9(4). CGLKPIMO
- CGLKPIMO
- *--- tableau màj CGM110A contient toutes les personnes CGLKPIMO
- *--- du dossier (MR ou MME exclusivement) CGLKPIMO
- CGLKPIMO
- * 20 LS-TAB-NFICPN-CTYPER OCCURS 10 CGLKPIMO
- 20 LS-TAB-NFICPN-CTYPER OCCURS 12 CGLKPIMO
- INDEXED BY IX-NFICPN. CGLKPIMO
- 25 LS-NFICPN-110 PIC S9(07) COMP-3. CGLKPIMO
- 25 LS-CTYPER-110 PIC X(3). CGLKPIMO
- 25 LS-CDHIS001-110 PIC S9(09) COMP-3. CGLKPIMO
- 25 LS-CDHIS002-110 PIC S9(09) COMP-3. CGLKPIMO
- 25 LS-DDECPN-110 PIC S9(09) COMP-3. CGLKPIMO
- * CGLKPIMO
- * zones diverses autres que 03/97 (Majorat° APL / DMF780M) CGLKPIMO
- 20 LS-MT-NAPL-AVT-SEUIL PIC S9(5)V99 COMP-3. CGLKPIMO
- 20 LS-IND-ISO-APL PIC X. CGLKPIMO
- * CGLKPIMO
- *--- Table des occurences satisfaisant toutes les conditionsCGLKPIMO
- *--- (pelem,entité logique) CGLKPIMO
- 20 LS-TAB-OCCURS. CGLKPIMO
- 25 LS-TAB-OCC-PELEM OCCURS 275 CGLKPIMO
- INDEXED BY IX-T8-1 IX-T8-2 IX-T8-3. CGLKPIMO
- 30 LS-TAB-OCC-ENTL OCCURS 6 CGLKPIMO
- INDEXED BY IX-ENTL. CGLKPIMO
- 40 LS-TAB-NB-OCC PIC S9(05) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- Compteur de pelem traitées dans T23 CGLKPIMO
- 20 LS-NB-PELEM PIC S9(03) COMP-3. CGLKPIMO
- CGLKPIMO
- * CGLKPIMO
- *--- Période de référence CGLKPIMO
- 20 LS-PERIODE-REFER. CGLKPIMO
- 25 LS-PERDB-REFER PIC S9(09) COMP-3. CGLKPIMO
- 25 LS-PERFN-REFER PIC S9(09) COMP-3. CGLKPIMO
- *--- Trimestre civil de référence CGLKPIMO
- 20 LS-TRIM-CIVIL-REFER. CGLKPIMO
- 25 LS-TRCIVDB-REFER PIC S9(09) COMP-3. CGLKPIMO
- 25 LS-TRCIVFN-REFER PIC S9(09) COMP-3. CGLKPIMO
- *--- Trimestre référence ressources API CGLKPIMO
- 20 LS-TRIM-REFER-RESS. CGLKPIMO
- *--- D710P.DDTRIPI - date debut trim. de ref. ress API CGLKPIMO
- 25 LS-DDTRIPI-DD-TRIM-REF-API PIC S9(09) COMP-3. CGLKPIMO
- *--- D710P.DFTRIPI - date fin trim. de ref. ress API CGLKPIMO
- 25 LS-DFTRIPI-DF-TRIM-REF-API PIC S9(09) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- Trimestre référence RSA CGLKPIMO
- 20 LS-TRIM-REFER-RSA. CGLKPIMO
- 25 LS-DDTRIRES PIC S9(09) COMP-3. CGLKPIMO
- 25 LS-DFTRIRES PIC S9(09) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- Indice pelem étudiée CGLKPIMO
- 20 LS-IN-PELEM PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice pegen étudiée CGLKPIMO
- 20 LS-IN-PEGEN PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice poste ressources disponible CGLKPIMO
- 20 LS-IN-POST-RESS PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice max personnes CGLKPIMO
- 20 IN-MAX-PER PIC S9(3) COMP-3. CGLKPIMO
- *-- A TERME LS-IX-PER-MAX REMPLACERA IN-MAX-PER CGLKPIMO
- 20 LS-IX-PER-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice max pelem CGLKPIMO
- 20 IN-MAX-PELEM PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice max pegen CGLKPIMO
- 20 LS-IN-PEGEN-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice mois courant CGLKPIMO
- 20 IN-MOIS PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice max mois CGLKPIMO
- 20 LS-IN-MOIS-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice max attributaire CGLKPIMO
- 20 IN-MAX-ATT PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice max ressources CGLKPIMO
- 20 IN-MAX-RESS PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice max abattement CGLKPIMO
- 20 LS-IN-MAX-RAB PIC S9(3) COMP-3. CGLKPIMO
- *--- Nb max d'employeurs RMA/CAV stockés CGLKPIMO
- 20 LS-IN-MAX-EMPL PIC S9(3) COMP-3. CGLKPIMO
- *--- Nb max d'ASF stockés CGLKPIMO
- 20 LS-IN-MAX-ASF PIC S9(3) COMP-3. CGLKPIMO
- *--- Nb max de pers RSA jeune banalisée (RSJZZZ) CGLKPIMO
- 20 LS-IN-MAX-NB-RSJS PIC S9(3) COMP-3. CGLKPIMO
- 20 IN-MAX-T9-MME1 PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-JUMEAUX-MAX PIC S9(3) COMP-3. CGLKPIMO
- *-- CGLKMP CGLKPIMO
- 20 LS-IX-CHARG-MAX PIC S9(3) COMP-3. CGLKPIMO
- *-- INDEX DS CGLKMO AVEC MAX DANS LA CGLKPIMO CGLKPIMO
- *-- MAX DS CGS101,CGS401,CGS601,CGSSI1,CGMS62 CGLKPIMO
- *-- INITIALISATION LS-P2 CGLKPIMO
- 20 LS-IX-MMEP-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-MMER-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-MME-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-OCP-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-AUTP-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-ENFP-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-ENF-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-GDD-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-AL0-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-DOS-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-OCL-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- INDEX DE LA CGLKPIMO CGLKPIMO
- 20 LS-IX-PER2-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-PER4-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-T5-ENF-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-ENF2-MAX REDEFINES LS-IX-T5-ENF-MAX CGLKPIMO
- PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-RRSOTU-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-EMP-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-MR-MME-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-FOR-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-T21-MRMME-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-T6-PELEM-1-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-ASM1-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- Concerne la paje maxi 6 CGLKPIMO
- 20 LS-IX-APE-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-PJ4-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-CPT-AGE-GARDE-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- concerne APE a pelem a supprimer en 2012 maxi 3 CGLKPIMO
- 20 LS-IX-APE-MAX-3 PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice max abattement CGLKPIMO
- 20 LS-IX-T22-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice max LSHPES CGLKPIMO
- 20 LS-IX-LSHPES-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- CGLKPIMO
- 20 LS-IX-PRI-1-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- CGLKPIMO
- 20 LS-IX-T6-ARS-1-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- poste maxi pour pj3 CGLKPIMO
- 20 LS-IX-TX-PJ3-POSTE-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-PJ3-BEN-MAX PIC S9(1) COMP-3. CGLKPIMO
- 20 LS-IX-PJ3-PEL-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- poste maxi pour pj6 CGLKPIMO
- *- 13 postes PJ6N1 à N7 et PJ6NA + prévoir évolution --* CGLKPIMO
- 20 LS-IX-TX-PJ6-POSTE-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-PJ6-BEN-MAX PIC S9(1) COMP-3. CGLKPIMO
- 20 LS-IX-PJ6-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-PJ6-PEL-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- valeur max renseigné dans CGS101A-CGSSI1A CGLKPIMO
- *--- du D710P.NMENFT01 CGLKPIMO
- 20 LS-IX-NMENFT01-MAX PIC S9(3) COMP-3. CGLKPIMO
- *--- poste maxi IX-ATT1,IX-T4-ATT-1,IX-T4-ATT-2,IX-T4-ATT-3 CGLKPIMO
- 20 LS-IX-ATT1-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-T4-ATT-MAX PIC S9(3) COMP-3. CGLKPIMO
- *-- CGLKPIMO
- 20 LS-IX-BENEF-APE-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-T23-1-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IX-PEHNAA-SIT-MAX PIC S9(3) COMP-3. CGLKPIMO
- *------------------------------------------------------ CGLKPIMO
- *--- Nombre max d'occ. du tableau LS-RESS-REV-FRTUT CGLKPIMO
- *-- 20 IN-T9-REVTUT-MAX PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-IN-T9-REVTUT-MAX PIC S9(3) COMP-3. CGLKPIMO
- * compteur d'enfants pour derogation age DGT * CGLKPIMO
- 20 LS-Q1520A-21-DGT PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-QTCHRMI PIC 9. CGLKPIMO
- *--------- D710P.CDVRSP - up44p.cgrkrntp CGLKPIMO
- 20 LS-CFORMO-CDVRSP PIC X. CGLKPIMO
- 88 LS-FL-CFORMO-CDVRSP-V VALUE 'V'. CGLKPIMO
- *--------- D710P.MTRESSP - up44p.cgrkrntp CGLKPIMO
- 20 LS-MTRESSP-RSP PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- D710M.CDMTHRSA MONTANT THEORIQUE RSA - U244P.CGRMADTH CGLKPIMO
- 20 LS-TOP-MAJ-CDRSD PIC X. CGLKPIMO
- 88 LS-FL-TOP-MAJ-CDRSD-VRAI VALUE 'V'. CGLKPIMO
- 88 LS-FL-TOP-MAJ-CDRSD-FAUX VALUE ' ' 'F'. CGLKPIMO
- *--- {D710M.CDDFT1PE} DF théorique PPE conjoint 1 (MME) CGLKPIMO
- *--- {D710M.CDDFT2PE} DF théorique PPE conjoint 1 (MME) CGLKPIMO
- *--- U244P.CGRDFPJ6 - CGRXH0P et CGM130A CGLKPIMO
- 20 LS-TOP-MAJ-CDEEE PIC X. CGLKPIMO
- 88 LS-FL-TOP-MAJ-CDEEE-VRAI VALUE 'V'. CGLKPIMO
- 88 LS-FL-TOP-MAJ-CDEEE-FAUX VALUE ' ' 'F'. CGLKPIMO
- * CGLKPIMO
- *--- Stockage de l'index correspondant à l'alloc/conjt CGLKPIMO
- *--- dans la table LS-D710P-ALL-OU-CJT CGLKPIMO
- 20 LS-IN-PER-AC-ALLOC PIC S9(1) COMP-3. CGLKPIMO
- 20 LS-IN-PER-AC-CONJT PIC S9(1) COMP-3. CGLKPIMO
- * CGLKPIMO
- 20 LS-ARS-NREFER-CDC PIC S9(7) COMP-3. CGLKPIMO
- ** est ce que PAFF3/FC présent dans la CDACM ? ** CGLKPIMO
- ** sur mois traité ** CGLKPIMO
- 20 LS-PRESENT-PAFFX-CDACM PIC X OCCURS 2 CGLKPIMO
- INDEXED BY IX-PRESENT-PAFFX. CGLKPIMO
- 88 FL-PRESENT-PAFFX-CDACM VALUE 'O'. CGLKPIMO
- 88 FL-ABSENT-PAFFX-CDACM VALUE 'N'. CGLKPIMO
- ** est ce que PAFF3/FC présent dans la CDACM ? ** CGLKPIMO
- ** sur période mouvementée ** CGLKPIMO
- 20 LS-EXISTE-PAFFX-CDACM PIC X OCCURS 2 CGLKPIMO
- INDEXED BY IX-EXISTE-PAFFX. CGLKPIMO
- 88 FL-EXISTE-PAFFX-CDACM VALUE 'O'. CGLKPIMO
- 88 FL-NEXISTE-PAFFX-CDACM VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *- 20 FILLER PIC X(19). CGLKPIMO
- * - LENGTH(LS-ARS-NREFER-CDC) (4) ==> 15 CGLKPIMO
- *-- 20 FILLER PIC X(15). CGLKPIMO
- * - Longueur LS-PRESENT-PAFFX-CDACM 15 passe à 13 --* CGLKPIMO
- * - Longueur LS-EXISTE-PAFFX-CDACM 13 passe à 11 --* CGLKPIMO
- 20 FILLER PIC X(11). CGLKPIMO
- * CGLKPIMO
- CGLKPIMO
- *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-CGLKPIMO
- * *** Table par occurrence personnes (pers) CGLKPIMO
- * - BL présence occur ressources(personne) * CGLKPIMO
- * - MT salaires et assimilés * CGLKPIMO
- * - MT pensions, retraites et rentes viagères grat. * CGLKPIMO
- * - MT rentes viagères à titre onéreux * CGLKPIMO
- * - MT revenus d'activité non salariée * CGLKPIMO
- * - MT autres revenus * CGLKPIMO
- * - MT déficit * CGLKPIMO
- * - MT RNC7=déficit foncier * CGLKPIMO
- * - MT RNC8=RNC5 + prélèvements libératoires * CGLKPIMO
- * - MT EFR=excédents frais réels * CGLKPIMO
- * - MT évaluation forfaitaire annuelle CAT * CGLKPIMO
- * - MT somme des salaires et assimilés * CGLKPIMO
- * - MT somme des pensions, retraites et rentes * CGLKPIMO
- * - MT somme des salaires perçues * CGLKPIMO
- * - MT montant des ressources * CGLKPIMO
- * - INDICATEUR PRESENCE DE RESSOURCE pr l'occ CGLKPIMO
- * - Montant de l'abattement spécial fiscal CGLKPIMO
- * - MT mensuel ress. RMI sans abattement * CGLKPIMO
- * - MT mensuel ress. RMI avec abattement * CGLKPIMO
- * - MT trimest ress. RMI sans abattement * CGLKPIMO
- * - MT mensuel ress. RMI * CGLKPIMO
- * - MT trimest ress. RMI * CGLKPIMO
- * - MT total des avantages en nature * CGLKPIMO
- * - Indicateur nationalité enfant sens CGOD * CGLKPIMO
- * - Indicateur situation enfant sens CGOD * CGLKPIMO
- * - Indicateur enfant inassidu CGLKPIMO
- * - Indicateur résidence enfant sens CGOD * CGLKPIMO
- * - Code à charge au sens CGOD * CGLKPIMO
- * - Nombre de jours de sortie à payer * CGLKPIMO
- * - Nombre de jours de reliquat * CGLKPIMO
- * - Top de mise a jour du gdd RD0 * CGLKPIMO
- * - Date fin stock * CGLKPIMO
- * - MT des ressources netralisées * CGLKPIMO
- * - Top de mise à jour du GDD PEH CAP CGLKPIMO
- * - MT des ressources neutralisées API (MANAPI) * CGLKPIMO
- * - MT de l'abattement ressources API (MANAPI-ABATT)* CGLKPIMO
- * - MT de l'interressement API (MINTPI) * CGLKPIMO
- * - MT abattement frais * CGLKPIMO
- * - MT réduction hospitalisation * CGLKPIMO
- * - MT abattement préfét (RMI) * CGLKPIMO
- * - MT abattement à venir (RMI) * CGLKPIMO
- * - MT interessement * CGLKPIMO
- * - Indicateur d'interessement * CGLKPIMO
- * - CD titre AVPF * CGLKPIMO
- * - Code assurance maladie * CGLKPIMO
- * - Code enfant API moins de 3 ans * CGLKPIMO
- * - Top de mise a jour du gdd EAP * CGLKPIMO
- * - Indicateur de droit RMI * CGLKPIMO
- * - Indicateur prise en cpte ressources RMI * CGLKPIMO
- * - Top de mise a jour du gdd PEHCRE * CGLKPIMO
- * - Top de mise a jour du gdd PEHCRM * CGLKPIMO
- * - Top de mise a jour du gdd PEHMRP * CGLKPIMO
- * - FL indicateur d'abattement/neutralisation CGLKPIMO
- * - Taux d'activite APE CGLKPIMO
- * - Taux prise en charge AGED CGLKPIMO
- 15 LS-P2. CGLKPIMO
- **** 20 LS-P2-FIL OCCURS 27 INDEXED BY IX-PER2. CGLKPIMO
- 20 LS-P2-FIL OCCURS 27 CGLKPIMO
- INDEXED BY IX-PER2 IX-PER2B. CGLKPIMO
- *--- 1ere etape (2è etape = pic X value 'O' et space.) CGLKPIMO
- *--- (3è etape = LS-FL-PRES-OCCUR-RESS dégage) CGLKPIMO
- * CGLKPIMO
- *--- Occurrence presente O/N pour les ressources. CGLKPIMO
- 25 LS-PER2-PRES-PR-RESS PIC 9. CGLKPIMO
- 88 LS-FL-PER2-PRES-PR-RESS-OUI VALUE 1. CGLKPIMO
- 88 LS-FL-PER2-PRES-PR-RESS-NON VALUE 0. CGLKPIMO
- 25 LS-FL-PRES-OCCUR-RESS REDEFINES CGLKPIMO
- LS-PER2-PRES-PR-RESS PIC 9. CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- *** A998.CCR1308B : Zone devant disparaitre mais impossible * CGLKPIMO
- *** (le 25/04/02) à cause de la SIMULATION * CGLKPIMO
- 25 LS-FL-PRES-RESS-AAS PIC 9. CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- 25 LS-MT-RNC1 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC1A PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC1B PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC2 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC2A PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC2B PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC2C PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC3 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC3A PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC3B PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC4 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC4A PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC4B PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC5 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC6 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC7 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC8 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-EFR PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CAT1 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-EVA1 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-EVA2 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-REV1 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-REV2 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-REV2A PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-REV2B PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-REV3 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-REV4 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-REV5 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CNC1 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CNC1A PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CNC1B PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CNC1BIS PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CNC4 PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CNC4A PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CNC4B PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNCH PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CNCHBIS PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CNCH PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RNC4H PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CTIH PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-RESSOURCES PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- PRESENCE O/N de ressources pour l'occ (utile à ENF/AUT)CGLKPIMO
- 25 LS-FL-PRE-RESS-ENF-AUT PIC X. CGLKPIMO
- 25 LS-BLOC-RESS-LOG-ENF-AUT PIC X. CGLKPIMO
- 88 LS-FL-BLOC-RESS-LOG-POSITIONNE VALUE 'O'. CGLKPIMO
- 25 LS-MT-ABATT-SPE-FIS PIC S9(11)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-RMI-MSNET-SSAB PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-RMI-MSNET-AVAB PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-RMI-TRBRUT-SSAB PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-RMI-MSNET PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MTRESMEN PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- D710P.MTRESPRP Montant mensuel pour PRP. CGLKPIMO
- 25 LS-MTRESPRP PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- D710P.MTMOYRA Montant moyen des revenus d'activité CGLKPIMO
- 25 LS-MTMOYRA PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--------- Trois occurrences pour les zones suivantes CGLKPIMO
- *--- concernant le RSA : CGLKPIMO
- *--- 1 ==> RSI CGLKPIMO
- *--- 2 ==> RSD CGLKPIMO
- *--- 3 ==> RSJ CGLKPIMO
- 25 LS-WS-MONT-RSA CGLKPIMO
- OCCURS 3 CGLKPIMO
- INDEXED BY IX-MT-RS. CGLKPIMO
- *--- MT de l'abattement CG {D710P.MTABACG} CGLKPIMO
- 30 LS-MTABACG PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- MT de la neutral. CG {D710P.MTREVNEU} CGLKPIMO
- 30 LS-MTREVNEU PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- D710P.MTREXPEC Montant ressource 006 pris en compte.CGLKPIMO
- 30 LS-MTREXPEC PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- CGLKPIMO
- 25 LS-MT-RMI-TRBRUT PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-RSA-TRBRUT PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-PAF-TRBRUT PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-AVANTAGE-NAT PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- D710P.CDNATE01 - Indicateur de condition de nationalité CGLKPIMO
- 25 LS-P2-CDNATE01 PIC X. CGLKPIMO
- *--- Indicateur de condition de nationalité, non positionné CGLKPIMO
- 88 LS-FL-P2-CDNATE01-NON-POSIT VALUE SPACE. CGLKPIMO
- *--- Indicateur de condition de nationalité, positionné. CGLKPIMO
- 88 LS-FL-P2-CDNATE01-POSIT VALUE 'P'. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur de condition de nationalité DD compose dossier : CGLKPIMO
- 25 LS-CDNATE02-NATIO-DOSS PIC X. CGLKPIMO
- 88 LS-CDNATE02-FL-NATIO-DOSS-OK VALUE 'O'. CGLKPIMO
- 88 LS-CDNATE02-FL-NATIO-DOSS-KO VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur de condition de national. RSA DD compose dossier :CGLKPIMO
- 25 LS-CDNATE03-NATIO-DOSS PIC X. CGLKPIMO
- 88 LS-CDNATE03-FL-NATIO-DOSS-OK VALUE 'O'. CGLKPIMO
- 88 LS-CDNATE03-FL-NATIO-DOSS-KO VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur de condition de national. RSA DD compose dossier :CGLKPIMO
- 25 LS-CDNATE04-NATIO-DOSS PIC X. CGLKPIMO
- 88 LS-CDNATE04-FL-NATIO-DOSS-OK VALUE 'O'. CGLKPIMO
- 88 LS-CDNATE04-FL-NATIO-DOSS-KO VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur de condition de national. CEE pour l'ARS CGLKPIMO
- 25 LS-P2-CDNATARS PIC X. CGLKPIMO
- 88 LS-FL-P2-CDNATARS VALUE ' '. CGLKPIMO
- 88 LS-FL-P2-CDNATARS-O VALUE 'O'. CGLKPIMO
- 88 LS-FL-P2-CDNATARS-N VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--- D710P.CDSITU01 Indicateur de condition de situation. CGLKPIMO
- 25 LS-P2-CDSITU01 PIC X. CGLKPIMO
- *--- Indicateur de condition de situation, non positionnéCGLKPIMO
- 88 LS-FL-P2-CDSITU01-NON-POSIT VALUE SPACE. CGLKPIMO
- *--- Indicateur de condition de situation, positionné. CGLKPIMO
- 88 LS-FL-P2-CDSITU01-POSIT VALUE 'P'. CGLKPIMO
- * CGLKPIMO
- 25 LS-FL-SIT-ENF-INAS PIC X. CGLKPIMO
- 88 LS-FL-ENF-INAS-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-ENF-INAS-NON VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--- D710P.CDRESI01 Indicateur de condition de résidence CGLKPIMO
- 25 LS-P2-CDRESI01 PIC X. CGLKPIMO
- *--- Valeur significative de non positionné, non OK. CGLKPIMO
- 88 LS-FL-P2-CDRESI01-NON-POSIT VALUE SPACE. CGLKPIMO
- *--- Valeur significative de positionné, OK. CGLKPIMO
- 88 LS-FL-P2-CDRESI01-POSIT VALUE 'P'. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur de condition de résidence DD compose dossier : CGLKPIMO
- 25 LS-CDRESI02-RESID-DOSS PIC X. CGLKPIMO
- *--- Valeurs significatives de non positionné, non OK : CGLKPIMO
- 88 LS-FL-P2-CDRESI02-NON-POSIT CGLKPIMO
- VALUE SPACE 'N'. CGLKPIMO
- *--- Valeurs significatives de positionné, OK, OUI CGLKPIMO
- 88 LS-FL-P2-CDRESI02-POSIT VALUE 'P' 'O'. CGLKPIMO
- *--- Valeurs pour "positionner" LS-P2-CDRESI02-DOSS CGLKPIMO
- 88 LS-FL-P2-CDRESI02-NON-POSIT-N VALUE 'N'. CGLKPIMO
- 88 LS-FL-P2-CDRESI02-POSIT-P VALUE 'P'. CGLKPIMO
- 88 LS-FL-P2-CDRESI02-POSIT-OUI VALUE 'O'. CGLKPIMO
- 88 LS-CDRESI02-FL-RESID-DOSS-OK VALUE 'O'. CGLKPIMO
- 88 LS-CDRESI02-FL-RESID-DOSS-KO VALUE 'N'. CGLKPIMO
- CGLKPIMO
- * CGLKPIMO
- *--- Indicateur de condition de résidence RSA DD compose dossier :CGLKPIMO
- 25 LS-CDRESI03-RESID-DOSS PIC X. CGLKPIMO
- *--- Valeurs significatives de non positionné, non OK : CGLKPIMO
- 88 LS-FL-P2-CDRESI03-NON-POSIT CGLKPIMO
- VALUE SPACE 'N'. CGLKPIMO
- *--- Valeurs significatives de positionné, OK, OUI CGLKPIMO
- 88 LS-FL-P2-CDRESI03-POSIT VALUE 'P' 'O'. CGLKPIMO
- *--- Valeurs pour "positionner" LS-P2-CDRESI02-DOSS CGLKPIMO
- 88 LS-FL-P2-CDRESI03-NON-POSIT-N VALUE 'N'. CGLKPIMO
- 88 LS-FL-P2-CDRESI03-POSIT-P VALUE 'P'. CGLKPIMO
- 88 LS-FL-P2-CDRESI03-POSIT-OUI VALUE 'O'. CGLKPIMO
- 88 LS-CDRESI03-FL-RESID-DOSS-OK VALUE 'O'. CGLKPIMO
- 88 LS-CDRESI03-FL-RESID-DOSS-KO VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--- D710P.CDRESI04 Indicateur de condition de résidence RSA CGLKPIMO
- 25 LS-P2-CDRESI04 PIC X. CGLKPIMO
- *--- Valeurs significatives de non positionné, non OK : CGLKPIMO
- 88 LS-FL-P2-CDRESI04-NON-POSIT VALUE SPACE 'N'. CGLKPIMO
- *--- Valeurs significatives de positionné, OK, OUI CGLKPIMO
- 88 LS-FL-P2-CDRESI04-POSIT VALUE 'P' 'O'. CGLKPIMO
- *--- Valeurs pour "positionner" LS-P2-CDRESI04 : CGLKPIMO
- 88 LS-FL-P2-CDRESI04-NON-POSIT-N VALUE 'N'. CGLKPIMO
- 88 LS-FL-P2-CDRESI04-POSIT-P VALUE 'P'. CGLKPIMO
- 88 LS-FL-P2-CDRESI04-POSIT-OUI VALUE 'O'. CGLKPIMO
- CGLKPIMO
- *--- D710P.CDRESI05 Indicateur de condition de résidence PPA CGLKPIMO
- 25 LS-P2-CDRESI05 PIC X. CGLKPIMO
- *--- Valeurs significatives de non positionné, non OK : CGLKPIMO
- 88 LS-FL-P2-CDRESI05-NON-POSIT VALUE SPACE 'N'. CGLKPIMO
- 88 LS-FL-P2-CDRESI05-NON-POSIT-N VALUE 'N'. CGLKPIMO
- *--- Valeurs significatives de positionné, OK, OUI CGLKPIMO
- 88 LS-FL-P2-CDRESI05-POSIT VALUE 'O'. CGLKPIMO
- CGLKPIMO
- *--- D710P.CDINVRAT Indicateur PInv/RAT CGLKPIMO
- * Pension invalidité/Rente accident de travail CGLKPIMO
- 25 LS-P2-CDINVRAT PIC X. CGLKPIMO
- *--- Indicateur PInv/RAT non positionné CGLKPIMO
- 88 LS-FL-P2-CDINVRAT-NON-POSIT VALUE SPACE. CGLKPIMO
- *--- Indicateur de condition de situation, positionné. CGLKPIMO
- 88 LS-FL-P2-CDINVRAT-POSIT VALUE 'P'. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur PRE par personne CGLKPIMO
- 25 LS-CDINDPRE PIC X. CGLKPIMO
- 88 LS-CDINDPRE-OK VALUE 'O'. CGLKPIMO
- 88 LS-CDINDPRE-NOK VALUE 'N'. CGLKPIMO
- *--- Indicateur PRL par personne CGLKPIMO
- 25 LS-CDINDPRL PIC X. CGLKPIMO
- 88 LS-CDINDPRL-OK VALUE 'O'. CGLKPIMO
- 88 LS-CDINDPRL-NOK VALUE 'N'. CGLKPIMO
- *--- Date de reprise d'activité par personne CGLKPIMO
- 25 LS-DTREPACT PIC S9(09) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- Code Interessement Initial CGLKPIMO
- 25 LS-CDINTINI PIC X(3). CGLKPIMO
- 88 FL-CDINTINI-API VALUE 'API'. CGLKPIMO
- 88 FL-CDINTINI-RMI VALUE 'RMI'. CGLKPIMO
- *--- Droit API-RMI/Reprise activité CGLKPIMO
- 25 LS-CDREPACT PIC X. CGLKPIMO
- 88 FL-CDREPACT-OK VALUE 'O'. CGLKPIMO
- 88 FL-CDREPACT-NOK VALUE 'N'. CGLKPIMO
- *--- Indicateur FG ABANEUAPI saisi CGLKPIMO
- 25 LS-CDABANEU PIC X. CGLKPIMO
- 88 FL-CDABANEU-OK VALUE 'O'. CGLKPIMO
- 88 FL-CDABANEU-NOK VALUE 'N'. CGLKPIMO
- CGLKPIMO
- 25 LS-CD-CHARG-CGOD PIC X. CGLKPIMO
- *--- Non a charge au sens CGOD : CGLKPIMO
- 88 LS-CACHAR-FL-NON-A-CHRG-CGOD VALUE SPACE. CGLKPIMO
- *--- A charge au sens CGOD CGLKPIMO
- 88 LS-CACHAR-FL-CHRG-SENS-CGOD VALUE 'O'. CGLKPIMO
- *--- A charge au sens CGOD et resid. alternee AF seules CGLKPIMO
- 88 LS-CACHAR-FL-CHRG-SENS-CGOD-A VALUE 'A'. CGLKPIMO
- 25 LS-CP-JOURS-PAYER PIC S9(3) COMP-3. CGLKPIMO
- 25 LS-QT-JOURS-RELIQUAT PIC S9(3) COMP-3. CGLKPIMO
- 25 LS-TOP-MAJ-RD0 PIC 9. CGLKPIMO
- 25 LS-DF-STOCK-FLUX PIC S9(9) COMP-3. CGLKPIMO
- 25 LS-MT-RESS-NEUTR PIC S9(5)V99 COMP-3. CGLKPIMO
- 25 LS-TOP-MAJ-PEHCAP PIC 9. CGLKPIMO
- 25 LS-MANAPI PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- MT de l'abattement ressources API CGLKPIMO
- 25 LS-MANAPI-ABATT PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- MT de l'intéressement réel API CGLKPIMO
- 25 LS-MINTPI PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- MT de l'intéressement théorique API CGLKPIMO
- 25 LS-MITHEP PIC S9(5)V99 COMP-3. CGLKPIMO
- 25 LS-MT-ABATT-FRAIS PIC S9(5)V99 COMP-3. CGLKPIMO
- 25 LS-MT-REDUC-HOSP PIC S9(5)V99 COMP-3. CGLKPIMO
- 25 LS-MT-ABATT-PCOGEN PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-ABATT-DEMANDE PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-ABATT-A-VENIR PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- MT de l'intéressement réel RMI CGLKPIMO
- 25 LS-MT-INTERESS PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- MT de l'intéressement théorique RMI CGLKPIMO
- 25 LS-MITHEM PIC S9(5)V99 COMP-3. CGLKPIMO
- 25 LS-FL-INTERESS PIC X. CGLKPIMO
- *--- code titre AVP autre que CSF CGLKPIMO
- 25 LS-CD-TITRE-AVPF PIC XX. CGLKPIMO
- 88 LS-FL-AVPF-APE2 VALUE 'P2'. CGLKPIMO
- 88 LS-FL-AVPF-APE3 VALUE 'P3'. CGLKPIMO
- 88 LS-FL-AVPF-AJPP VALUE 'AJ'. CGLKPIMO
- *--- code titre AVP CSF CGLKPIMO
- 25 LS-CD-TITRE-AVPF2 PIC XX. CGLKPIMO
- 25 LS-CD-E3API PIC X. CGLKPIMO
- 25 LS-TOP-MAJ-EAP PIC 9. CGLKPIMO
- 25 LS-RAZ-P2. CGLKPIMO
- 30 LS-IND-DROIT-RSA PIC X. CGLKPIMO
- *--- D710P.MTRESENF Montant mensuel net des ressources à charge CGLKPIMO
- *--- 25 LS-MTRESENF PIC S9(5)V9(2) COMP-3. CGLKPIMO
- 25 LS-MTRESENF PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- {D710P.MTRESENF-INDIC CGLKPIMO
- 25 LS-FL-MTRESENF-INDIC PIC X. CGLKPIMO
- 88 LS-FL-MTRESENF-SIGNIF VALUE 'O'. CGLKPIMO
- 88 LS-FL-MTRESENF-NON-SIGNIF VALUE 'N'. CGLKPIMO
- *--- {D710P.CDCHRSA} Indicateur non à charge RSA CGLKPIMO
- 25 LS-CDCHRSA PIC X. CGLKPIMO
- *--- Valeurs significatives de positionné: NON (à charge)CGLKPIMO
- 88 LS-FL-CDCHRSA-POSIT VALUE 'P' 'N'. CGLKPIMO
- 88 LS-FL-CDCHRSA-POSIT-P VALUE 'P'. CGLKPIMO
- 88 LS-FL-CDCHRSA-NON VALUE 'N'. CGLKPIMO
- *--- Valeurs significatives d'indic non positionné CGLKPIMO
- 88 LS-FL-CDCHRSA-NON-POSIT VALUE ' ' 'O'. CGLKPIMO
- * CGLKPIMO
- *--- D710P.CDNCHPAF : Indicateur non a charge PPA CGLKPIMO
- 25 LS-P2-CDNCHPAF PIC X. CGLKPIMO
- 88 LS-FL-P2-CDNCHPAF-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-FL-P2-CDNCHPAF-POSIT-P VALUE 'P'. CGLKPIMO
- 88 LS-FL-P2-CDNCHPAF-NON-POSIT VALUE ' '. CGLKPIMO
- * CGLKPIMO
- 25 LS-TOP-MAJ-PEHCRE PIC 9. CGLKPIMO
- 25 LS-TOP-MAJ-PEHCRM PIC 9. CGLKPIMO
- *--- Top pour màj PEHMRP (différenciation "montants nuls calculés"CGLKPIMO
- *--- et "pas d'occurrence" CGLKPIMO
- 25 LS-TOP-MAJ-PEHMRP PIC 9. CGLKPIMO
- 25 LS-INDIC-ACT-SID PIC 9. CGLKPIMO
- 88 LS-FL-INDIC-ACT-SID VALUE 1. CGLKPIMO
- * * CGLKPIMO
- * ne pas changer ces valeurs sans voir dringue le 16.1.95 * CGLKPIMO
- * CGLKPIMO
- 25 LS-TXACTI01-G. CGLKPIMO
- 30 LS-TXACTI01 OCCURS 13 CGLKPIMO
- INDEXED BY IX-TX-PJ3 CGLKPIMO
- IX-PJ3-TX-1 CGLKPIMO
- IX-PJ3-TX-2 CGLKPIMO
- IX-TX-PJ6 CGLKPIMO
- IX-PJ6-TX-1 CGLKPIMO
- IX-PJ6-TX-2 CGLKPIMO
- PIC 9. CGLKPIMO
- 88 LS-TXACTI01-FL-NON-SIGNIFIKTIF VALUE 9. CGLKPIMO
- 88 LS-TXACTI01-FL-TX-PLEIN VALUE 0. CGLKPIMO
- 88 LS-TXACTI01-FL-TX-UN-DEMI VALUE 1. CGLKPIMO
- 88 LS-TXACTI01-FL-TX-DEUX-TIERS VALUE 2. CGLKPIMO
- 88 LS-TXACTI01-FL-TX-COLCA VALUE 3. CGLKPIMO
- 88 LS-TXACTI01-FL-TX-PARTIEL VALUE 1 2. CGLKPIMO
- *--- Anciennes zones avant D710P deviennent le redefines CGLKPIMO
- *--- pr pouvoir etre supprimees plus facilement de LKPIMO CGLKPIMO
- 25 LS-TX-ACT-PPEE REDEFINES LS-TXACTI01-G. CGLKPIMO
- 30 LS-TAUX-ACT-PPEE OCCURS 13 CGLKPIMO
- INDEXED BY IX-TX-APE CGLKPIMO
- IX-TX-PPEE PIC 9. CGLKPIMO
- 88 LS-FL-TAUX-ACT-PPEE-UN-DEMI VALUE 1. CGLKPIMO
- 88 LS-FL-TAUX-ACT-PPEE-DEUX-TIERS VALUE 2. CGLKPIMO
- 25 LS-TAB-CDPERPJ6. CGLKPIMO
- 30 LS-POS-CDPERPJ6 OCCURS 13 CGLKPIMO
- INDEXED BY IX-PJ6-PER-PELEM CGLKPIMO
- IX-PJ6-PER-1-PELEM CGLKPIMO
- IX-PJ6-PER-2-PELEM. CGLKPIMO
- *--- D710P.CDACTCJT : Indicateur activité conjoint CGLKPIMO
- 35 LS-CDACTCJT PIC X. CGLKPIMO
- 88 LS-FL-CDACTCJT-NON VALUE 'N'. CGLKPIMO
- 88 LS-FL-CDACTCJT-OUI VALUE 'O'. CGLKPIMO
- 25 LS-TX-AC-PPEE-ECR PIC 9. CGLKPIMO
- 88 LS-FL-TX-AC-PPEE-PAS-ECR VALUE 0. CGLKPIMO
- 88 LS-FL-TX-AC-PPEE-A-ECR VALUE 1. CGLKPIMO
- CGLKPIMO
- 25 LS-TAUX-ACT-PPEE-AVPF PIC 9. CGLKPIMO
- 88 LS-FL-TX-ACT-PPEE-AVPF-1-DEMI VALUE 1. CGLKPIMO
- 88 LS-FL-TX-ACT-PPEE-AVPF-2-TIERS VALUE 2. CGLKPIMO
- CGLKPIMO
- *--- Montant initial APE pour chaque occ. bénéficiaire CGLKPIMO
- 25 LS-MT-APE-INITIAL PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- TAUX DE PRISE EN CHARGE AGED CGLKPIMO
- 25 LS-TAUXAG PIC X(3). CGLKPIMO
- *--- Indicateur AJ3 --* CGLKPIMO
- 25 LS-INDIC-AJ3 PIC X(1). CGLKPIMO
- 88 LS-INDIC-AJ3-OK VALUE 'O'. CGLKPIMO
- 88 LS-INDIC-AJ3-KO VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur de charge mois de DD compose dossier : CGLKPIMO
- 25 LS-NBENCI01-CHRG-DOSS PIC X. CGLKPIMO
- 88 LS-NBENCI01-FL-CHRG-DOSS-OK VALUE 'O'. CGLKPIMO
- 88 LS-NBENCI01-FL-CHRG-DOSS-KO VALUE 'N'. CGLKPIMO
- *--- Dt deb compos dossier enfant concerné par Indic charge CGLKPIMO
- 25 LS-DTDNDDC PIC S9(9) COMP-3. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- *--- Indicateur Barème Simple. CGLKPIMO
- 25 LS-IND-BAR-SIMPLE PIC X. CGLKPIMO
- 88 FL-IND-BAR-SIMPLE-OUI VALUE 'O'. CGLKPIMO
- 88 FL-IND-BAR-SIMPLE-NON VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--- Trois occurrences pour la zone suivante CGLKPIMO
- *--- concernant le RSA : CGLKPIMO
- *--- 1 ==> RSI CGLKPIMO
- *--- 2 ==> RSD CGLKPIMO
- *--- 3 ==> RSJ CGLKPIMO
- 25 LS-PEHMRP CGLKPIMO
- OCCURS 3 CGLKPIMO
- INDEXED BY IX-PH-RS.CGLKPIMO
- *--- Montant ressources mensuelle RSA -CDPEH- CGLKPIMO
- 30 LS-PEH-MRPRMN PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Montant abattement rsa -CDPEH- CGLKPIMO
- 30 LS-PEH-MRPABN PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Montant revenu exceptionnel -CDPEH- CGLKPIMO
- 30 LS-PEH-MRPEXC PIC S9(7)V99 COMP-3.CGLKPIMO
- * CGLKPIMO
- 25 LS-PEHDAR. CGLKPIMO
- *--- Mtt abattement spécifique AAH -CDPEH- CGLKPIMO
- 30 LS-PEH-MABAAH PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Montant abattement fiscal 10% ou frais réels -CDPEH- CGLKPIMO
- 30 LS-PEH-MABF10 PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Montant abattement fiscal 20%. -CDPEH- CGLKPIMO
- 30 LS-PEH-MABF20 PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Mtt abattement fiscal 30% chômage ou retraite -CDPEH- CGLKPIMO
- 30 LS-PEH-MABF30 PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Mtt neutralisation ressources -CDPEH- CGLKPIMO
- 30 LS-PEH-MNEURE PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Mtt abatt rémunération garantie AAH -CDPEH- CGLKPIMO
- 30 LS-PEH-MARGAH PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- MT abat. fiscal 10% spécifique AAH annuelle -CDPEH- CGLKPIMO
- 30 LS-PEH-MABA10 PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Cd petites pensions exclues -CDPEH- CGLKPIMO
- 30 LS-PEH-CPPNEX PIC X. CGLKPIMO
- CGLKPIMO
- *--- Mois de fin de délai sanction CGLKPIMO
- *--- Indicateur situation ASF à jour CGLKPIMO
- 25 LS-CDCDASF PIC X(1). CGLKPIMO
- 88 LS-CDCDASF-OUI VALUE 'O'. CGLKPIMO
- 88 LS-CDCDASF-NON VALUE 'N'. CGLKPIMO
- *--- Indicateur situation ASF non conforme CGLKPIMO
- 25 LS-CDASFKO PIC X(1). CGLKPIMO
- 88 LS-CDASFKO-OUI VALUE 'O'. CGLKPIMO
- 88 LS-CDASFKO-NON VALUE 'N'. CGLKPIMO
- * D710P.DTSANRSA: Indicateur sanction RSA CGLKPIMO
- *********** FORMAT MODIFIE A/C DE LA V05000 PIC S9(7) -> S9(9). CGLKPIMO
- ******* 25 LS-DTSANRSA PIC S9(7) COMP-3. CGLKPIMO
- *--- D710P.DTSANRSA Mois de fin délai sanction RSA CGLKPIMO
- 25 LS-DTSANRSA PIC S9(9) COMP-3. CGLKPIMO
- * D710P.CDSANPER: Indicateur personne à sanctionner CGLKPIMO
- 25 LS-CDSANPER PIC X(1). CGLKPIMO
- 88 LS-CDSANPER-OUI VALUE 'O'. CGLKPIMO
- 88 LS-CDSANPER-NON VALUE 'N'. CGLKPIMO
- * D710P.CDORISAN: CD origine créance alimentaire CGLKPIMO
- 25 LS-CDORISAN PIC X(3). CGLKPIMO
- * D710P.MTSANPER: MT de la sanction CGLKPIMO
- 25 LS-MTSANPER PIC S9(7)V99 COMP-3. CGLKPIMO
- *---- sauvegarde du LKMO-PE0NAA en début traitement CGLKPIMO
- *---- le LKMO-PE0NAA de monsieur et madame pouvant être CGLKPIMO
- *---- modifié en cours de traitement (CGRF22P) CGLKPIMO
- *---- cette LS sera restaurée par CGM130 pour éviter les CGLKPIMO
- *---- problèmes de rechargement de LKMO à partir de la CGLKPIMO
- *---- banalisée PEH. CGLKPIMO
- 25 LS-CDPE0NAA OCCURS 2 CGLKPIMO
- INDEXED BY IX-PEHNAA-SIT. CGLKPIMO
- 29 LS-EACMAH PIC S9(9) COMP-3. CGLKPIMO
- 29 LS-FACMAH PIC S9(9) COMP-3. CGLKPIMO
- 29 LS-CDPEINAA. CGLKPIMO
- 34 LS-CACTIV2 PIC X(3). CGLKPIMO
- 34 LS-EACTPN3 PIC S9(9) COMP-3. CGLKPIMO
- *---- CGLKPIMO
- *--- Indicateur PA/PI (pour avp) CGLKPIMO
- 25 LS-INDIC-PAPI PIC X(2). CGLKPIMO
- 88 FL-INDIC-PI VALUE 'PI'. CGLKPIMO
- 88 FL-INDIC-PA VALUE 'PA'. CGLKPIMO
- *--- nb jours affil avp CGLKPIMO
- 25 LS-QJRAVP PIC S9(3) COMP-3. CGLKPIMO
- *--- Qunatité de jours pour le CSF CGLKPIMO
- 25 LS-QJRAVP2 PIC S9(3) COMP-3. CGLKPIMO
- *--- Nombre de mois de report API CGLKPIMO
- 25 LS-NBNMR PIC 9(3). CGLKPIMO
- * CGLKPIMO
- *--- Montant Mensuel Ressources RSM {D710P.MTRESSM} CGLKPIMO
- 25 LS-MTRESSM PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Montant IJ à considérer comme salaires {D710P.MTIJSAL} CGLKPIMO
- * (SAUF PAC -> LS-PAC-MTIJSAL) CGLKPIMO
- 25 LS-MTIJSAL PIC S9(7)V99 COMP-3. CGLKPIMO
- * Indicateur "Revenus d'activité" {D710P.CDREVACT} CGLKPIMO
- 25 LS-CDREVACT PIC X. CGLKPIMO
- 88 FL-CDREVACT-OUI VALUE 'O'. CGLKPIMO
- 88 FL-CDREVACT-NON VALUE 'N'. CGLKPIMO
- *--- Indicateur REVEXNEU {D710P.CDREVEXN} CGLKPIMO
- *--- POUR RSA effet fige, zone est en WORKING CGMK01W ET CGML01W CGLKPIMO
- 25 LS-CDREVEXN PIC X. CGLKPIMO
- 88 FL-CDREVEXN-OUI VALUE 'O'. CGLKPIMO
- 88 FL-CDREVEXN-NON VALUE 'N'. CGLKPIMO
- *--- Code forçage AVP autre que CSF CGLKPIMO
- 25 LS-CFOAVP PIC X(1). CGLKPIMO
- *--- Code forçage AVP CSF CGLKPIMO
- 25 LS-CFOAVP2 PIC X(1). CGLKPIMO
- *--- CCR2595B - D710P.DTNAIENM DN+Rg dans DN enfant maintenu CGLKPIMO
- *--- contient le nficpn de l'enfant, mieux que DN+Rg CGLKPIMO
- 25 LS-P2-DTNAIENM-NFICPN PIC S9(7) COMP-3. CGLKPIMO
- 25 F PIC X(30). CGLKPIMO
- * CGLKPIMO
- 25 LS-P2-PELEM OCCURS 275 INDEXED BY IX-P2-PELEM-1 CGLKPIMO
- IX-P2-PELEM-2 IX-P2-PELEM-3. CGLKPIMO
- *--- D710P.CDPECRES Indic. de prise en compte des ress. CGLKPIMO
- 30 LS-P2-CDPECRES PIC X(1). CGLKPIMO
- 88 LS-FL-P2-CDPECRES-NON-POSIT VALUE SPACE 'A'. CGLKPIMO
- *--- -POSIT tout court permet d'ajouter des CGLKPIMO
- *--- value significatives de 'positionné' CGLKPIMO
- 88 LS-FL-P2-CDPECRES-POSIT VALUE 'P'. CGLKPIMO
- *--- -POSIT-P valeur par defaut de 'positionné' CGLKPIMO
- 88 LS-FL-P2-CDPECRES-POSIT-P VALUE 'P'. CGLKPIMO
- *--- -POSIT-N valeur positionné à NON CGLKPIMO
- 88 LS-FL-P2-CDPECRES-POSIT-N VALUE 'N'. CGLKPIMO
- *--- -POSIT-A valeur positionné à ABS CGLKPIMO
- 88 LS-FL-P2-CDPECRES-POSIT-A VALUE 'A'. CGLKPIMO
- *--- D710P.MTRESMEN Montant mensuel net CGLKPIMO
- 30 LS-P2-MTRESMEN PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- D710P.MTRESPRP Montant mensuel pour PRP. CGLKPIMO
- 30 LS-P2-MTRESPRP PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- D710P.MTRESCON - MT mensuel/consultation CGLKPIMO
- 30 LS-P2-MTRESCON PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- D710P.MTRESRS - Cumul des revenus RSA CGLKPIMO
- 30 LS-P2-MTRESRS PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- D710P.MTCUMRSA - Cumul Intégral CGLKPIMO
- 30 LS-P2-MTCUMRSA PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- D710P.MTREVEX - Somme revenus exceptionnels trimrefCGLKPIMO
- 30 LS-P2-MTREVEX PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- D710P.CDPR014 - Indicateur présence 014 CGLKPIMO
- 30 LS-P2-CDPR014 PIC X(01). CGLKPIMO
- 88 LS-FL-P2-CDPR014-NON-POSIT VALUE SPACE. CGLKPIMO
- 88 LS-FL-P2-CDPR014-POSIT VALUE 'P'. CGLKPIMO
- *--- Indicateur présence ou absence ressource (CGRK50P) CGLKPIMO
- 30 LS-P2-RESSOURCES-TRIM PIC X(01). CGLKPIMO
- 88 LS-FL-P2-RESSOURCES-TRIM-PRES VALUE 'P'. CGLKPIMO
- 88 LS-FL-P2-RESSOURCES-TRIM-ABS VALUE 'A'. CGLKPIMO
- *--- D710P.IDENFT : Identifiant enfants RSA figé majoré CGLKPIMO
- 30 LS-P2-IDENFT PIC S9(07) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- Zone MAJ DRESMO: il y a 2 occurrences pour le cas CGLKPIMO
- * où le trimestre traité englobe 2 exercices... CGLKPIMO
- 25 LS-P2-MAJ-DRESMO OCCURS 2 CGLKPIMO
- INDEXED BY IX-P2-DRESMO. CGLKPIMO
- 30 LS-P2-DRESMO-AVANT PIC S9(09) COMP-3. CGLKPIMO
- 30 LS-P2-DRESMO-APRES PIC S9(09) COMP-3. CGLKPIMO
- CGLKPIMO
- CGLKPIMO
- *--- Date ouverture de droit AVPN4 CGLKPIMO
- 25 LS-DTODAVP4 PIC S9(09) COMP-3. CGLKPIMO
- *--- D710P.CDJUSARS : Indicateur validite justification enfant ARSCGLKPIMO
- 25 LS-P2-CDJUSARS PIC X. CGLKPIMO
- *--- Indicateur non positionne CGLKPIMO
- 88 LS-FL-P2-CDJUSARS-NON-POSIT VALUE SPACE. CGLKPIMO
- *--- Indicateur positionne CGLKPIMO
- 88 LS-FL-P2-CDJUSARS-POSIT VALUE 'P'. CGLKPIMO
- *--- D710P.CDFILIEP : Indicateur de filiere CGLKPIMO
- 25 LS-P2-CDFILIEP PIC X. CGLKPIMO
- 88 LS-FL-P2-CDFILIEP-NON-POSIT VALUE SPACE. CGLKPIMO
- 88 LS-FL-P2-CDFILIEP-POSIT VALUE 'P'. CGLKPIMO
- CGLKPIMO
- 20 LS-TAB-RSNAPR OCCURS 10 INDEXED BY IX-RSNAPR. CGLKPIMO
- 25 LS-PER-ASF OCCURS 2 INDEXED BY IX-PER-ASF. CGLKPIMO
- *-- Mt cumulé ASF ancien tx recouvr. par code débiteurCGLKPIMO
- 30 LS-MTAASFR PIC S9(7)V99 COMP-3. CGLKPIMO
- *-- Mt cumulé ASF ancien tx non recouvrable CGLKPIMO
- 30 LS-MTAASFNR PIC S9(7)V99 COMP-3. CGLKPIMO
- *-- Mt cumulé ASF complementaire ancien taux CGLKPIMO
- 30 LS-MTAASFC PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Rsnapr CGLKPIMO
- 30 LS-RSNAPR-ASF PIC X(2). CGLKPIMO
- CGLKPIMO
- CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- * * CGLKPIMO
- * *** table prest. élémentaire * CGLKPIMO
- * - INdicateur d'ouverture de droit * CGLKPIMO
- * - Code resultat pelem * CGLKPIMO
- * - QT droits à la prestation élémentaire * CGLKPIMO
- * - MT assiette ressources * CGLKPIMO
- * - Code résultat assiette ressources * CGLKPIMO
- * (anciennement Code forçage assiette ressources) * CGLKPIMO
- * - QT enfants à charge * CGLKPIMO
- * - QT autres personnes à charge * CGLKPIMO
- * - cpt d'enfants pour derogation age CF/AL/APL * CGLKPIMO
- * ( {D710M.CTGQ805} : LS-T1-Q1520A-21 ) * CGLKPIMO
- * - MT pension alimentaire reçue * CGLKPIMO
- * - MT ASF fictive à déduire * CGLKPIMO
- * - MT PA fictive à déduire CGLKPIMO
- * - QT occur mr/mme présent RMI * CGLKPIMO
- * - QT Enfants infirmes RMI * CGLKPIMO
- * - QT personnes à charge RMI * CGLKPIMO
- * - Indicateur d'hébergement CHRS * CGLKPIMO
- * - indicateur retour foyer ARS. * CGLKPIMO
- * * CGLKPIMO
- 15 LS-T1. CGLKPIMO
- 20 LS-T1-PELEM OCCURS 275 CGLKPIMO
- INDEXED BY IX-T1-1 IX-T1-2 IX-T1-3. CGLKPIMO
- 25 LS-T1-COVDRO PIC X. CGLKPIMO
- 88 LS-T1-FL-DRT-BLAN VALUE ' '. CGLKPIMO
- 88 LS-T1-FL-DRT-NO-OVT VALUE 'N'. CGLKPIMO
- 88 LS-T1-FL-DRT-REEL VALUE 'R'. CGLKPIMO
- 88 LS-T1-FL-DRT-THEO VALUE 'T'. CGLKPIMO
- 88 LS-T1-FL-DRT-NO-OVT-FOR CGLKPIMO
- VALUE 'F' 'C' 'A' 'P' 'X'. CGLKPIMO
- 88 LS-T1-FL-DRT-REEL-FOR CGLKPIMO
- VALUE 'G' 'D' 'B' 'Q' 'Y'. CGLKPIMO
- 88 LS-T1-FL-DRT-THEO-FOR CGLKPIMO
- VALUE 'H' 'E' 'I' 'S' 'Z'. CGLKPIMO
- 88 LS-T1-FL-DRT-NO-OVT-LEV VALUE 'F'. CGLKPIMO
- 88 LS-T1-FL-DRT-REEL-LEV VALUE 'G'. CGLKPIMO
- 88 LS-T1-FL-DRT-THEO-LEV VALUE 'H'. CGLKPIMO
- 88 LS-T1-FL-DRT-NO-OVT-CONV VALUE 'C'. CGLKPIMO
- 88 LS-T1-FL-DRT-REEL-CONV VALUE 'D'. CGLKPIMO
- 88 LS-T1-FL-DRT-THEO-CONV VALUE 'E'. CGLKPIMO
- 88 LS-T1-FL-DRT-NO-OVT-CRI VALUE 'A'. CGLKPIMO
- 88 LS-T1-FL-DRT-REEL-CRI VALUE 'B'. CGLKPIMO
- 88 LS-T1-FL-DRT-THEO-CRI VALUE 'I'. CGLKPIMO
- 88 LS-T1-FL-DRT-NO-OVT-PRE VALUE 'P'. CGLKPIMO
- 88 LS-T1-FL-DRT-REEL-PRE VALUE 'Q'. CGLKPIMO
- 88 LS-T1-FL-DRT-THEO-PRE VALUE 'S'. CGLKPIMO
- 88 LS-T1-FL-DRT-NO-OVT-AUT VALUE 'X'. CGLKPIMO
- 88 LS-T1-FL-DRT-REEL-AUT VALUE 'Y'. CGLKPIMO
- 88 LS-T1-FL-DRT-THEO-AUT VALUE 'Z'. CGLKPIMO
- CGLKPIMO
- 25 LS-T1-INFOS. CGLKPIMO
- 30 LS-T1-CWMOND PIC XX. CGLKPIMO
- 88 LS-FL-MND-SPACE VALUE SPACE. CGLKPIMO
- 88 LS-T1-FL-CWMOND-SPACES VALUE SPACES. CGLKPIMO
- 88 LS-FL-RESS-SUP-AU-PLAF VALUE '01'. CGLKPIMO
- 88 LS-FL-BNEF-MOIN-25-ANS VALUE '02'. CGLKPIMO
- 88 LS-FL-ACT-NO-CONF VALUE '03'. CGLKPIMO
- 88 LS-FL-TITR-DE-SEJO-NVAL VALUE '04'. CGLKPIMO
- 88 LS-FL-MTA-INF-SDV VALUE '05'. CGLKPIMO
- 88 LS-FL-MND-ABS-RES VALUE '06'. CGLKPIMO
- 88 LS-FL-MND-ABS-AVI VALUE '07'. CGLKPIMO
- 88 LS-FL-MND-ABS-GAR VALUE '08'. CGLKPIMO
- 88 LS-FL-CWMOND-09 VALUE '09'. CGLKPIMO
- 88 LS-FL-MND-ABS-REN-COT VALUE '10'. CGLKPIMO
- 88 LS-FL-CWMOND-11 VALUE '11'. CGLKPIMO
- 88 LS-FL-MND-ABS-ACC VALUE '12'. CGLKPIMO
- 88 LS-FL-MND-ABS-PRE-ETR VALUE '13'. CGLKPIMO
- 88 LS-FL-MND-AD-NON-JUS VALUE '14'. CGLKPIMO
- 88 LS-FL-CWMOND-15 VALUE '15'. CGLKPIMO
- 88 LS-FL-MND-SUR VALUE '16'. CGLKPIMO
- 88 LS-FL-MND-INS VALUE '17'. CGLKPIMO
- 88 LS-FL-MND-ABS-LOY VALUE '18'. CGLKPIMO
- 88 LS-FL-CWMOND-19 VALUE '19'. CGLKPIMO
- 88 LS-T1-FL-CWMOND-19-PAS-D-ISOL VALUE '19'. CGLKPIMO
- 88 LS-FL-MND-ABS-RES-LOY VALUE '20'. CGLKPIMO
- 88 LS-FL-MND-FIN-AMO VALUE '21'. CGLKPIMO
- 88 LS-FL-MND-DEM VALUE '22'. CGLKPIMO
- 88 LS-FL-LOG-ABS-DRO VALUE '23'. CGLKPIMO
- 88 LS-FL-CWMOND-24 VALUE '24'. CGLKPIMO
- 88 LS-FL-CWMOND-25 VALUE '25'. CGLKPIMO
- 88 LS-FL-MND-ABS-AVI-IMP VALUE '26'. CGLKPIMO
- 88 LS-FL-MND-MON-MAJ VALUE '27'. CGLKPIMO
- 88 LS-FL-MND-MON-MIN VALUE '28'. CGLKPIMO
- 88 LS-FL-MND-ABS-REN-CDE VALUE '29'. CGLKPIMO
- 88 LS-FL-MND-SAN-AJE VALUE '30'. CGLKPIMO
- 88 LS-FL-CWMOND-31 VALUE '31'. CGLKPIMO
- 88 LS-FL-CWMOND-32 VALUE '32'. CGLKPIMO
- 88 LS-FL-CWMOND-33 VALUE '33'. CGLKPIMO
- 88 LS-FL-CWMOND-34 VALUE '34'. CGLKPIMO
- 88 LS-FL-CWMOND-35 VALUE '35'. CGLKPIMO
- 88 LS-FL-MND-ABS-TIT-SEJ VALUE '36'. CGLKPIMO
- 88 LS-FL-MND-FIN-ACC-DET VALUE '37'. CGLKPIMO
- 88 LS-FL-MND-ABS-BOR-COT VALUE '38'. CGLKPIMO
- 88 LS-FL-MND-S5S-ENF VALUE '39'. CGLKPIMO
- 88 LS-FL-MND-INF-MIN-EXI VALUE '40'. CGLKPIMO
- 88 LS-FL-MND-REV-NON-FOU VALUE '41'. CGLKPIMO
- 88 LS-FL-MND-RED-RES VALUE '42'. CGLKPIMO
- 88 LS-FL-MND-RED-PNS VALUE '43'. CGLKPIMO
- 88 LS-FL-MND-RED-HOS VALUE '44'. CGLKPIMO
- 88 LS-FL-MND-RED-MAS VALUE '45'. CGLKPIMO
- 88 LS-FL-MND-RED-INC VALUE '46'. CGLKPIMO
- 88 LS-FL-MND-RED-RES-HOS VALUE '47'. CGLKPIMO
- 88 LS-FL-MND-RED-RES-MAS VALUE '48'. CGLKPIMO
- 88 LS-FL-MND-RED-RES-INC VALUE '49'. CGLKPIMO
- 88 LS-FL-MND-RED-PEN-HOS VALUE '50'. CGLKPIMO
- 88 LS-FL-MND-RED-PEN-MAS VALUE '51'. CGLKPIMO
- 88 LS-FL-MND-RED-PEN-INC VALUE '52'. CGLKPIMO
- 88 LS-FL-MND-PEN-SUP-80 VALUE '53'. CGLKPIMO
- 88 LS-FL-MND-ABS-RES-GR VALUE '54'. CGLKPIMO
- 88 LS-FL-MND-ABS-RES-AVI VALUE '55'. CGLKPIMO
- 88 LS-FL-MND-ABS-GR-AVI VALUE '56'. CGLKPIMO
- 88 LS-FL-MND-ABS-RES-GR-AV VALUE '57'. CGLKPIMO
- 88 LS-FL-MND-DGT-HOR-NAI VALUE '58'. CGLKPIMO
- 88 LS-FL-MND-DEM-DGT-TARD VALUE '59'. CGLKPIMO
- 88 LS-FL-MND-ABS-AID-LOG-6 VALUE '60'. CGLKPIMO
- 88 LS-FL-MND-INC-INF-80 VALUE '61'. CGLKPIMO
- 88 LS-FL-MND-ABS-AID-LOG VALUE '62'. CGLKPIMO
- 88 LS-FL-MND-DIF-RED-AAH-A VALUE '63'. CGLKPIMO
- 88 LS-FL-MND-60A-ABS-AVI VALUE '64'. CGLKPIMO
- 88 LS-FL-MND-ABS-AAH VALUE '65'. CGLKPIMO
- 88 LS-FL-MND-PLA-MAJ VALUE '66'. CGLKPIMO
- 88 LS-FL-MND-ABS-RES-IMP VALUE '67'. CGLKPIMO
- 88 LS-FL-MND-IMP-FSL VALUE '68'. CGLKPIMO
- 88 LS-FL-MND-APL-ASS VALUE '69'. CGLKPIMO
- 88 LS-FL-MND-NON-ENG VALUE '70'. CGLKPIMO
- 88 LS-FL-MND-COT-AV-NON-AJ VALUE '71'. CGLKPIMO
- 88 LS-FL-MND-IMP VALUE '72'. CGLKPIMO
- 88 LS-FL-MND-RES-EVA VALUE '73'. CGLKPIMO
- 88 LS-T1-FL-MT-COMP-RED-PEN VALUE '74'. CGLKPIMO
- 88 LS-FL-MND-IND-DEC-SDA VALUE '75'. CGLKPIMO
- 88 LS-FL-CWMOND-76 VALUE '76'. CGLKPIMO
- 88 LS-FL-CWMOND-77 VALUE '77'. CGLKPIMO
- 88 LS-FL-MND-DOM-SURF VALUE '78'. CGLKPIMO
- 88 LS-FL-CWMOND-79 VALUE '79'. CGLKPIMO
- 88 LS-FL-CWMOND-80 VALUE '80'. CGLKPIMO
- 88 LS-FL-CWMOND-81 VALUE '81'. CGLKPIMO
- 88 LS-FL-CWMOND-82 VALUE '82'. CGLKPIMO
- 88 LS-FL-CWMOND-83 VALUE '83'. CGLKPIMO
- 88 LS-FL-CWMOND-84 VALUE '84'. CGLKPIMO
- 88 LS-FL-CWMOND-85 VALUE '85'. CGLKPIMO
- 88 LS-FL-CWMOND-86 VALUE '86'. CGLKPIMO
- 88 LS-FL-CWMOND-87 VALUE '87'. CGLKPIMO
- 88 LS-FL-CWMOND-88 VALUE '88'. CGLKPIMO
- 88 LS-FL-CWMOND-89 VALUE '89'. CGLKPIMO
- 88 LS-FL-CWMOND-90 VALUE '90'. CGLKPIMO
- 88 LS-FL-CWMOND-91 VALUE '91'. CGLKPIMO
- 88 LS-FL-CWMOND-92 VALUE '92'. CGLKPIMO
- 88 LS-FL-MND-ORG-PF VALUE '93'. CGLKPIMO
- 88 LS-FL-CWMOND-94 VALUE '94'. CGLKPIMO
- 88 LS-FL-MND-ABS-ATT VALUE '95'. CGLKPIMO
- 88 LS-FL-CWMOND-96 VALUE '96'. CGLKPIMO
- 88 LS-FL-CWMOND-97 VALUE '97'. CGLKPIMO
- 88 LS-FL-CWMOND-98 VALUE '98'. CGLKPIMO
- 88 LS-FL-AUTR-MFT-RMI VALUE '99'. CGLKPIMO
- 88 LS-FL-CWMOND-AA VALUE 'AA'. CGLKPIMO
- 88 LS-FL-CWMOND-AB VALUE 'AB'. CGLKPIMO
- 88 LS-FL-CWMOND-AC VALUE 'AC'. CGLKPIMO
- *--- compensation bareme unique 'AD' CGLKPIMO
- 88 LS-FL-CWMOND-AD VALUE 'AD'. CGLKPIMO
- 88 LS-FL-CWMOND-AE VALUE 'AE'. CGLKPIMO
- 88 LS-FL-CWMOND-AF VALUE 'AF'. CGLKPIMO
- 88 LS-FL-CWMOND-AG VALUE 'AG'. CGLKPIMO
- 88 LS-FL-CWMOND-AH VALUE 'AH'. CGLKPIMO
- 88 LS-FL-CWMOND-AI VALUE 'AI'. CGLKPIMO
- *--- RMI incompatible avec RSO CGLKPIMO
- 88 LS-FL-CWMOND-AJ VALUE 'AJ'. CGLKPIMO
- 88 LS-FL-CWMOND-AL VALUE 'AL'. CGLKPIMO
- 88 LS-FL-CWMOND-AM VALUE 'AM'. CGLKPIMO
- 88 LS-FL-CWMOND-AN VALUE 'AN'. CGLKPIMO
- 88 LS-FL-CWMOND-AO VALUE 'AO'. CGLKPIMO
- 88 LS-FL-CWMOND-AP VALUE 'AP'. CGLKPIMO
- 88 LS-FL-CWMOND-ABS-24M-RMI-AQ VALUE 'AQ'. CGLKPIMO
- 88 LS-FL-CWMOND-APE-ADOP-AS VALUE 'AS'. CGLKPIMO
- 88 LS-FL-CWMOND-AV VALUE 'AV'. CGLKPIMO
- 88 LS-FL-CWMOND-AW VALUE 'AW'. CGLKPIMO
- 88 LS-FL-CWMOND-PRE-DOS-SUSP VALUE 'AY'. CGLKPIMO
- 88 LS-FL-CWMOND-ABS-VOLET-SOCIAL CGLKPIMO
- VALUE 'AZ'. CGLKPIMO
- 88 LS-FL-CWMOND-CIRMA-RADIE-BC VALUE 'BC'. CGLKPIMO
- 88 LS-FL-CWMOND-RMA-SE-RMI-BD VALUE 'BD'. CGLKPIMO
- 88 LS-FL-CWMOND-ABS-ATTES-MENS-BE CGLKPIMO
- VALUE 'BE'. CGLKPIMO
- 88 LS-FL-CWMOND-RMI-MINO-RMA-BF VALUE 'BF'. CGLKPIMO
- 88 LS-FL-CWMOND-BG VALUE 'BG'. CGLKPIMO
- 88 LS-FL-CWMOND-CAV-RADIE-BI VALUE 'BI'. CGLKPIMO
- 88 LS-FL-CWMOND-CAV-SE-RMI-BJ VALUE 'BJ'. CGLKPIMO
- 88 LS-FL-CWMOND-RMACAV-SE-RMI-BK VALUE 'BK'. CGLKPIMO
- *--- 1572D CGLKPIMO
- 88 LS-T1-FL-CWM-ABS-ACCORD-CRH VALUE 'BL'.CGLKPIMO
- 88 LS-T1-FL-CWM-REFUS-CRH VALUE 'BM'.CGLKPIMO
- 88 LS-T1-FL-CWM-COND-ADMIN-KO VALUE 'BN'.CGLKPIMO
- 88 LS-T1-FL-CWM-COND-LOGT-INAC-KO VALUE 'BO'.CGLKPIMO
- 88 LS-T1-FL-CWM-COND-LOGT-ACT-KO VALUE 'BP'.CGLKPIMO
- 88 LS-T1-FL-CWM-COND-LOGT-KO VALUE 'BQ'.CGLKPIMO
- 88 LS-T1-FL-CWM-COND-ACT-INAC-KO VALUE 'BR'.CGLKPIMO
- 88 LS-T1-FL-CWM-COND-INAC-KO VALUE 'BS'.CGLKPIMO
- 88 LS-T1-FL-CWM-COND-ACT-KO VALUE 'BT'.CGLKPIMO
- 88 LS-T1-FL-CWM-T-LOGT-INCONNU VALUE 'BU'.CGLKPIMO
- 88 LS-T1-FL-AJPP-INF-BV VALUE 'BV'.CGLKPIMO
- 88 LS-T1-FL-AJPP-SUP-BW VALUE 'BW'.CGLKPIMO
- 88 LS-T1-FL-ABS-JRS-P-PAREN-BX VALUE 'BX'.CGLKPIMO
- 88 LS-T1-FL-ABSENCE-DPT-BY VALUE 'BY'.CGLKPIMO
- 88 LS-T1-FL-ABS-PRES-PARENT-BZ VALUE 'BZ'.CGLKPIMO
- 88 LS-T1-FL-REFUS-CTRLE-MEDI-CA VALUE 'CA'.CGLKPIMO
- 88 LS-T1-FL-DUREE-PREV-TRTDEPA-CB VALUE 'CB'.CGLKPIMO
- 88 LS-T1-FL-RESPONSA-PARENTALE-CD VALUE 'CD'.CGLKPIMO
- 88 LS-T1-FL-PRORATISATION-CE VALUE 'CE'.CGLKPIMO
- 88 LS-T1-FL-APPLI-SANCTION-CG VALUE 'CG'.CGLKPIMO
- 88 LS-T1-FL-MT-SUP-AB-PRORAT-CJ VALUE 'CJ'.CGLKPIMO
- 88 LS-T1-FL-LIEN-PARENTE-INV-CK VALUE 'CK'.CGLKPIMO
- 88 LS-T1-FL-BASE-JUILLET-ABS-CL VALUE 'CL'.CGLKPIMO
- 88 LS-T1-FL-DROIT-PCH-CM VALUE 'CM'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-CO-VALO-IMPOSS VALUE 'CO'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-CP-DROIT-NUL VALUE 'CP'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-CQ-AGR-NO-CONF VALUE 'CQ'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-CV-ATT-REP-CG VALUE 'CV'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-CW-MA-ABS-DTR VALUE 'CW'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-CX-CMG-ADI VALUE 'CX'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-CY-VOL-SO-ABS VALUE 'CY'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-CZ-ACT-ANT-INS VALUE 'CZ'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DA-ACT-ANT-ABS VALUE 'DA'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DB-ETU-REM-INS VALUE 'DB'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DC-ACT-ANT-NCF VALUE 'DC'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DD-ETI-NON-DT VALUE 'DD'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DF-BORLOO VALUE 'DF'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DG-SURENDETT VALUE 'DG'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-SUPPR-CMG VALUE 'DH'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-PA-SUP-ASF VALUE 'DI'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-MNT-NON-MAJORE VALUE 'DJ'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-REM-STR-SUP-P VALUE 'DK'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DL VALUE 'DL'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DM VALUE 'DM'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DN VALUE 'DN'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DO VALUE 'DO'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DP VALUE 'DP'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DQ VALUE 'DQ'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DR-COMP-DEGRES VALUE 'DR'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DS VALUE 'DS'.CGLKPIMO
- 88 LS-T1-FL-CWMOND-DT VALUE 'DT'.CGLKPIMO
- * *- Loyer élevé - aide diminuée ---* CGLKPIMO
- 88 LS-T1-FL-CWMOND-DU VALUE 'DU'.CGLKPIMO
- * *- Loyer élevé - aide supprimée ---* CGLKPIMO
- 88 LS-T1-FL-CWMOND-DV VALUE 'DV'.CGLKPIMO
- *--- DW = Ressource, loyer et patrimoine absentsCGLKPIMO
- 88 LS-T1-FL-CWMOND-DW-PATRIM-1 VALUE 'DW'.CGLKPIMO
- *--- DX = Absence patrimoine CGLKPIMO
- 88 LS-T1-FL-CWMOND-DX-PATRIM-2 VALUE 'DX'.CGLKPIMO
- *--- DY = Ressources et patrimoine absents CGLKPIMO
- 88 LS-T1-FL-CWMOND-DY-PATRIM-3 VALUE 'DY'.CGLKPIMO
- *--- DZ = Loyer et patrimoine absents CGLKPIMO
- 88 LS-T1-FL-CWMOND-DZ-PATRIM-4 VALUE 'DZ'.CGLKPIMO
- * CGLKPIMO
- **inversion redef30 LS-T1-CP-DROIT-PELEM PIC S9(03) COMP-3. CGLKPIMO
- **suppression** 30 LS-CP-DROIT-PELEM REDEFINES CGLKPIMO
- **car fé doublon* LS-T1-CP-DROIT-PELEM PIC S9(03) COMP-3. CGLKPIMO
- **inversion redef30 LS-QTDRT001 REDEFINES CGLKPIMO
- **inversion redef LS-T1-CP-DROIT-PELEM PIC S9(03) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- D710P.QTDRT001 Compteur de droit à la PELEM CGLKPIMO
- *--- attention dans le daf D710P. indication:"PJ3N2" mais ce d710pCGLKPIMO
- *--- est utilisé également dans des canevas autres que PJ3 CGLKPIMO
- *--- ce qui explique le REDEFINES. CGLKPIMO
- 30 LS-QTDRT001 PIC S9(03) COMP-3. CGLKPIMO
- 30 LS-T1-CP-DROIT-PELEM REDEFINES CGLKPIMO
- LS-QTDRT001 PIC S9(03) COMP-3. CGLKPIMO
- 30 LS-T1-MASRES PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 30 LS-T1-CFCASR PIC X. CGLKPIMO
- 88 LS-T1-FL-CFCASR-CALC-SYS VALUE 'N'. CGLKPIMO
- 88 LS-T1-FL-CFCASR-FORF-SYS VALUE 'X'. CGLKPIMO
- 88 LS-T1-FL-CFCASR-ETI-NO-FRNI VALUE 'T'. CGLKPIMO
- 88 LS-T1-FL-CFCASR-FAS-ABA-ACT VALUE 'A'. CGLKPIMO
- 88 LS-T1-FL-CFCASR-ABS-EVA-OD VALUE 'E'. CGLKPIMO
- 88 LS-T1-FL-CFCASR-ABS-EVA-REN VALUE 'R'. CGLKPIMO
- 88 LS-T1-FL-CFCASR-ABS-EVA-REC VALUE 'C'. CGLKPIMO
- 30 LS-T1-CREPEC PIC X. CGLKPIMO
- 88 LS-T1-FL-CREPEC-R VALUE 'R'. CGLKPIMO
- 88 LS-T1-FL-CREPEC-F VALUE 'F'. CGLKPIMO
- 88 LS-T1-FL-CREPEC-J VALUE 'J'. CGLKPIMO
- *--- - Compteur d'enfants à charge au sens PELEM CGLKPIMO
- *--- (pour les règles sans le d710p.) CGLKPIMO
- 30 LS-QT-ENF-CHAR PIC S9(03) COMP-3. CGLKPIMO
- *--- - D710P.QTENF003 Cpteur d'enft à charge PELEM CGLKPIMO
- 30 LS-QTENF003 REDEFINES LS-QT-ENF-CHAR CGLKPIMO
- PIC S9(03) COMP-3. CGLKPIMO
- *--- - D710P.QTENF002 Compteur d'enfant PJ3 - 1 enftCGLKPIMO
- 30 LS-QTENF002 PIC S9(03) COMP-3. CGLKPIMO
- 30 LS-T1-QT-AUTP-CHAR PIC S9(03) COMP-3. CGLKPIMO
- 30 LS-QT-AUTP-CHAR REDEFINES LS-T1-QT-AUTP-CHAR CGLKPIMO
- PIC S9(03) COMP-3. CGLKPIMO
- 30 LS-T1-QAPCMO PIC S9(03) COMP-3. CGLKPIMO
- 30 LS-QT-ENF-AUTP-CHAR REDEFINES LS-T1-QAPCMO CGLKPIMO
- PIC S9(03) COMP-3. CGLKPIMO
- * *-- cpt d'enfants pour derogation age CF/AL/APL CGLKPIMO
- * *-- {D710M.CTGQ805} : LS-T1-Q1520A-21 CGLKPIMO
- 30 LS-T1-Q1520A-21 PIC S9(03) COMP-3. CGLKPIMO
- 30 LS-T1-MT-ASF-FICTIVE PIC S9(7)V99 COMP-3. CGLKPIMO
- 30 LS-MT-ASF-FICTIVE REDEFINES CGLKPIMO
- LS-T1-MT-ASF-FICTIVE PIC S9(7)V99 COMP-3. CGLKPIMO
- 30 LS-T1-MT-PA-FICTIVE PIC S9(7)V99 COMP-3. CGLKPIMO
- 30 LS-MT-PA-FICTIVE REDEFINES CGLKPIMO
- LS-T1-MT-PA-FICTIVE PIC S9(7)V99 COMP-3. CGLKPIMO
- 30 LS-T1-MT-PA-RECUE PIC S9(7)V99 COMP-3. CGLKPIMO
- 30 LS-MT-PA-RECUE REDEFINES LS-T1-MT-PA-RECUE CGLKPIMO
- PIC S9(7)V99 COMP-3. CGLKPIMO
- 30 LS-T1-CP-MRMME-RMI PIC S9 COMP-3. CGLKPIMO
- 30 LS-CP-MRMME-RMI REDEFINES LS-T1-CP-MRMME-RMI CGLKPIMO
- PIC S9 COMP-3. CGLKPIMO
- * *-- Compteur d'occurrences MR/MME au sens --* CGLKPIMO
- * *-- PELEM RSA {D710P.QTMRMECH} --* CGLKPIMO
- *--- ou autre PELEM (indexe par IX-T1-1) CGLKPIMO
- 30 LS-T1-QTMRMECH REDEFINES CGLKPIMO
- LS-T1-CP-MRMME-RMI PIC S9 COMP-3. CGLKPIMO
- 30 LS-T1-HEBERG-CHRS-ON PIC X. CGLKPIMO
- 30 LS-FL-HEBERG-CHRS REDEFINES CGLKPIMO
- LS-T1-HEBERG-CHRS-ON PIC X. CGLKPIMO
- * CGLKPIMO
- *--- "Tous les indicateurs D710p. élaborés au cours de l'examen CGLKPIMO
- *--- des droits doivent etre stockés par PELEM (sauf si indicationCGLKPIMO
- *--- contraire spécifiée)." CGLKPIMO
- *--- D710P.CDABSINV indicateurs d'absence involontaire CGLKPIMO
- *--- D710p. tantot marqué dans le DAF "cjt et alloc" tantot marquéCGLKPIMO
- *--- "pour l'occurrence" donc occurs 27 serait plus fiable, CGLKPIMO
- *--- sauf que les informations permettant de se positionner sur CGLKPIMO
- *--- l'allocataire puis sur le conjoint ne sont pas indiquées CGLKPIMO
- *--- dans les règles concernées donc pour le moment on se contenteCGLKPIMO
- *--- de 2 indicateurs 'allocataire' et 'conjoint'. CGLKPIMO
- * CGLKPIMO
- 25 LS-T1-CDABSINV-ALLOC PIC X(1). CGLKPIMO
- 88 LS-T1-CDABSINV-ALLOC-NON-POSIT VALUE SPACE. CGLKPIMO
- 88 LS-T1-CDABSINV-ALLOC-POSIT VALUE 'P' CGLKPIMO
- '1'. CGLKPIMO
- 88 LS-T1-CDABSINV-ALLOC-POSIT-P VALUE 'P'. CGLKPIMO
- 88 LS-T1-CDABSINV-ALLOC-POSIT-1 VALUE '1'. CGLKPIMO
- 25 LS-T1-CDABSINV-CONJT PIC X(1). CGLKPIMO
- 88 LS-T1-CDABSINV-CONJT-NON-POSIT VALUE SPACE. CGLKPIMO
- 88 LS-T1-CDABSINV-CONJT-POSIT VALUE 'P' CGLKPIMO
- '1' '2' '3'. CGLKPIMO
- 88 LS-T1-CDABSINV-CONJT-POSIT-P VALUE 'P'. CGLKPIMO
- 88 LS-T1-CDABSINV-CONJT-POSIT-1 VALUE '1'. CGLKPIMO
- 88 LS-T1-CDABSINV-CONJT-POSIT-2 VALUE '2'. CGLKPIMO
- 88 LS-T1-CDABSINV-CONJT-POSIT-3 VALUE '3'. CGLKPIMO
- * CGLKPIMO
- * * CGLKPIMO
- *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-CGLKPIMO
- ***************************************************************** CGLKPIMO
- * * CGLKPIMO
- * ** Table prestation/attributaire(pelem,attributaire) * CGLKPIMO
- * NM attributaire * CGLKPIMO
- * QT enfants placés * CGLKPIMO
- * CD nature attributaire * CGLKPIMO
- * NM tiers débiteur ASF * CGLKPIMO
- * MT de la PELEM * CGLKPIMO
- * CD sous nature ventilation comptable * CGLKPIMO
- * * CGLKPIMO
- 15 LS-T4. CGLKPIMO
- 20 LS-T4-PELEM OCCURS 275 CGLKPIMO
- INDEXED BY IX-T4-1 IX-T4-2 IX-T4-3. CGLKPIMO
- 25 LS-T4-ATTRIB OCCURS 10 CGLKPIMO
- INDEXED BY IX-ATT1 CGLKPIMO
- IX-T4-ATT-1 IX-T4-ATT-2 IX-T4-ATT-3. CGLKPIMO
- 30 LS-T4-CNADES PIC X. CGLKPIMO
- 88 LS-T4-FL-DOSI-DES VALUE 'D'. CGLKPIMO
- 88 LS-T4-FL-PERS-PHYS-DES VALUE 'P'. CGLKPIMO
- 88 LS-T4-FL-PERS-MRAL-DES VALUE 'M'. CGLKPIMO
- 88 LS-T4-FL-CNADES-C VALUE 'C'. CGLKPIMO
- 30 LS-T4-NDESTI PIC S9(7) COMP-3. CGLKPIMO
- 30 LS-T4-CNAPER PIC X(1). CGLKPIMO
- 30 LS-T4-NFICPN PIC S9(07) COMP-3. CGLKPIMO
- 30 LS-T4-MDROPO PIC S9(5)V9(2) COMP-3. CGLKPIMO
- 30 LS-T4-CSNAVC PIC XXXX. CGLKPIMO
- 30 LS-T4-MDROPI PIC S9(5)V9(2) COMP-3. CGLKPIMO
- 30 LS-T4-MONRDS PIC S9(3)V9(2) COMP-3. CGLKPIMO
- 30 LS-T4-CP-ENF PIC S9(03) COMP-3. CGLKPIMO
- 30 LS-CP-ENF REDEFINES LS-T4-CP-ENF CGLKPIMO
- PIC S9(03) COMP-3. CGLKPIMO
- 30 LS-T4-CP-ENF-SS-LIEN PIC S9(03) COMP-3. CGLKPIMO
- 30 LS-CP-ENF-SS-LIEN REDEFINES CGLKPIMO
- LS-T4-CP-ENF-SS-LIEN PIC S9(03) COMP-3. CGLKPIMO
- 25 LS-T4-PELEM-TRAITEE PIC X. CGLKPIMO
- * * CGLKPIMO
- *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-CGLKPIMO
- ***************************************************************** CGLKPIMO
- * .Table prestation/occ. enfants (pelem,enf) CGLKPIMO
- * - Indicateur enfant à charge sens Pelem * CGLKPIMO
- * - Indicateur enfant ouvrant droit à la PELEM * CGLKPIMO
- * Ces codes servent aussi à mr mme dans le cadre de l'APE (hiera)CGLKPIMO
- * et de l'AVP (hiera). CGLKPIMO
- * - Montant prestation par enfant (AES et MPI) * CGLKPIMO
- ***************************************************************** CGLKPIMO
- * * CGLKPIMO
- 15 LS-T5. CGLKPIMO
- 20 LS-T5-PELEM OCCURS 275 CGLKPIMO
- INDEXED BY IX-T5-1 IX-T5-2 IX-T5-3. CGLKPIMO
- 25 LS-T5-ENF OCCURS 27 CGLKPIMO
- INDEXED BY IX-ENF2 IX-T5-ENF-1 IX-T5-ENF-2. CGLKPIMO
- 30 LS-T5-CCNAPF PIC X. CGLKPIMO
- 88 LS-T5-CCNAPF-FL-ENF-CHRG-PRTA VALUE 'O'. CGLKPIMO
- 88 LS-T5-CCNAPF-FL-ENF-NON-CHRG VALUE 'N'. CGLKPIMO
- 30 LS-T5-COUVDT PIC X. CGLKPIMO
- 88 LS-T5-FL-COUVDT-OUV VALUE 'O'. CGLKPIMO
- 88 LS-T5-FL-COUVDT-NON-OUV VALUE 'N'. CGLKPIMO
- 88 LS-T5-FL-COUVDT-T VALUE 'T'. CGLKPIMO
- 30 LS-T5-CRESEN PIC X(2). CGLKPIMO
- 88 LS-T5-FL-CRESEN-01 VALUE '01'. CGLKPIMO
- 88 LS-T5-FL-CRESEN-02 VALUE '02'. CGLKPIMO
- 88 LS-T5-FL-CRESEN-03 VALUE '03'. CGLKPIMO
- 88 LS-T5-FL-CRESEN-04 VALUE '04'. CGLKPIMO
- 88 LS-T5-FL-CRESEN-05 VALUE '05'. CGLKPIMO
- 88 LS-T5-FL-CRESEN-06-RES-SUP-PL VALUE '06'. CGLKPIMO
- 88 LS-T5-FL-CRESEN-07-VERST-CDC VALUE '07'. CGLKPIMO
- 88 LS-T5-FL-CRESEN-08 VALUE '08'. CGLKPIMO
- 88 LS-T5-FL-CRESEN-99 VALUE '99'. CGLKPIMO
- 30 LS-T5-CFORMO PIC X. CGLKPIMO
- 88 LS-T5-FL-MOT-NON-FOR VALUE 'N'. CGLKPIMO
- 88 LS-T5-FL-MOT-FOR-CONV VALUE 'C'. CGLKPIMO
- 88 LS-T5-FL-MOT-FOR-CRIS VALUE 'A'. CGLKPIMO
- 88 LS-T5-FL-MOT-FOR-PREST VALUE 'P'. CGLKPIMO
- 88 LS-T5-FL-MOT-FOR-AUT VALUE 'X'. CGLKPIMO
- 30 LS-T5-MDROPI PIC S9(5)V9(2) COMP-3. CGLKPIMO
- * CGLKPIMO
- *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-CGLKPIMO
- ***************************************************************** CGLKPIMO
- * .Tableau occ. enfants/prestations (enf,pelem) CGLKPIMO
- * alimenté par CGRX66P * CGLKPIMO
- * pour maj table CDDRS dans CGM130 * CGLKPIMO
- * - Montant droit prestation suspendu par enfants * CGLKPIMO
- * - Montant droit prestation suspendu par enfants - statistique* CGLKPIMO
- ***************************************************************** CGLKPIMO
- * * CGLKPIMO
- 15 LS-T6. CGLKPIMO
- 20 LS-T6-ENF OCCURS 27 CGLKPIMO
- INDEXED BY IX-T6-ENF-1 CGLKPIMO
- IX-T6-ENF-2. CGLKPIMO
- 25 LS-T6-NFICPN PIC S9(07) COMP-3. CGLKPIMO
- 25 LS-T6-PELEM-AF OCCURS 6 CGLKPIMO
- INDEXED BY IX-T6-PELEM-1 CGLKPIMO
- IX-T6-PELEM-2. CGLKPIMO
- 30 LS-T6-CNAPRG. CGLKPIMO
- 35 LS-T6-CNAPRS PIC XXX. CGLKPIMO
- 35 LS-T6-RSNAPR PIC XX. CGLKPIMO
- 30 LS-T6-MENDRO PIC S9(5)V9(2) COMP-3. CGLKPIMO
- 30 LS-T6-MPARTE PIC S9(5)V9(2) COMP-3. CGLKPIMO
- 25 LS-T6-PELEM-ARS OCCURS 6 CGLKPIMO
- INDEXED BY IX-T6-ARS-1 CGLKPIMO
- IX-T6-ARS-2. CGLKPIMO
- 30 LS-T6-CNAPRG-ARS. CGLKPIMO
- 35 LS-T6-CNAPRS-ARS PIC XXX. CGLKPIMO
- 35 LS-T6-RSNAPR-ARS PIC XX. CGLKPIMO
- 30 LS-T6-MENDRO-ARS PIC S9(5)V9(2) COMP-3. CGLKPIMO
- 30 LS-T6-CDAGEARS PIC X. CGLKPIMO
- 88 FL-CDAGEARS-T1 VALUE '1'. CGLKPIMO
- 88 FL-CDAGEARS-T2 VALUE '2'. CGLKPIMO
- 88 FL-CDAGEARS-T3 VALUE '3'. CGLKPIMO
- 88 FL-CDAGEARS-TA VALUE 'A'. CGLKPIMO
- 88 FL-CDAGEARS-TB VALUE 'B'. CGLKPIMO
- 88 FL-CDAGEARS-TC VALUE 'C'. CGLKPIMO
- * CGLKPIMO
- *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-CGLKPIMO
- ***************************************************************** CGLKPIMO
- * * CGLKPIMO
- * . Table par occurence MR/MME (mme) CGLKPIMO
- * - Indice MR/MME * CGLKPIMO
- * - MT montant des ressources Mr/Mme AAH * CGLKPIMO
- * - MT montant des ressources Mr/Mme AL * CGLKPIMO
- * - MT montant des ressources Mr/Mme APL * CGLKPIMO
- * - MT montant des ressources Mr/Mme AUT. PREST. * CGLKPIMO
- * - MT montant des ressources Mr/Mme AAS * CGLKPIMO
- * - MT montant des charges déductibles (CHA1) * CGLKPIMO
- * - MT montant des charges déductibles (CHA2) * CGLKPIMO
- * montant des charges déductibles sur Année de CGLKPIMO
- * ressources - 1 an : CGLKPIMO
- * - MT montant des charges déductibles (CHA1AR -1) * CGLKPIMO
- * - MT montant des charges déductibles (CHA2AR -1) * CGLKPIMO
- * - Indicateur allocataire DOM * CGLKPIMO
- ***************************************************************** CGLKPIMO
- 15 LS-T9. CGLKPIMO
- 20 LS-T9-MRMME OCCURS 2 CGLKPIMO
- INDEXED BY IX-MME1. CGLKPIMO
- 25 LS-T9-CABNEU PIC X(2). CGLKPIMO
- 88 LS-FL-T9-CABNEU-NP VALUE 'NP'. CGLKPIMO
- 88 LS-FL-T9-CABNEU-NR VALUE 'NR'. CGLKPIMO
- 88 LS-FL-T9-CABNEU-NEU-GEN VALUE 'NG'. CGLKPIMO
- 88 LS-FL-T9-CABNEU-ABA-AUT-GEN VALUE 'AG'. CGLKPIMO
- 88 LS-FL-T9-CABNEU-CP VALUE 'CP'. CGLKPIMO
- 88 LS-FL-T9-CABNEU-CN VALUE 'CN'. CGLKPIMO
- 88 LS-FL-T9-CABNEU-ABA-CHO-GEN VALUE 'CG'. CGLKPIMO
- 88 LS-FL-T9-CABNEU-ABA-CHO-APL VALUE 'CL'. CGLKPIMO
- 88 LS-FL-T9-CABNEU-NEU-CAT VALUE 'NC'. CGLKPIMO
- 88 LS-FL-T9-CABNEU-NEU-AAH VALUE 'NA'. CGLKPIMO
- 88 LS-FL-T9-CABNEU-NON-SIGNIF VALUE SPACES. CGLKPIMO
- * CGLKPIMO
- *--- Code abattement/neutralisation ressources RSA CGLKPIMO
- 25 LS-T9-CABNER PIC X(2). CGLKPIMO
- 88 LS-FL-T9-CABNER-NEUTR-RSA VALUE 'RN'. CGLKPIMO
- 88 LS-FL-T9-CABNER-MAIN-NEUT-RSA VALUE 'RM'. CGLKPIMO
- 88 LS-FL-T9-CABNER-MAIN-NEUT-RMI VALUE 'RM'. CGLKPIMO
- 88 LS-FL-T9-CABNER-NON-SIGNIF VALUE SPACES. CGLKPIMO
- *--- Code mesure ressources CGLKPIMO
- 25 LS-T9-CMERES PIC X(1). CGLKPIMO
- 88 LS-FL-T9-CMERES-ABAT-PAS-CHO VALUE 'A'. CGLKPIMO
- 88 LS-FL-T9-CMERES-ABAT-CHOMAGE VALUE 'C'. CGLKPIMO
- 88 LS-FL-T9-CMERES-NEUT-PAS-AAH VALUE 'N'. CGLKPIMO
- 88 LS-FL-T9-CMERES-NEUT-AAH VALUE 'H'. CGLKPIMO
- 88 LS-FL-T9-CMERES-NON-SIGNIF VALUE SPACE. CGLKPIMO
- * CGLKPIMO
- 25 LS-IND-MRMME PIC S9(3) COMP-3. CGLKPIMO
- 25 LS-MT-RESS-MRMME-AAH PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-RESS-MRMME-AL PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-RESS-MRMME-APL PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-RESS-MRMME-APR PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-RESS-MRMME-APRB PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- *** A998.CCR1308B : Zone devant disparaitre mais impossible * CGLKPIMO
- * IMPOSSIBLE n'est pas français, madame. CGLKPIMO
- * Breton, peut-etre, mais pas français, c'est sûr. CGLKPIMO
- *** (le 25/04/02) à cause de la SIMULATION * CGLKPIMO
- 25 LS-MT-RESS-MRMME-AAS PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- 25 LS-T9-MTREPN-MRMME-RRSO PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-CHA1 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-CHA2 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-CHA3 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 25 LS-MT-CHA1-AR-1 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- Revenus d'activité à neutraliser toutes prest CGLKPIMO
- 25 LS-MT-NEU1 PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Revenus d'activité à neutraliser APL CGLKPIMO
- 25 LS-MT-NEU2 PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Abattement sur revenus d'activité CGLKPIMO
- *--- chômage et IJ maladie ttes prest CGLKPIMO
- 25 LS-MT-ABA1 PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Abatt sur revenus d'acti. et IJ maladie ttes prest. CGLKPIMO
- 25 LS-MT-ABA2 PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Abatt sur revenus d'acti. chômage et IJ maladie APL CGLKPIMO
- 25 LS-MT-ABA3 PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Abattement sur revenus d'activité et IJ maladie APL CGLKPIMO
- 25 LS-MT-ABA4 PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Indicateur allocataire DOM CGLKPIMO
- 25 LS-IND-ALLOCDOM PIC X. CGLKPIMO
- *--- Montants évaluations forfaitaires CGLKPIMO
- 25 LS-MT-NEVASAL PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-NEVAETI PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CNEVASAL PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-CNEVAETI PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-MT-NEUNEVA PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Montants des ressources évaluées CGLKPIMO
- 25 LS-EFAAH PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-EFAL PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-EFAPL PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-EFAP PIC S9(7)V99 COMP-3. CGLKPIMO
- 25 LS-EFAPB PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Indicateur EF ETI générée pour mois traité CGLKPIMO
- 25 LS-EF-ETI-1EP-GENER PIC X. CGLKPIMO
- 88 FL-EF-ETI-1EP-GENER VALUE 'O'. CGLKPIMO
- 88 FL-EF-ETI-1EP-NONGENER VALUE 'N'. CGLKPIMO
- *--- Indicateur EF ETI générée (2eme période) CGLKPIMO
- 25 LS-EF-ETI-2EP-GENER PIC X. CGLKPIMO
- 88 FL-EF-ETI-2EP-GENER VALUE 'O'. CGLKPIMO
- 88 FL-EF-ETI-2EP-NONGENER VALUE 'N'. CGLKPIMO
- *--- Indicateur EF Absente CGLKPIMO
- 25 LS-EF-ABSENTE PIC X(2). CGLKPIMO
- 88 FL-EF-R1-ABSENTE VALUE 'R1'. CGLKPIMO
- 88 FL-EF-RN-ABSENTE VALUE 'RN'. CGLKPIMO
- 88 FL-EF-OD-ABSENTE VALUE 'OD'. CGLKPIMO
- 25 LS-T9-IND-AVI PIC X. CGLKPIMO
- 88 LS-FL-T9-IND-AVI-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-T9-IND-AVI-NON VALUE 'N'. CGLKPIMO
- *--- Indicateurs CMG CGLKPIMO
- 25 LS-T9-CDREVAB1 PIC X. CGLKPIMO
- 25 LS-T9-CDETIAJ1 PIC X. CGLKPIMO
- 25 LS-T9-CDDER001 PIC X. CGLKPIMO
- 25 LS-T9-CDCONDOK PIC X. CGLKPIMO
- *--- Indicateur SNA si DD effet > N148 CGLKPIMO
- 25 LS-IND-SNA PIC X. CGLKPIMO
- 88 FL-IND-SNA-OUI VALUE 'O'. CGLKPIMO
- 88 FL-IND-SNA-NON VALUE 'N'. CGLKPIMO
- CGLKPIMO
- *--- Indicateur CHO si DD effet > N148 CGLKPIMO
- 25 LS-IND-CHO PIC X. CGLKPIMO
- 88 FL-IND-CHO-OUI VALUE 'O'. CGLKPIMO
- 88 FL-IND-CHO-NON VALUE 'N'. CGLKPIMO
- CGLKPIMO
- *--- Montant des ressources annuelles de natures 001 010 011 CGLKPIMO
- *--- 012 020 021 022 023 024 025 026 027 029 030 032 040 041 CGLKPIMO
- *--- 043 CGLKPIMO
- *--- après déduction éventuelle des frais de tutelle CGLKPIMO
- *--- >>ces mts seront à prendre dans tous les traitements au CGLKPIMO
- *--- lieu des natures correspondantes des ress. de la base << CGLKPIMO
- CGLKPIMO
- 25 LS-RESS-REV-FRTUT. CGLKPIMO
- 30 LS-RESS-CNA-MNT-TUT OCCURS 7 CGLKPIMO
- INDEXED BY IX-REVTUT. CGLKPIMO
- 35 LS-RESS-CNARES-TUT PIC X(3). CGLKPIMO
- 88 LS-RESS-CNARES-TUT-FL-FRAIS-RE CGLKPIMO
- VALUE '002'. CGLKPIMO
- 35 LS-RESS-MONTAN-TUT PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- Le Nombre max d'occ. du tableau LS-RESS-REV-FRTUTCGLKPIMO
- *--- est IN-T9-REVTUT-MAX CGLKPIMO
- CGLKPIMO
- 25 LS-RESS-REV-FRTUT-RSO. CGLKPIMO
- 30 LS-RESS-CNA-MNT-TUT-RSO OCCURS 7 CGLKPIMO
- INDEXED BY IX-RRSOTU. CGLKPIMO
- 35 LS-RESS-CNARES-TUT-RSO PIC X(3). CGLKPIMO
- 35 LS-RESS-MONTAN-TUT-RSO CGLKPIMO
- PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- A998.CCR1675B : Pour ajout données PEH/BEP. CGLKPIMO
- * CGLKPIMO
- *--- Mtt abattement 10% ress. évaluées -CDPEH- CGLKPIMO
- 25 LS-PEH-MAEF10 PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Mtt abattement 20% ress. évaluées -CDPEH- CGLKPIMO
- 25 LS-PEH-MAEF20 PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Mtt abattement 30% ress. évaluées -CDPEH- CGLKPIMO
- 25 LS-PEH-MAEF30 PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Mtt évalué neutralisation des ressources -CDPEH- CGLKPIMO
- 25 LS-PEH-MENEUR PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Mtt abattement 10% pour RNC1 - pour CDPEH gdd DAR CGLKPIMO
- 25 LS-PEH-MABF10-RNC1 PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Mtt abattement 10% pour RNC2 - pour CDPEH gdd DAR CGLKPIMO
- 25 LS-PEH-MABF10-RNC2 PIC S9(7)V99 COMP-3.CGLKPIMO
- *--- Mtt abattement 10% pour CAT1 - pour CDPEH gdd DAR CGLKPIMO
- 25 LS-PEH-MABF10-CAT1 PIC S9(7)V99 COMP-3.CGLKPIMO
- * CGLKPIMO
- *--- Donnée oubliée dans la U244P.CGRACTAD... CGLKPIMO
- * Date de début du code Act ouvrant droit à l'ADI CGLKPIMO
- 25 LS-DD-ACT-OUVR-DRT-ADI PIC S9(09) COMP-3. CGLKPIMO
- CGLKPIMO
- *--- CGLKPIMO
- * * CGLKPIMO
- *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-CGLKPIMO
- ***************************************************************** CGLKPIMO
- * * CGLKPIMO
- * . Table par employeur et par assistante maternelle CGLKPIMO
- * - NM employeur * CGLKPIMO
- * - FL indicateur calcul effectué * CGLKPIMO
- * - NM assistante maternelle * CGLKPIMO
- * - MT montant titre SS AEFAM * CGLKPIMO
- * - MT montant titre IRCEM AEFAM * CGLKPIMO
- * - MT montant titre ASSEDIC AEFAM * CGLKPIMO
- * - MT montant titre CSG AEFAM * CGLKPIMO
- * - MT montant titre réduction CSG AEFAM * CGLKPIMO
- * - MT montant total cotisation ASS * CGLKPIMO
- *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-CGLKPIMO
- * CGLKPIMO
- *--- Table des codes prestations élémentaires CGLKPIMO
- 15 LS-T11. CGLKPIMO
- 20 LS-T11-PELEM OCCURS 275 CGLKPIMO
- INDEXED BY IX-T11-1 IX-T11-2 IX-T11-3. CGLKPIMO
- 25 LS-T11-CNAPRG. CGLKPIMO
- 30 LS-T11-CNAPRS PIC XXX. CGLKPIMO
- *** 88 LS-T11-FL-CNAPRS-FICTIVE VALUE 'PAF'. CGLKPIMO
- 88 LS-T11-FL-CNAPRS-FICTIVE VALUE 'PAF' 'SAF' CGLKPIMO
- 'SIF'. CGLKPIMO
- 88 LS-T11-FL-CNAPRS-PAF VALUE 'PAF'. CGLKPIMO
- 88 LS-T11-FL-CNAPRS-FICT-PPA VALUE 'PAF'. CGLKPIMO
- 88 LS-T11-FL-CNAPRS-PPA-DUE VALUE 'PPA' 'PPI'.CGLKPIMO
- 88 LS-T11-FL-CNAPRS-SAF VALUE 'SAF'. CGLKPIMO
- 88 LS-T11-FL-CNAPRS-SIF VALUE 'SIF'. CGLKPIMO
- 88 LS-T11-FL-CNAPRS-FICT-RSA CGLKPIMO
- VALUE 'SAF' 'SIF'. CGLKPIMO
- 30 LS-T11-RSNAPR. CGLKPIMO
- 35 LS-T11-RSNAPR-1 PIC X. CGLKPIMO
- 35 LS-T11-RSNAPR-2 PIC X. CGLKPIMO
- 35 LS-T11-RSNAPR-2-N REDEFINES CGLKPIMO
- LS-T11-RSNAPR-2 PIC 9. CGLKPIMO
- 25 LS-T11-CNAPRG-PELEM REDEFINES CGLKPIMO
- LS-T11-CNAPRG PIC X(5). CGLKPIMO
- 88 LS-T11-FL-CNAPRG-RSA-FIGE VALUE 'SAFF1' CGLKPIMO
- 'SAFF2' 'SAFF3' CGLKPIMO
- 'SAFFA' 'SAFFB' 'SAFFC' CGLKPIMO
- 'SIFF1' 'SIFF2' 'SIFF3' CGLKPIMO
- 'SIFFA' 'SIFFB' 'SIFFC' CGLKPIMO
- 'RSDN3' 'RSDN4' CGLKPIMO
- 'RSIN2' 'RSJN2'. CGLKPIMO
- 88 LS-T11-FL-CNAPRG-RSA-FIGE-DU VALUE CGLKPIMO
- 'RSDN3' 'RSDN4' CGLKPIMO
- 'RSIN2' 'RSJN2'. CGLKPIMO
- 88 LS-T11-FL-CNAPRG-RSIN2 VALUE CGLKPIMO
- 'RSIN2'. CGLKPIMO
- * CGLKPIMO
- 25 LS-T11-POS-PELEM PIC S9(9) COMP-5 SYNC. CGLKPIMO
- 25 LS-T11-EVALPRX. CGLKPIMO
- 30 LS-T11-EVALPR PIC 9(08). CGLKPIMO
- 25 LS-T11-FVALPRX. CGLKPIMO
- 30 LS-T11-FVALPR PIC 9(08). CGLKPIMO
- 25 LS-T11-PELEM-TRAITEE PIC X. CGLKPIMO
- * * CGLKPIMO
- *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-CGLKPIMO
- * . Table des prestations génériques annulées par hiérarchisation CGLKPIMO
- * de ADI. CGLKPIMO
- * - LI prestation générique CGLKPIMO
- * - MT annulé durant hiérarchisation CGLKPIMO
- CGLKPIMO
- 15 LS-T12. CGLKPIMO
- 20 LS-T12-PEGEN OCCURS 25 CGLKPIMO
- INDEXED BY IX-T12-1 IX-T12-2 IX-T12-3. CGLKPIMO
- 25 LS-T12-CNAPRS PIC X(3). CGLKPIMO
- 25 LS-T12-RSNAPR PIC X(2). CGLKPIMO
- 25 LS-T12-MT-PEGEN-ANNU PIC S9(5)V9(2) COMP-3. CGLKPIMO
- * en niveau 15 alteration X83P CGLKPIMO
- 15 LS-IX-T12-1 PIC S9(3) COMP-3. CGLKPIMO
- * * CGLKPIMO
- *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-CGLKPIMO
- ***************************************************************** CGLKPIMO
- * * CGLKPIMO
- * . Tables réservées au module CGM130 CGLKPIMO
- * CGLKPIMO
- * + Table des données pour CDDP0 CGLKPIMO
- * Numéro personne CGLKPIMO
- * Indicateur type enfant CGLKPIMO
- * Booléen de suppression du gdd CGLKPIMO
- * - (1) gdd PC0PEC CGLKPIMO
- * - (2) gdd PC0AVP CGLKPIMO
- * - (3) gdd PE0ACH CGLKPIMO
- * - (4) gdd PE0ASM CGLKPIMO
- * CGLKPIMO
- 15 LS-T17. CGLKPIMO
- 20 LS-T17-PER-DSC OCCURS 27 CGLKPIMO
- INDEXED BY IX-PER1. CGLKPIMO
- 25 LS-T17-NFICPN PIC S9(7) COMP-3. CGLKPIMO
- 25 LS-T17-FL-ENF PIC 9. CGLKPIMO
- 25 LS-T17-FL-GDD-SUP PIC 9 OCCURS 4 CGLKPIMO
- INDEXED BY IX-GDD1. CGLKPIMO
- * CGLKPIMO
- * + tableau des bénéficiaires AVP par prestation CGLKPIMO
- * ce tableau est initialisé en début de traitement puis CGLKPIMO
- * en début de mois. CGLKPIMO
- * . Informations utilisées pour la mise à jour du GDD PE0AVP CGLKPIMO
- * CGLKPIMO
- *--- LT-T21-MAX-PELEM déclaré dans CGS101W et CGS401W et CGS601W CGLKPIMO
- *--- a comme valeur celle indiquée en OCCURS de LS-T21-PELEM. CGLKPIMO
- *--- Utiliser IN-T21-MAX-PELEM dans la procédure. CGLKPIMO
- 15 LS-T21. CGLKPIMO
- 20 IN-T21-MAX-PELEM PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-T21-PELEM OCCURS 10 CGLKPIMO
- INDEXED BY IX-T21-PELEM-1 IX-T21-PELEM-2 CGLKPIMO
- IX-T21-PELEM-3. CGLKPIMO
- *--- Position de la prestation AVP dans LS-T1/LS-T11 CGLKPIMO
- 30 LS-T21-AVP-INDEX PIC S9(3) COMP-3. CGLKPIMO
- *--- Indicateur de présence ou pas d'un forçage AVP. CGLKPIMO
- 30 LS-T21-INDIC-CFOAVP PIC X. CGLKPIMO
- 88 LS-T21-FL-INDIC-CFOAVP-PRESENT VALUE 'P'. CGLKPIMO
- *--- tableau Mr/Mme CGLKPIMO
- 30 LS-T21-MRMME OCCURS 2 CGLKPIMO
- INDEXED BY IX-T21-MRMME-1 IX-T21-MRMME-2 CGLKPIMO
- IX-T21-MRMME-3. CGLKPIMO
- *--- Posit° du bénéficiaire d'AVP dans CGLKPIMO
- *--- LKMO-PERSONNES-DU-DOSSIER CGLKPIMO
- 35 LS-T21-BENEFICIAIRE PIC S9(3) COMP-3. CGLKPIMO
- *--- Date d'affiliation du bénéficiaire CGLKPIMO
- 35 LS-T21-DT-AFFIL PIC 9(9). CGLKPIMO
- *--- Position du demandeur d'AVPF CGLKPIMO
- 35 LS-T21-NUM-DEMANDE PIC 9(7). CGLKPIMO
- *--- Indicateur temps partiel CGLKPIMO
- 35 LS-T21-CDTXPAR PIC X. CGLKPIMO
- 88 LS-T21-FL-CDTXPAR-NON-SIGNIFIC VALUE ' '.CGLKPIMO
- 88 LS-T21-FL-CDTXPAR-PLAFOND-OK-0 VALUE '0'.CGLKPIMO
- 88 LS-T21-FL-CDTXPAR-PLAFOND-OK-1 VALUE '1'.CGLKPIMO
- 88 LS-T21-FL-CDTXPAR-RESS-INCON-2 VALUE '2'.CGLKPIMO
- CGLKPIMO
- CGLKPIMO
- * + Ce tableau permet de gérer (mensuellement) la mise à jour CGLKPIMO
- * du GDD RAB de la table PER pour le code périodicité 'F'. CGLKPIMO
- * ce tableau est initialisé en début de traitement puis CGLKPIMO
- * en début de mois. CGLKPIMO
- 15 LS-T22. CGLKPIMO
- 20 LS-T22-PERRAB OCCURS 10 INDEXED BY IX-T22-1 CGLKPIMO
- IX-T22-2 CGLKPIMO
- IX-T22-3. CGLKPIMO
- *--- Code nature ressources CGLKPIMO
- 25 LS-T22-CNARES2 PIC X(3). CGLKPIMO
- *--- Montant abattement décision préfet CGLKPIMO
- 25 LS-T22-MABDPR PIC S9(5)V9(2) COMP-3. CGLKPIMO
- *--- Code abattement/neutralisation CGLKPIMO
- 25 LS-T22-CWARRA PIC X(1). CGLKPIMO
- CGLKPIMO
- * CGLKPIMO
- * + Tableau des droits réels ou théoriques les plus récents pourCGLKPIMO
- * les prestations élémentaires, alimenté sur un historique CGLKPIMO
- * de 24 mois avant la période mouvementée et maintenu CGLKPIMO
- * pendant cette dernière. CGLKPIMO
- CGLKPIMO
- 15 LS-T23. CGLKPIMO
- 20 LS-T23-PELEM OCCURS 80 CGLKPIMO
- INDEXED BY IX-T23-1 IX-T23-2. CGLKPIMO
- *--- Code prestation CGLKPIMO
- 30 LS-T23-CNAPRG. CGLKPIMO
- 35 LS-T23-CNAPRS PIC X(3). CGLKPIMO
- 35 LS-T23-RSNAPR PIC X(2). CGLKPIMO
- *--- Indicateur d'ouverture de droit CGLKPIMO
- 30 LS-T23-COVDRO PIC X. CGLKPIMO
- *--- Mois de dernière apparition du droit CGLKPIMO
- 30 LS-T23-EPOQUE. CGLKPIMO
- 35 LS-T23-ANNEE-EPOQUE PIC 9(4). CGLKPIMO
- 35 LS-T23-MOIS-EPOQUE PIC 9(2). CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- ***************************************************************** CGLKPIMO
- * Tableau conçu conformément à la DMT1796 * CGLKPIMO
- * puis adaptations... CGLKPIMO
- * LS-D710P-SIMPLES pour D710P simples * CGLKPIMO
- * LS-D710P-CEE-ALLOC pour D710P CEE Allocataire * CGLKPIMO
- * LS-D710P-PERS pour D710P par personnes * CGLKPIMO
- * LS-D710P-ALL-OU-CJT par occ. personne allocataire/conjoint CGLKPIMO
- * Utiliser : LS-IN-PER-AC-ALLOC ou LS-IN-PER-AC-CONJT CGLKPIMO
- * pour se positionner sur la personne souhaitee. CGLKPIMO
- * LS-D710P-PELEM pour D710P utilisés en hiérarchisation * CGLKPIMO
- ***************************************************************** CGLKPIMO
- 15 LS-D710P. CGLKPIMO
- *--------- D710P simples CGLKPIMO
- 20 LS-D710P-SIMPLES. CGLKPIMO
- * D710P.CDISOLT : Indicateur d'isolement CGLKPIMO
- 25 LS-CDISOLT PIC X. CGLKPIMO
- 88 LS-FL-CDISOLT-NON VALUE 'N'. CGLKPIMO
- 88 LS-FL-CDISOLT-OUI VALUE 'O'. CGLKPIMO
- *--- D710P.CDMAINSF: Indicateur de maintien ASF CGLKPIMO
- 25 LS-CDMAINSF PIC X. CGLKPIMO
- *--- Valeur significative de non positionné. CGLKPIMO
- 88 LS-FL-CDMAINSF-NON-POSIT VALUE SPACE. CGLKPIMO
- *--- Valeur significative de positionné à 'N'on. CGLKPIMO
- 88 LS-FL-CDMAINSF-POSIT-NON VALUE 'N'. CGLKPIMO
- ****modif DAF Valeur significative de positionné, OK. CGLKPIMO
- ********** 88 LS-FL-CDMAINSF-POSIT VALUE 'P'. CGLKPIMO
- *--- Valeur significative de positionné à 'O'ui. CGLKPIMO
- 88 LS-FL-CDMAINSF-POSIT-OUI VALUE 'O'. CGLKPIMO
- * D710P.CDSEXPAR: Code type personne parent revenu CGLKPIMO
- 25 LS-CDSEXPAR PIC XXX. CGLKPIMO
- 88 LS-FL-CDSEXPAR-MON VALUE 'MON'. CGLKPIMO
- 88 LS-FL-CDSEXPAR-MME VALUE 'MME'. CGLKPIMO
- * D710P.CDSANRSA: Indicateur sanction RSA CGLKPIMO
- 25 LS-CDSANRSA PIC 9. CGLKPIMO
- 88 FL-CDSANRSA-OK VALUE 1. CGLKPIMO
- 88 FL-CDSANRSA-KO VALUE 0. CGLKPIMO
- * D710P.CDIMPPL : Indicateur IMPPL de Impayés logementCGLKPIMO
- 25 LS-CDIMPPL PIC X. CGLKPIMO
- 88 LS-FL-CDIMPPL-OUI VALUE 'O'. CGLKPIMO
- 88 LS-FL-CDIMPPL-NON VALUE 'N' ' '. CGLKPIMO
- * D710P.CDRESSOK : Indicateur Ressources OK nulles CGLKPIMO
- * Dans CGRL25P, si ressources OK nulles on sort de la CGLKPIMO
- * règle. CGRL25P est éclaté en +sieurs règles, un CGLKPIMO
- * D710P.CDRESSOK est créé pour shunter les règles K51,CGLKPIMO
- * L23, L24, K52, K21, K95 ,K96 et K97, le cas échéant.CGLKPIMO
- 25 LS-D710P-CDRESSOK PIC X. CGLKPIMO
- 88 LS-D710P-FL-CDRESSOK-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-D710P-FL-CDRESSOK-POSIT-NON VALUE SPACE. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- *--------- D710P stockés par personnes CGLKPIMO
- 20 LS-D710P-PERS OCCURS 27 INDEXED BY IX-D710P-PER. CGLKPIMO
- *-- Somme des PA dues pour un enfant {D710P.MTPADUES} CGLKPIMO
- 25 LS-MTPADUES PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- Mt unitaire ASF {D710P.MTASF} CGLKPIMO
- 25 LS-MTASF PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- Mt du droit pour l'occurence {D710P.MTCPASF} CGLKPIMO
- 25 LS-MTCPASF PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *-- Mt ASFR ancien taux {D710P.ANCASFCP} CGLKPIMO
- 25 LS-ANCASFCP PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--------- D710P allocataire et conjoint uniquement CGLKPIMO
- *--- Utiliser : LS-IN-PER-AC-ALLOC ou LS-IN-PER-AC-CONJT CGLKPIMO
- *--- pour se positionner sur la personne souhaitee. CGLKPIMO
- 20 LS-D710P-ALL-OU-CJT OCCURS 2 CGLKPIMO
- INDEXED BY IX-PER-AC IX-PER-AC-2. CGLKPIMO
- *--- Finalement pas besoin pour le moment, mais C prêt ! CGLKPIMO
- 25 F PIC X. CGLKPIMO
- * CGLKPIMO
- *--------- D710P pour CEE --* CGLKPIMO
- 20 LS-D710P-CEE-ALLOC. CGLKPIMO
- * *-- Indic. résidence CEE alloc {D710P.CDRESCE} CGLKPIMO
- 25 LS-CDRESCE-CEE-ALLOC PIC X. CGLKPIMO
- 88 LS-CDRESCE-CEE-ALLOC-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-CDRESCE-CEE-ALLOC-POSIT-NON VALUE SPACES. CGLKPIMO
- * *-- Indic. activité CEE alloc ok {D710P.CDCEEOK} CGLKPIMO
- 25 LS-CDCEEOK-CEE-ALLOC PIC X. CGLKPIMO
- 88 LS-CDCEEOK-CEE-ALLOC-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-CDCEEOK-CEE-ALLOC-POSIT-NON VALUE SPACES. CGLKPIMO
- *--- Indic. activité CEE alloc KO {D710P.CDCEEKO} CGLKPIMO
- *--- ou Indicateur justif insuffisante CGLKPIMO
- 25 LS-CDCEEKO-CEE-ALLOC PIC X. CGLKPIMO
- 88 LS-CDCEEKO-CEE-ALLOC-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-CDCEEKO-CEE-ALLOC-POSIT-NON VALUE SPACES. CGLKPIMO
- * *-- Indic. nationalité CEE alloc {D710P.CDNACEE} CGLKPIMO
- 25 LS-CDNACEE-CEE-ALLOC PIC X. CGLKPIMO
- 88 LS-CDNACEE-CEE-ALLOC-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-CDNACEE-CEE-ALLOC-POSIT-NON VALUE SPACES. CGLKPIMO
- * *-- Indic. alloc CEE régime {D710P.CDREGCE} CGLKPIMO
- 25 LS-CDREGCE-CEE-ALLOC PIC X. CGLKPIMO
- 88 LS-CDREGCE-CEE-ALLOC-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-CDREGCE-CEE-ALLOC-POSIT-NON VALUE SPACES. CGLKPIMO
- * *-- Indic. allocataire CEE ARS {D710P.CDCEEARS} CGLKPIMO
- 25 LS-CDCEEARS-CEE-ALLOC PIC X. CGLKPIMO
- 88 LS-CDCEEARS-CEE-ALLO-POSIT VALUE 'P'. CGLKPIMO
- 88 LS-CDCEEARS-CEE-ALLO-POSIT-NON VALUE SPACES. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- *--------- D710P utilisés en Hiérarchisation CGLKPIMO
- 20 LS-D710P-PELEM OCCURS 275 INDEXED BY IX-D710P. CGLKPIMO
- * D710P.DTISOLT : DT d'isolement CGLKPIMO
- * nb: la règle U244P.CGRAPISO doit être éclatée CGLKPIMO
- * cette donnée n'existera plus que pour RSIN1 CGLKPIMO
- 25 LS-DTISOLT PIC S9(09) COMP-3. CGLKPIMO
- * D710P.DTSEPINI: DT séparation initiale du couple CGLKPIMO
- * nb: la règle U244P.CGRAPISO doit être éclatée CGLKPIMO
- * cette donnée n'existera plus que pour RSIN1 CGLKPIMO
- 25 LS-DTSEPINI PIC S9(09) COMP-3. CGLKPIMO
- * D710P.MTSANRSA: MT de la sanction à appliquer (RSA) CGLKPIMO
- 25 LS-MTSANRSA PIC S9(7)V99 COMP-3.CGLKPIMO
- * D710P.MTSANPCG: MT de la sanction CG CGLKPIMO
- 25 LS-MTSANPCG PIC S9(7)V99 COMP-3.CGLKPIMO
- * D710P.CDCJTEXC: Indicateur conjoint exclu CGLKPIMO
- 25 LS-CDCJTEXC PIC X. CGLKPIMO
- 88 FL-CDCJTEXC-O VALUE 'O'. CGLKPIMO
- 88 FL-CDCJTEXC-N VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *--------- D710P RMI/RSA utilisés en Hiérarchisation CGLKPIMO
- * Poste 1 = RMI CGLKPIMO
- * Poste 2 = RSI CGLKPIMO
- * Poste 3 = RSD CGLKPIMO
- ********** 20 LS-D710P-PELEM OCCURS 3 INDEXED BY IX-RMIRSA. CGLKPIMO
- * CPT d'enfts de - de 10 ans placés ss liens affectifsCGLKPIMO
- ********** 25 LS-MOINS-10ANS-SS-LIENS PIC 99. CGLKPIMO
- * CPT d'enfts de 10-15 ans placés ss liens affectifs CGLKPIMO
- ********** 25 LS-10-15ANS-SS-LIENS PIC 99. CGLKPIMO
- * CPT d'enfts de 10-15 ans placés ss liens affectifs CGLKPIMO
- ********** 25 LS-15-20ANS-SS-LIENS PIC 99. CGLKPIMO
- * CPT d'enfts de - de 10 ans placés avec liens affect.CGLKPIMO
- ********** 25 LS-MOINS-10ANS-AV-LIENS PIC 99. CGLKPIMO
- * CPT d'enfts de 10-15 ans placés avec liens affect. CGLKPIMO
- ********** 25 LS-10-15ANS-AV-LIENS PIC 99. CGLKPIMO
- * CPT d'enfts de 10-15 ans placés avec liens affect. CGLKPIMO
- ********** 25 LS-15-20ANS-AV-LIENS PIC 99. CGLKPIMO
- * CGLKPIMO
- *--- On arrete de jouer CGLKPIMO
- *--- D710P par pelem CGLKPIMO
- 20 LS-D7-PELEM OCCURS 275 CGLKPIMO
- INDEXED BY IX-D7-PELEM-1 CGLKPIMO
- IX-D7-PELEM-2. CGLKPIMO
- *--- D710P.MTRESRSA MT total ressources mensuelles RSA CGLKPIMO
- 25 LS-D7-MTRESRSA PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- D710P.MTBASPRP MT ressources mensuelles PRP (cumul) CGLKPIMO
- 25 LS-D7-MTBASPRP PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- D710M.CDMRSABN - MT abattement/neutral. RSA CGLKPIMO
- 25 LS-D7-MRS-MRSABN PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- D710M.CDMRSCMI - MT cumul intégral RSA CGLKPIMO
- 25 LS-D7-MRS-MRSCMI PIC S9(7)V99 COMP-3. CGLKPIMO
- *--- Indicateur de demande de màj la table CDMRS CGLKPIMO
- 25 LS-D7-TOP-MAJ-MRSMRS PIC X. CGLKPIMO
- 88 LS-D7-FL-MAJ-MRSMRS-OUI VALUE 'O'. CGLKPIMO
- 88 LS-D7-FL-MAJ-MRSMRS-NON VALUE ' '. CGLKPIMO
- * CGLKPIMO
- *--- D710P.QTPLAN0 CGLKPIMO
- *--- CPT d'enfts de - de 10 ans placés ss liens affectifsCGLKPIMO
- 25 LS-QTPLAN0-M10ANS-SS-LIENS PIC 99. CGLKPIMO
- *--- D710P.QTPLAO0 CGLKPIMO
- *--- CPT d'enfts de - de 10 ans placés avec liens affect.CGLKPIMO
- 25 LS-QTPLAO0-M10ANS-AV-LIENS PIC 99. CGLKPIMO
- *--- D710P.QTPLAN10 CGLKPIMO
- *--- CPT d'enfts de + 10 ans placés ss liens affectifs CGLKPIMO
- 25 LS-QTPLAN10-P10ANS-SS-LIENS PIC 99. CGLKPIMO
- *--- D710P.QTPLAO10 CGLKPIMO
- *--- CPT d'enfts de +10 ans placés avec liens affect. CGLKPIMO
- 25 LS-QTPLAO10-P10ANS-AV-LIENS PIC 99. CGLKPIMO
- *--- D710P.QTPLAN15 CGLKPIMO
- *--- CPT d'enfts de +15 ans placés ss liens affectifs CGLKPIMO
- 25 LS-QTPLAN15-P15ANS-SS-LIENS PIC 99. CGLKPIMO
- *--- D710P.QTPLAO15 CGLKPIMO
- *--- CPT d'enfts de +15 ans placés avec liens affect. CGLKPIMO
- 25 LS-QTPLAO15-P15ANS-AV-LIENS PIC 99. CGLKPIMO
- * CGLKPIMO
- *--- D710P.DTISOPA : DT de l'isolement PPA CGLKPIMO
- 25 LS-DTISOPA PIC S9(09) COMP-3. CGLKPIMO
- *--- D710P.DTSEPIPA : DT de séparation initiale PPA CGLKPIMO
- 25 LS-DTSEPIPA PIC S9(09) COMP-3. CGLKPIMO
- *--- D710P.CDGROSS Indicateur de grossesse CGLKPIMO
- 25 LS-D7-CDGROSS PIC X. CGLKPIMO
- 88 LS-FL-D7-CDGROSS-POSIT VALUE 'P'. CGLKPIMO
- * CGLKPIMO
- *--- D710P.QTENF3A Compteur d'enfants de moins de 3 ansCGLKPIMO
- 25 LS-D7-QTENF3A PIC 99. CGLKPIMO
- * CGLKPIMO
- *--- D710P.CDRESABS Indicateur ressources absentes CGLKPIMO
- 25 LS-D7-CDRESABS PIC X. CGLKPIMO
- 88 LS-D7-FL-CDRESABS-SPACE VALUE ' '. CGLKPIMO
- 88 LS-D7-FL-CDRESABS-O VALUE 'O'. CGLKPIMO
- 88 LS-D7-FL-CDRESABS-N VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- ***************************************************************** CGLKPIMO
- * CGLKPIMO
- 15 LS-FONC-CGRDROIT. CGLKPIMO
- *--- Indice de l'allocataire CGLKPIMO
- 20 LS-IN-ALLOC PIC S9(3) COMP-3. CGLKPIMO
- *--- Indice du conjoint CGLKPIMO
- 20 LS-IN-CONJOINT PIC S9(3) COMP-3. CGLKPIMO
- *--- Demandeurs CMG CGLKPIMO
- 20 WS-DEMAND-CMG OCCURS 2 INDEXED BY IX-PJ4. CGLKPIMO
- *--- D710P.NMDDE001 numéro fictif des demandeurs CGLKPIMO
- 25 LS-NMDDE001 PIC S9(7) COMP-3. CGLKPIMO
- *--- D710P.DTDDCMG1 Date de demande CMG CGLKPIMO
- 25 LS-DTDDCMG1 PIC S9(9) COMP-3. CGLKPIMO
- CGLKPIMO
- *--- D710P.CDTYGAR Indicateur type de garde CGLKPIMO
- 25 LS-CDTYGAR PIC X. CGLKPIMO
- 88 FL-CDTYGAR-ASS-MAT VALUE 'A'. CGLKPIMO
- 88 FL-CDTYGAR-GARDE-DOM VALUE 'G'. CGLKPIMO
- 88 FL-CDTYGAR-MICRO-CRECHE VALUE 'M'. CGLKPIMO
- 88 FL-CDTYGAR-ASS-ET-GAR-DOM VALUE 'T'. CGLKPIMO
- 88 FL-CDTYGAR-ASS-ET-MICRO-CRE VALUE 'S'. CGLKPIMO
- 88 FL-CDTYGAR-GAR-ET-MICRO-CRE VALUE 'R'. CGLKPIMO
- 88 FL-CDTYGAR-GAR-ET-MICRO-ASS VALUE 'Q'. CGLKPIMO
- * CGLKPIMO
- *--- LT-MAX-PJ4-DEMAND-CMG déclaré dans CGS101W et CGS401W et CGLKPIMO
- *--- CGS601W a comme valeur le nombre CGLKPIMO
- *--- indiqué en OCCURS de WS-DEMAND-CMG. CGLKPIMO
- *--- Utiliser IN-MAX-PJ4-DEMAND-CMG dans la procédure CGLKPIMO
- * CGLKPIMO
- *--- Demandeurs APE CGLKPIMO
- 20 LS-DEMAND-APE OCCURS 6 INDEXED BY IX-APE CGLKPIMO
- IX-APE-1 CGLKPIMO
- IX-PJ3-DDE-1 CGLKPIMO
- IX-PJ3-DDE-2 CGLKPIMO
- IX-PJ6-DDE-1 CGLKPIMO
- IX-PJ6-DDE-2. CGLKPIMO
- *--- D710P.NMDDE002 N°(s) fictif(s) du (des) demandeur(s)CGLKPIMO
- 25 LS-NMDDE002 PIC S9(7) COMP-3. CGLKPIMO
- 25 LS-NFICPN-APE REDEFINES LS-NMDDE002 CGLKPIMO
- PIC S9(7) COMP-3. CGLKPIMO
- *--- D710P.DTDDPJ3 Date de demande APE/PJ3 CGLKPIMO
- 25 LS-DTDDPJ3 PIC S9(9) COMP-3. CGLKPIMO
- 25 LS-DT-DDE-APE REDEFINES LS-DTDDPJ3 CGLKPIMO
- PIC S9(9) COMP-3. CGLKPIMO
- CGLKPIMO
- 25 LS-CTX-APE PIC X(3). CGLKPIMO
- 88 LS-FL-CTXAPE-TX1 VALUE 'TX1'. CGLKPIMO
- 88 LS-FL-CTXAPE-TX2 VALUE 'TX2'. CGLKPIMO
- 25 LS-DAPEPA PIC S9(9) COMP-3. CGLKPIMO
- 25 LS-COLCAD PIC X. CGLKPIMO
- *--- D710P.DTODPJ3 : 1er mois droit PELEM PJ3N1 CGLKPIMO
- 25 LS-DTODPJ3 PIC S9(9) COMP-3. CGLKPIMO
- 25 LS-TAB-CDOCCPJ6. CGLKPIMO
- 30 LS-POS-CDOCCPJ6 OCCURS 13 CGLKPIMO
- INDEXED BY IX-PJ6-DDE-PELEM CGLKPIMO
- IX-PJ6-DDE-1-PELEM CGLKPIMO
- IX-PJ6-DDE-2-PELEM. CGLKPIMO
- *--- D710P.CDACANTD Par occurrence,par pelem CGLKPIMO
- *--- indic. acti.antérieure dmdeur CGLKPIMO
- 35 LS-CDACANTD PIC X. CGLKPIMO
- 88 LS-FL-CDACANTD-NON VALUE 'N'. CGLKPIMO
- 88 LS-FL-CDACANTD-OUI VALUE 'O'. CGLKPIMO
- *-- D710P par pelem pour PJ6 CGLKPIMO
- 20 LS-TAB-CDXXXPJ6. CGLKPIMO
- 25 LS-POS-CDXXXPJ6 OCCURS 13 CGLKPIMO
- INDEXED BY IX-PJ6-PELEM CGLKPIMO
- IX-PJ6-1-PELEM CGLKPIMO
- IX-PJ6-2-PELEM. CGLKPIMO
- *--- D710P.CDISOPJ6 : Indicateur isolement CGLKPIMO
- 30 LS-CDISOPJ6 PIC X. CGLKPIMO
- 88 LS-FL-CDISOPJ6-NON VALUE 'N'. CGLKPIMO
- 88 LS-FL-CDISOPJ6-OUI VALUE 'O'. CGLKPIMO
- *--- D710P.CDPARTAG : Indicateur partage PJ6 CGLKPIMO
- 30 LS-CDPARTAG PIC X. CGLKPIMO
- 88 LS-FL-CDPARTAG-NON VALUE 'N'. CGLKPIMO
- 88 LS-FL-CDPARTAG-OUI VALUE 'O'. CGLKPIMO
- *--- D710P.CDCOUPLE : Indicicateur situation CGLKPIMO
- *--- de couple après limite CGLKPIMO
- 30 LS-CDCOUPLE PIC X. CGLKPIMO
- 88 LS-FL-CDCOUPLE-NON VALUE 'N'. CGLKPIMO
- 88 LS-FL-CDCOUPLE-OUI VALUE 'O'. CGLKPIMO
- *--- D710P.NMENFT01 : Numéro fictif Enfant Prepare CGLKPIMO
- *--- dans cas d'adoption : on peut en avoir plusieurs CGLKPIMO
- 30 LS-TAB-NMENFT01 OCCURS 5 CGLKPIMO
- INDEXED BY IX-NMENFT01 CGLKPIMO
- IX-1-NMENFT01 CGLKPIMO
- IX-2-NMENFT01. CGLKPIMO
- 35 LS-NMENFT01 PIC S9(7) COMP-3. CGLKPIMO
- *--- Compteur du nombre d'enfants APE/PJ3 CGLKPIMO
- 20 LS-QTENF-APE PIC 99. CGLKPIMO
- *--- Indice du bénéficiaire APE (->12/94) CGLKPIMO
- 20 LS-IND-BENEF-APE PIC S9(3) COMP-3. CGLKPIMO
- *--- Indices des bénéficiaires APE initialisés tous les moisCGLKPIMO
- 20 LS-IND-BENEF-APE-OCC-GR. CGLKPIMO
- 25 LS-IND-BENEF-APE-OCC OCCURS 2 CGLKPIMO
- INDEXED BY IX-BENEF-APE IX-PJ3-BEN-1 IX-PJ3-BEN-2 CGLKPIMO
- IX-PJ6-BEN-1 IX-PJ6-BEN-2.CGLKPIMO
- 30 LS-NMBENE01-G. CGLKPIMO
- *--- D710P.NMBENE01 n°(s) de (des) bénéficiairesCGLKPIMO
- 35 LS-NMBENE01 OCCURS 13 INDEXED BY CGLKPIMO
- IX-PJ3-PEL-1 IX-PJ3-PEL-2 IX-BPJ3 CGLKPIMO
- IX-PJ6-PEL-1 IX-PJ6-PEL-2 IX-BPJ6 CGLKPIMO
- PIC S9(3) COMP-3. CGLKPIMO
- 30 LS-IND-BEN-APE-N REDEFINES LS-NMBENE01-G. CGLKPIMO
- 35 LS-IND-BENEF-APE-N OCCURS 13 CGLKPIMO
- INDEXED BY IX-BAPE CGLKPIMO
- PIC S9(3) COMP-3. CGLKPIMO
- * Sexe du bénéficiaire CGLKPIMO
- *--- D710P.CDSEXCA Code indiquant le sexe du CGLKPIMO
- *--- bénéficiaire CA (PJ3). CGLKPIMO
- 30 LS-CDSEXCA OCCURS 13 CGLKPIMO
- INDEXED BY IX-SEXCA CGLKPIMO
- IX-PJ3-SEX-1 IX-PJ3-SEX-2 CGLKPIMO
- IX-PJ6-SEX-1 IX-PJ6-SEX-2 CGLKPIMO
- PIC X. CGLKPIMO
- 20 LS-FL-JN-MEN PIC X. CGLKPIMO
- 88 FL-JN-MEN-OUI VALUE 'O'. CGLKPIMO
- 88 FL-JN-MEN-NON VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- *** A998.CCR1308B : Zone devant disparaitre mais impossible * CGLKPIMO
- *** (le 25/04/02) à cause de la SIMULATION * CGLKPIMO
- *--- Identifiant de l'occurrence AAS CGLKPIMO
- 20 LS-IN-OCC-AAS PIC S9(3) COMP-3. CGLKPIMO
- *--- Identifiant de l'occurrence du 31/MT (Si occ AAS) CGLKPIMO
- 20 LS-IN-OCC-MT PIC S9(3) COMP-3. CGLKPIMO
- * FILLER DISPONIBLE CGLKPIMO
- 20 LS-DOS-PJ3-PJ6 PIC X(1). CGLKPIMO
- 88 LS-FL-DOS-PJ3 VALUE '3'. CGLKPIMO
- 88 LS-FL-DOS-PJ6 VALUE '6'. CGLKPIMO
- 20 FILLER PIC X(14). CGLKPIMO
- * * CGLKPIMO
- ***************************************************************** CGLKPIMO
- * - Indicateur de màj du gdd DOHCRE * CGLKPIMO
- * - Indicateur de màj du gdd DOHCRM * CGLKPIMO
- ***************************************************************** CGLKPIMO
- * * CGLKPIMO
- 15 LS-TOP-MAJ. CGLKPIMO
- 20 LS-TOP-MAJ-DOHCRE PIC 9. CGLKPIMO
- CGLKPIMO
- * CGLKPIMO
- *--- M O N T A N T S CGLKPIMO
- * CGLKPIMO
- 15 LS-MT-RAZ-PELEM. CGLKPIMO
- *--- MT revenus trimestriels API CGLKPIMO
- 20 LS-MT-REVENUS-TRIM PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- MT Base ressources RMI sans abatt. CGLKPIMO
- 20 LS-MT-BASE-RMI-SSAB PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- MT Base ressources RMI avec abatt. CGLKPIMO
- 20 LS-MT-BASE-RMI-AVAB PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- FILLER DISPONIBLE CGLKPIMO
- 20 FILLER PIC X(15). CGLKPIMO
- CGLKPIMO
- 15 LS-MT-DIVERS. CGLKPIMO
- *--- MT du CHA3 pour l'occurrence CGLKPIMO
- *** A998.CCR1308B : Zones devant disparaitre mais impossible * CGLKPIMO
- *** (le 25/04/02) à cause de la SIMULATION AAS (occ. du 31/12AR)CGLKPIMO
- * CGLKPIMO
- 20 LS-MT-CHA3-OCC-AAS PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT montant des ressources Mr/Mme * CGLKPIMO
- * AAS (occurrence du 31/12AR) CGLKPIMO
- 20 LS-MT-RESS-OCC-AAS PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- CGLKPIMO
- * MT revenu net global ménage * CGLKPIMO
- 20 LS-MT-RN-GLOB-MEN PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 20 LS-MT-RN-GLOB-MEN-BIS PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT revenu net toutes prestations * CGLKPIMO
- 20 LS-MT-RN-TTE-PREST PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT revenu net APL ménage * CGLKPIMO
- 20 LS-MT-RN-APL-MEN PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 20 LS-MT-RN-APL-MEN-BIS PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- *** A998.CCR1308B : Zone devant disparaitre mais impossible * CGLKPIMO
- *** (le 25/04/02) à cause de la SIMULATION * CGLKPIMO
- * MT revenu net AAS ménage * CGLKPIMO
- 20 LS-MT-RN-AAS-MEN PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- * MT théorique de l'AEC * CGLKPIMO
- 20 LS-MT-THEOR-AEC PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT Base ressources AAH * CGLKPIMO
- 20 LS-MT-BASE-RESS-AAH PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT Base ressources AL * CGLKPIMO
- 20 LS-MT-BASE-RESS-AL PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT Base ressources APL * CGLKPIMO
- 20 LS-MT-BASE-RESS-APL PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT Base ressources APL4 * CGLKPIMO
- 20 LS-MT-BASE-RESS-APL4 PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT Base ressources APR * CGLKPIMO
- 20 LS-MT-BASE-RESS-APR PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT Base ressources APRbis * CGLKPIMO
- 20 LS-MT-BASE-RESS-APRB PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT charges deductibles * CGLKPIMO
- 20 LS-MT-CHARGE-DEDUCT PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT abattement spécial fiscal CGLKPIMO
- 20 LS-MT-ABATT-SPEC-FISC PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT des deficits CGLKPIMO
- 20 LS-MT-DEFICIT PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT abat. spécial fiscal LOG. (2204A) CGLKPIMO
- 20 LS-MFILOG PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- *** A998.CCR1308B : Zone devant disparaitre mais impossible * CGLKPIMO
- *** (le 25/04/02) à cause de la SIMULATION * CGLKPIMO
- * MT Base ressources AAS * CGLKPIMO
- 20 LS-MT-BASE-RESS-AAS PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- * MT Base ressources RSO * CGLKPIMO
- 20 LS-MT-BASE-RESS-RSO PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT Base ressources RMI * CGLKPIMO
- * assiette RMI + PF * CGLKPIMO
- 20 LS-MT-BASE-RESS-RMI PIC S9(7)V99 COMP-3. CGLKPIMO
- * MT total ressources mensuelles RSA CGLKPIMO
- *--- Montant ressources mensuelles PRP (cumul) CGLKPIMO
- 20 LS-MTBASPRP PIC S9(7)V99 COMP-3. CGLKPIMO
- * MT assiette RMI/RSA+PF CGLKPIMO
- 20 LS-MRESPF-ASS-RMI-RSA-PF PIC S9(7)V99 COMP-3. CGLKPIMO
- * MT Assiette de ressources QF * CGLKPIMO
- * pour le ménage * CGLKPIMO
- 20 LS-MT-ASSI-RESS-QF PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT Quotient familial * CGLKPIMO
- 20 LS-MT-QF PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT Quotient familial vacances * CGLKPIMO
- 20 LS-MT-QF-AAV PIC S9(7)V9(2) COMP-3. CGLKPIMO
- * MT cumulé toutes assistantes mater. * CGLKPIMO
- * Base évaluée AAH, AL, APL CGLKPIMO
- 20 LS-MT-BEVAL-AAH PIC S9(7)V99 COMP-3. CGLKPIMO
- 20 LS-MT-BEVAL-AL PIC S9(7)V99 COMP-3. CGLKPIMO
- 20 LS-MT-BEVAL-APL PIC S9(7)V99 COMP-3. CGLKPIMO
- * CGLKPIMO
- 20 LS-MT-PLAFOND-RESS-ARS PIC S9(7)V99 COMP-3. CGLKPIMO
- * CGLKPIMO
- 20 FILLER PIC X(30). CGLKPIMO
- * FILLER DISPONIBLE CGLKPIMO
- 20 FILLER PIC X(15). CGLKPIMO
- * * CGLKPIMO
- 15 LS-MT-RAZ-REGLE. CGLKPIMO
- * *-- indicateur adoption ---* CGLKPIMO
- 20 LS-CDADOP01 PIC 9. CGLKPIMO
- 88 LS-FL-CDADOP01-OUI VALUE 1. CGLKPIMO
- 88 LS-FL-CDADOP01-NON VALUE 0. CGLKPIMO
- * *-- indicateur droit sur mois MAT --* CGLKPIMO
- 20 LS-CDDRTMAT PIC 9. CGLKPIMO
- 88 LS-FL-CDDRTMAT-OUI VALUE 1. CGLKPIMO
- 88 LS-FL-CDDRTMAT-NON VALUE 0. CGLKPIMO
- * FILLER DISPONIBLE CGLKPIMO
- 20 FILLER PIC X(19). CGLKPIMO
- * * CGLKPIMO
- ***************************************************************** CGLKPIMO
- * * CGLKPIMO
- * C O M P T E U R S - Q U A N T I T E S * CGLKPIMO
- * * CGLKPIMO
- * Initialisation mensuelle LS-CP-DIVERS CGLKPIMO
- * CGLKPIMO
- 15 LS-CP-RAZ-PELEM. CGLKPIMO
- * Nb occur entité mr/mme en activité partielle APE CGLKPIMO
- * ou PJ3 CGLKPIMO
- 20 LS-CP-MRMME-ACTI-PART-APE PIC 9. CGLKPIMO
- 20 LS-QTACTI01 REDEFINES CGLKPIMO
- LS-CP-MRMME-ACTI-PART-APE PIC 9. CGLKPIMO
- * CGLKPIMO
- * QT Enfants infirmes * CGLKPIMO
- 20 LS-CP-ENF-INF PIC S9(03) COMP-3. CGLKPIMO
- * Compteurs enfant - de X ans (APE,API) CGLKPIMO
- 20 LS-CP-ENF-MOINSX PIC S9(03) COMP-3. CGLKPIMO
- 20 LS-QTENF004 REDEFINES LS-CP-ENF-MOINSX CGLKPIMO
- PIC S9(03) COMP-3. CGLKPIMO
- *--- Compteur d'enfants adoptés (APE - 0822F) CGLKPIMO
- 20 LS-CP-ENF-ADOPTES PIC 99. CGLKPIMO
- 20 LS-ENFADQ01 REDEFINES LS-CP-ENF-ADOPTES PIC 99. CGLKPIMO
- *--- Compteur d'enfants décédés CGLKPIMO
- 20 LS-NBDCDQ01-NB-ENF-DCD PIC 99. CGLKPIMO
- *--- Quantité d'enfants conçus CGLKPIMO
- 20 LS-QTENFG01 PIC S9(3) COMP-3. CGLKPIMO
- 20 FILLER PIC X(20). CGLKPIMO
- * * CGLKPIMO
- ***************************************************************** CGLKPIMO
- * * CGLKPIMO
- * * CGLKPIMO
- * indicateurs remis à zéro à chaque changement de PELEM * CGLKPIMO
- * ou à blanc... CGLKPIMO
- * * CGLKPIMO
- 15 LS-FL-RAZ-PELEM. CGLKPIMO
- * Indicateur abs. invo. allocataire * CGLKPIMO
- * Indicateur abs. invo. alloc. RSA initialisé début mois * CGLKPIMO
- 20 LS-FL-ABSINV-ALC PIC X. CGLKPIMO
- * Indicateur abs. invo. conjoint * CGLKPIMO
- * Indicateur abs. invo. conjt. RSA initialisé début mois * CGLKPIMO
- 20 LS-FL-ABSINV-CONJ PIC X. CGLKPIMO
- * Indicateur de réduction hosp. * CGLKPIMO
- 20 LS-FL-REDUC PIC 9. CGLKPIMO
- * Indicateur de réduction AD CGLKPIMO
- 20 LS-FL-AD PIC 9. CGLKPIMO
- * Indicateur présence assiette * CGLKPIMO
- ***** 20 LS-FL-ASSIETTE PIC X. CGLKPIMO
- 20 LS-IND-PRESENCE-ASSIETTE PIC X. CGLKPIMO
- 88 LS-FL-IND-PRESENCE-ASS-NON-POS VALUE ' ' 'N'. CGLKPIMO
- 88 LS-FL-IND-PRESENCE-ASS-EST-POS VALUE 'O'. CGLKPIMO
- 88 LS-FL-IND-PRESENCE-ASS-POS-N VALUE 'N'. CGLKPIMO
- 20 LS-FL-ASSIETTE REDEFINES CGLKPIMO
- LS-IND-PRESENCE-ASSIETTE PIC X. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur de présence de l'assiette (SIGnificatif ou Non) CGLKPIMO
- 20 LS-ASPJ1I01-PRES-ASS PIC X. CGLKPIMO
- 88 LS-ASPJ1I01-FL-PRES-ASS-SIG VALUE 'O'. CGLKPIMO
- 88 LS-ASPJ1I01-FL-PRES-ASS-NSIG VALUE 'N'. CGLKPIMO
- * Indicateur mois traité * CGLKPIMO
- 20 LS-FL-RANG-MOIS PIC 9. CGLKPIMO
- * Indicateur "DNT non fournie" * CGLKPIMO
- 20 LS-FL-DNT-NFOURNIE PIC 9. CGLKPIMO
- * Indicateur "DROIT THEORIQUE" Dossier * CGLKPIMO
- 20 LS-FL-DROIT-THEORI PIC 9. CGLKPIMO
- * FILLER DISPONIBLE CGLKPIMO
- 20 FILLER PIC X(20). CGLKPIMO
- CGLKPIMO
- 15 LS-RAZ-PELEM. CGLKPIMO
- 20 FILLER PIC X. CGLKPIMO
- * * CGLKPIMO
- * CGLKPIMO
- ***************************************************************** CGLKPIMO
- * Zone de stockage des PELEM forcées : * CGLKPIMO
- * elle contient les infos, par PELEM et par destinataire, * CGLKPIMO
- * nécessaires à la mise à jour des PELEM FORCEES. * CGLKPIMO
- * * CGLKPIMO
- ***************************************************************** CGLKPIMO
- 10 LS-FORCAGE-DROIT. CGLKPIMO
- 15 LS-FOR-PRG OCCURS 20 INDEXED BY IX-FOR IX-FO2. CGLKPIMO
- 20 LS-FOR-CDHIS002 PIC S9(9) COMP-3. CGLKPIMO
- 20 LS-FOR-CNAPRG. CGLKPIMO
- 25 LS-FOR-CNAPRS PIC X(3). CGLKPIMO
- 25 LS-FOR-RSNAPR PIC X(2). CGLKPIMO
- 20 LS-FOR-CNADES PIC X(1). CGLKPIMO
- 20 LS-FOR-NDESTI PIC S9(7) COMP-3. CGLKPIMO
- 20 LS-FOR-CNAPER PIC X(1). CGLKPIMO
- 20 LS-FOR-NFICPN PIC S9(7) COMP-3. CGLKPIMO
- 20 LS-FOR-MDROPO PIC S9(5)V9(2) COMP-3. CGLKPIMO
- 20 LS-FOR-MDROPI PIC S9(5)V9(2) COMP-3. CGLKPIMO
- 20 LS-FOR-MONRDS PIC S9(3)V9(2) COMP-3. CGLKPIMO
- 20 LS-FOR-CSNAVC PIC X(4). CGLKPIMO
- 20 LS-FOR-COVDRO PIC X(1). CGLKPIMO
- 88 LS-FOR-FL-DRT-NO-OVT-FOR CGLKPIMO
- VALUE 'C' 'A' 'P' 'X'. CGLKPIMO
- *--- Nombre de postes du tableau LS-FOR-PRG CGLKPIMO
- 15 LS-FOR-NOCCUR PIC S9(3) COMP-3. CGLKPIMO
- *--- Nombre de prestations forcées CGLKPIMO
- 15 LS-FOR-NBPRES PIC S9(3) COMP-3. CGLKPIMO
- *--- FLAG à 'O' ou 'N' selon que la PELEM étudiée est forcée CGLKPIMO
- *--- ou non ==> Indicateur pour déroulement forcé du canevas CGLKPIMO
- 15 LS-FOR-FL-CNAPRG PIC X(01). CGLKPIMO
- *--- FLAG à 'O' ou 'N' selon que la PELEM étudiée est forcée CGLKPIMO
- *--- par NFICPN ou non CGLKPIMO
- *--- ==> Indicateur pour déroulement forcé du canevas CGLKPIMO
- 15 LS-FOR-FL-NFICPN PIC X. CGLKPIMO
- 15 FILLER PIC X(09). CGLKPIMO
- * CGLKPIMO
- * * CGLKPIMO
- ***************************************************************** CGLKPIMO
- * . on stocke ici via les regles de valo APE le ou les benefi* CGLKPIMO
- * ciaires APE car les zones par ailleurs utilisées sont * CGLKPIMO
- * alteres pour chaque pelem APE * CGLKPIMO
- * .en hiera AZAPE on s'appuyera sur le tableau ci dessous pour * CGLKPIMO
- * la gestion du tableau à destination de PC1 PEC * CGLKPIMO
- * .rapidement cette approche devar etre revu globalement * CGLKPIMO
- ***************************************************************** CGLKPIMO
- 10 LS-MANUELLE-APE-PC1. CGLKPIMO
- 15 LS-MANUELLE-APE-PC1-PELEM OCCURS 15 CGLKPIMO
- INDEXED BY IX-APE-PC1-PELEM. CGLKPIMO
- 20 LS-MANUELLE-APE-PC1-BENEFX OCCURS 2 CGLKPIMO
- INDEXED BY IX-APE-PC1-BENEF. CGLKPIMO
- 25 LS-MANUELLE-APE-PC1-BENEF PIC S9(3) COMP-3. CGLKPIMO
- * Indicateur condition situation/nationalité/résidence (APE) CGLKPIMO
- 10 LS-FL-SIT-NAT-RES-APE OCCURS 27 INDEXED BY IX-PER3 CGLKPIMO
- PIC X. CGLKPIMO
- 10 FILLER PIC X(23). CGLKPIMO
- ***************************************************************** CGLKPIMO
- * * CGLKPIMO
- 10 LS-MANUELLE-DIVERS-FIN. CGLKPIMO
- *--- Préliq. RMI : stockage info. de la période d'étude (max CGLKPIMO
- *--- 3 mois), info. nécessaires pour la notif. RMIPL CGLKPIMO
- 15 LS-PLRM-INFO-NOTIF. CGLKPIMO
- 20 LS-PLRM-INFO-NOTIF-OCC OCCURS 3 CGLKPIMO
- INDEXED BY IX-PLRM-PIMO. CGLKPIMO
- *--- mois traité CGLKPIMO
- 25 LS-PLRM-DMSTTE PIC S9(07) COMP-3. CGLKPIMO
- *--- code rmi ouvrant droit CGLKPIMO
- 25 LS-PLRM-COVDRO PIC X. CGLKPIMO
- 88 LS-FL-PLRM-DRT-REEL VALUE 'R'. CGLKPIMO
- 88 LS-FL-PLRM-DRT-THEO VALUE 'T'. CGLKPIMO
- 88 LS-FL-PLRM-DRT-BLAN VALUE ' '. CGLKPIMO
- 88 LS-FL-PLRM-DRT-NO-OVT VALUE 'N'. CGLKPIMO
- *--- indicateur préfet CGLKPIMO
- 25 LS-PLRM-CINPPF PIC X. CGLKPIMO
- *--- résidence non conforme CGLKPIMO
- 88 LS-PLRM-FL-IPP-RES VALUE '5'. CGLKPIMO
- *--- refus CAF CGLKPIMO
- 88 LS-PLRM-FL-IPP-CAF VALUE '6'. CGLKPIMO
- *--- ressources > plafond CGLKPIMO
- 88 LS-PLRM-FL-IPP-RESS VALUE '8'. CGLKPIMO
- *--- enfant(s) inassidu(s) CGLKPIMO
- 88 LS-PLRM-FL-IPP-SCO VALUE 'A'. CGLKPIMO
- *--- ressources ETI à évaluer CGLKPIMO
- 88 LS-PLRM-FL-CINPPF-C VALUE 'C'. CGLKPIMO
- *--- pas de pension vieillesse CGLKPIMO
- 88 LS-PLRM-FL-CINPPF-D VALUE 'D'. CGLKPIMO
- CGLKPIMO
- *--- indicateurs résultat trt. des modules CGLKPIMO
- 25 LS-PLRM-NOTIF-RMI-OK PIC X. CGLKPIMO
- *--- indice allocataire traité CGLKPIMO
- 25 LS-PLRM-IN-ALLOC PIC 99. CGLKPIMO
- *--- indice(s) enfant(s) inassidu(s) CGLKPIMO
- 25 LS-PLRM-ENF-INAS OCCURS 5 CGLKPIMO
- INDEXED BY IX-PLRM-INAS. CGLKPIMO
- 27 LS-PLRM-IN-ENF-INAS PIC 99. CGLKPIMO
- 25 LS-PLRM-CP-INASSIDU PIC 99. CGLKPIMO
- 25 FILLER PIC X(06). CGLKPIMO
- *--- La valeur de l'index IX-PLRM-PIMO est stockée dans CGM140W CGLKPIMO
- *--- donc si la longueur de la picture évolue, il faut faire CGLKPIMO
- *--- évoluer la longueur de la picture de l'indice de stockage. CGLKPIMO
- *--- Contient nombre maxi d'occ. du tableau info. pour notif. CGLKPIMO
- 15 IN-MAX-PLRM PIC S9(1) COMP-3. CGLKPIMO
- *--- Résidu de la CGLKPIMN CGLKPIMO
- 15 LS-CINPPF PIC X(1). CGLKPIMO
- 88 LS-FL-IPP-SEJ VALUE '1'. CGLKPIMO
- 88 LS-FL-IPP-ACT VALUE '2'. CGLKPIMO
- 88 LS-FL-IPP-SAL VALUE '3'. CGLKPIMO
- 88 LS-FL-IPP-AGE VALUE '4'. CGLKPIMO
- 88 LS-FL-IPP-RES VALUE '5'. CGLKPIMO
- 88 LS-FL-IPP-CAF VALUE '6'. CGLKPIMO
- 88 LS-FL-IPP-AUT VALUE '7'. CGLKPIMO
- 88 LS-FL-IPP-RESS VALUE '8'. CGLKPIMO
- 88 LS-FL-IPP-DIS VALUE '9'. CGLKPIMO
- 88 LS-FL-IPP-SCO VALUE 'A'. CGLKPIMO
- 88 LS-FL-IPP-DOM-SURF VALUE 'B'. CGLKPIMO
- 88 LS-FL-CINPPF-C VALUE 'C'. CGLKPIMO
- 88 LS-FL-CINPPF-D VALUE 'D'. CGLKPIMO
- 88 LS-FL-CINPPF-E VALUE 'E'. CGLKPIMO
- *--- Info. présence ou pas accord préfet sur la période étudiée CGLKPIMO
- CGLKPIMO
- 15 FILLER PIC X(49). CGLKPIMO
- 15 LS-DT-FIN-GROSS-APE PIC S9(9) COMP-3. CGLKPIMO
- * CGLKPIMO
- *--- Indicateur pour màj particulière de PEHAVP (X36/CGM130) CGLKPIMO
- 15 LS-TOP-MAJ-PEHAVP PIC 9. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- *-- flag permetant de savoir si GESDRO est appelé lors CGLKPIMO
- *-- d'une conversion (positionnement de ce flag dans CGS100 CGLKPIMO
- *-- et exploitation dans la regle CGRVAAFA) CGLKPIMO
- 15 LS-FLAG-CONVERSION PIC X. CGLKPIMO
- 88 LS-FL-CONVERSION VALUE 'C'. CGLKPIMO
- 88 LS-FL-PAS-CONVERSION VALUE 'X'. CGLKPIMO
- * CGLKPIMO
- *--- ATTENTE D'ACCORD DU POLE FONCTIONNEL POUR MISE A JOUR CGLKPIMO
- *--- DE AS0ASS LE 13/03/97 (vid) CGLKPIMO
- *--- SPP : somme des prestations périodiques calculée dans CGLKPIMO
- *--- CGRY01P et stockée dans AS0ASS pour besoin des PEL CGLKPIMO
- 15 LS-SPP-SOM-PREST-PER PIC S9(5)V99 COMP-3. CGLKPIMO
- 15 FILLER PIC X(94). CGLKPIMO
- *-----------------------------------------------------------------CGLKPIMO
- 15 LS-RESRES-MAJ. CGLKPIMO
- 20 LS-RESRES-PER-MAJ OCCURS 2 CGLKPIMO
- INDEXED BY LS-IX-RES-PER-MAJ LS-IX-RES-PER-MAJ-2. CGLKPIMO
- 25 LS-RESRES-NFICPN-MAJ PIC S9(7) COMP-3. CGLKPIMO
- 25 LS-RESRES-CDHIS001-MAJ PIC S9(9) COMP-3. CGLKPIMO
- 25 LS-RESRES-CDRESRE1-MAJ. CGLKPIMO
- 30 LS-RESRES-CDRESRE2-MAJ OCCURS 15 CGLKPIMO
- INDEXED BY LS-IX-RESRE2-MAJ. CGLKPIMO
- 35 LS-RESRES-CNARES-MAJ PIC X(3). CGLKPIMO
- 35 LS-RESRES-MTREPN-MAJ PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 35 LS-RESRES-TRESPN-MAJ PIC S9(3)V9(2) COMP-3. CGLKPIMO
- 35 LS-RESRES-QM2JAR-MAJ PIC S9(5) COMP-3. CGLKPIMO
- 35 LS-RESRES-QHREPN-MAJ PIC S9(3) COMP-3. CGLKPIMO
- 35 LS-RESRES-CDEVIS-MAJ PIC X(2). CGLKPIMO
- 35 LS-RESRES-MTREPN1-MAJ PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- Zone de stockage du maximum de personnes du tableau -MAJ CGLKPIMO
- 15 LS-RESRES-PER-MAX-MAJ PIC S9(3) COMP-3. CGLKPIMO
- *--- Zone de stockage du max. de ressources du tableau -MAJ CGLKPIMO
- 15 LS-RESRES-RES-MAX-MAJ PIC S9(3) COMP-3. CGLKPIMO
- * CGLKPIMO
- 15 LS-RESRES-RUPT. CGLKPIMO
- 20 LS-RESRES-PER-RUPT OCCURS 2 CGLKPIMO
- INDEXED BY LS-IX-RES-PER-RUPT LS-IX-RES-PER-RUPT-2.CGLKPIMO
- 25 LS-RESRES-NFICPN-RUPT PIC S9(7) COMP-3. CGLKPIMO
- 25 LS-RESRES-CDHIS001-RUPT PIC S9(9) COMP-3. CGLKPIMO
- 25 LS-RESRES-CDRESRE1-RUPT. CGLKPIMO
- 30 LS-RESRES-CDRESRE2-RUPT OCCURS 15 CGLKPIMO
- INDEXED BY LS-IX-RESRE2-RUPT. CGLKPIMO
- 35 LS-RESRES-CNARES-RUPT PIC X(3). CGLKPIMO
- 35 LS-RESRES-MTREPN-RUPT PIC S9(7)V9(2) COMP-3. CGLKPIMO
- 35 LS-RESRES-TRESPN-RUPT PIC S9(3)V9(2) COMP-3. CGLKPIMO
- 35 LS-RESRES-QM2JAR-RUPT PIC S9(5) COMP-3. CGLKPIMO
- 35 LS-RESRES-QHREPN-RUPT PIC S9(3) COMP-3. CGLKPIMO
- 35 LS-RESRES-CDEVIS-RUPT PIC X(2). CGLKPIMO
- 35 LS-RESRES-MTREPN1-RUPT PIC S9(7)V9(2) COMP-3. CGLKPIMO
- *--- Zone de stockage du maximum de personnes du tableau -RUPT CGLKPIMO
- 15 LS-RESRES-PER-MAX-RUPT PIC S9(3) COMP-3. CGLKPIMO
- *--- Zone de stockage du max. de ressources du tableau -RUPT CGLKPIMO
- 15 LS-RESRES-RES-MAX-RUPT PIC S9(3) COMP-3. CGLKPIMO
- *-----------------------------------------------------------------CGLKPIMO
- *--- Stockage des informations du gdd MGJMGJ (PAJE) destinés à CGLKPIMO
- *--- la consultation CGLKPIMO
- 15 LS-MGJMGJ-PAJE-MAJ. CGLKPIMO
- *--- LS-MGJ-PAJE-IN-MAX-PELEM : sauvegarde du nombre max CGLKPIMO
- *--- d'occ. dans les tableaux LS-MGJ... CGLKPIMO
- *--- LT-MGJ-PAJE-IX-MAX-PELEM déclaré dans CGS101W CGLKPIMO
- *--- et CGM130W CGLKPIMO
- 20 LS-MGJ-PAJE-IN-MAX-PELEM PIC S9(3) COMP-3. CGLKPIMO
- 20 LS-MGJ-PAJE-PELEM. CGLKPIMO
- 25 LS-MGJ-PAJE-CNAPRG-TOUS PIC X(25). CGLKPIMO
- 88 LS-MGJ-PAJE-FL-CNAPRG-TOUS VALUE CGLKPIMO
- 'PJ4N3PJ4N4PJ5N1PJ5N2PJ5N3'. CGLKPIMO
- 25 LS-MGJ-PAJE-CNAPRG-TAB REDEFINES CGLKPIMO
- LS-MGJ-PAJE-CNAPRG-TOUS. CGLKPIMO
- 30 LS-MGJ-PAJE-CNAPRG-OCC OCCURS 5 CGLKPIMO
- INDEXED BY IX-MGJ-PAJE-TAB-1 CGLKPIMO
- IX-MGJ-PAJE-TAB-2. CGLKPIMO
- 35 LS-MGJ-PAJE-CNAPRG PIC X(5). CGLKPIMO
- 20 LS-MGJ-PAJE-MAJ OCCURS 5 CGLKPIMO
- INDEXED BY IX-MGJ-1-MAJ IX-MGJ-2-MAJ. CGLKPIMO
- *--- utiliser LS-MGJ-PAJE-IN-MAX-PELEM pour le test CGLKPIMO
- *--- de la borne du tableau CGLKPIMO
- 25 LS-MGJ-CDHIS001-MAJ PIC S9(9) COMP-3. CGLKPIMO
- 25 LS-MGJ-DATA-MAJ. CGLKPIMO
- 30 LS-MGJ-CPL1MG-MAJ PIC X(1). CGLKPIMO
- 88 LS-MGJ-FL-CPL1MG-1-MIN-MAJ VALUE '1'. CGLKPIMO
- 88 LS-MGJ-FL-CPL1MG-2-MED-MAJ VALUE '2'. CGLKPIMO
- 88 LS-MGJ-FL-CPL1MG-3-MAX-MAJ VALUE '3'. CGLKPIMO
- 30 LS-MGJ-CREDCA-MAJ PIC X(1). CGLKPIMO
- 88 LS-MGJ-FL-CREDCA-POSIT-MAJ VALUE 'P'. CGLKPIMO
- 30 LS-MGJ-MOCUMG-MAJ PIC S9(5)V99 COMP-3. CGLKPIMO
- 30 LS-MGJ-MPL2MG-MAJ PIC S9(5)V99 COMP-3. CGLKPIMO
- 30 LS-MGJ-QE03MG-MAJ PIC S9(3) COMP-3. CGLKPIMO
- 30 LS-MGJ-ME03MG-MAJ PIC S9(5)V99 COMP-3. CGLKPIMO
- 30 LS-MGJ-QE36MG-MAJ PIC S9(3) COMP-3. CGLKPIMO
- 30 LS-MGJ-ME36MG-MAJ PIC S9(5)V99 COMP-3. CGLKPIMO
- *--- MGJMGJ presence en entree sur la Periode Mouv. CGLKPIMO
- 25 LS-MGJMGJ-EN-BASE-PM PIC X. CGLKPIMO
- 88 LS-MGJMGJ-ABSENT-PM VALUE SPACES. CGLKPIMO
- 88 LS-MGJMGJ-PRESENT-PM VALUE 'P'. CGLKPIMO
- * CGLKPIMO
- 15 LS-MGJMGJ-RUPT. CGLKPIMO
- 20 LS-MGJ-PAJE-RUPT OCCURS 5 CGLKPIMO
- INDEXED BY IX-MGJ-1-RUPT IX-MGJ-2-RUPT. CGLKPIMO
- *--- utiliser LS-MGJ-PAJE-IN-MAX-PELEM pour le test CGLKPIMO
- *--- de la borne du tableau CGLKPIMO
- 25 LS-MGJ-CDHIS001-RUPT PIC S9(9) COMP-3. CGLKPIMO
- 25 LS-MGJ-DATA-RUPT. CGLKPIMO
- 30 LS-MGJ-CPL1MG-RUPT PIC X(1). CGLKPIMO
- 88 LS-MGJ-FL-CPL1MG-1-MIN-RUPT VALUE '1'. CGLKPIMO
- 88 LS-MGJ-FL-CPL1MG-2-MED-RUPT VALUE '2'. CGLKPIMO
- 88 LS-MGJ-FL-CPL1MG-3-MAX-RUPT VALUE '3'. CGLKPIMO
- 30 LS-MGJ-CREDCA-RUPT PIC X(1). CGLKPIMO
- 88 LS-MGJ-FL-CREDCA-POSIT-RUPT VALUE 'P'. CGLKPIMO
- 30 LS-MGJ-MOCUMG-RUPT PIC S9(5)V99 COMP-3. CGLKPIMO
- 30 LS-MGJ-MPL2MG-RUPT PIC S9(5)V99 COMP-3. CGLKPIMO
- 30 LS-MGJ-QE03MG-RUPT PIC S9(3) COMP-3. CGLKPIMO
- 30 LS-MGJ-ME03MG-RUPT PIC S9(5)V99 COMP-3. CGLKPIMO
- 30 LS-MGJ-QE36MG-RUPT PIC S9(3) COMP-3. CGLKPIMO
- 30 LS-MGJ-ME36MG-RUPT PIC S9(5)V99 COMP-3. CGLKPIMO
- *-----------------------------------------------------------------CGLKPIMO
- 15 FILLER-MIGNON PIC X(100). CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * zones diverses pour calculs majorat° APL CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- * * CGLKPIMO
- * Linkage spécifique à la mise à jour de la table DO1 APC * CGLKPIMO
- * * CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- 10 LS-DO1APC. CGLKPIMO
- 15 LS-DO1APC-NDOMAT PIC 9(7). CGLKPIMO
- 15 LS-DO1APC-CDHIS001 PIC 9(8). CGLKPIMO
- 15 LS-DO1APC-CDHIS002 PIC 9(8). CGLKPIMO
- 15 LS-DO1APCD. CGLKPIMO
- 20 LS-DO1APC-DATA CGLKPIMO
- OCCURS 025 TIMES INDEXED BY IX-LS-DO1APC. CGLKPIMO
- 25 LS-DO1APC-CNAPRS PIC X(3). CGLKPIMO
- 25 LS-DO1APC-RSNAPR PIC X(2). CGLKPIMO
- 25 LS-DO1APC-QAPCMO PIC S9(3) COMP-3. CGLKPIMO
- * CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- * * CGLKPIMO
- * Linkage spécifique à la mise à jour de la table PER RAB * CGLKPIMO
- * (périodicité 'F') * CGLKPIMO
- *---------------------------------------------------------------* CGLKPIMO
- 10 LS-PERRAB. CGLKPIMO
- 15 LS-PERRAB-NFICPN PIC 9(7). CGLKPIMO
- 15 LS-PERRAB-CPTRSA PIC X(1). CGLKPIMO
- 15 LS-PERRAB-CDHIS001 PIC 9(8). CGLKPIMO
- 15 LS-PERRAB-CDHIS002 PIC 9(8). CGLKPIMO
- 15 LS-PERRABD. CGLKPIMO
- 20 LS-PERRAB-DATE CGLKPIMO
- OCCURS 10 TIMES CGLKPIMO
- INDEXED BY IX-LS-PERRAB. CGLKPIMO
- 25 LS-PERRAB-CNARES2 PIC X(3). CGLKPIMO
- 25 LS-PERRAB-MABDPR PIC S9(5)V9(2) COMP-3. CGLKPIMO
- 25 LS-PERRAB-CWARRA PIC X(1). CGLKPIMO
- * CGLKPIMO
- *--- Stockage de 5 occurrences de l'entité HPE CGLKPIMO
- *--- Handicap personne CGLKPIMO
- * CGLKPIMO
- 10 LS-CDHPES. CGLKPIMO
- 15 LS-CDHPES-HPESG OCCURS 5 INDEXED BY IX-LSHPES. CGLKPIMO
- 20 LS-CDHPES0. CGLKPIMO
- 25 LS-HPES-NFICPN PIC S9(7) COMP-3. CGLKPIMO
- 20 LS-CDHPES1. CGLKPIMO
- 25 LS-HPES-DAHREF PIC S9(9) COMP-3. CGLKPIMO
- 25 LS-HPES-CAHREF PIC X(1). CGLKPIMO
- 25 LS-HPES-CAHMUT PIC X(1). CGLKPIMO
- 20 LS-CDHPEECR PIC X. CGLKPIMO
- 88 FL-CDHPEECR-MOD VALUE 'M'. CGLKPIMO
- 88 FL-CDHPEECR-CRE VALUE 'C'. CGLKPIMO
- 88 FL-CDHPEECR-NON VALUE 'N'. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- *-- Linkage spécifique à l'écriture de la table CDRSJS CGLKPIMO
- *- CGLKPIMO
- *--- LT-MAX-NB-RSJS déclaré dans CGS101W et CGS401W et CGS601W CGLKPIMO
- *--- a comme valeur le nombre indiqué en OCCURS de LS-CDRSJS-RSJSGCGLKPIMO
- *--- IN-MAX-NB-RSJS est à utiliser dans les boucles. CGLKPIMO
- 10 LS-CDRSJS. CGLKPIMO
- 15 LS-CDRSJS-RSJSG OCCURS 5 INDEXED BY IX-LSRSJS. CGLKPIMO
- 20 LS-RSJS-NFICPN PIC S9(7) COMP-3. CGLKPIMO
- 20 LS-RSJS-CACRSJ PIC XX. CGLKPIMO
- 88 LS-RSJS-FL-SUPPRESSION VALUE LOW-VALUE. CGLKPIMO
- * CGLKPIMO
- 10 LS-LGHMPL. CGLKPIMO
- *--- Stockage du mensualité plafond CGLKPIMO
- 15 LS-LGHMPL-AVT-APS. CGLKPIMO
- 20 LS-LGHMPL-OCC OCCURS 60 CGLKPIMO
- INDEXED BY IX-LS-LGHMPL CGLKPIMO
- IX-LS-LGHMPL-2. CGLKPIMO
- 25 LS-LGHMPL-DATA-AVT. CGLKPIMO
- 30 LS-LGHMPL-INDMPL-AVT PIC 9. CGLKPIMO
- 30 LS-LGHMPL-RLOGEM-AVT PIC S9(3) COMP-3. CGLKPIMO
- 30 LS-LGHMPL-MCALLO-AVT PIC S9(5)V99 COMP-3. CGLKPIMO
- 25 LS-LGHMPL-DATA-APS. CGLKPIMO
- 30 LS-LGHMPL-INDMPL-APS PIC 9. CGLKPIMO
- 30 LS-LGHMPL-MCALLO-APS PIC S9(5)V99 COMP-3. CGLKPIMO
- CGLKPIMO
- 10 LS-LGHCAI. CGLKPIMO
- *--- Stockage du code prise en compte FC adapté CGLKPIMO
- 15 LS-COFCAD PIC X(1). CGLKPIMO
- CGLKPIMO
- * CGLKPIMO
- ******************************************************************CGLKPIMO
- * CGLKPIMO
- * ============================================= CGLKPIMO
- * ZONE DE DONNEES UTILISEES POUR LA SIMULATION CGLKPIMO
- * CGLKPIMO
- * NIMS et INTERNET (CBS285 module CGMS62) CGLKPIMO
- * CGLKPIMO
- * 15 nom regle,no bareme,date deb et fin bareme CGLKPIMO
- * 15 L,C R,L0 sont servi par prog simu CGLKPIMO
- * ============================================= CGLKPIMO
- 10 LS-SIMULATION. CGLKPIMO
- 15 LS-SIMU-ZAPPLT PIC X(8). CGLKPIMO
- 15 LS-SIMU-NTAPPR PIC X(4). CGLKPIMO
- 15 LS-SIMU-DAPPLT0 PIC S9(9) COMP-3. CGLKPIMO
- 15 LS-SIMU-DAPPLT1 PIC S9(9) COMP-3. CGLKPIMO
- 15 LS-SIMU-C PIC 9(10)V9(2). CGLKPIMO
- 15 LS-SIMU-L PIC S9(10)V9(4). CGLKPIMO
- 15 LS-SIMU-K PIC S9(10)V9(4). CGLKPIMO
- 15 LS-SIMU-L0 PIC S9(10)V9(4). CGLKPIMO
- CGLKPIMO
- * ============================================= CGLKPIMO
- * DONNEES A DESTINATION DU CGM130 CGLKPIMO
- * POUR GENERATION DES ECHEANCES 'ABS' ET 'ABR' CGLKPIMO
- * (APPEL DU BULLETIN DE SALAIRE) CGLKPIMO
- * ET TOP POUR ECHEANCE ODR CGLKPIMO
- * ============================================= CGLKPIMO
- * CGLKPIMO
- 10 LS-DATES-EF-POUR-ABS. CGLKPIMO
- 15 LS-DATE-ANC-EF-ABS PIC S9(9) COMP-3. CGLKPIMO
- 15 LS-DATE-NOU-EF-ABS PIC S9(9) COMP-3. CGLKPIMO
- CGLKPIMO
- 10 LS-DATES-EF-POUR-ABR. CGLKPIMO
- 15 LS-DATE-ANC-EF-ABR PIC S9(9) COMP-3. CGLKPIMO
- 15 LS-DATE-NOU-EF-ABR PIC S9(9) COMP-3. CGLKPIMO
- CGLKPIMO
- 10 LS-TOP-ODR PIC X. CGLKPIMO
- CGLKPIMO
- ***************************************************************** CGLKPIMO
- * * CGLKPIMO
- * ============================================= * CGLKPIMO
- * FIN DONNEES PILOTE-MODULES SAISIES sous SPF * CGLKPIMO
- * ============================================= * CGLKPIMO
- * * CGLKPIMO
- ***************************************************************** CGLKPIMO
- ***************************************************************** CGLKPIMO
- * cette donnée set uniquement à displayer sur syspunch * CGLKPIMO
- * et en mode debugg certaines infos relatives à l'echange igad,* CGLKPIMO
- * à résultat traitement d'une regle * CGLKPIMO
- * à autre chose ultérieurerement pmonboussin 8.10.98 * CGLKPIMO
- 05 LS-SYSPUNCH PIC X. CGLKPIMO
- 05 LS-SYSPUNCHS. CGLKPIMO
- * pour visualisation les accès igad effectués * CGLKPIMO
- 10 LS-SYSPUNCH-I1 PIC X. CGLKPIMO
- * pour tester nouvelle regle et euro et franc * CGLKPIMO
- 10 LS-SYSPUNCH-I2 PIC X. CGLKPIMO
- * pour visualisation dans sysout des montants franc euro * CGLKPIMO
- 10 LS-SYSPUNCH-A1 PIC X. CGLKPIMO
- * pour visualisation sur pnw des valeurs de données d'une regle * CGLKPIMO
- 10 LS-SYSPUNCH-A2 PIC X. CGLKPIMO
- * pour visualisation du contenu des parametres accédés * CGLKPIMO
- 10 LS-SYSPUNCH-P1 PIC X. CGLKPIMO
- * TOP POUR APE CODE AG PERMETTANT DE NE PAS éDITER UNE NOTIF CGLKPIMO
- * A CHAQUE TRAITEMENT CGLKPIMO
- 05 LS-CWMOND-AG PIC 9. CGLKPIMO
- * reserve CGLKPIMO
- *****OPTIMISATION DES GDD ABSENT EN BASE EVITER L'APPEL EN BASE * CGLKPIMO
- 05 LS-GIX-LU. CGLKPIMO
- 10 LS-GIX-TRAVAIL. CGLKPIMO
- 15 LS-GIX-TAB-LU PIC X(3). CGLKPIMO
- 15 LS-GIX-GDD-LU PIC X(3). CGLKPIMO
- 15 LS-GIX-NFICPN-LU PIC S9(7) COMP-3. CGLKPIMO
- 15 LS-GIX-D2X-LU. CGLKPIMO
- 20 LS-GIX-D2-LU PIC S9(9) COMP-3. CGLKPIMO
- 15 LS-GIX-TOP-LU PIC X. CGLKPIMO
- 88 LS-GIX-TROUVE VALUE 'O'. CGLKPIMO
- 88 LS-GIX-NON-TROUVE VALUE 'N'. CGLKPIMO
- 15 LS-GIX-IX1 PIC 99. CGLKPIMO
- 15 LS-GIX-IX2 PIC 99. CGLKPIMO
- 15 LS-GIX-IX3 PIC 99. CGLKPIMO
- *** 22 CARACTERES CGLKPIMO
- 10 LS-GIX. CGLKPIMO
- *** GDD RES SEULEMENT LECTURE GESDRO CGLKPIMO
- *** GDD RAB ET EVA LECTURE ET ECRITURE GESDRO CGLKPIMO
- 15 LS-GIX-PER. CGLKPIMO
- 20 LS-GIX-PER-GDD. CGLKPIMO
- 25 LS-GIX-PERRES PIC X(3) VALUE 'RES'. CGLKPIMO
- 20 LS-GIX-PER-GDDS REDEFINES LS-GIX-PER-GDD CGLKPIMO
- PIC X(3). CGLKPIMO
- 20 LS-GIX-PER-PERS OCCURS 27 CGLKPIMO
- INDEXED BY IX-GIX-IX2. CGLKPIMO
- 25 LS-GIX-PER-NFICPN PIC S9(7) COMP-3. CGLKPIMO
- 25 LS-GIX-PER-TOP PIC X(1). CGLKPIMO
- 20 LS-GIX-PER-MAX PIC 99 VALUE 01. CGLKPIMO
- *** 140 CARACTERES PER CGLKPIMO
- 15 LS-GIX-SP0. CGLKPIMO
- 20 LS-GIX-SP0-GDD. CGLKPIMO
- 25 LS-GIX-SP0SPR PIC X(3) VALUE 'SPR'. CGLKPIMO
- 20 LS-GIX-SP0-GDDS REDEFINES LS-GIX-SP0-GDD CGLKPIMO
- PIC X(3). CGLKPIMO
- 20 LS-GIX-SP0-TOP PIC X(1). CGLKPIMO
- 20 LS-GIX-SP0-MAX PIC 99 VALUE 01. CGLKPIMO
- *** 006 CARACTERES SP0 CGLKPIMO
- 15 LS-GIX-SP1. CGLKPIMO
- 20 LS-GIX-SP1-GDD. CGLKPIMO
- 25 LS-GIX-SP1SGC PIC X(3) VALUE 'SGC'. CGLKPIMO
- 20 LS-GIX-SP1-GDDS REDEFINES LS-GIX-SP1-GDD CGLKPIMO
- PIC X(3). CGLKPIMO
- 20 LS-GIX-SP1-TOP PIC X(1). CGLKPIMO
- 20 LS-GIX-SP1-MAX PIC 99 VALUE 01. CGLKPIMO
- **** 006 CARACTERES SP1 CGLKPIMO
- 15 LS-GIX-PGE. CGLKPIMO
- 20 LS-GIX-PGE-GDD. CGLKPIMO
- 25 LS-GIX-PGEDAD PIC X(3) VALUE 'DAD'. CGLKPIMO
- 20 LS-GIX-PGE-GDDS REDEFINES LS-GIX-PGE-GDD CGLKPIMO
- PIC X(3). CGLKPIMO
- 20 LS-GIX-PGE-TOP PIC X(1). CGLKPIMO
- 20 LS-GIX-PGE-MAX PIC 99 VALUE 01. CGLKPIMO
- **** 006 CARACTERES DRX CGLKPIMO
- 15 LS-GIX-DRX. CGLKPIMO
- 20 LS-GIX-DRX-GDD. CGLKPIMO
- 25 LS-GIX-DRXPFX PIC X(3) VALUE 'PFX'. CGLKPIMO
- 20 LS-GIX-DRX-GDDS REDEFINES LS-GIX-DRX-GDD CGLKPIMO
- PIC X(3). CGLKPIMO
- 20 LS-GIX-DRX-TOP PIC X(1). CGLKPIMO
- 20 LS-GIX-DRX-MAX PIC 99 VALUE 01. CGLKPIMO
- **** 006 CARACTERES DRC PJ4N1 CGLKPIMO
- 15 LS-GIX-DRC-AVT-PJ4N1. CGLKPIMO
- 20 LS-GIX-DRC-GDD-AVT. CGLKPIMO
- 25 LS-GIX-DRC-AVT PIC X(3) VALUE 'DRC'. CGLKPIMO
- 20 LS-GIX-DRC-GDDE REDEFINES LS-GIX-DRC-GDD-AVT CGLKPIMO
- PIC X(3). CGLKPIMO
- 20 LS-GIX-DRC-TOP-AVT PIC X(1). CGLKPIMO
- 20 LS-GIX-DRC-MAX-AVT PIC 99 VALUE 01. CGLKPIMO
- **** 006 CARACTERES DRC APS PJ4N1 CGLKPIMO
- 15 LS-GIX-DRC-APS-PJ4N1. CGLKPIMO
- 20 LS-GIX-DRC-GDD-APS. CGLKPIMO
- 25 LS-GIX-DRC-APS PIC X(3) VALUE 'DRC'. CGLKPIMO
- 20 LS-GIX-DRC-GDDS REDEFINES LS-GIX-DRC-GDD-APS CGLKPIMO
- PIC X(3). CGLKPIMO
- 20 LS-GIX-DRC-TOP-APS PIC X(1). CGLKPIMO
- 20 LS-GIX-DRC-MAX-APS PIC 99 VALUE 01. CGLKPIMO
- 15 LS-DRT-ALINE. CGLKPIMO
- 20 LS-DRT-AI1N1 PIC X. CGLKPIMO
- 20 LS-DRT-AI2N1 PIC X. CGLKPIMO
- **** pmonboussin 26 10 2005 CGLKPIMO
- ******************* EN FIN DE LKPIMO ************** CGLKPIMO
- / CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02200 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1622F DéBUT : 07/06/2007 FIN : 15/06/2007 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1622F: AJOUT DU D710P.CDREPACT ET D710P.CDINTINCGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02200 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1720F DéBUT : 06/06/2007 FIN : 22/06/2007 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1720:ALF VIRTUELLE CGLKPIMO
- * IL S'AGIT DE CALCULER ET DE MEMORISER CE QUI AURAIT EU CGLKPIMO
- * LE BéNéFICIAIRE D'APL S'IL AVAIT BéNéFICIé D'ALF CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02300 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1455L DéBUT : 02/10/2007 FIN : 02/10/2007 CGLKPIMO
- * CGLKPIMO
- * TEXTE : AJOUT SAUVEGARDE MONTANTS POUR PJ5. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02300 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1604G DéBUT : 23/10/2007 FIN : 23/10/2007 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1604G: CRéATION DU D710P.DTODPJ3. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02300 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1605B DéBUT : 31/08/2007 FIN : 14/09/2007 CGLKPIMO
- * CGLKPIMO
- * TEXTE : MàJ PEHNAA ACTIVITéS à DATES D'EFFET DANS GESDRO. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02300 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1645F DéBUT : 04/10/2007 FIN : 10/10/2007 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1645 : SUIVI LéGISLATIF " DATE D'EFFET ". CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02400 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : A3829 DéBUT : 18/12/2007 FIN : 18/12/2007 CGLKPIMO
- * CGLKPIMO
- * TEXTE : CC A998.BUGA3829:INVERSION RèGLES CGRLIMAC (X96),CGRREDCGLKPIMO
- * (X01),CGRREDJ5 (XA1) POUR RéDUIRE DRT PJ4-PJ5 EN FONCTICGLKPIMO
- * PRéSENCE PJ3 ET ENSUITE LIMITER EN FONCTION DES DéPENSECGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02400 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1689D DéBUT : 31/01/2008 FIN : 31/01/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : AVP CONGé SOUTIEN FAMILIAL CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02400 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1689M DéBUT : 04/01/2008 FIN : 04/01/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : AJOUT DU CODE CJ DANS LES CWMOND CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02410 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : A5617 DéBUT : 18/03/2008 FIN : 18/03/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.BUGA5617 : AJOUT LS-NBNMR (IX-PER2) POUR NB MOIS RCGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02410 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1780B DéBUT : 29/02/2008 FIN : 11/03/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : AJOUT DU D710P.CDABSPCH. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02410 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1780C DéBUT : 13/03/2008 FIN : 25/03/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : PLFSS 2008 : ARS PAR TRANCHE D'âGE CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02420 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : A6369 DéBUT : 30/04/2008 FIN : 30/04/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.BUGA6369 : VALORISATION ARSN5. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02420 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : A6842 DéBUT : 05/05/2008 FIN : 05/05/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : AJOUT CODE RéSULTAT CM. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02420 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : A7073 DéBUT : 03/06/2008 FIN : 03/06/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02420 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1760H DéBUT : 14/05/2008 FIN : 14/05/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1760H « RAC SUR RESSOURCES 2007 » CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02500 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1779B DéBUT : 27/06/2008 FIN : 01/07/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1779B : AVP COUR DES COMPTES. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02600 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : A9919 DéBUT : 06/10/2008 FIN : 09/10/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : ALIMENTATION ERRONéE DU CODE FORçAGE DROIT AVP. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02600 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1455M DéBUT : 23/10/2008 FIN : 23/10/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1455M : CHANTIER PAJE - CMG. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02700 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : B2161 DéBUT : 10/12/2008 FIN : 10/12/2008 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.BUGB2161 : REVUE DE L'INDICATEURAGRéMENT OK CDAGROCGLKPIMO
- * ==> UN INDICATEUR PAR ENFANT. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02700 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1854M DéBUT : 18/02/2009 FIN : 24/02/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : GéNéRALISATION DU RSA GESTION DU DROIT CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02700 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1854P DéBUT : 15/01/2009 FIN : 03/03/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1854P : RSA DES ISOLéS AU SENS API. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02710 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1878V DéBUT : 17/03/2009 FIN : 17/03/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : TRANSFERT DU D710P.CDREVACT EN CGLKPIMO CAR IL EST CGLKPIMO
- * MAINTENANT TESTé EN HIéRARCHISATION. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02800 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : B6681 DéBUT : 23/04/2009 FIN : 23/04/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : CC A998.BUGB6681:PRISE EN COMPTE DATE DE CONCEPTION POUCGLKPIMO
- * DéTERMINER PéRIODE MAJI EN CAS DE GROSSESSE-NE PLUS PRCGLKPIMO
- * DATE DE DéCLARATION GROSSESSE CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02800 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1884C DéBUT : 09/06/2009 FIN : 17/06/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1884C : MESURES RESSOURCES RSA. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02800 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1884D DéBUT : 15/06/2009 FIN : 15/06/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : RSA : EVOLUTION DIVERS CGLKPIMO
- * NOUVEAU GDD PEH MRP CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02800 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1884G DéBUT : 29/06/2009 FIN : 29/06/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1884G : REVENUS EXCEPTIONNELS. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02900 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : B7452 DéBUT : 11/08/2009 FIN : 11/08/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : AJOUT D'UN FLAG àLS-TXACTI01 VOULANT DIRE TAUX NON SIGNCGLKPIMO
- * TIF CAR LA VALEUR '0' SIGNIFIE TAUX PLEIN. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V02900 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1909C DéBUT : 19/08/2009 FIN : 19/08/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1909C : CALCUL QF PRP SI RSA. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V03000 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : C3485 DéBUT : 27/10/2009 FIN : 27/10/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : RENOMMAGE INDICATEUR RESSOURCES ABSENTES POUR LE RSA. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V03000 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : C4654 DéBUT : 22/12/2009 FIN : 22/12/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : POSITIONNEMENT D'UN INDICATEUR PAR OCCURRENCE DANS LA RCGLKPIMO
- * RESSOURCES FONT OBSTACLE à SA CHARGE AU SENS DU RSA. CGLKPIMO
- * PRISE EN COMPTE DE CET INDICATEUR DANS LA RG CGRVMAJI CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V03000 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1911B DéBUT : 10/11/2009 FIN : 09/12/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1911B : REFORME AAH CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V03000 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1943A DéBUT : 27/11/2009 FIN : 02/12/2009 CGLKPIMO
- * CGLKPIMO
- * TEXTE : RSA SUBSIDIARITE PENSION - CC C4198 : CGLKPIMO
- * LE MONTANT MENSUEL DES REVENUS RSA NE DOIT PAS TENIR COCGLKPIMO
- * DE L'ABATTEMENT OU DE LA NEUTRALISATION. CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V03100 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1911Q DéBUT : 14/01/2010 FIN : 01/02/2010 CGLKPIMO
- * CGLKPIMO
- * TEXTE : AAH - COMPLéTUDE RéFORME CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V03100 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : 1943O DéBUT : 03/02/2010 FIN : 05/02/2010 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.CCR1934O:RSA PRISE EN COMPTE DE 2 AMENDEMENTS CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V03200 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : C8463 DéBUT : 13/04/2010 FIN : 13/04/2010 CGLKPIMO
- * CGLKPIMO
- * TEXTE : A998.BUGC8463 : AJOUT D710P.MTNEUTRA. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * VERSION : V03200 CGLKPIMO
- * CGLKPIMO
- * CHANTIER : C9083 DéBUT : 15/03/2010 FIN : 15/03/2010 CGLKPIMO
- * CGLKPIMO
- * TEXTE : CC C9083 : REVUE DU TRAITEMENT DES MESURES RESSOURCES NCGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03210 CGLKPIMO
- * CGLKPIMO
- * Chantier : D1643 Début : 26/05/2010 Fin : 28/05/2010 CGLKPIMO
- * CGLKPIMO
- * Texte : Problème récurrent des D710P qui sont à élaborer PAR PECGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03210 CGLKPIMO
- * CGLKPIMO
- * Chantier : D1850 Début : 08/06/2010 Fin : 08/06/2010 CGLKPIMO
- * CGLKPIMO
- * Texte : la zone de working WS-MT-PREST-ADEDUIRE-RMI est utiliséCGLKPIMO
- * la fois par CGMX01 et CGMX02-pour faire passage informaCGLKPIMO
- * il faut la passer en linkage CGLKPIMO CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03210 CGLKPIMO
- * CGLKPIMO
- * Chantier : D2332 Début : 15/06/2010 Fin : 15/06/2010 CGLKPIMO
- * CGLKPIMO
- * Texte : avant correction:LS-FL-CDCHRSA-OUI VALUE 'O'-->non posiCGLKPIMO
- * apres correction: CGLKPIMO
- * LS-FL-CDCHRSA-OUI VALUE 'O' spaces --> non positionné CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03300 CGLKPIMO
- * CGLKPIMO
- * Chantier : D3432 Début : 13/07/2010 Fin : 16/07/2010 CGLKPIMO
- * CGLKPIMO
- * Texte : AJout LS-TOP-MAJ-PEHMRP (IX-PER2). CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03300 CGLKPIMO
- * CGLKPIMO
- * Chantier : 1990D Début : 19/07/2010 Fin : 19/07/2010 CGLKPIMO
- * CGLKPIMO
- * Texte : a998.ccr1990d:evolutions diverses 01/2011 CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03300 CGLKPIMO
- * CGLKPIMO
- * Chantier : 1996H Début : 16/07/2010 Fin : 18/08/2010 CGLKPIMO
- * CGLKPIMO
- * Texte : Réforme AAH 01/2011 CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03310 CGLKPIMO
- * CGLKPIMO
- * Chantier : D6332 Début : 27/09/2010 Fin : 27/09/2010 CGLKPIMO
- * CGLKPIMO
- * Texte : CC : Création code résultat 74 CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03310 CGLKPIMO
- * CGLKPIMO
- * Chantier : D6702 Début : 06/10/2010 Fin : 06/10/2010 CGLKPIMO
- * CGLKPIMO
- * Texte : ajout de niveaux 88 pour amélioration du code. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03310 CGLKPIMO
- * CGLKPIMO
- * Chantier : D7117 Début : 18/10/2010 Fin : 18/10/2010 CGLKPIMO
- * CGLKPIMO
- * Texte : 2 montants de cumul intégral CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03310 CGLKPIMO
- * CGLKPIMO
- * Chantier : 1R331 Début : 25/10/2010 Fin : 27/10/2010 CGLKPIMO
- * CGLKPIMO
- * Texte : Suppression de ls-cp-droit-pelem car ls-t1-cp-droit-pelCGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03310 CGLKPIMO
- * CGLKPIMO
- * Chantier : 1989A Début : 11/10/2010 Fin : 11/10/2010 CGLKPIMO
- * CGLKPIMO
- * Texte : A998.CCR1989A. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03310 CGLKPIMO
- * CGLKPIMO
- * Chantier : 2015O Début : 14/10/2010 Fin : 14/10/2010 CGLKPIMO
- * CGLKPIMO
- * Texte : a998.ccr2015o : RSOD1. CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03400 CGLKPIMO
- * CGLKPIMO
- * Chantier : E1179 Début : 10/02/2011 Fin : 11/02/2011 CGLKPIMO
- * CGLKPIMO
- * Texte : Redéfinition du D710P.MTRESCON par pelem et par occurreCGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS : CGLKPIMO
- * : CGLKPIMO
- *--------------------------------------------------------------- CGLKPIMO
- * Version : V03400 CGLKPIMO
- * CGLKPIMO
- * Chantier : 1996K Début : 03/02/2011 Fin : 18/02/2011 CGLKPIMO
- * CGLKPIMO
- * Texte : AAH complétude 80/40 CGLKPIMO
- * création D710P CGLKPIMO
- * CGLKPIMO
- * CGLKPIMO
- * DMFS :