00001  IDENTIFICATION DIVISION.                                         02/07/12
00002  PROGRAM-ID.             DTSCU063.                                DTSCU063
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV004
00004  DATE-WRITTEN.           NOVEMBER 1991.                           DTSCU063
00005  DATE-COMPILED.                                                   DTSCU063
00006      SKIP3                                                        DTSCU063
00007 *****                                                             DTSCU063
00008 *                                                                 DTSCU063
00009 *    FUNCTION:  ASSIGNMENT TYPE EDIT/DESCRIPTION.                 DTSCU063
00010 *                                                                 DTSCU063
00011 *                                                                 DTSCU063
00012 *    MODIFICATION LOG:                                            DTSCU063
00013 *                                                                 DTSCU063
00014 *    11/11/98  INITIAL DEVELOPMENT.    COPIED FROM MACCU063       DTSCU063
00015 *              WORK ORDER:                      PROGRAMMER: ZL1   DTSCU063
00016 *                                                                 DTSCU063
00017 *                                                                 DTSCU063
00018 *    XX/XX/XX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCU063
00019 *              XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCU063
00020 *              WORK ORDER:                      PROGRAMMER: XXX   DTSCU063
00021 *                                                                 DTSCU063
00022 *                                                                 DTSCU063
00023 *    DESCRIPTION:                                                 DTSCU063
00024 *                                                                 DTSCU063
00025 *    DTSCU063 IS PASSED AN ASSIGN-TYPE.                           DTSCU063
00026 *    DTSCU063 DETERMINES IF THE ASSIGN-TYPE IS VALID AND          DTSCU063
00027 *    RETURNS A RESULT INDICATOR AND (IF ASSIGN-TYPE IS VALID)     DTSCU063
00028 *    L063-DATA-AREA.                                              DTSCU063
00029 *                                                                 DTSCU063
00030 *    IF ASSIGN-TYPE IS NOT VALID, RETURN SPACES IN L063-DATA-AREA,DTSCU063
00031 *    EXCEPT RETURN 'NOT VALID' IN L063-DESCRIPTION.               DTSCU063
00032 *                                                                 DTSCU063
00033 *    DTSCU063 READS A REFERENCE FILE FFAT RECORD TO DETERMINE     DTSCU063
00034 *    THE VALIDITY OF L063-TYPE AND TO FIND THE DESCRIPTION, ETC.  DTSCU063
00035 *                                                                 DTSCU063
00036 *****                                                             DTSCU063
00037      SKIP3                                                        DTSCU063
00038  ENVIRONMENT DIVISION.                                            DTSCU063
00039      SKIP3                                                        DTSCU063
00040  DATA DIVISION.                                                   DTSCU063
00041      SKIP3                                                        DTSCU063
00042  WORKING-STORAGE SECTION.                                         DTSCU063
000425 77  PAN-VALET PICTURE X(24) VALUE '004DTSCU063  02/07/12'.       DTSCU063
00043      SKIP3                                                        DTSCU063
00044  01  WRK-AREA.                                                    DTSCU063
00045      05  WRK-ABEND-CODE              PIC  X(04)  VALUE 'U063'.    DTSCU063
00046      05  WRK-RESP-CODE               PIC S9(08)  COMP.            DTSCU063
00047      EJECT                                                        DTSCU063
00048  01  L831-COMM-AREA.                                              DTSCU063
00049      05  L831-CONTROL-BLOCK.                                      DTSCU063
00050  ++INCLUDE DTSIL831                                               DTSCU063
00051      SKIP3                                                        DTSCU063
00052      05  FSKL-REC.                                                DTSCU063
00053  ++INCLUDE DTSIFSKL                                               DTSCU063
00054      SKIP3                                                        DTSCU063
00055      05  FFAT-REC REDEFINES FSKL-REC.                             DTSCU063
00056  ++INCLUDE DTSIFFAT                                               DTSCU063
00057      EJECT                                                        DTSCU063
00058  LINKAGE SECTION.                                                 DTSCU063
00059      SKIP3                                                        DTSCU063
00060  01  DFHCOMMAREA.                                                 DTSCU063
00061  ++INCLUDE DTSIL063                                               DTSCU063
00062      EJECT                                                        DTSCU063
00063  PROCEDURE DIVISION.                                              DTSCU063
00064      SKIP2                                                        DTSCU063
00065      MOVE '2' TO L063-RESULT-IND.                                 DTSCU063
00066      MOVE SPACE TO L063-DATA-AREA.                                DTSCU063
00067      MOVE +0    TO L063-DEFAULT-DUE-DAYS.                         DTSCU063
00068      MOVE 'NOT VALID' TO L063-DESCRIPTION.                        DTSCU063
00069      SKIP1                                                        DTSCU063
00070      MOVE LOW-VALUE TO FFAT-KEY-AREA.                             DTSCU063
00071      SET FFAT-FAT-88 TO TRUE.                                     DTSCU063
00072      MOVE L063-TYPE TO FFAT-TYPE.                                 DTSCU063
00073      SKIP1                                                        DTSCU063
00074      PERFORM S831-READ                                            DTSCU063
00075                 THRU                                              DTSCU063
00076              S831-EXIT.                                           DTSCU063
00077      SKIP1                                                        DTSCU063
00078      IF L831-OK-88                                                DTSCU063
00079         MOVE '1'  TO L063-RESULT-IND                              DTSCU063
00080         MOVE FFAT-DATA-AREA TO L063-DATA-AREA                     DTSCU063
00081      ELSE                                                         DTSCU063
00082      IF L831-FILE-CLOSED-88                                       DTSCU063
00083         MOVE '3'  TO L063-RESULT-IND                              DTSCU063
00084         MOVE L831-MSG-AREA TO L063-MSG-AREA.                      DTSCU063
00085      SKIP2                                                        DTSCU063
00086      EXEC CICS                                                    DTSCU063
00087          RETURN                                                   DTSCU063
00088      END-EXEC.                                                    DTSCU063
00089      SKIP2                                                        DTSCU063
00090      GOBACK.                                                      DTSCU063
00091      SKIP3                                                        DTSCU063
00092  S831-READ.                                                       DTSCU063
00093      SET L831-READ-88 TO TRUE.                                    DTSCU063
00094      GO TO S831-REF-FILE.                                         DTSCU063
00095  S831-REF-FILE.                                                   DTSCU063
00096      SKIP1                                                        DTSCU063
00097      EXEC CICS                                                    DTSCU063
00098          LINK                                                     DTSCU063
00099              PROGRAM('DTSCU831')                                  DTSCU063
00100              COMMAREA(L831-COMM-AREA)                             DTSCU063
00101      END-EXEC.                                                    DTSCU063
00102      SKIP1                                                        DTSCU063
00103  S831-EXIT.                                                       DTSCU063
00104      EXIT.                                                        DTSCU063
00105      SKIP2                                                        DTSCU063
00106 ******************  S899-ABEND NOT USED.                          DTSCU063
00107 *S899-ABEND.                                                      DTSCU063
00108 *    SKIP1                                                        DTSCU063
00109 *    EXEC CICS                                                    DTSCU063
00110 *        ABEND                                                    DTSCU063
00111 *            ABCODE (WRK-ABEND-CODE)                              DTSCU063
00112 *    END-EXEC.                                                    DTSCU063
00113 *    SKIP1                                                        DTSCU063
00114 *S899-EXIT.                                                       DTSCU063
00115 *    EXIT.                                                        DTSCU063
