*COMDECK  RPTRT65 
00001 ******************************************************************04/28/78
00002 *                                                                 RPTRT65 
00003 *        FORMAT CATEGORY 700 DETAIL LINE                             LV001
00004 *           CATEGORY 700 = PERSONNEL                              RPTRT65 
00005 *                                                                 RPTRT65 
00006 ******************************************************************RPTRT65 
00007  30000-FMT-CAT700.                                                   CL**2
00008      MOVE SPACES TO CAT65700-LINE1.                                  CL**2
00009 *                                                                 RPTRT65 
00010 *    FORMAT SECTION FIELD                                         RPTRT65 
00011 *                                                                 RPTRT65 
00012  30005-FMT-FLD05.                                                 RPTRT65 
00013      IF PERSON-UNIT EQUAL TO SPACES                               RPTRT65 
00014          GO TO 30025-FMT-FLD15.                                      CL**2
00015      MOVE FLD6570005-HCON  TO FLD6570005-HDG.                     RPTRT65 
00016      MOVE PERSON-UNIT      TO FLD6570005-VAL.                     RPTRT65 
00017  30010-OUTPUT-LN1.                                                RPTRT65 
00018      IF CAT65700-LINE1 EQUAL TO SPACES                            RPTRT65 
00019          GO TO 30025-FMT-FLD15.                                      CL**2
00020      MOVE CAT65700-LINE1 TO STDRPT-70CHR.                         RPTRT65 
00021      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT65 
00022 *                                                                 RPTRT65 
00023 *    FORMAT 2ND DETAIL LINE                                       RPTRT65 
00024 *                                                                 RPTRT65 
00025  30025-FMT-FLD15.                                                 RPTRT65 
00026      MOVE SPACES TO CAT65700-LINE2.                                  CL**2
00027      IF PERSON-PERSON EQUAL TO SPACES                             RPTRT65 
00028          GO TO 30020-FMT-FLD10.                                   RPTRT65 
00029      MOVE FLD6570015-HCON TO FLD6570015-HDG.                      RPTRT65 
00030      MOVE PERSON-PERSON   TO FLD6570015-VAL.                      RPTRT65 
00031  30020-FMT-FLD10.                                                 RPTRT65 
00032      IF PERSON-FUNC EQUAL TO SPACES                               RPTRT65 
00033          GO TO 30045-OUTPUT-LN2.                                  RPTRT65 
00034      MOVE FLD6570010-HCON TO FLD6570010-HDG.                      RPTRT65 
00035          GO TO 30030-INTERPRET-CODE.                              RPTRT65 
00036  30025-JUST-CODE.                                                 RPTRT65 
00037      MOVE PERSON-FUNC TO FLD6570010-POS1.                         RPTRT65 
00038          GO TO 30045-OUTPUT-LN2.                                  RPTRT65:  
00039  30030-INTERPRET-CODE.                                            RPTRT65 
00040      MOVE 01 TO SUB3.                                             RPTRT65 
00041  30035-NEXT-CODE-CK.                                              RPTRT65 
00042      IF FLD6570010-CODES (SUB3) EQUAL TO "9"                      RPTRT65 
00043          GO TO 30025-JUST-CODE.                                   RPTRT65 
00044      IF FLD6570010-CODES (SUB3) EQUAL TO PERSON-FUNC              RPTRT65 
00045          GO TO 30040-EXTRACT-MNG.                                 RPTRT65 
00046      ADD 1 TO SUB3.                                               RPTRT65 
00047      GO TO 30035-NEXT-CODE-CK.                                       CL**2
00048  30040-EXTRACT-MNG.                                               RPTRT65 
00049      MOVE FLD6570010-MNG (SUB3) TO FLD6570010-VAL.                RPTRT65 
00050  30045-OUTPUT-LN2.                                                RPTRT65 
00051      IF CAT65700-LINE2 EQUAL TO SPACES                            RPTRT65 
00052          GO TO 30050-FMT-FLD20.                                   RPTRT65 
00053      MOVE CAT65700-LINE2 TO STDRPT-70CHR.                         RPTRT65 
00054      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT65 
00055 *                                                                 RPTRT65 
00056 *    FORMAT 3RD DETAIL LINE                                       RPTRT65 
00057 *                                                                 RPTRT65 
00058  30050-FMT-FLD20.                                                 RPTRT65 
00059      MOVE SPACES TO CAT65700-LINE3.                                  CL**2
00060      MOVE SPACES TO CAT65700-LINE3.                                  CL**2
00061      IF PERSON-TITLE EQUAL TO SPACES                              RPTRT65 
00062          GO TO 30055-FMT-FLD25.                                   RPTRT65 
00063      MOVE FLD6570020-HCON TO FLD6570020-HDG.                      RPTRT65 
00064      MOVE PERSON-TITLE    TO FLD6570020-VAL.                      RPTRT65 
00065  30055-FMT-FLD25.                                                 RPTRT65 
00066      IF PERSON-PHONE EQUAL TO SPACES                              RPTRT65 
00067          GO TO 30060-FMT-FLD30.                                   RPTRT65 
00068      MOVE FLD6570025-HCON TO FLD6570025-HDG.                      RPTRT65 
00069      MOVE PERSON-PHONE    TO FLD6570025-VAL.                      RPTRT65 
00070  30060-FMT-FLD30.                                                 RPTRT65 
00071      IF PERSON-MAIL EQUAL TO SPACES                               RPTRT65 
00072          GO TO 30065-OUTPUT-LN3.                                  RPTRT65 
00073      MOVE FLD6570030-HCON  TO FLD6570030-HDG.                     RPTRT65 
00074      MOVE PERSON-MAIL      TO FLD6570030-VAL.                     RPTRT65 
00075  30065-OUTPUT-LN3.                                                RPTRT65 
00076      IF CAT65700-LINE3 EQUAL TO SPACES                            RPTRT65 
00077          GO TO 30070-FMT-CAT700-XIT.                              RPTRT65 
00078      MOVE CAT65700-LINE3 TO STDRPT-70CHR.                         RPTRT65 
00079      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT65 
00080  30070-FMT-CAT700-XIT.                                            RPTRT65 
00081      EXIT.                                                        RPTRT65 
00082                                                                    RPTRT65
00083 ******************************************************************RPTRT65 
00084 *                                                                 RPTRT65 
00085 *    FORMAT CATEGORY 800 DETAIL LINE                              RPTRT65 
00086 *        CATEGORY  800 = RELATIONAL                               RPTRT65 
00087 *                                                                 RPTRT65 
00088 ******************************************************************RPTRT65 
00089  30800-FMT-CAT800.                                                RPTRT65 
00090      MOVE SPACES TO CAT65800-LINE1.                                  CL**2
00091 *                                                                 RPTRT65 
00092 *    FORMAT 1ST DETAIL LINE                                       RPTRT65 
00093 *                                                                 RPTRT65 
00094      IF FIRST-REC-SW EQUAL TO "N"                                    CL**2
00095          GO TO 30804-CHECK-COMMENT.                                  CL**2
00096      MOVE "N" TO FIRST-REC-SW.                                       CL**2
00097      MOVE FLD6580005-HCON TO FLD6580005-HDG.                      RPTRT65 
00098      MOVE FLD65800US-HCON TO FLD65800US-HDG.                      RPTRT65 
00099 *    OUTPUT 1ST DETAIL LINE.                                      RPTRT65 
00100      MOVE CAT65800-LINE1 TO STDRPT-70CHR.                         RPTRT65 
00101      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT65 
00102      MOVE 1 TO PRT-CTL.                                              CL**2
00103      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00104  30804-CHECK-COMMENT.                                                CL**2
00105      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00106          GO TO 30805-FMT-FLD05.                                      CL**2
00107      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00108      GO TO 30899-FMT-CAT800-XIT.                                     CL**2
00109  30805-FMT-FLD05.                                                    CL**2
00110      MOVE SPACES TO CAT65800-LINE2.                                  CL**2
00111      IF REL-UNIT-CNAME EQUAL TO SPACES                            RPTRT65 
00112          GO TO 30810-FMT-FLD10.                                   RPTRT65 
00113      MOVE REL-UNIT-CNAME TO FLD6580005-VAL.                       RPTRT65 
00114  30810-FMT-FLD10.                                                 RPTRT65 
00115      IF REL-UNIT-PUSE EQUAL TO SPACE                              RPTRT65 
00116          GO TO 30835-OUTPUT-LN2.                                  RPTRT65 
00117      GO TO 30820-INTERPRET-CODE.                                  RPTRT65 
00118  30815-JUST-CODE.                                                 RPTRT65 
00119      MOVE REL-UNIT-PUSE TO FLD6580010-POS1.                       RPTRT65 
00120          GO TO 30835-OUTPUT-LN2.                                  RPTRT65 
00121  30820-INTERPRET-CODE.                                            RPTRT65 
00122      MOVE 01 TO SUB3.                                                CL**2
00123  30825-NEXT-CODE-CK.                                              RPTRT65 
00124      IF FLD6580010-CODES (SUB3) EQUAL TO "9"                      RPTRT65 
00125          GO TO 30815-JUST-CODE.                                   RPTRT65 
00126      IF FLD6580010-CODES (SUB3) EQUAL TO REL-UNIT-PUSE            RPTRT65 
00127          GO TO 30830-EXTRACT-MNG.                                 RPTRT65 
00128      ADD 1 TO SUB3.                                               RPTRT65 
00129      GO TO 30825-NEXT-CODE-CK.                                    RPTRT65 
00130  30830-EXTRACT-MNG.                                               RPTRT65 
00131      MOVE FLD6580010-MNG (SUB3) TO FLD6580010-VAL.                RPTRT65 
00132  30835-OUTPUT-LN2.                                                RPTRT65 
00133      IF CAT65800-LINE1 EQUAL TO SPACES                            RPTRT65 
00134          GO TO 30840-FMT-FLD20.                                   RPTRT65 
00135      MOVE CAT65800-LINE1 TO STDRPT-70CHR.                         RPTRT65 
00136      MOVE CAT-LINE TO STDRPT-LINE.                                   CL**2
00137      MOVE CAT-REV TO STDRPT-REVNO.                                   CL**2
00138      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT65 
00139 *                                                                 RPTRT65 
00140 *    FORMAT 3RD DETAIL LINE.                                      RPTRT65 
00141 *                                                                 RPTRT65 
00142  30840-FMT-FLD20.                                                 RPTRT65 
00143      MOVE SPACES TO CAT65800-LINE3.                                  CL**2
00144      IF REL-UNIT-UPDATE EQUAL TO SPACES                           RPTRT65 
00145          GO TO 30858-FMT-FLD15.                                      CL**2
00146      MOVE FLD6580020-HCON TO FLD6580020-HDG.                      RPTRT65 
00147          GO TO 30850-INTERPRET-CODE.                              RPTRT65 
00148  30845-JUST-CODE.                                                 RPTRT65 
00149      MOVE REL-UNIT-UPDATE TO FLD6580020-POS1.                     RPTRT65 
00150          GO TO 30858-FMT-FLD15.                                      CL**2
00151  30850-INTERPRET-CODE.                                            RPTRT65 
00152      MOVE 01 TO SUB3.                                             RPTRT65 
00153  30855-NEXT-CODE-CK.                                              RPTRT65 
00154      IF FLD6580020-CODES (SUB3) EQUAL TO "9"                      RPTRT65 
00155          GO TO 30845-JUST-CODE.                                   RPTRT65 
00156      IF FLD6580020-CODES (SUB3) EQUAL TO REL-UNIT-UPDATE          RPTRT65 
00157          GO TO 30857-EXTRACT-MNG.                                 RPTRT65 
00158      ADD 1 TO SUB3.                                               RPTRT65 
00159      GO TO 30855-NEXT-CODE-CK.                                    RPTRT65 
00160  30857-EXTRACT-MNG.                                               RPTRT65 
00161      MOVE FLD6580020-MNG (SUB3) TO FLD6580020-VAL.                RPTRT65 
00162  30858-FMT-FLD15.                                                    CL**2
00163      IF REL-UNIT-PERSON EQUAL TO SPACES                              CL**2
00164          GO TO 30860-OUTPUT-LN3.                                     CL**2
00165      MOVE FLD6580015-HCON TO FLD6580015-HDG.                         CL**2
00166      MOVE REL-UNIT-PERSON TO FLD6580015-VAL.                         CL**2
00167  30860-OUTPUT-LN3.                                                RPTRT65 
00168      IF CAT65800-LINE3 EQUAL TO SPACES                            RPTRT65 
00169          GO TO 30899-FMT-CAT800-XIT.                              RPTRT65 
00170      MOVE CAT65800-LINE3 TO STDRPT-70CHR.                         RPTRT65 
00171      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT65 
00172  30899-FMT-CAT800-XIT.                                            RPTRT65 
00173      EXIT.                                                        RPTRT65 
00174                                                                    RPTRT65
