/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

Large files are truncated click here to view the full file

    

  1. IDENTIFICATION DIVISION.                                         
    2. 

  2.       *$$IDENTIFICATION                                                 
    3. 

  3.        PROGRAM-ID.    CGM129.                                           
    4. 

  4.        AUTHOR.        ANALYST:     JOUZEL JEAN-RENE.                    
    5. 

  5.                       PROGRAMMER:  JOUZEL JEAN-RENE.                    
    6. 

  6.        DATE-WRITTEN.  02/23/16.                                         
    7. 

  7.        DATE-COMPILED.                                                   
    8. 

  8.                                                                         
    9. 

  9.       ***************************************************************** 
    10. 

  10.       * SOURCE GENERE PAR INSTALL/1                                   * 
    11. 

  11.       * MODEL UTILISE = CTM050                                        * 
    12. 

  12.       * VERSION = LINUX                                               * 
    13. 

  13.       *                                                               * 
    14. 

  14.       * MODULE COMMUN                                                 * 
    15. 

  15.       * IDEM CTM010 AVEC PASSAGE D'UNE ZONE SUPPLEMENTAIRE            * 
    16. 

  16.       *                                                               * 
    17. 

  17.       ***************************************************************** 
    18. 

  18.       *                                                               * 
    19. 

  19.       *  NAME       : &PRGRMID.                                       * 
    20. 

  20.       *  NAME       : CGM129                                          * 
    21. 

  21.       *                                                               * 
    22. 

  22.       ***************************************************************** 
    23. 

  23.                                                                         
    24. 

  24.        ENVIRONMENT DIVISION.                                            
    25. 

  25.        CONFIGURATION SECTION.                                           
    26. 

  26.          SPECIAL-NAMES.                                                 
    27. 

  27.            SYMBOLIC CHARACTERS APOSTR IS 126.                           
    28. 

  28.                                                                         
    29. 

  29.        DATA DIVISION.                                                   
    30. 

  30.       ***************************************************************** 
    31. 

  31.       *                                                               * 
    32. 

  32.       *              W O R K I N G    S T O R A G E                   * 
    33. 

  33.       *                                                               * 
    34. 

  34.       ***************************************************************** 
    35. 

  35.                                                                         
    36. 

  36.        WORKING-STORAGE SECTION.                                         
    37. 

  37.        01 LT-BEGIN-OF-WS.                                               
    38. 

  38.            03 LT-START-OF-WS                       PIC X(42)            
    39. 

  39.       *        VALUE "***** BEGIN WORKING STORAGE &PRGRMID. *****".     
    40. 

  40.                VALUE "***** BEGIN WORKING STORAGE CGM129 *****".        
    41. 

  41.                                                                         
    42. 

  42.       *COPY CQOMC0WK.                                                   
    43. 

  43.       *COPY"/distrib/appli/cristal/05200/ref/cobol/copyb/CQOMC0WK.CPY"  CQOMC0WK
    44. 

  44.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 CQOMC0WK
    45. 

  45.       *LibFac  liberFactory GCOS to Linux Translator  *                 CQOMC0WK
    46. 

  46.       *LibFac  From input file: CQOMC0WK              *                 CQOMC0WK
    47. 

  47.       *LibFac  On   the   date: 2015/03/23            *                 CQOMC0WK
    48. 

  48.       * COMPOSANT TRAITE PAR ConstruireSpx.pl                           CQOMC0WK
    49. 

  49.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 CQOMC0WK
    50. 

  50.       ***************************************************************** CQOMC0WK
    51. 

  51.       *                                                               * CQOMC0WK
    52. 

  52.       * >>>>>>>>>> > >  NE  PAS REGENERER  < < <<<<<<<<<<<<<<<<<<<<<< * CQOMC0WK
    53. 

  53.       *                 +++++++++++++++++                             * CQOMC0WK
    54. 

  54.       *   COPYBOOK NAME  : CQOMC0WK                           BATCH   * CQOMC0WK
    55. 

  55.       *                                                               * CQOMC0WK
    56. 

  56.       *   COPYBOOK DESC  : INTERFACE ACCES MOD MESU                   * CQOMC0WK
    57. 

  57.       *                                                               * CQOMC0WK
    58. 

  58.       * 12/98: MODIF ZONES SPECIFIQUES A CQSRVB                       * CQOMC0WK
    59. 

  59.       *                                                               * CQOMC0WK
    60. 

  60.       ***************************************************************** CQOMC0WK
    61. 

  61.        01  PERF-CQOMC0WR.                                               CQOMC0WK
    62. 

  62.            11 PERF-CQOMC00.                                             CQOMC0WK
    63. 

  63.              16 PERF-NDTHEU                      PIC S9(15) COMP-3.     CQOMC0WK
    64. 

  64.              16 PERF-ZAPPLT                      PIC X(8).              CQOMC0WK
    65. 

  65.              16 PERF-D4A2MJ                      PIC S9(9) COMP-3.      CQOMC0WK
    66. 

  66.              16 PERF-NHR8PO                      PIC S9(9) COMP-3.      CQOMC0WK
    67. 

  67.              16 PERF-ZTYPAP                      PIC X(1).              CQOMC0WK
    68. 

  68.              16 PERF-CCOD1C                      PIC X(1).              CQOMC0WK
    69. 

  69.              16 PERF-CCOD1C0                     PIC X(1).              CQOMC0WK
    70. 

  70.              16 PERF-PARA01                      PIC X(1).              CQOMC0WK
    71. 

  71.              16 PERF-PIOCDE                      PIC X(28).             CQOMC0WK
    72. 

  72.              16 PERF-D1-USER-ID                  PIC X(8).              CQOMC0WK
    73. 

  73.              16 PERF-CWCURCNV                    PIC X(4).              CQOMC0WK
    74. 

  74.              16 PERF-PARA04                      PIC X(4).              CQOMC0WK
    75. 

  75.              16 PERF-PISRVC                      PIC X(12).             CQOMC0WK
    76. 

  76.              16 PERF-PIDMOD                      PIC X(8).              CQOMC0WK
    77. 

  77.              16 PERF-PTYENT                      PIC X(8).              CQOMC0WK
    78. 

  78.              16 PERF-PIDENT                      PIC X(8).              CQOMC0WK
    79. 

  79.              16 PERF-PARA05                      PIC X(5).              CQOMC0WK
    80. 

  80.              16 PERF-NNBR5C                      PIC S9(5) COMP-3.      CQOMC0WK
    81. 

  81.              16 PERF-DISPLAY                     PIC X.                 CQOMC0WK
    82. 

  82.              16 PERF-TRT-RETOUR                  PIC X.                 CQOMC0WK
    83. 

  83.              16 PERF-NBA9PO0                     PIC S9(15) COMP-3.     CQOMC0WK
    84. 

  84.              16 PERF-APPLICATIF.                                        CQOMC0WK
    85. 

  85.                  18 PERF-APPL-ZNOCCD             PIC S99.               CQOMC0WK
    86. 

  86.                  18 PERF-APPL-ZL0100             PIC X(70).             CQOMC0WK
    87. 

  87.       *01  PERF-TRAITEMENT                       COMP-6 VALUE ZERO.     CQOMC0WK
    88. 

  88.        01  PERF-TRAITEMENT                                              CQOMC0WK
    89. 

  89.        PIC S9(00009) COMP-5 SYNC                        VALUE ZERO.     CQOMC0WK
    90. 

  90.                  88 PERF-TRT-OUI                 VALUE ZERO.            CQOMC0WK
    91. 

  91.                  88 PERF-TRT-NON                 VALUE 1.               CQOMC0WK
    92. 

  92.        01 SV-NAME-OF-THIS-PROGRAM                PIC X(8) VALUE SPACE.  CQOMC0WK
    93. 

  93.       ******************************************************************CQOMC0WK
    94. 

  94.       * FCN  STR1403    LE  06/02/97                                   *CQOMC0WK
    95. 

  95.       *                                                                *CQOMC0WK
    96. 

  96.       *  AJOUT DES ZONES DE GESTION DES CODES RETOUR BATCH             *CQOMC0WK
    97. 

  97.       *                                                                *CQOMC0WK
    98. 

  98.       ******************************************************************CQOMC0WK
    99. 

  99.        01  ANO-MSG-TOPS.                                                CQOMC0WK
    100. 

  100.            05  WS-ANO-04                 PIC  X(1).                     CQOMC0WK
    101. 

  101.                88  WS-ANO-04-NON-TROUVE                  VALUE '0'.     CQOMC0WK
    102. 

  102.                88  WS-ANO-04-TROUVE                      VALUE '1'.     CQOMC0WK
    103. 

  103.            05  WS-ANO-AUTRE              PIC  X(2)       VALUE '  '.    CQOMC0WK
    104. 

  104.        01  ANO-MSG-AREA.                                                CQOMC0WK
    105. 

  105.            05  ANO-MSG-ANOCRIST                 PIC X(8)                CQOMC0WK
    106. 

  106.                                                 VALUE 'ANOCRIST'.       CQOMC0WK
    107. 

  107.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    108. 

  108.            05  ANO-MSG-CDORIG.                                          CQOMC0WK
    109. 

  109.                 10  ANO-MSG-CDDEP               PIC X(2).               CQOMC0WK
    110. 

  110.                 10  ANO-MSG-CDTRAIT             PIC X(8).               CQOMC0WK
    111. 

  111.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    112. 

  112.            05  ANO-MSG-TYTRT                    PIC X(1).               CQOMC0WK
    113. 

  113.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    114. 

  114.            05  ANO-MSG-NOMCH                    PIC X(6).               CQOMC0WK
    115. 

  115.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    116. 

  116.            05  ANO-MSG-NOMMD                    PIC X(8).               CQOMC0WK
    117. 

  117.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    118. 

  118.            05  ANO-MSG-DOSSX.                                           CQOMC0WK
    119. 

  119.                10  ANO-MSG-DOSS                 PIC 9(7).               CQOMC0WK
    120. 

  120.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    121. 

  121.            05  ANO-MSG-SUPPT                    PIC X(1).               CQOMC0WK
    122. 

  122.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    123. 

  123.            05  ANO-MSG-CDRESP                   PIC X(1).               CQOMC0WK
    124. 

  124.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    125. 

  125.            05  ANO-MSG-NOMENT                   PIC X(8).               CQOMC0WK
    126. 

  126.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    127. 

  127.            05  ANO-MSG-IDENT                    PIC X(6).               CQOMC0WK
    128. 

  128.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    129. 

  129.            05  ANO-MSG-ZFONCT                   PIC X(3).               CQOMC0WK
    130. 

  130.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    131. 

  131.            05  ANO-MSG-TABEND                   PIC X(1).               CQOMC0WK
    132. 

  132.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    133. 

  133.            05  ANO-MSG-CABEND                   PIC X(4).               CQOMC0WK
    134. 

  134.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    135. 

  135.            05  ANO-MSG-ZRTGENX.                                         CQOMC0WK
    136. 

  136.                10  ANO-MSG-ZRTGEN               PIC 9(3).               CQOMC0WK
    137. 

  137.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    138. 

  138.            05  ANO-MSG-ZRTDETX.                                         CQOMC0WK
    139. 

  139.                10  ANO-MSG-ZRTDET               PIC 9(5).               CQOMC0WK
    140. 

  140.            05  FILLER                           PIC X(1) VALUE '/'.     CQOMC0WK
    141. 

  141.            05  ANO-MSG-LIBELLE                  PIC X(61).              CQOMC0WK
    142. 

  142.       ******************************************************************CQOMC0WK
    143. 

  143.       *                                                                 CQOMC0WK
    144. 

  144.       *    AJOUT DE ZONES POUR APPEL DE MODULES A TRAVERS CLIMB         CQOMC0WK
    145. 

  145.       *                                                                 CQOMC0WK
    146. 

  146.        01  CQSRVB-ZTECH.                                                CQOMC0WK
    147. 

  147.            05  CQSRVB-MODULE               PIC X(15).                   CQOMC0WK
    148. 

  148.            05  CQSRVB-NBPAR                PIC X.                       CQOMC0WK
    149. 

  149.       *    05  CQSRVB-LENGTH               COMP-6.                      CQOMC0WK
    150. 

  150.            05  CQSRVB-LENGTH               PIC S9(00009) COMP-5 SYNC.   CQOMC0WK
    151. 

  151.       *    05  CQSRVB-LENGTH2              COMP-6.                      CQOMC0WK
    152. 

  152.            05  CQSRVB-LENGTH2              PIC S9(00009) COMP-5 SYNC.   CQOMC0WK
    153. 

  153.       *                                                                 CQOMC0WK
    154. 

  154.       *    AJOUT DE ZONES POUR APPEL DE MODULES A TRAVERS CLIMB SDP     CQOMC0WK
    155. 

  155.       *                                                                 CQOMC0WK
    156. 

  156.        01  SQSRVB-ZTECH.                                                CQOMC0WK
    157. 

  157.            05  SQSRVB-MODULE               PIC X(15).                   CQOMC0WK
    158. 

  158.            05  SQSRVB-NBPAR                PIC X.                       CQOMC0WK
    159. 

  159.       *    05  SQSRVB-LENGTH               COMP-6.                      CQOMC0WK
    160. 

  160.            05  SQSRVB-LENGTH               PIC S9(00009) COMP-5 SYNC.   CQOMC0WK
    161. 

  161.       *    05  SQSRVB-LENGTH2              COMP-6.                      CQOMC0WK
    162. 

  162.            05  SQSRVB-LENGTH2              PIC S9(00009) COMP-5 SYNC.   CQOMC0WK
    163. 

  163.       ******************************************************************CQOMC0WK
    164. 

  164.       ****************************************************************  CQOMC0WK
    165. 

  165.       *      VALEUR INTERNE DU SIGNE EURO                               CQOMC0WK
    166. 

  166.       *             IBM  ==>  9F HEXA                                   CQOMC0WK
    167. 

  167.       *             BULL ==>  A4 HEXA                                   CQOMC0WK
    168. 

  168.       ****************************************************************  CQOMC0WK
    169. 

  169.       *    IBM =======                                                  CQOMC0WK
    170. 

  170.       *01  LT-CAR-EURO        PIC X  VALUE X'9F'.                       CQOMC0WK
    171. 

  171.       *    BULL=======                                                  CQOMC0WK
    172. 

  172.       *01  LT-CAR-EURO        PIC X  VALUE ""165"".                     CQOMC0WK
    173. 

  173.        01  LT-CAR-EURO        PIC X  VALUE X"A4"  .                     CQOMC0WK
    174. 

  174.       *                                                                 CQOMC0WK
    175. 

  175.       *END_OF_COPY_FILE                                                 CQOMC0WK
    176. 

  176.                                                                         
    177. 

  177.       *COPY WSHWZ001.                                                   
    178. 

  178.       *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/WSHWZ001.CPY"   WSHWZ001
    179. 

  179.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 WSHWZ001
    180. 

  180.       *LibFac  liberFactory GCOS to Linux Translator  *                 WSHWZ001
    181. 

  181.       *LibFac  From input file: WSHWZ001              *                 WSHWZ001
    182. 

  182.       *LibFac  On   the   date: 2015/03/24            *                 WSHWZ001
    183. 

  183.       * COMPOSANT TRAITE PAR ConstruireSpx.pl                           WSHWZ001
    184. 

  184.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 WSHWZ001
    185. 

  185.       ***************************************************************** WSHWZ001
    186. 

  186.       *                 DB DEBUG PROGRAM AREA                         * WSHWZ001
    187. 

  187.       *                                                               * WSHWZ001
    188. 

  188.       *    THIS AREA IS USED TO KEEP TRACK OF ALL THE  PARAGRAPHS     * WSHWZ001
    189. 

  189.       *    THAT WERE PERFORMED DURING  A  TEST  EXECUTION.   EACH     * WSHWZ001
    190. 

  190.       *    PARAGRAPH  MOVES ITS PARAGRAPH NAME   INTO  THE  TRACE     * WSHWZ001
    191. 

  191.       *    PARAGRAPH TABLE.  THIS TABLE CAN BE DISPLAYED BY           * WSHWZ001
    192. 

  192.       *    THE PROGRAMMER USING THE INSTALL1 DEBUGGER      .          * WSHWZ001
    193. 

  193.       *    THIS ASSISTS IN  DEBUGGING  BY  ALLOWING  THE              * WSHWZ001
    194. 

  194.       *    PROGRAMMER TO FOLLOW THE LOGICAL PATH EXECUTED  DURING     * WSHWZ001
    195. 

  195.       *    A TEST.  A DESCRIPTION OF EACH OF THE FIELDS  IN  THIS     * WSHWZ001
    196. 

  196.       *    AREA FOLLOWS.                                              * WSHWZ001
    197. 

  197.       *                                                               * WSHWZ001
    198. 

  198.       *            1)  TAG FIELDS : GIVES  A  TITLE  TO  EACH  OF     * WSHWZ001
    199. 

  199.       *                THE DEBUG FIELDS.   THESE  TITLES  CAN  BE     * WSHWZ001
    200. 

  200.       *                VIEWED ON-LINE.                                * WSHWZ001
    201. 

  201.       *                                                               * WSHWZ001
    202. 

  202.       *            2)  DB-LAST-PARAGRAPH-EXECUTED :    THE   LAST     * WSHWZ001
    203. 

  203.       *                PARAGRAPH EXECUTED BEFORE PROGRAM TERMINA-     * WSHWZ001
    204. 

  204.       *                TION.                                          * WSHWZ001
    205. 

  205.       *                                                               * WSHWZ001
    206. 

  206.       *            3)  DB-TRACE-INDEX : INDEX FOR THE TABLE.          * WSHWZ001
    207. 

  207.       *                                                               * WSHWZ001
    208. 

  208.       *            4)  DB-RESET-COUNT : NUMBER OF TIMES THE TABLE     * WSHWZ001
    209. 

  209.       *                HAS BEEN FILLED AND RESET.                     * WSHWZ001
    210. 

  210.       *                                                               * WSHWZ001
    211. 

  211.       *            5)  DB-TRACE-PARAGRAPH-TABLE :  CONTAINS   THE     * WSHWZ001
    212. 

  212.       *                PARAGRAPH NUMBERS FOR EACH PARAGRAPH  THAT     * WSHWZ001
    213. 

  213.       *                IS EXECUTED.  THIS ALLOWS  THE  PROGRAMMER     * WSHWZ001
    214. 

  214.       *                TO VIEW THE ORDER IN WHICH THE  PARAGRAPHS     * WSHWZ001
    215. 

  215.       *                WERE EXECUTED.                                 * WSHWZ001
    216. 

  216.       *                                                               * WSHWZ001
    217. 

  217.       *    NOTE: THIS PROGRAM DEBUG FEATURE IS ACTIVE  ONLY  WHEN     * WSHWZ001
    218. 

  218.       *    THE PROGRAM IS IN DEBUG MODE.                              * WSHWZ001
    219. 

  219.       *                                                               * WSHWZ001
    220. 

  220.       ***************************************************************** WSHWZ001
    221. 

  221.       /                                                                 WSHWZ001
    222. 

  222.       D01  TAG-DEBUG-PROGRAM-AREA                PIC X(24) VALUE        WSHWZ001
    223. 

  223.       D         "DEBUG PROGRAM AREA".                                   WSHWZ001
    224. 

  224.       D                                                                 WSHWZ001
    225. 

  225.       D01  DB-DEBUG-PROGRAM-AREA.                                       WSHWZ001
    226. 

  226.       D  03 TAG-DEBUG-LAST-PARAGRAPH             PIC X(20) VALUE        WSHWZ001
    227. 

  227.       D            "DEBUG LAST PARAGRAPH".                              WSHWZ001
    228. 

  228.       D  03 DB-LAST-PARAGRAPH-EXECUTED           PIC X(30) VALUE SPACE. WSHWZ001
    229. 

  229.       D  03 TAG-DEBUG-TRACE-INDEX                PIC X(16) VALUE        WSHWZ001
    230. 

  230.       D            "DEBUG TRACE INDX".                                  WSHWZ001
    231. 

  231.       D  03 DB-TRACE-INDEX                       PIC S9(4) COMP-5 SYNC  WSHWZ001
    232. 

  232.       D                                                    VALUE +1.    WSHWZ001
    233. 

  233.       D  03 DB-TRACE-INCREMENT                   PIC S9(4) COMP-5 SYNC  WSHWZ001
    234. 

  234.       D                                                    VALUE +4.    WSHWZ001
    235. 

  235.       D  03 DB-TRACE-POSITION                    PIC S9(4) COMP-5 SYNC  WSHWZ001
    236. 

  236.       D                                                    VALUE +1.    WSHWZ001
    237. 

  237.       D  03 DB-TRACE-LINE-LENGTH                 PIC S9(4) COMP-5 SYNC  WSHWZ001
    238. 

  238.       D                                                    VALUE +80.   WSHWZ001
    239. 

  239.       D  03 TAG-RESET-COUNT                      PIC X(16) VALUE        WSHWZ001
    240. 

  240.       D            "DEBUG RESET CNT ".                                  WSHWZ001
    241. 

  241.       D  03 DB-BINARY-ONE                        PIC S9(4) COMP-5 SYNC  WSHWZ001
    242. 

  242.                                                                         WSHWZ001
    243. 

  243.       D                                                    VALUE +1.    WSHWZ001
    244. 

  244.       D  03 DB-BINARY-ZERO                       PIC S9(4) COMP-5 SYNC  WSHWZ001
    245. 

  245.       D                                                    VALUE +0.    WSHWZ001
    246. 

  246.                                                                         WSHWZ001
    247. 

  247.       D  03 DB-RESET-COUNT                       PIC S9(4) COMP-5 SYNC  WSHWZ001
    248. 

  248.       D                                                    VALUE +0.    WSHWZ001
    249. 

  249.       D  03 TAG-RESET-COUNT                      PIC X(16) VALUE        WSHWZ001
    250. 

  250.       D            "MAX TABLE ENTRY ".                                  WSHWZ001
    251. 

  251.       D  03 DB-MAX-TRACE-TABLE-ENTRIES           PIC S9(4) COMP-5 SYNC  WSHWZ001
    252. 

  252.       D                                               VALUE +500.       WSHWZ001
    253. 

  253.       D                                                                 WSHWZ001
    254. 

  254.       ***************************************************************** WSHWZ001
    255. 

  255.       *                                                               * WSHWZ001
    256. 

  256.       *            TRACE PARAGRAPH TABLE                              * WSHWZ001
    257. 

  257.       *           -----------------------                             * WSHWZ001
    258. 

  258.       *                                                               * WSHWZ001
    259. 

  259.       ***************************************************************** WSHWZ001
    260. 

  260.       D01  TAG-TRACE-PARAGRAPH-TABLE             PIC X(20) VALUE        WSHWZ001
    261. 

  261.       D        "TRACE PARAGRAPH TAB ".                                  WSHWZ001
    262. 

  262.       *                                                                 WSHWZ001
    263. 

  263.       D01  DB-TRACE-PARAGRAPH-TABLE.                                    WSHWZ001
    264. 

  264.       D  03 FILLER                               PIC X(15000) VALUE     WSHWZ001
    265. 

  265.       D                                                  LOW-VALUES.    WSHWZ001
    266. 

  266.       D01  DB-TRACE-PARA-TAB-RED REDEFINES DB-TRACE-PARAGRAPH-TABLE.    WSHWZ001
    267. 

  267.       D  03 DB-TRACE-PARA-TAB-OCC                OCCURS 500.            WSHWZ001
    268. 

  268.       D    05 DB-TRACE-PARAGRAPH-ENTRY           PIC X(30).             WSHWZ001
    269. 

  269.       D01  DB-TRACE-LINE                         PIC X(132).            WSHWZ001
    270. 

  270.                                                                         WSHWZ001
    271. 

  271.       *END_OF_COPY_FILE                                                 WSHWZ001
    272. 

  272.       *COPY WSHWZ003.                                                   
    273. 

  273.       *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/WSHWZ003.CPY"   WSHWZ003
    274. 

  274.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 WSHWZ003
    275. 

  275.       *LibFac  liberFactory GCOS to Linux Translator  *                 WSHWZ003
    276. 

  276.       *LibFac  From input file: WSHWZ003              *                 WSHWZ003
    277. 

  277.       *LibFac  On   the   date: 2015/03/24            *                 WSHWZ003
    278. 

  278.       * COMPOSANT TRAITE PAR ConstruireSpx.pl                           WSHWZ003
    279. 

  279.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 WSHWZ003
    280. 

  280.       ***************************************************************** WSHWZ003
    281. 

  281.       *                                                               * WSHWZ003
    282. 

  282.       *   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
    283. 

  283.       *   ----------------------------------------------------------  * WSHWZ003
    284. 

  284.       *                                                               * WSHWZ003
    285. 

  285.       *  THE APPLICATION-PROC-STATUS-FIELD IS USED TO DETERMINE THE   * WSHWZ003
    286. 

  286.       *  STATUS OF THE CURRENT EXECUTION OF THE APPLICATION.          * WSHWZ003
    287. 

  287.       *                                                               * WSHWZ003
    288. 

  288.       * MODIF LE 29/04/97                                             * WSHWZ003
    289. 

  289.       ***************************************************************** WSHWZ003
    290. 

  290.                                                                         WSHWZ003
    291. 

  291.        01  AS-APPL-PROC-STATUS-AREA.                                    WSHWZ003
    292. 

  292.       *  03 AS-APPL-PROC-STATUS                  PIC S9(4) COMP-1.      WSHWZ003
    293. 

  293.       *  03 AS-APPL-PROC-STATUS                  COMP-6.                WSHWZ003
    294. 

  294.          03 AS-APPL-PROC-STATUS                                         WSHWZ003
    295. 

  295.        PIC S9(00009) COMP-5 SYNC                       .                WSHWZ003
    296. 

  296.            88 AS-APPL-PROC-OK                            VALUE +0000.   WSHWZ003
    297. 

  297.            88 AS-APPL-PROC-ERROR                         VALUE +0001    WSHWZ003
    298. 

  298.                                                                +0002    WSHWZ003
    299. 

  299.                                                                +0003.   WSHWZ003
    300. 

  300.            88 AS-APPL-PROC-FLD-ERROR                     VALUE +0001.   WSHWZ003
    301. 

  301.            88 AS-APPL-PROC-REL-ERROR                     VALUE +0002.   WSHWZ003
    302. 

  302.            88 AS-APPL-PROC-INF-ERROR                     VALUE +0003.   WSHWZ003
    303. 

  303.                                                                         WSHWZ003
    304. 

  304.       *END_OF_COPY_FILE                                                 WSHWZ003
    305. 

  305.       *COPY WSHWZ007.                                                   
    306. 

  306.       *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/WSHWZ007.CPY"   WSHWZ007
    307. 

  307.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 WSHWZ007
    308. 

  308.       *LibFac  liberFactory GCOS to Linux Translator  *                 WSHWZ007
    309. 

  309.       *LibFac  From input file: WSHWZ007              *                 WSHWZ007
    310. 

  310.       *LibFac  On   the   date: 2015/03/24            *                 WSHWZ007
    311. 

  311.       * COMPOSANT TRAITE PAR ConstruireSpx.pl                           WSHWZ007
    312. 

  312.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 WSHWZ007
    313. 

  313.       ***************************************************************** WSHWZ007
    314. 

  314.       *                                                               * WSHWZ007
    315. 

  315.       *            C I C S - E R R O R - A N A L Y S I S              * WSHWZ007
    316. 

  316.       *          -----------------------------------------            * WSHWZ007
    317. 

  317.       *                                                               * WSHWZ007
    318. 

  318.       *  ANALYSIS AREA FOR THE EIBRCODE RETURNED FROM A  TP  COMMAND. * WSHWZ007
    319. 

  319.       *  THE FIRST BYTE OF THE EIBRCODE CONTAINS THE NUMERICAL VALUE  * WSHWZ007
    320. 

  320.       *  WHICH INDICATES THE EXECUTION STATUS OF THE COMMAND.         * WSHWZ007
    321. 

  321.       *                                                               * WSHWZ007
    322. 

  322.       ***************************************************************** WSHWZ007
    323. 

  323.        01  CEA-TP-ERROR-ANALYSIS.                                       WSHWZ007
    324. 

  324.          03 CEA-WORK-AREA.                                              WSHWZ007
    325. 

  325.            05 CEA-FILLER                         PIC X(1)               WSHWZ007
    326. 

  326.                                                    VALUE LOW-VALUES.    WSHWZ007
    327. 

  327.            05 CEA-EIBRCODE                       PIC X(6).              WSHWZ007
    328. 

  328.          03 CEA-ANALYZE-AREA                   REDEFINES CEA-WORK-AREA. WSHWZ007
    329. 

  329.            05 CEA-TP-RETURN-CODE               PIC S9(4) .              WSHWZ007
    330. 

  330.               88 CEA-TP-RETURN-NORMAL            VALUE +0.              WSHWZ007
    331. 

  331.               88 CEA-TP-RETURN-QZERO             VALUE +1.              WSHWZ007
    332. 

  332.               88 CEA-TP-RETURN-ITEMERR           VALUE +1.              WSHWZ007
    333. 

  333.               88 CEA-TP-RETURN-DSIDERR           VALUE +1.              WSHWZ007
    334. 

  334.               88 CEA-TP-RETURN-PGMIDERR          VALUE +1.              WSHWZ007
    335. 

  335.               88 CEA-TP-RETURN-INVREQ            VALUE +1 +2 +8 +32     WSHWZ007
    336. 

  336.                                                          +224 +255.     WSHWZ007
    337. 

  337.               88 CEA-TP-RETURN-QIDERR            VALUE +2.              WSHWZ007
    338. 

  338.               88 CEA-TP-RETURN-ILLOGIC           VALUE +2.              WSHWZ007
    339. 

  339.               88 CEA-TP-RETURN-MAPFAIL           VALUE +4.              WSHWZ007
    340. 

  340.               88 CEA-TP-RETURN-EOF               VALUE +4 +193.         WSHWZ007
    341. 

  341.               88 CEA-TP-RETURN-IOERR             VALUE +4 +7 +128.      WSHWZ007
    342. 

  342.               88 CEA-TP-RETURN-NOTOPEN           VALUE +5 +8 +12.       WSHWZ007
    343. 

  343.               88 CEA-TP-RETURN-LENGERR           VALUE +6 +225.         WSHWZ007
    344. 

  344.               88 CEA-TP-RETURN-INVMPSZ           VALUE +8.              WSHWZ007
    345. 

  345.               88 CEA-TP-RETURN-NOSPACE           VALUE +8 +16 +131.     WSHWZ007
    346. 

  346.               88 CEA-TP-RETURN-ENDFILE           VALUE +15.             WSHWZ007
    347. 

  347.               88 CEA-TP-RETURN-TRANSIDERR        VALUE +17.             WSHWZ007
    348. 

  348.               88 CEA-TP-RETURN-TERMIDERR         VALUE +18 +230.        WSHWZ007
    349. 

  349.               88 CEA-TP-RETURN-ENQBUSY           VALUE +32.             WSHWZ007
    350. 

  350.               88 CEA-TP-RETURN-NOTFND            VALUE +129.            WSHWZ007
    351. 

  351.               88 CEA-TP-RETURN-DUPREC            VALUE +130.            WSHWZ007
    352. 

  352.               88 CEA-TP-RETURN-DUPKEY            VALUE +132.            WSHWZ007
    353. 

  353.               88 CEA-TP-RETURN-QBUSY             VALUE +192.            WSHWZ007
    354. 

  354.               88 CEA-TP-RETURN-SYSIDERR          VALUE +208.            WSHWZ007
    355. 

  355.               88 CEA-TP-RETURN-ISCINVREQ         VALUE +209.            WSHWZ007
    356. 

  356.               88 CEA-TP-RETURN-NOTAUTH           VALUE +214.            WSHWZ007
    357. 

  357.                                                                         WSHWZ007
    358. 

  358.       *END_OF_COPY_FILE                                                 WSHWZ007
    359. 

  359.                                                                         
    360. 

  360.       *COPY HMEML020.                                                   
    361. 

  361.       *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/HMEML020.CPY"   HMEML020
    362. 

  362.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 HMEML020
    363. 

  363.       *LibFac  liberFactory GCOS to Linux Translator  *                 HMEML020
    364. 

  364.       *LibFac  From input file: HMEML020              *                 HMEML020
    365. 

  365.       *LibFac  On   the   date: 2015/03/24            *                 HMEML020
    366. 

  366.       * COMPOSANT TRAITE PAR ConstruireSpx.pl                           HMEML020
    367. 

  367.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 HMEML020
    368. 

  368.       ***************************************************************   HMEML020
    369. 

  369.       *   COPYBOOK : HMEML020                                           HMEML020
    370. 

  370.       *   DATE CREATED : 23/01/95                                       HMEML020
    371. 

  371.       *   DESCRIPTION : LINKAGE COPYBOOK FOR HMEMC010.                  HMEML020
    372. 

  372.       *                 THIS COPYBOOK SHOULD BE USED TO CALL THE        HMEML020
    373. 

  373.       *                 SHARED MEMORY MANAGER MODULE HMEMC010.          HMEML020
    374. 

  374.       * ------------------------------------------------------------    HMEML020
    375. 

  375.       * MODIF  15/05/97 - AJOUT W-CQFNDMEM                              HMEML020
    376. 

  376.       * MODIF  24/04/07 - BUGS DJ275 - AJOUT ZONES POUR CALL AVEC LE    HMEML020
    377. 

  377.       *                   BON NOMBRE DE PARAMETRES                      HMEML020
    378. 

  378.       ***************************************************************   HMEML020
    379. 

  379.        01 HMEM-FUNCTION-CODE                  PIC X(2) VALUE "RI".      HMEML020
    380. 

  380.          88 HMEM-FLAG-RETRIEVE-IN-CORE     VALUE "RI".                  HMEML020
    381. 

  381.       *01 HMEM-RETURN-CODE                    COMP-6.                   HMEML020
    382. 

  382.        01 HMEM-RETURN-CODE                    PIC S9(00009) COMP-5 SYNC.HMEML020
    383. 

  383.        01 HMEM-SEGMENT-SIZES.                                           HMEML020
    384. 

  384.       *  03 HMEM-INDEX-SEGMENT-SIZE           COMP-6.                   HMEML020
    385. 

  385.          03 HMEM-INDEX-SEGMENT-SIZE           PIC S9(00009) COMP-5 SYNC.HMEML020
    386. 

  386.       *  03 HMEM-CTB-INDEX-SEGMENT-SIZE       COMP-6.                   HMEML020
    387. 

  387.          03 HMEM-CTB-INDEX-SEGMENT-SIZE       PIC S9(00009) COMP-5 SYNC.HMEML020
    388. 

  388.       *  03 HMEM-DATA-SEGMENT-SIZE            COMP-6.                   HMEML020
    389. 

  389.          03 HMEM-DATA-SEGMENT-SIZE            PIC S9(00009) COMP-5 SYNC.HMEML020
    390. 

  390.        01 HMEM-RECORD-TYPE                    PIC X(3).                 HMEML020
    391. 

  391.        01 HMEM-KEY                            PIC X(9).                 HMEML020
    392. 

  392.        01 HMEM-RECORD-POINTER                 USAGE IS POINTER.         HMEML020
    393. 

  393.       *01 HMEM-RECORD-LENGTH                  COMP-6.                   HMEML020
    394. 

  394.        01 HMEM-RECORD-LENGTH                  PIC S9(00009) COMP-5 SYNC.HMEML020
    395. 

  395.        01 HMEM-CTB-KEY.                                                 HMEML020
    396. 

  396.          03 HMEM-CTB-USER-KEY.                                          HMEML020
    397. 

  397.            05 HMEM-CTB-USER-KEY-ID            PIC X(17).                HMEML020
    398. 

  398.            05 HMEM-CTB-USER-KEY-EFF-DATE      PIC S9(7).                HMEML020
    399. 

  399.          03 HMEM-CTB-EFF-DATE-FLAG            PIC X(1).                 HMEML020
    400. 

  400.            88 HMEM-CTB-EFF-DATE-USED       VALUE "Y".                   HMEML020
    401. 

  401.            88 HMEM-CTB-EFF-DATE-NOT-USED   VALUE "N".                   HMEML020
    402. 

  402.       *  03 HMEM-CTB-NUM-REC-REQUESTED        COMP-6.                   HMEML020
    403. 

  403.          03 HMEM-CTB-NUM-REC-REQUESTED        PIC S9(00009) COMP-5 SYNC.HMEML020
    404. 

  404.       *  03 HMEM-CTB-NUM-REC-RETURNED         COMP-6.                   HMEML020
    405. 

  405.          03 HMEM-CTB-NUM-REC-RETURNED         PIC S9(00009) COMP-5 SYNC.HMEML020
    406. 

  406.       *01 W-CQFNDMEM                          COMP-6.                   HMEML020
    407. 

  407.        01 W-CQFNDMEM                          PIC S9(00009) COMP-5 SYNC.HMEML020
    408. 

  408.                                                                         HMEML020
    409. 

  409.                                                                         HMEML020
    410. 

  410.       *END_OF_COPY_FILE                                                 HMEML020
    411. 

  411.                                                                         
    412. 

  412.       *COPY CTIDBAT.                                                    
    413. 

  413.       *COPY"/distrib/appli/cristal/05200/ref/cobol/copyb/CTIDBAT.CPY"   CTIDBAT
    414. 

  414.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 CTIDBAT
    415. 

  415.       *LibFac  liberFactory GCOS to Linux Translator  *                 CTIDBAT
    416. 

  416.       *LibFac  From input file: CTIDBAT               *                 CTIDBAT
    417. 

  417.       *LibFac  On   the   date: 2015/03/23            *                 CTIDBAT
    418. 

  418.       * COMPOSANT TRAITE PAR ConstruireSpx.pl                           CTIDBAT
    419. 

  419.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 CTIDBAT
    420. 

  420.       ***************************************************************   CTIDBAT
    421. 

  421.       *                                                             *   CTIDBAT
    422. 

  422.       *   ZONE DE COMMUNICATION TECHNIQUE ARCHITECTURE INTERNE      *   CTIDBAT
    423. 

  423.       *                    C R I S T A L                            *   CTIDBAT
    424. 

  424.       *      ****   VERSION ACTIVE EN BATCH (WORKING)   ****        *   CTIDBAT
    425. 

  425.       *                                                             *   CTIDBAT
    426. 

  426.       ***************************************************************   CTIDBAT
    427. 

  427.        01  CTIC-CTIDCOM.                                                CTIDBAT
    428. 

  428.            03  CTIC-LGIGAD                          PIC 9(09).          CTIDBAT
    429. 

  429.            03  CTIC-IDORGA                          PIC X(05).          CTIDBAT
    430. 

  430.            03  CTIC-PTANCR                          PIC X(01).          CTIDBAT
    431. 

  431.            03  CTIC-FLGDSS                          PIC X(01).          CTIDBAT
    432. 

  432.            03  CTIC-EPAIGU                          PIC X(08).          CTIDBAT
    433. 

  433.            03  CTIC-IDENT-DATABASE.                                     CTIDBAT
    434. 

  434.               05 CTIC-RFM-MODEL.                                        CTIDBAT
    435. 

  435.                  07  CTIC-MORFMB                    PIC X(32).          CTIDBAT
    436. 

  436.                  07  CTIC-MORFMO                    PIC X(32).          CTIDBAT
    437. 

  437.                  07  CTIC-FILACC                    PIC X(03).          CTIDBAT
    438. 

  438.               05 CTIC-DBSP-IDENT.                                       CTIDBAT
    439. 

  439.                  07 CTIC-DBSP-TBL OCCURS 10.                            CTIDBAT
    440. 

  440.                     09  CTIC-DBSP-TBL-DBSS          PIC X(12).          CTIDBAT
    441. 

  441.                     09  CTIC-DBSP-TBL-APPGRP        PIC X(32).          CTIDBAT
    442. 

  442.            03  FILLER                               PIC X(29).          CTIDBAT
    443. 

  443.       *END_OF_COPY_FILE                                                 CTIDBAT
    444. 

  444.       *COPY CQLIBERW.                                                   
    445. 

  445.       *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/CQLIBERW.CPY"   CQLIBERW
    446. 

  446.       ***************************************************************** CQLIBERW
    447. 

  447.       * COPY CQLIBERW                                                 * CQLIBERW
    448. 

  448.       *     VARIABLES TECHNIQUES LIEES A L'ARCHITECTURE LIBER-TP      * CQLIBERW
    449. 

  449.       *     OU LIBER-BATCH                                            * CQLIBERW
    450. 

  450.       ***************************************************************** CQLIBERW
    451. 

  451.                                                                         CQLIBERW
    452. 

  452.       ***************************************************************** CQLIBERW
    453. 

  453.       *     DONNEES POUR LA RECUPERATION DES ABORTS 'ILLEGAL EIS'     * CQLIBERW
    454. 

  454.       *     UTILISEES PAR LE SQUELETTE WSHBBDP2                       * CQLIBERW
    455. 

  455.       ***************************************************************** CQLIBERW
    456. 

  456.        01  CQIPR-FLAG          PIC S9(9) COMP-5 SYNC.                   CQLIBERW
    457. 

  457.        01  CQIPR-IC            PIC X(6).                                CQLIBERW
    458. 

  458.        01  CQIPR-SEGID         PIC X(4).                                CQLIBERW
    459. 

  459.                                                                         CQLIBERW
    460. 

  460.       ***************************************************************** CQLIBERW
    461. 

  461.       *     DONNEES POUR LES TESTS DE SWITCH-WORD                     * CQLIBERW
    462. 

  462.       ***************************************************************** CQLIBERW
    463. 

  463.        77 LTP-SWITCH-TEST-RESULT       PIC S9(11) BINARY.               CQLIBERW
    464. 

  464.       *END_OF_COPY_FILE                                                 CQLIBERW
    465. 

  465.       *COPY VARG-DATA.                                                  
    466. 

  466.       *COPY"/distrib/libertp/version_en_cours/COBCPY/TP8/VARG-DATA.CPY" 
    467. 

  467.        01  VARG-LENGTH-BLOCK.                                           
    468. 

  468.            03  VARG-NUM-ARGS   PIC 99 VALUE 0.                          
    469. 

  469.            03  VARG-CBL-ARG    PIC 9(8) OCCURS 0 TO 32 TIMES            
    470. 

  470.                                DEPENDING ON VARG-NUM-ARGS.              
    471. 

  471.       *END_OF_COPY_FILE                                                 
    472. 

  472.                                                                         
    473. 

  473.       *COPY DFHEIBLK.                                                   
    474. 

  474.       *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/DFHEIBLK.CPY"   DFHEIBLK
    475. 

  475.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 DFHEIBLK
    476. 

  476.       *LibFac  liberFactory GCOS to Linux Translator  *                 DFHEIBLK
    477. 

  477.       *LibFac  From input file: DFHEIBLK              *                 DFHEIBLK
    478. 

  478.       *LibFac  On   the   date: 2015/03/24            *                 DFHEIBLK
    479. 

  479.       * COMPOSANT TRAITE PAR ConstruireSpx.pl                           DFHEIBLK
    480. 

  480.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 DFHEIBLK
    481. 

  481.       *      COPYBOOK-NAME = DFHEIBLK                                   DFHEIBLK
    482. 

  482.        01  DFHEIBLK.                                                    DFHEIBLK
    483. 

  483.       ***************************************************************** DFHEIBLK
    484. 

  484.       * RECORD DFHEIBLK                       GENERATION DATE 13FEB89   DFHEIBLK
    485. 

  485.       *                                                                 DFHEIBLK
    486. 

  486.       ***************************************************************** DFHEIBLK
    487. 

  487.       * 08/21/91 * CR1865 * DETECTION OF VIP7700 TERMINAL (SEE CR1069)* DFHEIBLK
    488. 

  488.       *          *        *                                           * DFHEIBLK
    489. 

  489.       *          *        *                                           * DFHEIBLK
    490. 

  490.       ***************************************************************** DFHEIBLK
    491. 

  491.            05  EIBTIME                     PIC S9(7)     COMP-3.        DFHEIBLK
    492. 

  492.            05  EIBDATE                     PIC S9(7)     COMP-3.        DFHEIBLK
    493. 

  493.            05  EIBTRNID                    PIC X(4).                    DFHEIBLK
    494. 

  494.            05  EIBTRMID                    PIC X(12).                   DFHEIBLK
    495. 

  495.            05  EIBRCODE                    PIC X(6).                    DFHEIBLK
    496. 

  496.            05  EIBAID                      PIC X.                       DFHEIBLK
    497. 

  497.            05  EIBCPOSN                    PIC S9(4) .                  DFHEIBLK
    498. 

  498.            05  EIBFN                       PIC X(2).                    DFHEIBLK
    499. 

  499.            05  EIBCALEN                    PIC S9(4) .                  DFHEIBLK
    500. 

  500.            05  EIBTASKN                    PIC S9(7)     COMP-3.        DFHEIBLK
    501. 

  501.            05  EIBTTYPE                    PIC X(2).                    DFHEIBLK
    502. 

  502.                88  EIB-DKU7107                         VALUE  "K7".     DFHEIBLK
    503. 

  503.                88  EIB-DKU7105                         VALUE  "K5".     DFHEIBLK
    504. 

  504.                88  EIB-VIP7804                         VALUE  "V4".     DFHEIBLK
    505. 

  505.                88  EIB-IBM3270                         VALUE  "I7".     DFHEIBLK
    506. 

  506.                88  EIB-VIP7700                         VALUE  "V7".     DFHEIBLK
    507. 

  507.                                                                         DFHEIBLK
    508. 

  508.       *END_OF_COPY_FILE                                                 DFHEIBLK
    509. 

  509.                                                                         
    510. 

  510.       *$$DATA-DEFINE                                                    
    511. 

  511.       ***************************************************************** 
    512. 

  512.       *                                                               * 
    513. 

  513.       *                 APPLICATION WORKING STORAGE                   * 
    514. 

  514.       *                -*-*-*-*-*-*-*-*-*-*-*-*-*-*-                  * 
    515. 

  515.       *                                                               * 
    516. 

  516.       *    THIS IS THE APPLICATION SPECIFIC WORKING STORAGE AREA.     * 
    517. 

  517.       *    THE APPLICATION PROGRAMMER SHOULD ADD  ALL APPLICATION     * 
    518. 

  518.       *    SPECIFIC WORKING STORAGE FIELDS AFTER  THIS  POINT  IN     * 
    519. 

  519.       *    THE PROGRAM.  NOTE THAT THERE ARE  SOME  FIELD  GROUPS     * 
    520. 

  520.       *    ALREADY INCLUDED IN THIS AREA.  THESE FIELD GROUPS ARE     * 
    521. 

  521.       *    COMMONLY FOUND IN ON-LINE APPLICATIONS  AND  SERVE  AS     * 
    522. 

  522.       *    STARTING POINTS FOR THE APPLICATION  SPECIFIC  WORKING     * 
    523. 

  523.       *    STORAGE.                                                   * 
    524. 

  524.       *                                                               * 
    525. 

  525.       ***************************************************************** 
    526. 

  526.       ***************************************************************** 
    527. 

  527.       *                                                               * 
    528. 

  528.       *   THE VALUES OF SOME OF THESE LITERALS MUST BE CHANGED. THE   * 
    529. 

  529.       *   VARIABLES TO BE CHANGED ARE:                                * 
    530. 

  530.       *                                                               * 
    531. 

  531.       *     LT-NAME-OF-THIS-PROGRAM - CHANGE ALL 'CGM129' VALUES      * 
    532. 

  532.       *                     TO THE NAME OF THE APPLICATION PROGRAM    * 
    533. 

  533.       *                                                               * 
    534. 

  534.       *                                                               * 
    535. 

  535.       ***************************************************************** 
    536. 

  536.       *    COPY WSHWZ009.                                               
    537. 

  537.       *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/WSHWZ009.CPY"   WSHWZ009
    538. 

  538.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 WSHWZ009
    539. 

  539.       *LibFac  liberFactory GCOS to Linux Translator  *                 WSHWZ009
    540. 

  540.       *LibFac  From input file: WSHWZ009              *                 WSHWZ009
    541. 

  541.       *LibFac  On   the   date: 2015/03/24            *                 WSHWZ009
    542. 

  542.       * COMPOSANT TRAITE PAR ConstruireSpx.pl                           WSHWZ009
    543. 

  543.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 WSHWZ009
    544. 

  544.       ***************************************************************** WSHWZ009
    545. 

  545.       *                                                               * WSHWZ009
    546. 

  546.       *                 L I T E R A L S                               * WSHWZ009
    547. 

  547.       *              ----------------------                           * WSHWZ009
    548. 

  548.       *                                                               * WSHWZ009
    549. 

  549.       *    THIS AREA DEFINES ALL THE LITERALS AND  CONSTANTS USED     * WSHWZ009
    550. 

  550.       *    BY THIS PROGRAM.  THOSE THAT ARE ALREADY  DEFINED  ARE     * WSHWZ009
    551. 

  551.       *    NEEDED BY THE MES SHELL PROGRAM.  INCLUDE THE LITERALS     * WSHWZ009
    552. 

  552.       *    THAT ARE USED BY THE APPLICATION.                          * WSHWZ009
    553. 

  553.       *                                                               * WSHWZ009
    554. 

  554.       ***************************************************************** WSHWZ009
    555. 

  555.                                                                         WSHWZ009
    556. 

  556.        01  LITERALS.                                                    WSHWZ009
    557. 

  557.                                                                         WSHWZ009
    558. 

  558.          03 LT-NO-ERROR-OCCURRED                 PIC S9(4)              WSHWZ009
    559. 

  559.                                                                         WSHWZ009
    560. 

  560.                                                    VALUE +0000.         WSHWZ009
    561. 

  561.          03 LT-FLD-ERROR-OCCURRED                PIC S9(4)              WSHWZ009
    562. 

  562.                                                                         WSHWZ009
    563. 

  563.                                                    VALUE +0001.         WSHWZ009
    564. 

  564.          03 LT-REL-ERROR-OCCURRED                PIC S9(4)              WSHWZ009
    565. 

  565.                                                                         WSHWZ009
    566. 

  566.                                                    VALUE +0002.         WSHWZ009
    567. 

  567.          03 LT-APPL-PROCESSING-ERROR             PIC S9(4)              WSHWZ009
    568. 

  568.                                                                         WSHWZ009
    569. 

  569.                                                    VALUE +0001.         WSHWZ009
    570. 

  570.          03 LT-INFORMATION-ERROR-OCCURRED        PIC S9(4)              WSHWZ009
    571. 

  571.                                                                         WSHWZ009
    572. 

  572.                                                    VALUE +0003.         WSHWZ009
    573. 

  573.          03 LT-APPL-REQUIRES-ABEND               PIC X(1) VALUE "1".    WSHWZ009
    574. 

  574.                                                                         WSHWZ009
    575. 

  575.       *END_OF_COPY_FILE                                                 WSHWZ009
    576. 

  576.          03 LT-NAME-OF-THIS-PROGRAM              PIC X(8)               
    577. 

  577.                                                    VALUE 'CGM129'.      
    578. 

  578.          03 LT-ID-GDD-ZZZ                        PIC X(3)               
    579. 

  579.                                                    VALUE 'ZZZ'.         
    580. 

  580.          03 LT-STATUT-9999                       PIC S9(4)              
    581. 

  581.                                                    VALUE 9999.          
    582. 

  582.          03 LT-TABEND-SGBD                       PIC X(1)               
    583. 

  583.                                                    VALUE 'D'.           
    584. 

  584.       *    COPY WCSERIGA.                                               
    585. 

  585.       *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/WCSERIGA.CPY"   WCSERIGA
    586. 

  586.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 WCSERIGA
    587. 

  587.       *LibFac  liberFactory GCOS to Linux Translator  *                 WCSERIGA
    588. 

  588.       *LibFac  From input file: WCSERIGA              *                 WCSERIGA
    589. 

  589.       *LibFac  On   the   date: 2015/03/24            *                 WCSERIGA
    590. 

  590.       * COMPOSANT TRAITE PAR ConstruireSpx.pl                           WCSERIGA
    591. 

  591.       *LibFac * * * * * * * * * * * * * * * * * * * * *                 WCSERIGA
    592. 

  592.       ******************************************************************WCSERIGA
    593. 

  593.       **                                                                WCSERIGA
    594. 

  594.       **   LITERAUX APPLICATIFS DES DIFFERENTES VALEURS DU              WCSERIGA
    595. 

  595.       **   DES CODES RETOUR DE L INTERFACE GENERALISEE                  WCSERIGA
    596. 

  596.       **                                                                WCSERIGA
    597. 

  597.       ******************************************************************WCSERIGA
    598. 

  598.       **                                                                WCSERIGA
    599. 

  599.       **  CETTE CLAUSE COPY SERA A COMPLETER EN FONCTION DES EVOLUTIONS WCSERIGA
    600. 

  600.       **  DE LA CELLULE DE DONNEES                                      WCSERIGA
    601. 

  601.       **                                                                WCSERIGA
    602. 

  602.       ******************************************************************WCSERIGA
    603. 

  603.                                                                         WCSERIGA
    604. 

  604.            03 LT-NAME-OF-IG                 PIC X(08) VALUE 'CDZZ0   '. WCSERIGA
    605. 

  605.                                                                         WCSERIGA
    606. 

  606.            03 LT-CRG-OK                     PIC X(2) VALUE '00'.        WCSERIGA
    607. 

  607.            03 LT-CRG-SQLCODE                PIC X(2) VALUE '99'.        WCSERIGA
    608. 

  608.                                                                         WCSERIGA
    609. 

  609.                                                                         WCSERIGA
    610. 

  610.            03 LT-CRD-OK                     PIC S9(04) VALUE  00   .    WCSERIGA
    611. 

  611.            03 LT-CRD-FONC-INCONNUE          PIC S9(04) VALUE  10   .    WCSERIGA
    612. 

  612.            03 LT-CRD-IDEN-INCONNUE          PIC S9(04) VALUE  11   .    WCSERIGA
    613. 

  613.            03 LT-CRD-GDD-INVAL              PIC S9(04) VALUE  12   .    WCSERIGA
    614. 

  614.            03 LT-CRD-NB-OCC-INVAL           PIC S9(04) VALUE  13   .    WCSERIGA
    615. 

  615.            03 LT-CRD-CODE-LEC-INVAL         PIC S9(04) VALUE  14   .    WCSERIGA
    616. 

  616.            03 LT-CRD-DSVCM-INVAL            PIC S9(04) VALUE  15   .    WCSERIGA
    617. 

  617.            03 LT-CRD-TAPPEL-INVAL           PIC S9(04) VALUE  16   .    WCSERIGA
    618. 

  618.            03 LT-CRD-DATE-INVAL             PIC S9(04) VALUE  17   .    WCSERIGA
    619. 

  619.            03 LT-CRD-APPEL-NON-AUT          PIC S9(04) VALUE  18   .    WCSERIGA
    620. 

  620.            03 LT-CRD-ERREUR-IGA             PIC S9(04) VALUE  19   .    WCSERIGA
    621. 

  621.            03 LT-CRD-ID-APPEL-INVAL         PIC S9(04) VALUE  20   .    WCSERIGA
    622. 

  622.                                                                         WCSERIGA
    623. 

  623.            03 LT-CRD-NON-TROUVE             PIC S9(04) VALUE  30   .    WCSERIGA
    624. 

  624.            03 LT-CRD-CREATION-IMPOSSIBLE    PIC S9(04) VALUE  31   .    WCSERIGA
    625. 

  625.            03 LT-CRD-SUPP-IMPOSSIBLE        PIC S9(04) VALUE  32   .    WCSERIGA
    626. 

  626.            03 LT-CRD-MODIF-IMPOSSIBLE       PIC S9(04) VALUE  33   .    WCSERIGA
    627. 

  627.            03 LT-CRD-CODE-ETAT-ERRONE       PIC S9(04) VALUE  34   .    WCSERIGA
    628. 

  628.            03 LT-CRD-DSM-EX…
    629.