*COMDECK  RPTRTCOM
00001 ***************************************************************** 05/23/78
00002 *                                                                 RPTRTCOM
00003 *    FORMAT CATEGORY 010 DETAIL LINE                                 LV001
00004 *        CATEGORY 010 = CONTROL                                   RPTRTCOM
00005 *                                                                 RPTRTCOM
00006 ***************************************************************** RPTRTCOM
00007  5100-FMT-CAT010.                                                 RPTRTCOM
00008      MOVE SPACES TO CAT00010-LINE.                                RPTRTCOM
00009 *                                                                 RPTRTCOM
00010 *    FORMAT ALIAS VERSION FIELD                                   RPTRTCOM
00011 *                                                                 RPTRTCOM
00012  5105-FMT-FLD05.                                                  RPTRTCOM
00013      IF CTL-ALY-VER EQUAL TO SPACES GO TO 5110-FMT-FLD010.        RPTRTCOM
           IF DATA-ENTRY-TYPE IS GREATER THAN 13
00015          MOVE FLD0001005-HCONV TO FLD0001005-HDG                  RPTRTCOM
00016       ELSE                                                        RPTRTCOM
00017          MOVE FLD0001005-HCONA TO FLD0001005-HDG.                 RPTRTCOM
00018      MOVE CTL-ALY-VER TO FLD0001005-VAL.                          RPTRTCOM
00019 *                                                                 RPTRTCOM
00020 *     FORMAT STATUS FIELD                                         RPTRTCOM
00021 *                                                                 RPTRTCOM
00022  5110-FMT-FLD010.                                                 RPTRTCOM
           IF CTL-STATUS IS EQUAL TO SPACES 
              GO TO 5120-OUTPUT-LINE. 
00024      MOVE FLD0001010-HCON TO FLD0001010-HDG.                      RPTRTCOM
00025          GO TO 5112-INTERPRET-CODE.                               RPTRTCOM
00026  5111-JUST-CODE.                                                  RPTRTCOM
00027      MOVE CTL-STATUS TO FLD0001010-POS1.                          RPTRTCOM
           GO TO 5120-OUTPUT-LINE.
00029  5112-INTERPRET-CODE.                                             RPTRTCOM
00030      MOVE 01 TO SUB3.                                             RPTRTCOM
00031  5113-NEXT-CODE-CK.                                               RPTRTCOM
00032      IF FLD0001010-CODES (SUB3) EQUAL TO "9"                      RPTRTCOM
00033          GO TO 5111-JUST-CODE.                                    RPTRTCOM
00034      IF FLD0001010-CODES (SUB3) EQUAL TO CTL-STATUS               RPTRTCOM
00035          GO TO 5114-EXTRACT-MNG.                                  RPTRTCOM
00036      ADD 1 TO SUB3.                                               RPTRTCOM
00037      GO TO 5113-NEXT-CODE-CK.                                     RPTRTCOM
00038  5114-EXTRACT-MNG.                                                RPTRTCOM
00039      MOVE FLD0001010-MNG (SUB3) TO FLD0001010-VAL.                RPTRTCOM
00048 *                                                                 RPTRTCOM
00049 *     FORMATTING OF CATEGORY LINE COMPLETE                        RPTRTCOM
00050  5120-OUTPUT-LINE.                                                RPTRTCOM
00051      IF CAT00010-LINE EQUAL TO SPACES GO TO 5199-FMT-CAT010-XIT.  RPTRTCOM
00052      MOVE CAT00010-LINE TO STDRPT-70CHR.                          RPTRTCOM
00053      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRTCOM
00054 *                                                                 RPTRTCOM
00055  5199-FMT-CAT010-XIT.                                             RPTRTCOM
00056      EXIT.                                                        RPTRTCOM
00057                                                                    RPTRTCO
00058 ***************************************************************** RPTRTCOM
00059 *                                                                 RPTRTCOM
00060 *    FORMAT CATEGORY 020 LINE                                     RPTRTCOM
00061 *        CATEGORY 020 = KEYWORD                                   RPTRTCOM
00062 *                                                                 RPTRTCOM
00063 ***************************************************************** RPTRTCOM
00064  5200-FMT-CAT020.                                                 RPTRTCOM
00065      MOVE SPACES TO CAT00020-LINE.                                RPTRTCOM
00066 *                                                                 RPTRTCOM
00067 *    FORMAT KEYWORD FIELD                                         RPTRTCOM
00068 *                                                                 RPTRTCOM
00069  5205-FMT-FLD05.                                                  RPTRTCOM
00070      MOVE FLD0002005-HCON TO FLD0002005-HDG.                      RPTRTCOM
00071      MOVE KEY-WORDS TO FLD0002005-VAL.                            RPTRTCOM
00072 *                                                                 RPTRTCOM
00073 *    FORMATTING OF CATEGORY LINE COMPLETE                         RPTRTCOM
00074 *                                                                 RPTRTCOM
00075  5210-OUTPUT-LINE.                                                RPTRTCOM
00076      MOVE CAT00020-LINE TO STDRPT-70CHR.                          RPTRTCOM
00077      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRTCOM
00078  5299-FMT-CAT020-XIT.                                             RPTRTCOM
00079      EXIT.                                                        RPTRTCOM
00080                                                                    RPTRTCO
00081 ***************************************************************** RPTRTCOM
00082 *                                                                 RPTRTCOM
00083 *    FORMAT CATEGORY 030 LINE                                     RPTRTCOM
00084 *        CATEGORY 030 = DESCRIPTION                               RPTRTCOM
00085 *                                                                 RPTRTCOM
00086 ***************************************************************** RPTRTCOM
00087  5300-FMT-CAT030.                                                 RPTRTCOM
00088      MOVE SPACES TO CAT00030-LINE.                                RPTRTCOM
00089      MOVE DESC-FLAG      TO FLD0003005-VAL.                       RPTRTCOM
00090      MOVE DESC-COMMENT   TO FLD0003010-VAL.                       RPTRTCOM
00091  5310-OUTPUT-LINE.                                                RPTRTCOM
00092      MOVE CAT00030-LINE  TO STDRPT-70CHR.                         RPTRTCOM
00093      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRTCOM
00094  5399-FMT-CAT030-XIT.                                             RPTRTCOM
00095      EXIT.                                                        RPTRTCOM
00096                                                                    RPTRTCO
00097 ***************************************************************** RPTRTCOM
00098 *                                                                 RPTRTCOM
00099 *    FORMAT CATEGORY 900 LINE                                     RPTRTCOM
00100 *        CATEGORY 900 = OTHER                                     RPTRTCOM
00101 ***************************************************************** RPTRTCOM
00102  5900-FMT-CAT900.                                                 RPTRTCOM
00103      MOVE SPACES TO CAT00900-LINE.                                RPTRTCOM
00104          MOVE DESC-FLAG     TO FLD0090005-VAL.                    RPTRTCOM
00105          MOVE DESC-COMMENT   TO FLD0090010-VAL.                   RPTRTCOM
00106  5910-OUTPUT-LINE.                                                RPTRTCOM
00107      MOVE CAT00900-LINE TO STDRPT-70CHR.                          RPTRTCOM
00108      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRTCOM
00109  5999-FMT-CAT900-XIT.                                             RPTRTCOM
00110      EXIT.                                                        RPTRTCOM
00111                                                                    RPTRTCO
