* UNIVER 02.00.09 20070110 - Unicon Copyright (c) 2000 IDENTIFICATION DIVISION. PROGRAM-ID. AR07. AUTHOR. UNICON CONVERSION TECHNOLOGIES INC. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. CURSOR IS UCT-CURSOR CRT STATUS IS UCT-PFKEY-AREA. INPUT-OUTPUT SECTION. FILE-CONTROL. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. COPY FILESTAT OF PVMWS. COPY "FILESYS.DEF" OF PVMCOPY. 01 UCT-LINE PIC 9V99 EXTERNAL. 01 UCT-FONT IS HANDLE EXTERNAL. 01 WUCT-TAB PIC X. 01 UCT-COLOR PIC 99 EXTERNAL. 01 UCT-SCREEN-NAME PIC X(50) EXTERNAL. 01 UCT-GP-PROC PIC X(8) EXTERNAL. 01 UCT-GP-PROG PIC X(8) EXTERNAL. 01 UCT-REC-COUNT PIC S9(9) COMP-4. 01 UCT-RC PIC S9(9) COMP-4. 01 UCT-FILE PIC X(100). 01 UCT-STRING PIC X(500). 01 UCT-LABEL PIC X(8). 01 UCT-PRNAME PIC X(8). 01 UCT-LIBRARY PIC X(8). 01 UCT-VOLUME PIC X(6). 01 UCT-FILENAME PIC X(8). 01 UCT-NEW PIC X(8). 01 UCT-SPACE PIC 9(6). 01 UCT-AID PIC 99 COMP-X. 01 UCT-INT PIC S9(9) COMP-4. 01 WTIME PIC 9(8). 01 UCTDATE PIC 9(6). 01 UCTSDATE PIC 9(6). 01 UCTDATE4 PIC 9(8). 01 UCTSDATE4 PIC 9(8). 01 UCTDATE8 PIC 9(8). 01 UCTSDATE8 PIC 9(8). 01 WDATE PIC 9(6). 01 WDATE4 PIC 9(8). 01 WDATE8 PIC 9(8). 01 UCT-CURSOR. 03 UCT-CURSOR-ROW PIC 999. 03 UCT-CURSOR-COL PIC 999. 01 UCT-PFKEY PIC 99. 01 UCT-PFKEY-AREA. 03 UCT-PFKEY-TYPE PIC X. 03 UCT-PFKEY1 PIC 9(2) COMP-X. 03 UCT-PFKEY2 PIC 9(2) COMP-X. 01 WASKCL PIC X(0001) VALUE "N". 01 WASKDB PIC X(0001) VALUE "Y". 01 WASKIS PIC X(0001) VALUE "N". 01 WASKPT PIC X(0001) VALUE "N". 01 WASKOVER PIC X(0001) VALUE "N". 01 WRECORDS PIC S9(0008). 01 P-EOJRTN-RC PIC S9(0007). 01 P-STEP1-RC PIC S9(0007). 01 P-STEP2CL-RC PIC S9(0007). 01 P-STEP2IS-RC PIC S9(0007). 01 P-STEP2PT-RC PIC S9(0007). 01 P-STEPTOT-RC PIC S9(0007). 77 FILE-HANDLE USAGE POINTER. 01 COMPCOD PIC XX VALUE SPACES. 01 RECORD-COUNT-DIRECTORY PIC X(50) VALUE SPACES. SCREEN SECTION. 01 SCREEN01 AUTO. 05 LABEL NO-KEY-LETTER LINE 05 COL 24 VALUE "A 'Cash Final Has not been run'" BLINK . 05 LABEL NO-KEY-LETTER LINE + 02 COL 26 VALUE "COMPLETE THE FOLLOWING STEPS". 05 LABEL NO-KEY-LETTER LINE + 01 COL 21 VALUE "A) Make a note of the error message(s)". 05 LABEL NO-KEY-LETTER LINE + 01 COL 17 VALUE "B) IF the Credit Manager (AR1) is here notify". 05 LABEL NO-KEY-LETTER LINE + 02 COL 26 VALUE "C) otherwise leave a message". 05 LABEL NO-KEY-LETTER LINE + 02 COL 21 VALUE "Press return to continue this procedure" FOREGROUND-COLOR UCT-COLOR . 01 SCREEN02 AUTO. 05 LABEL NO-KEY-LETTER LINE 01 COL 01 VALUE "AR07 AGING REPORTING". 05 LABEL NO-KEY-LETTER LINE 03 COL 14 VALUE "Place an 'N' at the programs you DO NOT wish to run:". 05 ENTRY-FIELD LINES UCT-LINE LINE + 02 COL 20 3-D USING WASKDB UPPER . 05 LABEL NO-KEY-LETTER COL 22 VALUE " DB Trial Balance (Includes PT & IS) " . 05 ENTRY-FIELD LINES UCT-LINE LINE + 01 COL 20 3-D USING WASKPT UPPER . 05 LABEL NO-KEY-LETTER COL 22 VALUE " PT Provimi Freight Vendors " . 05 ENTRY-FIELD LINES UCT-LINE LINE + 01 COL 20 3-D USING WASKIS UPPER . 05 LABEL NO-KEY-LETTER COL 22 VALUE " IS Internet/Credit Card Sales " . 05 ENTRY-FIELD LINES UCT-LINE LINE + 01 COL 20 3-D USING WASKCL UPPER . 05 LABEL NO-KEY-LETTER COL 22 VALUE " Open Claims " . 05 ENTRY-FIELD LINES UCT-LINE LINE + 01 COL 20 3-D USING WASKOVER UPPER . 05 LABEL NO-KEY-LETTER COL 22 VALUE " Over 21 Report" . PROCEDURE DIVISION. P-UCT-START SECTION. *UCT procedure ar07 - daily divisional agings, over 22 days ACCEPT WS-RUN-FOLDER FROM ENVIRONMENT "VOL444". MOVE "AR07" TO UCT-GP-PROC. CALL "CLRPARMS" USING "PROC" UCT-GP-PROC. ACCEPT UCTSDATE FROM DATE. COMPUTE UCTDATE = UCTSDATE * 100.0001. ACCEPT WTIME FROM TIME. ACCEPT UCTSDATE4 FROM CENTURY-DATE. COMPUTE UCTDATE4 = UCTSDATE4 * 10000.0001. ACCEPT UCTSDATE8 FROM CENTURY-DATE. MOVE UCTDATE TO WDATE. MOVE UCTSDATE8 TO WDATE8. MOVE UCTDATE4 TO WDATE4. DISPLAY "Procedure AR07 in Progress" LINE 12 COL 25 WITH BLANK SCREEN. CALL "SET" USING "IL" "PVMMSTR" CALL "SET" USING "IV" "VOL444" CALL "SET" USING "OL" "PVMMSTR" CALL "SET" USING "OV" "VOL444" CALL "SET" USING "RL" "PVMEXEC" CALL "SET" USING "RV" "VOL444" CALL "SET" USING "WV" "VOL333" CALL "SET" USING "SL" "SPOOLLIB" CALL "SET" USING "SV" "VOL222" CALL "SET" USING "FC" "P" CALL "SET" USING "PM" "K" CALL "SET" USING "PC" "X" CALL "SET" USING "PR" "000" CALL "SET" USING "LI" "060". MOVE "Y" TO WASKDB. MOVE "N" TO WASKPT. MOVE "N" TO WASKIS. MOVE "N" TO WASKCL. MOVE "N" TO WASKOVER. MOVE SPACES TO WS-FIND-FILE. STRING WS-RUN-FOLDER "\PVMMSTR\AR03" INTO WS-FIND-FILE. CALL "C$FILEINFO" USING WS-FIND-FILE, FILE-INFO, GIVING STATUS-CODE. MOVE SPACES TO RECORD-COUNT-DIRECTORY. STRING WS-RUN-FOLDER "\PVMMSTR\AR03" INTO RECORD-COUNT-DIRECTORY. SET OPEN-FUNCTION TO TRUE. MOVE Finput TO OPEN-MODE. CALL "I$IO" USING IO-FUNCTION, RECORD-COUNT-DIRECTORY OPEN-MODE LOGICAL-INFO. IF RETURN-CODE = ZERO DISPLAY MESSAGE "Could not open file, error code = " F-ERRNO. MOVE RETURN-CODE TO FILE-HANDLE. SET INFO-FUNCTION TO TRUE. SET GET-RECORD-COUNT TO TRUE. CALL "I$IO" USING IO-FUNCTION, FILE-HANDLE, INFO-MODE, RECORD-COUNT-INFO. SET CLOSE-FUNCTION TO TRUE. CALL "I$IO" USING IO-FUNCTION, FILE-HANDLE. IF NUMBER-OF-RECORDS = 0 GO TO P-STEP1. DISPLAY ' ' WITH BLANK SCREEN LINE 1 COL 1 DISPLAY SCREEN01 ACCEPT OMITTED LINE 1 COL 1 MOVE UCT-PFKEY1 TO UCT-PFKEY IF UCT-PFKEY = 48 MOVE ZEROES TO UCT-PFKEY. P-STEP1. MOVE "AR1300" TO UCT-GP-PROG MOVE ZEROES TO UCT-AID MOVE " " TO UCT-LABEL MOVE 01 TO UCT-INT * CALL "PUTPARM" USING "ENTER " * "AR06 " UCT-INT * "RECORDS " "1" " " * UCT-AID UCT-LABEL UCT-RC. MOVE "AR1300" TO UCT-FILENAME MOVE " " TO UCT-LIBRARY MOVE " " TO UCT-VOLUME CALL "UCTOPEN" USING "RUN " "P" UCT-PRNAME UCT-FILENAME UCT-LIBRARY UCT-VOLUME UCT-SPACE UCT-FILE CALL UCT-FILE MOVE RETURN-CODE TO P-STEP1-RC MOVE ZEROES TO RETURN-CODE. CANCEL ALL. MOVE "AR07" TO UCT-GP-PROC. MOVE SPACES TO UCT-SCREEN-NAME. IF P-STEP1-RC > 0 GO TO P-EOJRTN. MOVE "SCRATCH" TO UCT-GP-PROG MOVE "DBAGING0" TO UCT-FILENAME MOVE "SPOOLLIB" TO UCT-LIBRARY MOVE "VOL222" TO UCT-VOLUME CALL "SCRATCH" USING "F" UCT-FILENAME UCT-LIBRARY UCT-VOLUME " " " " UCT-RC MOVE RETURN-CODE TO P-STEP1-RC MOVE ZEROES TO RETURN-CODE. MOVE "SCRATCH" TO UCT-GP-PROG MOVE "ISAGING0" TO UCT-FILENAME MOVE "SPOOLLIB" TO UCT-LIBRARY MOVE "VOL222" TO UCT-VOLUME CALL "SCRATCH" USING "F" UCT-FILENAME UCT-LIBRARY UCT-VOLUME " " " " UCT-RC MOVE RETURN-CODE TO P-STEP1-RC MOVE ZEROES TO RETURN-CODE. MOVE "SCRATCH" TO UCT-GP-PROG MOVE "PTAGING0" TO UCT-FILENAME MOVE "SPOOLLIB" TO UCT-LIBRARY MOVE "VOL222" TO UCT-VOLUME CALL "SCRATCH" USING "F" UCT-FILENAME UCT-LIBRARY UCT-VOLUME " " " " UCT-RC MOVE RETURN-CODE TO P-STEP1-RC MOVE ZEROES TO RETURN-CODE. MOVE "SCRATCH" TO UCT-GP-PROG MOVE "OPENCLA0" TO UCT-FILENAME MOVE "SPOOLLIB" TO UCT-LIBRARY MOVE "VOL222" TO UCT-VOLUME CALL "SCRATCH" USING "F" UCT-FILENAME UCT-LIBRARY UCT-VOLUME " " " " UCT-RC MOVE RETURN-CODE TO P-STEP1-RC MOVE ZEROES TO RETURN-CODE. DISPLAY ' ' WITH BLANK SCREEN LINE 1 COL 1 DISPLAY SCREEN02 ACCEPT SCREEN02 MOVE UCT-PFKEY1 TO UCT-PFKEY IF UCT-PFKEY = 48 MOVE ZEROES TO UCT-PFKEY. P-STEPTOT. IF WASKDB = "N" GO TO P-STEP2IS. SET ENVIRONMENT compcod to "DB". MOVE "AR0710" TO UCT-GP-PROG MOVE ZEROES TO UCT-AID MOVE " " TO UCT-LABEL MOVE 01 TO UCT-INT * CALL "PUTPARM" USING "ENTER " * "ACCEPT " UCT-INT * "COMPCODE" "DB" " " * UCT-AID UCT-LABEL UCT-RC. MOVE ZEROES TO UCT-AID MOVE " " TO UCT-LABEL MOVE 01 TO UCT-INT MOVE "AR0710" TO UCT-FILENAME MOVE " " TO UCT-LIBRARY MOVE " " TO UCT-VOLUME CALL "UCTOPEN" USING "RUN " "P" UCT-PRNAME UCT-FILENAME UCT-LIBRARY UCT-VOLUME UCT-SPACE UCT-FILE CALL UCT-FILE MOVE RETURN-CODE TO P-STEPTOT-RC MOVE ZEROES TO RETURN-CODE. CANCEL ALL. MOVE "AR07" TO UCT-GP-PROC. MOVE SPACES TO UCT-SCREEN-NAME. P-STEP2IS. IF WASKIS = "N" GO TO P-STEP2PT. MOVE "AR0710" TO UCT-GP-PROG MOVE ZEROES TO UCT-AID MOVE " " TO UCT-LABEL MOVE 01 TO UCT-INT CALL "PUTPARM" USING "ENTER " "ACCEPT " UCT-INT "COMPCODE" "IS" " " UCT-AID UCT-LABEL UCT-RC. MOVE ZEROES TO UCT-AID MOVE " " TO UCT-LABEL MOVE 01 TO UCT-INT CALL "PUTPARM" USING "ENTER " "PRINTER " UCT-INT "COPIES " "1" " " UCT-AID UCT-LABEL UCT-RC. MOVE "AR0710" TO UCT-FILENAME MOVE " " TO UCT-LIBRARY MOVE " " TO UCT-VOLUME CALL "UCTOPEN" USING "RUN " "P" UCT-PRNAME UCT-FILENAME UCT-LIBRARY UCT-VOLUME UCT-SPACE UCT-FILE CALL UCT-FILE MOVE RETURN-CODE TO P-STEP2IS-RC MOVE ZEROES TO RETURN-CODE. CANCEL ALL. MOVE "AR07" TO UCT-GP-PROC. MOVE SPACES TO UCT-SCREEN-NAME. P-STEP2PT. IF WASKPT = "N" GO TO P-STEP2CL. MOVE "AR0710" TO UCT-GP-PROG MOVE ZEROES TO UCT-AID MOVE " " TO UCT-LABEL MOVE 01 TO UCT-INT CALL "PUTPARM" USING "ENTER " "ACCEPT " UCT-INT "COMPCODE" "PT" " " UCT-AID UCT-LABEL UCT-RC. MOVE ZEROES TO UCT-AID MOVE " " TO UCT-LABEL MOVE 01 TO UCT-INT CALL "PUTPARM" USING "ENTER " "PRINTER " UCT-INT "COPIES " "1" " " UCT-AID UCT-LABEL UCT-RC. MOVE "AR0710" TO UCT-FILENAME MOVE " " TO UCT-LIBRARY MOVE " " TO UCT-VOLUME CALL "UCTOPEN" USING "RUN " "P" UCT-PRNAME UCT-FILENAME UCT-LIBRARY UCT-VOLUME UCT-SPACE UCT-FILE CALL UCT-FILE MOVE RETURN-CODE TO P-STEP2PT-RC MOVE ZEROES TO RETURN-CODE. CANCEL ALL. MOVE "AR07" TO UCT-GP-PROC. MOVE SPACES TO UCT-SCREEN-NAME. P-STEP2CL. IF WASKCL = "N" GO TO P-STEPOVER. MOVE "AR0511" TO UCT-GP-PROG MOVE ZEROES TO UCT-AID MOVE " " TO UCT-LABEL MOVE 01 TO UCT-INT CALL "PUTPARM" USING "ENTER " "ACCEPT " UCT-INT "COMPCODE" "DB" " " UCT-AID UCT-LABEL UCT-RC. MOVE ZEROES TO UCT-AID MOVE " " TO UCT-LABEL MOVE 01 TO UCT-INT CALL "PUTPARM" USING "ENTER " "PRINTER " UCT-INT "COPIES " "1" " " UCT-AID UCT-LABEL UCT-RC. MOVE "AR0511" TO UCT-FILENAME MOVE " " TO UCT-LIBRARY MOVE " " TO UCT-VOLUME CALL "UCTOPEN" USING "RUN " "P" UCT-PRNAME UCT-FILENAME UCT-LIBRARY UCT-VOLUME UCT-SPACE UCT-FILE CALL UCT-FILE MOVE RETURN-CODE TO P-STEP2CL-RC MOVE ZEROES TO RETURN-CODE. CANCEL ALL. MOVE "AR07" TO UCT-GP-PROC. MOVE SPACES TO UCT-SCREEN-NAME. P-STEPOVER. IF WASKOVER = "N" GO TO P-EOJRTN. MOVE "AR051521" TO UCT-GP-PROG MOVE ZEROES TO UCT-AID MOVE " " TO UCT-LABEL MOVE 01 TO UCT-INT CALL "PUTPARM" USING "ENTER " "ACCEPT " UCT-INT "COMPCODE" "DB" " " UCT-AID UCT-LABEL UCT-RC. MOVE ZEROES TO UCT-AID MOVE " " TO UCT-LABEL MOVE 01 TO UCT-INT CALL "PUTPARM" USING "ENTER " "PRINTER " UCT-INT "COPIES " "1" " " UCT-AID UCT-LABEL UCT-RC. MOVE "AR051521" TO UCT-FILENAME MOVE " " TO UCT-LIBRARY MOVE " " TO UCT-VOLUME CALL "UCTOPEN" USING "RUN " "P" UCT-PRNAME UCT-FILENAME UCT-LIBRARY UCT-VOLUME UCT-SPACE UCT-FILE CALL UCT-FILE MOVE RETURN-CODE TO P-STEP2CL-RC MOVE ZEROES TO RETURN-CODE. CANCEL ALL. MOVE "AR07" TO UCT-GP-PROC. MOVE SPACES TO UCT-SCREEN-NAME. P-EOJRTN. CALL "SET" USING "PC" "X" CALL "SET" USING "FN" "100" CALL "SET" USING "PR" "000". CALL "SET" USING "SV" "VOL222" CALL "SET" USING "PM" "H". MOVE "SCRATCH" TO UCT-GP-PROG MOVE "AR06" TO UCT-FILENAME MOVE "PVMMSTR" TO UCT-LIBRARY MOVE "VOL444" TO UCT-VOLUME CALL "SCRATCH" USING "F" UCT-FILENAME UCT-LIBRARY UCT-VOLUME " " " " UCT-RC MOVE RETURN-CODE TO P-EOJRTN-RC MOVE ZEROES TO RETURN-CODE. P-END-STEP1. EXIT PROGRAM STOP RUN. P-UCT-EXIT. EXIT PROGRAM. STOP RUN.