*COMDECK  FLDFIND 
00001                                                                    FLDFIND
00002 ************************************************************      FLDFIND 
00003 *    BUILD FIELD LOCATION TABLE                                      LV002
00004 *        SEARCH FIELD NAMES IN MAST3 AND STORE                    FLDFIND 
00005 *        TABLE DEFINITIONS FOR ALL OCCURRENCES OF THE FIELD.      FLDFIND 
00006 *                                                                 FLDFIND 
00007 *****************************************************             FLDFIND 
00008  BUILD-LOC-TABLE.                                                 FLDFIND 
00009      MOVE "N" TO FFT-DONE-SW.                                     FLDFIND 
00010      MOVE 1 TO FSUB1.                                             FLDFIND 
00011      MOVE "F" TO CON-ENTRY-FUNCTION.                                 CL**2
00012      PERFORM CON-READ THRU CON-READ-XIT.                             CL**2
00013      MOVE CTL-RECORD-5 TO FIELD-TABLE.                               CL**2
00014  BLT-1ST-FLD.                                                     FLDFIND 
00015      MOVE 1 TO FSUB2.                                             FLDFIND 
00016  BLT-MATCH-FLD.                                                   FLDFIND 
00017      IF RTBL-HDR-IDXFNAME EQUAL TO FLD-NAME (FSUB2)               FLDFIND 
00018          GO TO BLT-TBL-DEF.                                       FLDFIND 
00019  BLT-NEXT-FLD.                                                       CL**2
00020      ADD 1 TO FSUB2.                                              FLDFIND 
00021      IF FLD-NAME (FSUB2) EQUAL SPACES                                CL**2
00022          GO TO BLT-NEXT-MAST3.                                       CL**2
               IF FSUB2 GREATER THAN 30 
00024          GO TO BLT-NEXT-MAST3.                                    FLDFIND 
00025      GO TO BLT-MATCH-FLD.                                         FLDFIND 
00026  BLT-NEXT-MAST3.                                                  FLDFIND 
00027      PERFORM READ-NEXT-FIELD THRU READ-NEXT-FIELD-XIT.            FLDFIND 
00028      IF CON-RETURN-CODE NOT EQUAL "3"                             FLDFIND 
00029          GO TO BLT-1ST-FLD.                                       FLDFIND 
00030      GO TO BLT-CHECK-ALIAS.                                       FLDFIND 
00031  BLT-TBL-DEF.                                                     FLDFIND 
           MOVE CON-KEY-LAST TO FFT-CTL-KEY (FSUB1).
00033      MOVE FLD-ENTRY TO FFT-ENTTYPE (FSUB1).                       FLDFIND 
00034      MOVE FLD-CATEGORY TO FFT-CATEGORY (FSUB1).                      CL**2
00035      MOVE FLD-FIELD (FSUB2) TO FFT-ENTRY (FSUB1).                 FLDFIND 
00036      ADD 1 TO FSUB1.                                              FLDFIND 
00037      MOVE SPACES TO FFT-ENTTYPE (FSUB1).                          FLDFIND 
00038      IF FFT-DONE-SW EQUAL "Y"                                        CL**2
00039          GO TO BUILD-LOC-TABLE-XIT.                                  CL**2
00040      GO TO BLT-NEXT-FLD.                                             CL**2
00041 *                                                                 FLDFIND 
00042 *    PROCESS FIELDS WHICH CAN ALIASES                             FLDFIND 
00043 *        IF THE REPORT IS ON DATANAME, SYMBOL, FORMAT             FLDFIND 
00044 *        OR ANY OTHER FIELD THAT CAN ALSO BE DEFINED IN           FLDFIND 
00045 *        ELE ALIAS CAT THEN INCLUDE ALIAS CAT DEF IN TABLE ALSO   FLDFIND 
00046 *        TWO STEPS ARE INVOLVED-1. CHECK TBL TO SEE IF            FLDFIND 
00047 *        FIELD IS ONE THA T CAN HAVE ALIAS DEF AND IF SO          FLDFIND 
00048 *         2. LOOKUP ALIAS LOC IN MAST3                            FLDFIND 
00049 *                                                                 FLDFIND 
00050  BLT-CHECK-ALIAS.                                                 FLDFIND 
00051      MOVE FFT-HEADER (1) TO FLDNAM1-5.                               CL**2
00052      MOVE FFT-ID (1) TO FLDNAM6-7.                                FLDFIND 
00053      MOVE 1 TO FSUB3.                                             FLDFIND 
00054  BLT-LOOKUP.                                                      FLDFIND 
00055      IF FLDNAME-HOLD EQUAL TO STD-ELE-NAME (FSUB3)                FLDFIND 
00056          GO TO BLT-FIND-ALIAS-DEF.                                FLDFIND 
00057      ADD 1 TO FSUB3.                                              FLDFIND 
               IF FSUB3 GREATER THAN 12 
00059          GO TO BUILD-LOC-TABLE-XIT.                                  CL**2
00060      GO TO BLT-LOOKUP.                                            FLDFIND 
00061  BLT-FIND-ALIAS-DEF.                                              FLDFIND 
00062          MOVE ALI-ENTNO (FSUB3) TO CON-ENTRY-TYPE.                   CL**2
00063      MOVE ALI-CATNO (FSUB3) TO CON-ENTRY-CAT.                        CL**2
00064      PERFORM READ-FIELD-TABLE THRU READ-FIELD-TABLE-XIT.             CL**2
00065      MOVE 1 TO FSUB2.                                             FLDFIND 
00066  BLT-FAD.                                                         FLDFIND 
00067      IF ALI-FLDNO (FSUB3) EQUAL FLD-ID (FSUB2)                       CL**2
00068          MOVE "Y" TO FFT-DONE-SW                                  FLDFIND 
00069          GO TO BLT-TBL-DEF.                                       FLDFIND 
00070      ADD 1 TO FSUB2.                                              FLDFIND 
00071      GO TO BLT-FAD.                                               FLDFIND 
00072  BUILD-LOC-TABLE-XIT.                                             FLDFIND 
00073      EXIT.                                                        FLDFIND 
