Moderniser votre déclaration de DS programme

Vous avez besoin de moderniser votre déclaration de DS Programme, en voici un exemple:

       Dcl-ds Pgm_Stat PSDS;

           //                           Nom de la procédure
         PROCEDURE *PROC;
           //                           code status
         ERROR *STATUS;
           //                           code status précédent
         PRV_STATUS zoned(5:0) pos(16);
           //                           numéro line selon source
         LINE_NUM char(8) pos(21);
           //                           nom routine
         ROUTINE *ROUTINE;
          //                            nombre de paramétres reéus
         PARMS *PARMS;
          //                            type d'exception
         EXCP_TYPE char(3) pos(40);
          //                            numéro d'exception
         EXCP_NUM char(4) pos(43);
          //                            bib du programme
         PGM_LIB char(10) pos(81);
          //                            données d'exception
         EXCP_DATA char(80) pos(91);
          //                            Iexception
         EXCP_I char(4) pos(171);
          //                            date (//DATE fmt)
         DATE_JOUR char(8) pos (191);
          //                            année (//YEAR fmt)
         YEAR zoned(2:0) pos(199);
          //                            dernier fichier utilisé
         LAST_FILE char(8) pos(201);
          //                            infomation erreur fichier
         FILE_INFO char(35) pos(209);
          //                            nom du travail
         JOB_NAME char(10) pos(44);
          //                            nom utilisateur
         USER char(10) pos(254);
          //                            numéro du travail
         JOB_NUM zoned(6:0) pos(264);
          //                            date du travail  (UDATE fmt)
         JOB_DATE zoned(6:0) pos(270);
          //                            date lance travail  (UDATE fmt)
         RUN_DATE zoned(6:0) pos(276);
          //                            heure lance travail (UDATE fmt)
         RUN_TIME zoned(6:0) pos(282);
          //                            date de création
         CRT_DATE char(6) pos(288);
          //                            heure de création
         CRT_TIME char(6) pos(294);
          //                            niveau de compilation
         CPL_LEVEL char(4) pos(300);
          //                            fichier source
         SRC_FILE char(10) pos(304);
          //                            bib source
         SRC_LIB char(10) pos(314);
          //                            membre source
         SRC_MBR char(10) pos(324);
          //                            prog procedure is in
         PROC_PGM char(10) pos(334);
          //                            module procedure is in
         PROC_MO char(10) pos(344);
       end-ds;

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *