IDENTIFICATION DIVISION. PROGRAM-ID. IMGEVIEW-CBL. DATE-WRITTEN. 05/23/01. REMARKS. * * SPARAK System Image View Display. * ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. Switch-1 ON status is DEMO-MODE COPY "MSXML50.DEF". V.25.01 COPY "WebClient". V.25.01 . V.25.01 *INPUT-OUTPUT SECTION. FILE-CONTROL. * Input: SELECT TXT2FILE ASSIGN to DISC TXT2FILE-ID V.25.02 ORGANIZATION IS LINE SEQUENTIAL V.25.02 FILE STATUS IS FS-FILESTAT. V.25.02 SELECT TXT3FILE ASSIGN to DISC TXT3FILE-ID V.25.03 ORGANIZATION IS LINE SEQUENTIAL V.25.03 FILE STATUS IS FS-FILESTAT. V.25.03 * Output: SELECT WIMGEVIEW ASSIGN TO DISC WIMGEVIEW-ID ORGANIZATION IS LINE SEQUENTIAL FILE STATUS IS FS-FILESTAT. * SELECT TXT2FLDS ASSIGN to DISC TXT2FLDS-ID V.25.02 ORGANIZATION IS LINE SEQUENTIAL V.25.02 FILE STATUS IS FS-FILESTAT. V.25.02 SELECT TXT3FLDS ASSIGN to DISC TXT3FLDS-ID V.25.03 ORGANIZATION IS LINE SEQUENTIAL V.25.03 FILE STATUS IS FS-FILESTAT. V.25.03 * SELECT XMLFILE1 ASSIGN TO DISC XMLFILE1-ID V.28.01 ORGANIZATION IS LINE SEQUENTIAL FILE STATUS IS XMLFILE1-STATUS. SELECT XMLFILE2 ASSIGN TO DISC XMLFILE2-ID ORGANIZATION IS LINE SEQUENTIAL FILE STATUS IS XMLFILE2-STATUS. V.28.01 DATA DIVISION. FILE SECTION. * FD TXT2FILE RECORD CONTAINS 1 TO 128 CHARACTERS V.25.02 LABEL RECORDS ARE STANDARD. V.25.02 01 TXT2FILE-REC pic x(128). V.25.02 01 TXT2FILE-CHAR pic x(1) occurs 128 times. V.25.02 * FD TXT3FILE RECORD CONTAINS 1 TO 128 CHARACTERS V.25.03 LABEL RECORDS ARE STANDARD. V.25.03 01 TXT3FILE-REC pic x(128). V.25.03 01 TXT3FILE-CHAR pic x(1) occurs 128 times. V.25.03 * FD WIMGEVIEW RECORD CONTAINS 1 TO 512 CHARACTERS LABEL RECORDS ARE STANDARD. 01 WIMGEVIEW-REC001 PIC X(001). 01 WIMGEVIEW-REC128 PIC X(128). 01 WIMGEVIEW-REC256 PIC X(256). 01 WIMGEVIEW-REC512 PIC X(512). 01 WIMGEVIEW-PARAMS. 02 WIMGEVIEW-P-FLAG PIC X(1). 02 WIMGEVIEW-P-DL01 PIC X(1). 02 WIMGEVIEW-P-ACCT PIC 9(10). 02 WIMGEVIEW-P-DL02 PIC X(1). 02 WIMGEVIEW-P-CHECK PIC 9(8). V.13.03 02 WIMGEVIEW-P-DL03 PIC X(1). 02 WIMGEVIEW-P-AMOUNT PIC X(13). V.16.03 02 WIMGEVIEW-P-DL04 PIC X(1). 02 WIMGEVIEW-P-TRACE PIC 9(18). V.13.02 02 WIMGEVIEW-P-DL05 PIC X(1). 02 WIMGEVIEW-P-DRCR PIC X(1). 02 WIMGEVIEW-P-DL06 PIC X(1). 02 WIMGEVIEW-P-ROUTNUM PIC 9(9). 02 WIMGEVIEW-P-DL07 PIC X(1). 02 WIMGEVIEW-P-DATE1 PIC 9(8). 02 WIMGEVIEW-P-DL08 PIC X(1). 02 WIMGEVIEW-P-DATE2 PIC 9(8). 02 WIMGEVIEW-P-DL09 PIC X(1). 02 WIMGEVIEW-P-IPADDR PIC X(15). 02 WIMGEVIEW-P-DL10 PIC X(1). 02 WIMGEVIEW-P-DOCTYPE PIC X(3). 02 WIMGEVIEW-P-DL11 PIC X(1). 02 WIMGEVIEW-P-SSN PIC 9(9). 02 WIMGEVIEW-P-DL12 PIC X(1). 02 WIMGEVIEW-P-BANKID PIC 9(6). V.10.02 02 WIMGEVIEW-P-DL13 PIC X(1). V.10.02 02 WIMGEVIEW-P-APPL PIC 9(2). V.11.02 02 WIMGEVIEW-P-DL14 PIC X(1). V.11.02 * 02 WIMGEVIEW-P-BROKER PIC X(30). V.11.03 V.16.01 02 WIMGEVIEW-P-ANC PIC X(40). V.16.01 02 WIMGEVIEW-P-DL15 PIC X(1). V.11.03 02 WIMGEVIEW-P-VENDOR PIC X(30). V.11.05 02 WIMGEVIEW-P-DL16 PIC X(1). V.11.05 02 WIMGEVIEW-P-TRANID PIC 9(14). V.13.01 02 WIMGEVIEW-P-DL17 PIC X(1). V.13.02 02 WIMGEVIEW-P-OLDACCT PIC 9(10). V.16.01 02 WIMGEVIEW-P-DL18 PIC X(1). V.16.01 02 WIMGEVIEW-P-SSNX PIC X(11). V.19.01 02 WIMGEVIEW-P-DL19 PIC X(1). V.19.01 * 02 WIMGEVIEW-P-ANC PIC X(40). V.16.01 * 02 WIMGEVIEW-P-DL19 PIC X(1). V.16.01 * FD TXT2FLDS RECORD CONTAINS 1 TO 128 CHARACTERS V.25.02 LABEL RECORDS ARE STANDARD. V.25.02 01 TXT2FLDS-REC pic x(128). V.25.02 01 TXT2FLDS-CHAR pic x(1) occurs 128 times. V.25.02 FD TXT3FLDS RECORD CONTAINS 1 TO 128 CHARACTERS V.25.03 LABEL RECORDS ARE STANDARD. V.25.03 01 TXT3FLDS-REC pic x(128). V.25.03 01 TXT3FLDS-CHAR pic x(1) occurs 128 times. V.25.03 FD XMLFILE1 RECORD CONTAINS 500000 CHARACTERS V.28.01 LABEL RECORDS ARE STANDARD. 01 XMLFILE1-REC pic x(500000). FD XMLFILE2 RECORD CONTAINS 500000 CHARACTERS LABEL RECORDS ARE STANDARD. 01 XMLFILE2-REC pic x(500000). V.28.01 * * WORKING-STORAGE SECTION. 01 PROGRAM-NAME pic x(20) value "IMGEVIEW.CBL V.28.02". * CVS Revision Number: CVS replaces Revision with * the actual revision #. Do not change this line. 01 CVS-REVISION PIC X(30) VALUE "$Revision: 1.25 $". * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.28.01 04-20-20 GIL 36796 Newly implemented for ECM * document retrival. * V.28.00 09-04-19 RJE Release 28 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.27.02 11-15-19 ADM 36691 To fix Arcimage Key Word for SSN doc type * V.27.01 11-07-19 ADM 36684 To fix Arcimage doc types for CIF appl * V.27.00 11-29-18 DFH Release 27 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.26.13 06-13-19 ADM 36572 Put enough parameters for AVCM check URL * V.26.12 05-03-19 ADM 36522 Handle Loans statement AL instead ALN * number from Summit URL * V.26.11 03-08-19 ADM 36504 Remove zeroes in tracenumber and check * number from Summit URL * V.26.10 03-08-19 ADM 36473 Populate old acct number for old arcimage * V.26.09 02-27-19 ADM 36456 Hanlde URL size > 200 for AVCM retrieval * V.26.08 09-21-18 ADM 36403 Add New Vendor Arcimage/onbase to * Img Retrieval * V.26.07 01-02-19 ADM 36416 Included check and trace in AVCM URL call * V.26.06 11-27-18 SMS 36388 Increase listbox max and cleanup tmp files * V.26.05 10-23-18 ADM 36341 WBKID-KENMARE-ND, to display Checks in * deposits * V.26.04 07-25-18 ADM 36306 Check image resize, show image in IE * for WBKID-MADISON-GA * V.26.03 07-25-18 ADM 36259 Add New Vendor AVCM to Img Retrieval * V.26.02 07-25-18 ADM 36252 Show checks that makes deposits AVIP * V.26.01 11-08-17 JAJ 36006 Remove deconverted bank mods * V.26.00 11-07-17 JAJ Release 26 Version * ------- -------- --- ----- ----------------------------------------- * V.25.08 04-19-18 ARA 36171 Add New Vendor Genesys and IBT for * Img Retrieval * V.25.07 03-09-18 ADM 36133 Remove acct from AVIP URL when trace ther * V.25.06 01-10-18 SMS 36071 Added Genesys and IBT * V.25.05 12-19-17 SMS 36061 zero fill option acct number * V.25.04 09-05-17 SMS 35934 Add Print Feature * V.25.03 06-14-17 SMS 35868 AVIP stmt display * V.25.02 05-17-17 SMS 35756 Add url text for in house use * V.25.01 03-22-17 SMS 35616 Add New Image Retrieval option * V.25.00 08-12-16 JAJ Release 25 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.24.00 10-06-15 JAJ Release 24 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.23.00 04-30-14 JAJ Release 23 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.22.00 11-20-13 JAJ Release 22 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.21.00 09-06-12 JAJ Release 21 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.20.01 05-23-13 dps 32488 Fix for vendor ID for documents images * V.20.00 09-20-11 JAJ Release 20 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.19.01 12-05-11 RJE 31018 Added formatted SSN * V.19.00 01-20-09 JAJ Release 18 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.18.01 05-24-10 RJE 29117 Martin KY mod to set vendor to checkquest * V.18.00 02-23-10 JAJ Release 18 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.17.01 11-17-09 DPS 28416 selection of either check or document * image parameter value to pass to .dat file * V.17.00 01-25-08 JAJ Release 17 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.16.03 05-18-09 CJS 27561 Change to length of Amount field * V.16.02 07-30-08 RJE 26354 Fill Anc field with F106(Anc) and Routnum * field with F7 (FRABA#) of System Params * V.16.01 07-24-07 RJE 23859 Image View project * V.16.00 01-19-07 JAJ Release 16 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.15.01 03-24-08 RJE 25764 Use DR/CR flag when setting DR/CR field * V.15.00 05-26-06 JAJ Release 15 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.14.01 07-24-06 LDP 21764 New version WORKDATA.WSC - V.14.05 * V.14.00 07-27-05 DFH Release 14 Version * ------- -------- --- ----- ----------------------------------------- * * Version Date Prg QA# Mod Description * ------- -------- --- ----- ----------------------------------------- * V.13.03 06-28-05 DFH 19787 Increase Check# to 8 digits * V.13.02 03-08-05 JAJ 16683 CHG V.13.01 TO HAVE ONLY 1 TRACER FLD * V.13.01 01-18-05 DFH 16683 Add 'checkquest' * ------- -------- --- ----- ----------------------------------------- * V.12.00 11-10-03 DFH Release 12 Version * ------- -------- --- ----- ----------------------------------------- * * * Version Date Prg - Mod Description * ------- -------- --- - --------------------------------------- * V.11.05 11-03-03 DFH - Vendor Name transition #15076 * V.11.04 02-19-03 DFH - Add "imagestar" vendor #4 * V.11.03 09-30-02 DFH - Add Broker to ImageView file #12830 * V.11.02 09-30-02 DFH - Add Application to ImageView file #12830 * V.11.01 09-06-02 DFH - Change Image Variable name #12830 * V.11.00 07-29-02 DFH - Release 11 Version * ------- -------- --- - --------------------------------------- * V.10.04 09-16-02 DFH - Add Terminal Server variables * V.10.03 05-13-02 DFH - Correct 'Flag' * V.10.02 05-09-02 DFH - Misc Changes * V.10.01 05-23-01 DFH - Program Creation * ------- -------- --- - --------------------------------------- * 01 WIMGEVIEW-ID pic x(80). 01 XMLTMPIN-ID pic x(80). V.25.02 01 TXT2FILE-ID pic x(80). V.25.02 01 TXT2FLDS-ID pic x(80). V.25.02 01 TXT3FILE-ID pic x(80). V.25.03 01 TXT3FLDS-ID pic x(80). V.25.03 01 XMLPRSTR-ID pic x(80). V.26.06 * Constants: V.25.02 * V.25.02 01 WS-DPTH-COL pic 9(2) value 01. | Depth V.25.02 01 WS-TYPE-COL pic 9(2) value 06. | Type V.25.02 01 WS-DATA-COL pic 9(2) value 09. | Data V.25.02 * Miscellaneous: V.25.02 *01 WEDIT-AMOUNT pic 9999999.99. V.16.03 01 WEDIT-AMOUNT pic 9999999999.99. V.16.03 * File Info Group: V.10.02 01 WFile-Info. V.10.02 02 WFile-Size pic x(8) comp-x. V.10.02 02 WFile-Date pic 9(8) comp-x. V.10.02 02 WFile-Time pic 9(8) comp-x. V.10.02 01 WExit-Status pic S9(3). V.10.02 * Messaging variables: 01 WIMGEVIEW-PROG pic x(12). 01 WIMGEVIEW-Sub pic 9(2). * 01 WHold-WB-ID pic 9(3) value 001. V.25.01 01 WHold-GD-List-ID pic 9(3) value 070. V.28.01 01 WHold-EF-URL-ID pic 9(3) value 150. V.25.02 01 WHold-PB-ViewTran-ID pic 9(3) value 175. V.25.02 01 WHold-PB-ViewStmt-ID pic 9(3) value 177. V.25.03 01 WHold-PB-Trans-ID pic 9(3) value 185. V.25.02 01 WHold-PB-ViewOld-ID pic 9(3) value 190. V.25.06 01 WHold-RB-Front-ID pic 9(3) value 200. V.25.01 01 WHold-RB-Back-ID pic 9(3) value 300. V.25.01 01 WHold-PB-Print-ID pic 9(3) value 970. V.25.04 01 WHold-PB-Exit-ID pic 9(3) value 990. V.25.01 * * Window Help ID's 01 WWin-Help-Main pic 9(8) value 00999999. V.25.01 01 WWin-Help-Detail pic 9(8) value 00999999. V.25.01 * 01 WS-ORIG-ACCT pic 9(10). V.25.06 01 WS-ORIG-OLDACCT pic 9(10). V.25.06 01 WS-STMT-OLDNUM-LOOKUP pic x value "N". V.25.06 01 WS-EDIT-DATE pic 99/99/9999. V.25.04 01 WS-EDIT-Z18 pic zzzzzzzzzzzzzzzzz9. V.25.04 01 WS-EDIT-AMT-Z pic ZZZ,ZZZ,ZZZ.99. V.25.04 01 WS-EDIT-Z8 pic zzzzzzz9. V.25.04 01 WS-EDIT-Z14 pic zzzzzzzzzzzzz9. V.25.04 01 WS-AMT-DATA pic x(19). V.25.04 01 WS-CHECK-DATA pic x(15). V.25.04 01 WS-TRACE-DATA pic x(25). V.25.04 01 WS-POSTDT-DATA pic x(21). V.25.04 01 WS-EFFDT-DATA pic x(20). V.25.04 01 WS-TRAN-DATA pic x(23). V.25.04 01 WS-EDIT-ACCTSNAC pic 99B999999B99. V.25.01 01 WS-ACCT-HEADING. 03 WS-AH-APPLDESC pic x(3). V.25.01 03 filler pic x(2). V.25.01 03 WS-AH-ACCT pic x(12). V.25.01 03 filler pic x(4). V.25.04 03 WS-AH-DATA pic x(150). V.25.04 * 01 WSTC-TRANCODE pic 9(3). V.25.01 * DDA valid Credits V.25.01 88 WSTC-CREDITS VALUE 01 thru 24 V.25.01 50 thru 74 V.25.01 100 thru 499. V.25.01 * DDA valid Debits V.25.01 88 WSTC-DEBITS VALUE 25 thru 49 V.25.01 75 thru 99 V.25.01 500 thru 899. V.25.01 * 01 WS-Curr-Type pic x(1). V.25.02 88 WS-Curr-Type-ROOT value "R". V.25.02 88 WS-Curr-Type-ATTRIBUTE value "A". V.25.02 88 WS-Curr-Type-1stCHILD value "1". V.25.02 88 WS-Curr-Type-SIBLING value "2". V.25.02 01 WS-Prev-Type pic x(1). V.25.02 88 WS-Prev-Type-ROOT value "R". V.25.02 88 WS-Prev-Type-ATTRIBUTE value "A". V.25.02 88 WS-Prev-Type-1stCHILD value "1". V.25.02 88 WS-Prev-Type-SIBLING value "2". V.25.02 88 WS-Prev-Type-INIT value "X". V.25.02 01 WS-Curr-Depth pic 9(4). V.25.02 01 WS-Prev-Depth pic 9(4). V.25.02 01 WS-SPARAK-Field pic 9(4). V.25.02 01 WS-ElemAttrib-Name pic x(100). V.25.02 01 WS-ElemAttrib-Data pic x(150). V.25.02 01 WS-Hold-FRABA pic 9(9). V.25.02 01 WS-HIDDEN-DATA pic x(13). V.28.01 01 WS-HIDDEN-SAVE pic x(13). V.28.01 01 WS-First-ID pic x(13). V.28.01 * V.25.02 01 WS-Depth-Sub pic 9(2). V.25.02 78 WS-Depth-LMT value 99. V.25.02 01 WS-Depth-Table. V.25.02 02 WS-Depth-Item occurs WS-Depth-LMT times. V.25.02 03 WS-Depth-Type pic x(1). V.25.02 88 WS-Depth-Type-ROOT value "R". V.25.02 88 WS-Depth-Type-ATTRIBUTE value "A". V.25.02 88 WS-Depth-Type-1stCHILD value "1". V.25.02 88 WS-Depth-Type-SIBLING value "2". V.25.02 03 WS-Depth-Element pic x(100). V.25.02 * V.25.02 * V.25.02 01 WS-TXT2FILE-Flag pic x(1). V.25.02 88 WS-TXT2FILE-Beg value "B". V.25.02 88 WS-TXT2FILE-End value "E". V.25.02 01 WS-TXT2FLDS-Flag pic x(1). V.25.02 88 WS-TXT2FLDS-Writ value "W". V.25.02 88 WS-TXT2FLDS-Skip value "S". V.25.02 88 WS-TXT2FLDS-Clos value "C". V.25.02 01 WS-TXT3FILE-Flag pic x(1). V.25.03 88 WS-TXT3FILE-Beg value "B". V.25.03 88 WS-TXT3FILE-End value "E". V.25.03 01 WS-TXT3FLDS-Flag pic x(1). V.25.03 88 WS-TXT3FLDS-Writ value "W". V.25.03 88 WS-TXT3FLDS-Skip value "S". V.25.03 88 WS-TXT3FLDS-Clos value "C". V.25.03 01 WS-Unknown-Flag pic x(1). V.25.02 88 WS-Unknown-Yes value "Y". V.25.02 88 WS-Unknown-No value "N". V.25.02 01 WS-UsageType-Flag pic x(1). V.25.02 88 WS-UsageType-Investor value "I". V.25.02 88 WS-UsageType-Residence value "R". V.25.02 88 WS-UsageType-SecondHome value "S". V.25.02 88 WS-UsageType-Unknown value "?". V.25.02 01 WS-Skip-Attributes-Flag pic x(1). V.25.02 88 WS-Skip-Attributes-YES value "Y". V.25.02 88 WS-Skip-Attributes-NO value "N". V.25.02 01 WS-VIEWTRAN-IMAGE pic x(1). V.25.02 01 WS-VIEWTRAN pic x(1). V.25.02 01 WS-VIEWSTMT-IMAGE pic x(1). V.25.03 * 01 NWK-NUMERIC pic 9(2). V.25.02 01 Decimal-Found pic x. V.25.02 01 NWK-SUB pic 9(2). V.25.02 01 NWK-MAX pic 9(2). V.25.02 01 NWK-LMT pic 9(2) value 18. V.25.02 01 NWORK. V.25.02 02 NWK-CHAR pic 9(1) occurs 18 times. V.25.02 01 filler redefines NWORK. V.25.02 02 NWORK-N18 pic 9(18). V.25.02 01 filler redefines NWORK. V.25.02 02 filler pic x(4). V.25.02 02 NWORK-N14 pic 9(14). V.25.02 01 filler redefines NWORK. V.25.02 02 filler pic x(6). V.25.02 02 NWORK-N12 pic 9(12). V.25.02 01 filler redefines NWORK. V.25.02 02 filler pic x(8). V.25.02 02 NWORK-N10 pic 9(10). V.25.02 01 filler redefines NWORK. V.25.02 02 filler pic x(10). V.25.02 02 NWORK-N8 pic 9(8). V.25.02 01 filler redefines NWORK. V.25.03 02 fILLER pic x(12). V.25.03 02 NWORK-N6 pic 9(6). V.25.03 01 filler redefines NWORK. V.25.02 02 filler pic x(13). V.25.02 02 NWORK-N5 pic 9(5). V.25.02 01 filler redefines NWORK. V.25.02 02 filler pic x(14). V.25.02 02 NWORK-N4 pic 9(4). V.25.02 01 filler redefines NWORK. V.25.02 02 filler pic x(16). V.25.02 02 NWORK-N2 pic 9(2). V.25.02 * 01 XWK-SUB pic 9(3). V.25.02 01 XWK-MAX pic 9(3). V.25.02 01 XWK-LMT pic 9(3) value 256. V.25.02 01 XWORK. V.25.02 02 XWK-CHAR pic x(1) occurs 256 times. V.25.02 * 01 WS-IMAGE-ADDRESS-TRANSACTION pic X(200). V.25.01 *01 WS-AVIP-IMAGE-TRAN-INFO. V.25.02 * 03 WS-AVIP-IMAGE-FRDABA pic 9(9). V.25.02 * 03 FILLER pic x(6) value "&date=". V.25.02 * 03 WS-AVIP-IMAGE-DATE pic 9(8). V.25.02 * 03 FILLER pic X(6) VALUE "&acct=". V.25.02 * 03 WS-AVIP-IMAGE-ACCT pic 9(10). V.25.02 * 03 WS-AVIP-IMAGE-CHECK-REQUEST. V.25.02 * 04 WS-AVIP-IMAGE-CHECK-LABEL pic X(7). V.25.02 * 04 WS-AVIP-IMAGE-CHECK pic 9(8). V.25.02 * 04 WS-AVIP-IMAGE-AMT-LABEL pic X(5). V.25.02 * 04 WS-AVIP-IMAGE-AMT pic 9(11). V.25.02 * 04 WS-AVIP-IMAGE-SIDE pic X(7). V.25.02 * 04 WS-AVIP-IMAGE-WIDTH pic X(8). V.25.02 * 04 WS-AVIP-IMAGE-HEIGHT pic X(8). V.25.02 * 03 WS-AVIP-IMAGE-TRACER-REQUEST REDEFINES V.25.02 * WS-AVIP-IMAGE-CHECK-REQUEST. V.25.02 * 04 WS-AVIP-IMAGE-TRACER-LABEL pic X(10). V.25.02 * 04 WS-AVIP-IMAGE-TRACER pic 9(18). V.25.02 * 04 WS-AVIP-IMAGE-TRACER-SIDE pic X(7). V.25.02 * 04 WS-AVIP-IMAGE-TRACER-WIDTH pic X(8). V.25.02 * 04 WS-AVIP-IMAGE-TRACER-HEIGHT pic X(8). V.25.02 * 04 FILLER pic X(03). V.25.02 01 WS-AVIP-IMAGE-TRAN-INFO. V.25.02 02 WS-AVIP-IMAGE-TRAN-INFO-BEG. V.25.06 03 filler pic x(14) V.25.06 value "cq_cii.asp?id=". V.25.06 03 WS-AVIP-IMAGE-FRDABA pic 9(9). V.25.06 03 FILLER pic x(6) value "&date=". V.25.06 03 WS-AVIP-IMAGE-DATE pic 9(8). V.25.06 02 WS-AVIP-IMAGE-TRAN-INFO-ACCT. V.25.06 03 WS-AVIP-IMAGE-ACCT-TITLE pic X(6) VALUE "&acct=". V.25.06 * 03 WS-AVIP-IMAGE-ACCT pic 9(10). V.25.02 V.25.06 03 WS-AVIP-IMAGE-ACCT pic X(10). V.25.06 02 WS-AVIP-IMAGE-TRAN-INFO-END. V.25.06 03 WS-AVIP-IMAGE-AMT-LABEL pic X(5). V.25.06 03 WS-AVIP-IMAGE-AMT pic 9(11). V.25.06 03 WS-AVIP-IMAGE-CHECK-REQUEST. V.25.06 04 WS-AVIP-IMAGE-CHECK-LABEL pic X(7). V.25.06 04 WS-AVIP-IMAGE-CHECK pic 9(8). V.25.06 04 WS-AVIP-IMAGE-SIDE pic X(7). V.25.06 04 WS-AVIP-IMAGE-WIDTH pic X(8). V.25.06 04 WS-AVIP-IMAGE-HEIGHT pic X(8). V.25.06 04 FILLER pic X(16). 03 WS-AVIP-IMAGE-TRACER-REQUEST REDEFINES V.25.06 WS-AVIP-IMAGE-CHECK-REQUEST. V.25.06 04 WS-AVIP-IMAGE-TRACER-LABEL pic X(10). V.25.06 04 WS-AVIP-IMAGE-TRACER pic 9(18). V.25.06 04 WS-AVIP-IMAGE-TRACER-SIDE pic X(7). V.25.06 04 WS-AVIP-IMAGE-TRACER-WIDTH pic X(8). V.25.06 04 WS-AVIP-IMAGE-TRACER-HEIGHT pic X(8). V.25.06 04 FILLER pic X(03). V.25.06 * 01 WS-BANKWARE-IMAGE-TRAN-INFO. V.25.01 03 WS-BANKWARE-IMAGE-TYPE pic x(2). V.25.01 03 FILLER pic x(4) value "&id=". V.25.01 03 WS-BANKWARE-IMAGE-BANKNUM pic 9(9). V.25.01 03 FILLER pic x(6) value "&acct=". V.25.01 03 WS-BANKWARE-IMAGE-ACCT pic 9(10). V.25.01 03 WS-BANKWARE-IMG-CHECK-REQUEST. V.25.01 04 WS-BANKWARE-IMGDB-CHECK-LBL pic x(7). V.25.01 04 WS-BANKWARE-IMGDB-CHECK pic 9(8). V.25.01 04 WS-BANKWARE-IMGDB-SIDE pic x(7). V.25.01 04 WS-BANKWARE-IMGDB-DATE-LBL pic x(6). V.25.01 04 WS-BANKWARE-IMGDB-DATE pic 9(8). V.25.01 04 WS-BANKWARE-IMGDB-AMT-LBL pic x(5). V.25.01 04 WS-BANKWARE-IMGDB-AMT pic 9(11). V.25.01 03 WS-BANKWARE-IMG-DEPOSIT-REQUEST REDEFINES V.25.01 WS-BANKWARE-IMG-CHECK-REQUEST. V.25.01 04 WS-BANKWARE-IMGCR-SIDE pic x(7). V.25.01 04 WS-BANKWARE-IMGCR-DATE-LBL pic x(6). V.25.01 04 WS-BANKWARE-IMGCR-DATE pic 9(8). V.25.01 04 WS-BANKWARE-IMGCR-AMT-LBL pic x(5). V.25.01 04 WS-BANKWARE-IMGCR-AMT pic 9(11). V.25.01 04 FILLER pic x(15). V.25.01 * 01 WS-SUMMIT-IMAGE-TRAN-INFO. V.25.01 03 Filler pic x(4) value "ABA=". V.25.01 03 WS-SUMMIT-IMAGE-ABA pic 9(9). V.25.01 03 FILLER pic x(9) V.25.01 value "&Account=". V.25.01 03 WS-SUMMIT-IMAGE-ACCT pic 9(10). V.25.01 03 FILLER pic x(8) V.25.01 value "&Amount=". V.25.01 03 WS-SUMMIT-IMAGE-AMT pic 9(11). V.25.01 03 FILLER pic x(6) value "&Date=". V.25.01 03 WS-SUMMIT-IMAGE-DATE pic 9(8). V.25.01 03 FILLER pic x(7) value "&Check=". V.25.01 03 WS-SUMMIT-IMAGE-CHECK pic 9(8). V.25.01 03 FILLER pic x(7) value "&TRACE=". V.25.01 03 WS-SUMMIT-IMAGE-TRACE pic 9(18). V.25.01 03 FILLER pic x(6) value "&SIDE=". V.25.01 03 WS-SUMMIT-IMAGE-SIDE pic x. V.25.01 01 WS-SUMMIT-IMAGE-TRAN-INFO1. V.25.01 03 Filler pic x(4) value "ABA=". V.25.01 03 WS-SUMMIT-IMAGE-ABA1 pic 9(9). V.25.01 03 FILLER pic x(9) V.25.01 value "&Account=". V.25.01 03 WS-SUMMIT-IMAGE-ACCT1 pic 9(10). V.25.01 03 FILLER pic x(8) V.25.01 value "&Amount=". V.25.01 01 WS-SUMMIT-IMAGE-TRAN-INFO2. V.25.01 03 WS-SUMMIT-IMAGE-AMT1 pic x(13). V.25.01 01 WS-SUMMIT-IMAGE-TRAN-INFO3. V.25.01 03 FILLER pic x(6) value "&Date=". V.25.01 03 WS-SUMMIT-IMAGE-DATE1 pic 9(8). V.25.01 03 FILLER pic x(7) value "&Check=". V.25.01 03 WS-SUMMIT-IMAGE-CHECK1 pic 9(8). V.25.01 01 WS-SUMMIT-IMAGE-TRAN-INFO4. V.25.01 03 FILLER pic x(7) value "&TRACE=". V.25.01 03 WS-SUMMIT-IMAGE-TRACE1 pic 9(18). V.25.01 01 WS-SUMMIT-IMAGE-TRAN-INFO5. V.25.01 03 FILLER pic x(6) value "&SIDE=". V.25.01 03 WS-SUMMIT-IMAGE-SIDE1 pic x. V.25.01 * 01 WS-AVCM-IMAGE-TRAN-INFO. V.25.10 03 FILLER pic x(6) value "&Date=". V.25.10 03 WS-AVCM-IMAGE-DATE pic 9(8). V.25.10 03 FILLER pic x(9) V.25.10 value "&Account=". V.25.10 03 WS-AVCM-IMAGE-ACCT pic 9(10). V.25.10 03 FILLER pic x(6) value "&Face=". V.25.10 03 WS-AVCM-IMAGE-SIDE pic x. V.25.10 03 FILLER pic x(8) V.25.10 value "&Amount=". V.25.10 03 WS-AVCM-IMAGE-AMT pic 9(11). V.25.10 * 03 FILLER pic x(10) V.26.07V.26.09 * value "&TraceNum=". V.26.07 * 03 WS-AVCM-IMAGE-TRACE pic 9(18). V.26.07 03 FILLER pic x(10) V.26.07 value "&CheckNum=". V.26.07 03 WS-AVCM-IMAGE-Check pic 9(08). V.26.07 * 01 WS-AVCM-IMAGE-TRAN-INFO1. V.26.09 03 FILLER pic x(10) V.26.09 value "&TraceNum=". V.26.09 03 WS-AVCM-IMAGE-TRACE pic 9(18). V.26.09 * 03 FILLER pic x(10) V.26.09V.26.13 * value "&CheckNum=". V.26.13 * 03 WS-AVCM-IMAGE-Check1 pic 9(08). V.26.13 03 FILLER pic x(6) value "&Date=". V.26.13 03 WS-AVCM-IMAGE-DATE1 pic 9(8). V.26.13 03 FILLER pic x(9) V.26.13 value "&Account=". V.26.13 03 WS-AVCM-IMAGE-ACCT1 pic 9(10). V.26.13 03 FILLER pic x(6) value "&Face=". V.26.09 03 WS-AVCM-IMAGE-SIDE1 pic x. V.26.09 * 01 WS-ARCIMAGE-IMAGE-TRAN-INFO. V.26.08 03 WS-ARCIMAGE-IMAGE-ACCT pic 9(18). V.26.08 03 WS-ARCIMAGE-IMAGE-CHECK pic 9(8). V.26.08 03 WS-ARCIMAGE-IMAGE-AMT pic X(13). V.26.08 03 WS-ARCIMAGE-IMAGE-DOC1 pic X(4). V.26.08 03 WS-ARCIMAGE-IMAGE-TO-DTE pic X(14). V.26.08 03 WS-ARCIMAGE-IMAGE-FROM-DTE pic X(14). V.26.08 * 01 WS-ARCIMAGE-IMAGE-TRAN-INFO1. V.26.08 03 FILLER pic x(11) value "KT57_0_0_0=". V.26.08 03 WS-ARCIMAGE-TRACER pic 9(18). V.26.08 03 FILLER pic x(11) V.26.08 value "&doctypeid=". V.26.08 03 WS-ARCIMAGE-IMAGE-DOC2 pic X(4). V.26.08 * 01 WS-ARCIMAGE-IMAGE-STMT. V.26.08 03 WS-ARCIMAGE-STMT-ACCT pic 9(18). V.26.08 03 WS-ARCIMAGE-SPL-KEY pic x(5). V.26.08 03 WS-ARCIMAGE-STMT-SPLKEY pic X(21). V.26.08 03 WS-ARCIMAGE-STMT-DOCTYP pic X(4). V.26.08 * 01 WS-ARCIMAGE-IMG. V.26.08 03 WS-ARCIMAGE-IMG-ACCT pic 9(18). V.26.08 03 WS-ARCIMAGE-IMG-DOCTYPGRP pic X(4). V.26.08 03 WS-ARCIMAGE-IMG-ACCTTYPE pic X(5). V.26.08 03 WS-ARCIMAGE-ACCT-SSN-TAX pic X(10). V.26.08 * 01 WS-ARCIMAGE-IMAGE-TRAN-INFO3 PIC X(200). V.26.08 * Temporary begins 01 WS-LS-ONBASE-RENDERED-STMT-KEY PIC X(9). V.26.08 01 WS-LS-ONBASE-STMT-SPLKEY PIC X(9). V.26.08 01 WS-IMAGE-STATEMENT-YEARS PIC s9(2). V.26.08 * Temporary ends * 01 WS-STANDARD-IMAGE-TRAN-INFO. V.25.01 03 WS-STANDARD-IMAGE-BANKNUM pic 9(9). V.25.01 03 WS-STANDARD-IMAGE-FUNCTION pic x(8). V.25.01 03 FILLER pic x(6) value "&acct=". V.25.01 03 WS-STANDARD-IMAGE-ACCT pic 9(10). V.25.01 03 FILLER pic x(7) value "&check=". V.25.01 03 WS-STANDARD-IMAGE-CHECK pic 9(8). V.25.01 03 FILLER pic x(6) value "&date=". V.25.01 03 WS-STANDARD-IMAGE-DATE pic 9(8). V.25.01 03 FILLER pic x(5) value "&amt=". V.25.01 03 WS-STANDARD-IMAGE-AMT pic 9(11). V.25.01 03 FILLER pic x(7) value "&trace=". V.25.01 03 WS-STANDARD-IMAGE-TRACE pic 9(18). V.25.01 03 FILLER pic x(6) value "&side=". V.25.01 03 WS-STANDARD-IMAGE-SIDE pic x. V.25.01 * 01 WS-GCA-IMAGE-TRAN-INFO. 02 WS-GCA-IMAGE-TRAN-INFO-BEG. 03 FILLER pic x(8) value "&actnbr=".V.25.06 03 WS-GCA-IMAGE-ACCT pic 9(10). V.25.06 03 FILLER pic x(5) value "&amt=". V.25.06 03 WS-GCA-IMAGE-AMT pic 999999999.99. V.25.06 02 WS-GCA-IMAGE-TRAN-LABEL. V.25.08 03 WS-GCA-IMAGE-CHECK-REQUEST. V.25.08 04 WS-GCA-IMAGE-CHECK-LABEL pic x(8). V.25.08 04 WS-GCA-IMAGE-CHECK pic 9(8). V.25.08 04 FILLER pic x(12). V.25.08 03 WS-GCA-IMAGE-TRACER-REQUEST REDEFINES V.25.08 WS-GCA-IMAGE-CHECK-REQUEST. V.25.08 04 WS-GCA-IMAGE-TRACER-LABEL pic x(9). V.25.08 04 WS-GCA-IMAGE-TRACER pic 9(18). V.25.08 04 FILLER pic x(01). V.25.08 02 WS-GCA-IMAGE-TRAN-INFO-END. V.25.08 03 FILLER pic x(6) value "&date=". V.25.06 03 WS-GCA-IMAGE-DATE pic 99/99/9999. V.25.06 03 FILLER pic x(4) value "&FB=". V.25.06 03 WS-GCA-IMAGE-SIDE pic x. V.25.06 * 01 WS-IBT-IMAGE-TRAN-INFO. V.25.08 02 WS-IBT-IMAGE-TRAN-INFO-ACCT. V.25.08 03 WS-IBT-IMAGE-ACCT-TITLE pic x(9) V.25.08 value "&Account=". V.25.08 03 WS-IBT-IMAGE-ACCT pic x(10). V.25.08 02 WS-IBT-IMAGE-TRAN-DETAIL. 03 FILLER pic x(8) value "&Amount=". V.25.08 03 WS-IBT-IMAGE-AMT pic x(11). V.25.08 03 FILLER pic x(6) value "&Date=". V.25.08 03 WS-IBT-IMAGE-DATE pic 9(8). V.25.08 02 WS-IBT-IMAGE-TRAN-SERIAL-INFO. 03 WS-IBT-IMAGE-SERIAL-LABEL pic x(8) value "&Serial=".V.25.08 03 WS-IBT-IMAGE-SERIAL pic x(8). V.25.08 02 WS-IBT-IMAGE-TRAN-END. 03 FILLER pic x(11) V.25.08 value "&ImageSide=". V.25.08 03 WS-IBT-IMAGE-SIDE pic 9. V.25.08 03 FILLER pic X(6) value "&Onus=". V.25.08 03 WS-IBT-IMAGE-ONUS pic 9. V.25.08 * 01 WS-AVIP-SAVE-ORIG pic X(159). V.25.02 01 WS-IMAGE-ADDRESS-STMT-LIST pic X(200). V.25.01 01 WS-IMAGE-ADDRESS-STMT pic X(200). V.25.01 01 WS-IMAGE-ADDRESS-TRANSACTION-LIST pic X(200). V.25.01 01 WS-AVIP-TRAN-LIST-INFO. V.25.02 02 WS-AVIP-TRAN-LIST-INFO-BEG. V.25.06 03 filler pic x(14) V.25.06 value "cq_cii.asp?id=". V.25.06 03 WS-AVIP-TRANLIST-FRDABA pic 9(9). V.25.06 03 FILLER pic x(6) value "&date=". V.25.06 03 WS-AVIP-TRANLIST-DATE pic 9(8). V.25.06 03 FILLER pic X(6) VALUE "&acct=". V.25.06 02 WS-AVIP-TRAN-LIST-ACCT-INFO. V.25.06 * 03 WS-AVIP-TRANLIST-ACCT pic 9(10). V.25.02 V.25.06 03 WS-AVIP-TRANLIST-ACCT pic X(10). V.25.06 02 WS-AVIP-TRAN-LIST-INFO-END. V.25.06 03 WS-AVIP-TRANLIST-TRACER-LABEL pic X(10). V.25.06 03 WS-AVIP-TRANLIST-TRACER pic 9(18). V.25.06 03 FILLER pic X(7) VALUE "&tran=4". V.25.06 * 01 WS-AVIP-STMT-LIST-INFO. V.25.03 02 WS-AVIP-STMT-LIST-INFO-BEG. V.25.06 03 filler pic x(22) V.25.06 value "cq_stii.asp?call=1&id=". V.25.06 03 WS-AVIP-STLST-FRDABA pic 9(9). V.25.06 03 FILLER pic X(6) VALUE "&acct=". V.25.06 02 WS-AVIP-STMT-LIST-INFO-ACCT-INFO. V.25.06 * 03 WS-AVIP-STLST-ACCT pic 9(10). V.25.06 03 WS-AVIP-STLST-ACCT pic X(10). V.25.06 02 WS-AVIP-STMT-LIST-INFO-END. V.25.06 03 FILLER pic x(7) value "&sdate=". V.25.06 03 WS-AVIP-STLST-SDATE pic 9(8). V.25.06 03 FILLER pic x(7) value "&edate=". V.25.06 03 WS-AVIP-STLST-EDATE pic 9(8). V.25.06 03 FILLER pic x(6) value "&appl=". V.25.06 03 WS-AVIP-STLST-APPL pic x(3). V.25.06 * * 01 WS-AVIP-STMT-INFO. V.25.03 02 WS-AVIP-STMT-INFO-BEG. V.25.06 03 filler pic x(22) V.25.06 value "cq_stii.asp?call=4&id=". V.25.06 03 WS-AVIP-STMT-FRDABA pic 9(9). V.25.06 03 FILLER pic X(6) VALUE "&acct=". V.25.06 02 WS-AVIP-STMT-ACCT-INFO. V.25.06 * 03 WS-AVIP-STMT-ACCT pic 9(10). V.25.06 03 WS-AVIP-STMT-ACCT pic X(10). V.25.06 02 WS-AVIP-STMT-INFO-END. V.25.06 03 FILLER pic x(7) value "&sdate=". V.25.06 03 WS-AVIP-STMT-SDATE pic 9(8). V.25.06 03 FILLER pic x(7) value "&edate=". V.25.06 03 WS-AVIP-STMT-EDATE pic 9(8). V.25.06 03 FILLER pic x(6) value "&appl=". V.25.06 03 WS-AVIP-STMT-APPL pic x(3). V.25.06 * *01 WS-FileName-TRAN-LIST pic X(18) value V.25.02 * "C:\TMP\TRAN-LIST". V.25.02 * 77 WIMG-LISTBOX-SEL PIC S9(5) COMP-1. V.25.02 77 WIMG-LISTBOX-LOAD PIC 9(2). V.25.02 77 WIMG-LISTBOX-NEED PIC 9(2). V.25.02 77 WIMG-LISTBOX-MAX PIC 9(2). V.25.02 77 WIMG-LISTBOX-LMT PIC 9(2) VALUE 99. V.25.02 01 WIMG-LISTBOX-TABLE. V.25.02 02 WIMG-LISTBOX-ITEM. V.25.02 * (100 characters defined in the Screen Painter) V.25.02 03 WIMG-BANK PIC Z(10). V.25.02 03 WIMG-DATE PIC 99/99/9999. V.25.02 03 WIMG-TRACE PIC Z(18). V.25.02 03 WIMG-ACCT PIC Z(12). V.25.02 03 WIMG-AMT PIC ZZZ,ZZZ,ZZZ.99-. V.25.02 03 WIMG-CHECK PIC 9(8). V.25.02 * 77 WSTMT-LISTBOX-SEL PIC S9(5) COMP-1. V.25.03 77 WSTMT-LISTBOX-LOAD PIC 9(2). V.25.03 77 WSTMT-LISTBOX-NEED PIC 9(2). V.25.03 77 WSTMT-LISTBOX-MAX PIC 9(2). V.25.03 77 WSTMT-LISTBOX-LMT PIC 9(3) VALUE 150. V.26.06 01 WSTMT-LISTBOX-TABLE. V.25.03 02 WSTMT-LISTBOX-ITEM. V.25.03 * (100 characters defined in the Screen Painter) V.25.03 03 WSTMT-SDATE PIC 99/99/9999. V.25.03 03 WSTMT-EDATE PIC 99/99/9999. V.25.03 03 WSTMT-ERROR PIC X(20). V.25.03 * 01 WS-CHECK-AMT PIC 9(9)V99. V.25.02 01 WS-CHECK-DATE-M PIC 9(8). V.25.02 01 WS-CHECK-DATE-M-R REDEFINES WS-CHECK-DATE-M. V.25.02 05 WS-CHECK-DATE-M-MM PIC 9(2). V.25.02 05 WS-CHECK-DATE-M-DD PIC 9(2). V.25.02 05 WS-CHECK-DATE-M-CCYY PIC 9(4). V.25.02 01 WS-CHECK-DATE-Y PIC 9(8). V.25.02 01 WS-CHECK-DATE-Y-R REDEFINES WS-CHECK-DATE-Y. V.25.02 05 WS-CHECK-DATE-Y-CCYY PIC 9(4). V.25.02 05 WS-CHECK-DATE-Y-MM PIC 9(2). V.25.02 05 WS-CHECK-DATE-Y-DD PIC 9(2). V.25.02 01 WS-FILE-PATH PIC X(200). V.25.03 01 WS-ARCIMAGE-DOC-TYPE pic X(4). V.26.08 01 WS-URL-PATH. V.26.04 05 WS-URL1 PIC X(48) VALUE V.26.04 "C:\Program Files\Internet Explorer\iexplore.exe ". V.26.04 05 WS-URL2 PIC X(200). V.26.04 01 WS-STMT-PATH. V.26.08 05 WS-STM1 PIC X(48) VALUE V.26.08 "C:\Program Files\Internet Explorer\iexplore.exe ". V.26.08 05 WS-STM2 PIC X(10) VALUE "DEBUG". V.26.08 05 WS-STM3 PIC X(200). V.26.08 * 77 BROWSER-1 handle of window. V.25.03 77 MS-XML-OBJECT handle of @XMLHTTP. V.25.01 77 WS-RESPONSE pic x(64000) value spaces. V.25.01 77 WS-STATUS pic 9(04) value zero. V.25.01 COPY "ACTIVEX.DEF". V.25.01 * 77 WWebClient-Handle V.25.01 usage is handle of "@System.System.Net.WebClient". V.25.01 01 WS-XX-ACCT1 PIC 9(10). V.25.03 01 WS-XX-TRACE PIC 9(18). V.26.11 01 WS-XX-TRACE1 PIC X(18). V.26.11 01 WS-XX-AMT1 PIC X(13). V.26.11 01 WS-P1 PIC 9(1). V.25.03 01 WS-P2 PIC 9(2). V.26.11 01 WS-XX-CHECKNUM PIC 9(8). V.25.08 01 WS-XX-AMT PIC 9(9)V99. V.25.08 01 WS-XX-SUMMIT-AMT PIC Z(8)9.99. V.26.11 * AVCM WS variables ********************************************* V.28.01 * XML input/output file-ids 77 XMLFILE1-ID pic x(29). 77 XMLFILE2-ID pic x(29). * XML input/output file status 77 XMLFILE1-STATUS pic x(2). 77 XMLFILE2-STATUS pic x(2). * XML call related request/response 77 request-payload usage pointer. 77 response-payload usage pointer. 77 response-status pic 9(3) value zero. 77 response-len pic s9(9). 77 request-len pic s9(9). * Grid related variables 77 WDocs-GRID-REC pic 9(5). 77 WDocs-GRID-SUB pic 9(5). 77 WDocs-GRID-LOAD pic 9(5). 77 WDocs-GRID-LMT pic 9(5). 77 WDocs-GRID-LAST pic 9(5). 77 WDocs-GRID-HIGH-X pic 9(5). 77 WDocs-GRID-HIGH-Y pic 9(5). 77 WStatus-Handle handle of window. 78 WDocs-Rec-LMT value 5000. 01 WDocs-RECORD. 05 WDocs-REC-LOOKUP OCCURS WDocs-Rec-LMT TIMES. 10 WDocs-REC-DocID PIC x(13). 10 WDocs-REC-AcctNUM PIC x(12). 10 WDocs-REC-AcctTYPE PIC x(8). 10 WDocs-REC-EndDATE PIC x(24). 10 WDocs-REC-DocTYPE PIC x(30). * 01 WDoc-Sub pic 9(5). 01 WDoc-Sav pic 9(5). 01 WDoc-Hgh pic 9(5). 01 WDoc-Max pic 9(5). 78 WDoc-Lmt value 15. 01 WDoc-Data. 02 WDoc-Data-Rec occurs WDoc-Lmt times. 04 WDoc-Doc-ID pic x(13). 04 WDoc-Acct-Num pic x(12). 04 WDoc-Acct-Type pic x(8). 04 WDoc-End-Date pic x(24). 04 WDoc-Doc-Type pic x(30). * 01 WEOF-Flag pic x(1). 88 WEOF-Flag-Empty value "E". 88 WEOF-Flag-Beg value "B". 88 WEOF-Flag-Mid value "M". 88 WEOF-Flag-End value "E". 01 WEOL-Flag pic x(1). 88 WEOL-Flag-Yes value "Y". 88 WEOL-Flag-No value "N". 01 WLB-Flag pic x(1). 88 WLB-Flag-Loaded value "L". 88 WLB-Flag-NotLoaded value "N". 01 WLB-Load pic x(1). 88 WLB-Load-EF value "E". 88 WLB-Load-EF-Event value "V". 88 WLB-Load-RB value "R". 88 WLB-Load-CB value "C". 88 WLB-Load-GD value "G". 01 WLB-High pic x(1). 88 WLB-High-YesHIGH value "H". 88 WLB-High-YesLOW value "L". 88 WLB-High-No value "N". 01 WGD-Flag pic x(2). 88 WGD-Flag-Blank value " ". 88 WGD-Flag-Next value "N ". 88 WGD-Flag-Prev value "P ". 88 WGD-Flag-NextPage value "NP". 88 WGD-Flag-PrevPage value "PP". 88 WGD-Flag-LastPage value "LP". 88 WGD-Flag-FrstPage value "FP". 01 WGD-Row-Color pic 9(5). 88 WGD-Row-Color-White value 00000. 88 WGD-Row-COlor-NonWhite value 00001 thru 99999. 01 WSwitch-First-Time pic 9(1). 01 W-It-is-last-line pic 9(2) value zeroes. 01 W-It-is-first-line pic 9(2) value zeroes. 01 WS-CHK-1 pic 9(2) value zeroes. 01 WS-CHK-2 pic 9(2) value zeroes. 01 WS-NAVIGATIONS. 02 WS-SUB-UP-1 PIC 9(6) VALUE ZEROES. 02 WS-SUB-DOWN-1 PIC 9(6) VALUE ZEROES. * 01 WFILEIO-RECORD PIC X(1740). 01 WFILEIO-RECORD-ALLOOKUP REDEFINES WFILEIO-RECORD. 02 WFILEIO-REC-ALLOOKUP PIC X(87) OCCURS 20 TIMES. 02 FILLER PIC X(04). * 78 WCell-Color-Reverse value 431. 78 WCell-Color-Reverse-NA value 353. 78 WCell-Color-Reverse-CO value 449. 78 WCell-Color-Reverse-PL value 384. 78 WCell-Color-Reverse-DF value 208. 78 WCell-Color-Low value 336. 78 WCell-Color-High value 481. 01 WGD-Cnt pic 9(2). 01 All-post-address. 02 post-address1 pic X(150). 02 Post-Address2 pic X(150). 02 Post-Address3 pic x(150). 01 All-Actual-post-address-cnts. 02 Actual-post-address1-cnt pic 9(3). 02 Actual-post-address2-cnt pic 9(3). 02 Actual-post-address3-cnt pic 9(3). 01 All-post-address-counts. 02 post-address1-count pic 9(3). 02 post-address2-count pic 9(3). 02 post-address3-count pic 9(3). 01 All-soap-action-add-counts. 02 soap-action-add1-count pic 9(3). 02 soap-action-add2-count pic 9(3). 02 soap-action-add3-count pic 9(3). 01 All-soap-action-add1-cnts. 02 Actual-soap-address1-cnt pic 9(3). 02 Actual-soap-address2-cnt pic 9(3). 02 Actual-soap-address3-cnt pic 9(3). 01 post-address1-out pic x(150). 01 post-address2-out pic x(150). 01 post-address3-out pic x(150). 01 WS-SOAP-ACTION1-OUT pic x(150). 01 WS-SOAP-ACTION2-OUT pic x(150). 01 WS-SOAP-ACTION3-OUT pic x(150). 01 WS-FIL-CNTR pic 9(5). 01 EOF-SW PIC X. 01 A-Desired-SOAP-Actions. 02 A-Desired-SOAP-Action1. 05 filler pic x(10) value 'SOAPAction'. 05 filler pic x value x"00". 02 A-Desired-SOAP-Action2. 05 WS-SOAP-ACTION1 pic X(150). 02 A-Desired-SOAP-Action3. 05 filler pic x value x"00". 01 B-Desired-SOAP-Actions. 02 B-Desired-SOAP-Action1. 05 FILLER PIC X(10) VALUE 'SOAPAction'. 05 FILLER PIC X VALUE x"00". 02 B-Desired-SOAP-Action2. 05 WS-SOAP-ACTION2 pic X(150). 02 B-Desired-SOAP-Action3. 05 filler pic x value x"00". 01 C-Desired-SOAP-Actions. 02 C-Desired-SOAP-Action1. 05 FILLER PIC X(10) VALUE 'SOAPAction'. 05 FILLER PIC X VALUE x"00". 02 C-Desired-SOAP-Action2. 05 WS-SOAP-ACTION3 pic X(150). 02 C-Desired-SOAP-Action3. 05 FILLER PIC X VALUE x"00". 01 WS-URL-PATH-AVCM. 05 WS-URL-IE PIC X(48) VALUE "C:\Program Files\Internet Explorer\iexplore.exe ". 05 WS-URL-AVCM PIC X(2000). 01 WS-STRING-VARIABLES. 02 ws-variable1 pic x(2000). 02 ws-variable2 pic x(2000). 02 ws-variable3 pic X(80000). 02 final-ws-variable2 pic x(4000). 02 WS-TEST3 pic x(4000). 02 WS-TEST4 pic x(4000). 02 WS-TEST5 pic x(4000). 02 WS-TEST6 pic x(4000). 01 WS-POINTER1 PIC 9(6) value zeros. 01 WS-NO-SPACES PIC X(1000) VALUE SPACES. 01 ws-count1 pic 9(6) value zeros. 01 WS-SUB PIC 9(6). 01 WS-GD-List-Col-EndDT pic x(24) value spaces. 01 WS-SERVR-UNBL. 02 WS-SERVR-UNABL1 pic x(40). 02 WS-SERVR-UNABL2 pic x(40). 02 WS-SERVR-UNABL3 pic x(40). 02 WS-SERVR-UNABL4 pic x(40). 01 WS-ARRAY-VARIABLES. 02 WS-VARIABLES-GRP OCCURS 0 to 5000 DEPENDING ON ws-count1. 05 WS-VARIABLE-GRP1 PIC X(1000). 05 WS-VARIABLE-GRP2 PIC X(1000). 05 WS-VARIABLE-GRP3 PIC X(1000). 05 WS-VARIABLE-GRP4 PIC X(1000). 05 WS-VARIABLE-GRP5 PIC X(1000). 05 WS-VARIABLE-GRP6 PIC X(1000). 05 WS-VARIABLE-GRP1-M PIC X(1000). 05 WS-VARIABLE-GRP2-M PIC X(1000). 05 WS-VARIABLE-GRP3-M PIC X(1000). 05 WS-VARIABLE-GRP4-M PIC X(1000). 05 WS-VARIABLE-GRP5-M PIC X(1000). 05 WS-VARIABLE-GRP6-M PIC X(1000). 78 Content-Type value "text/xml; charset=utf-8". 01 WS-AUTH-XML-OUT PIC X(5000). 01 WS-AUTH-XML-IN. 02 WS-AUTH-FIXED-DATA1. 03 FILLER PIC X(32) VALUE "". 03 FILLER PIC X(14) VALUE "". 02 WS-AUTH-VARIABLE-DATA1. 03 WS-AUTH-USR-NM PIC X(50). 02 WS-AUTH-FIXED-DATA2. 03 FILLER PIC X(29) VALUE "". 02 WS-AUTH-VARIABLE-DATA2. 03 WS-AUTH-PWD PIC X(50). 02 WS-AUTH-FIXED-DATA3. 03 FILLER PIC X(53) VALUE "". 03 FILLER PIC X(19) VALUE "". 01 WS-WEBSRH-XML-AC-OUT PIC X(6000). 01 WS-SHECM1-ENABLE PIC X. *gilbat----------------------------------------- * New XML implementation tax id 01 WS-WEBSRH-XML-AC-IN. 02 WS-WEBSRH-XML-AC-FIXED-1. 03 FILLER PIC X(26) VALUE "'. 03 FILLER PIC X(31) VALUE "". 02 WS-WEBSRH-XML-AC-VARIABLE-1. 03 WS-WEBSRH-AUTHENTICAT PIC X(36). 02 WS-WEBSRH-XML-AC-FIXED-2. 03 FILLER PIC X(35) VALUE "". 03 FILLER PIC X(25) VALUE "". 03 FILLER PIC X(21) VALUE "SOA Test Search". 03 FILLER PIC X(11) VALUE "5000Document0". 03 FILLER PIC X(32) VALUE "document_id". 03 FILLER PIC X(39) VALUE "String". 03 FILLER PIC X(44) VALUE "C". 03 FILLER PIC X(32) VALUE "0". 03 FILLER PIC X(36) VALUE "". 03 FILLER PIC X(33) VALUE "0account_number". 03 FILLER PIC X(33) VALUE "String". 03 FILLER PIC X(38) VALUE "". 03 FILLER PIC X(39) VALUE "C0". 03 FILLER PIC X(31) VALUE "". 03 FILLER PIC X(30) VALUE "0". 03 FILLER PIC X(29) VALUE "end_date". 03 FILLER PIC X(39) VALUE "String". 03 FILLER PIC X(44) VALUE "C". 03 FILLER PIC X(32) VALUE "0". 03 FILLER PIC X(45) VALUE "0". 03 FILLER PIC X(34) VALUE "document_type". 03 FILLER PIC X(39) VALUE "String". 03 FILLER PIC X(44) VALUE "C". 03 FILLER PIC X(32) VALUE "0". 03 FILLER PIC X(45) VALUE "0". 03 FILLER PIC X(36) VALUE "document_tax_id". 03 FILLER PIC X(39) VALUE "String". 03 FILLER PIC X(44) VALUE "C". 03 FILLER PIC X(32) VALUE "0". 03 FILLER PIC X(45) VALUE "0". 03 FILLER PIC X(33) VALUE "account_type". 03 FILLER PIC X(39) VALUE "String". 03 FILLER PIC X(44) VALUE "C". 03 FILLER PIC X(47) VALUE "0". 03 FILLER PIC X(24) VALUE "0and". 03 FILLER PIC X(34) VALUE "0classification". 03 FILLER PIC X(39) VALUE "equal". 03 FILLER PIC X(46) VALUE "Document0or". 03 FILLER PIC X(21) VALUE "0and". 03 FILLER PIC X(21) VALUE "0document_tax_id". 03 FILLER PIC X(39) VALUE "equal". 02 WS-WEBSRH-XML-TAX-ID-VARIABLE-1. 03 WS-TAX-ID-SSN pic X(10). 02 WS-WEBSRH-XML-NEXT-FIXED. 03 FILLER PIC X(39) VALUE "". 03 FILLER PIC X(34) VALUE "0and". 03 FILLER PIC X(34) VALUE "0account_number_f". 03 FILLER PIC X(39) VALUE "equal". 02 WS-WEBSRH-XML-ACC-NUM-VARIABLE-1. 03 WS-WEBSRH-XML-ACC-NUM pic 9(10). 02 WS-WEBSRH-XML-FIXED-OTHER. 03 FILLER PIC X(39) VALUE "". 03 FILLER PIC X(40) VALUE "". 03 FILLER PIC X(47) VALUE "document_id". 03 FILLER PIC X(38) VALUE "document_id". 03 FILLER PIC X(27) VALUE "Number". 03 FILLER PIC X(34) VALUE "false". 03 FILLER PIC X(33) VALUE "true". 03 FILLER PIC X(47) VALUE "". 03 FILLER PIC X(44) VALUE "". 01 WS-DELIVERY-XML-OUT PIC X(5000). 01 WS-DELIVERY-XML-IN. 02 WS-DELIVERY-FIXED-DATA1. 03 FILLER pic x(25) value "". 03 FILLER pic x(18) value "". 03 ws-authentication-token pic x(36). 03 FILLER pic x(49) value "". 03 FILLER pic x(38) value "". 02 WS-DELIVERY-VARIABLE-DATA1. 03 WS-DELIVERY-DOC-ID-IN PIC 9(15). 02 WS-DELIVERY-FIXED-DATA2. 03 FILLER pic x(20) value "". 03 FILLER pic x(56) value "FormatDescription". 03 FILLER pic x(18) value "PDF". 03 FILLER pic x(51) value "". 03 FILLER pic x(50) value "". COPY "lixmlall.cpy". COPY "SYMAST.CPY". COPY "SYMAST.WSC". V.28.01 * ImgeView Work Area: V.25.01 COPY "ImgeView.wrk". V.25.01 * * Acucobol predefined libraries COPY "acucobol.def". COPY "acugui.def". COPY "crtvars.def". V.25.01 * SPARAK Bank ID numbers: V.18.01 COPY "BANKID.WSC". V.18.01 * SPARAK file I/O data definitions: V.25.01 COPY "FILEIO.LSC". V.25.01 * SPARAK Date Call area: V.25.03 COPY "DATECALL.LSC". V.25.03 * SPARAK file status data definitions: COPY "FILESTAT.LSC". * SPARAK internet data definitions: COPY "INTERNET.LSC". V.25.01 * SPARAK work data definitions: COPY "WORKDATA.WSC". * Parameter Codes call area: V.15.01 COPY "PARAMS.LSC". V.15.01 * SPARAK XMLPARSE data definitions: V.25.02 COPY "XMLPARSE.LSC". V.25.02 * * SPARAK Window Preferences definitions: V.25.01 COPY "PREFWIND.LSC". V.25.01 COPY "PREFWIND.WSC". V.25.01 * * SPARAK Printer Module: COPY "SPPRINTR.LSC". COPY "SPPRINTC.WRK". LINKAGE SECTION. COPY "IMGEVIEW.LSC". COPY "LINKSTAT.LSC". 01 http-response pic x(100). V.28.01 * SCREEN SECTION. * Description of screen controls. V.25.01 COPY "ImgeView.scr". V.25.01 COPY "SPPRINTC.scr". V.25.01 * PROCEDURE DIVISION using IMGEVIEW-AREA LINKSTAT-AREA . * DECLARATIVES. WIMGEVIEW-Decl Section. Use after standard error procedure on WIMGEVIEW. WIMGEVIEW-Test. If FS-FILESTAT NOT = "00" Go to XWIMGEVIEW-Test End-If. * Display a file status box for the user to respond to: Move PROGRAM-NAME to FS-ProgName. Move spaces to FS-ProgRtn. Move WIMGEVIEW-ID to FS-FileName. Move spaces to FS-FilePath. Move zeroes to FS-FileAcct. Move "A" to FS-STAT99-FLAG. Call "FILESTAT.ACU" using FILESTAT-AREA End-Call. Cancel "FILESTAT.ACU". XWIMGEVIEW-Test. TXT2FILE-Decl Section. V.25.02 Use after standard error procedure on TXT2FILE. V.25.02 TXT2FILE-Test. V.25.02 If FS-FILESTAT NOT = "00" V.25.02 Go to XTXT2FILE-Test V.25.02 End-If. V.25.02 * Display a file status box for the user to respond to: V.25.02 Move PROGRAM-NAME to FS-ProgName. V.25.02 Move Spaces to FS-ProgRtn. V.25.02 Move TXT2FILE-ID to FS-FileName. V.25.02 Move Spaces to FS-FilePath. V.25.02 Move Zeroes to FS-FileAcct. V.25.02 Move "A" to FS-STAT99-FLAG. V.25.02 Call "FILESTAT.ACU" V.25.02 using FILESTAT-AREA V.25.02 End-Call. V.25.02 Cancel "FILESTAT.ACU". V.25.02 XTXT2FILE-Test. V.25.02 TXT2FLDS-Decl Section. V.25.02 Use after standard error procedure on TXT2FLDS. V.25.02 TXT2FLDS-Test. V.25.02 If FS-FILESTAT NOT = "00" V.25.02 Go to XTXT2FLDS-Test V.25.02 End-If. V.25.02 * Display a file status box for the user to respond to: V.25.02 Move PROGRAM-NAME to FS-ProgName. V.25.02 Move Spaces to FS-ProgRtn. V.25.02 Move TXT2FLDS-ID to FS-FileName. V.25.02 Move Spaces to FS-FilePath. V.25.02 Move Zeroes to FS-FileAcct. V.25.02 Move "A" to FS-STAT99-FLAG. V.25.02 Call "FILESTAT.ACU" V.25.02 using FILESTAT-AREA V.25.02 End-Call. V.25.02 Cancel "FILESTAT.ACU". V.25.02 XTXT2FLDS-Test. V.25.02 TXT3FILE-Decl Section. V.25.03 Use after standard error procedure on TXT3FILE. V.25.03 TXT3FILE-Test. V.25.03 If FS-FILESTAT NOT = "00" V.25.03 Go to XTXT3FILE-Test V.25.03 End-If. V.25.03 * Display a file status box for the user to respond to: V.25.03 Move PROGRAM-NAME to FS-ProgName. V.25.03 Move Spaces to FS-ProgRtn. V.25.03 Move TXT3FILE-ID to FS-FileName. V.25.03 Move Spaces to FS-FilePath. V.25.03 Move Zeroes to FS-FileAcct. V.25.03 Move "A" to FS-STAT99-FLAG. V.25.03 Call "FILESTAT.ACU" V.25.03 using FILESTAT-AREA V.25.03 End-Call. V.25.03 Cancel "FILESTAT.ACU". V.25.03 XTXT3FILE-Test. V.25.03 TXT3FLDS-Decl Section. V.25.03 Use after standard error procedure on TXT3FLDS. V.25.03 TXT3FLDS-Test. V.25.03 If FS-FILESTAT NOT = "00" V.25.03 Go to XTXT3FLDS-Test V.25.03 End-If. V.25.03 * Display a file status box for the user to respond to: V.25.03 Move PROGRAM-NAME to FS-ProgName. V.25.03 Move Spaces to FS-ProgRtn. V.25.03 Move TXT3FLDS-ID to FS-FileName. V.25.03 Move Spaces to FS-FilePath. V.25.03 Move Zeroes to FS-FileAcct. V.25.03 Move "A" to FS-STAT99-FLAG. V.25.03 Call "FILESTAT.ACU" V.25.03 using FILESTAT-AREA V.25.03 End-Call. V.25.03 Cancel "FILESTAT.ACU". V.25.03 XTXT3FLDS-Test. V.25.03 END DECLARATIVES. * MAIN-SECT. * * Below move 7 to LS-IMAGE-CHECK-VENDOR,Forcefully- I am doing it * now for testing...Before checkin this and before production move * "move 7" logic will be removed. IF IMGEVIEW-FUNC = "PIC" V.28.01 Set WEOF-Flag-Beg to True Set FILEIO-FUNC-OPEN-INPUT to True Perform OPEN-SYSFILML thru XOPEN-SYSFILML If FILEIO-STAT NOT = "00" PERFORM SYSF-ERROR-STATUS THRU XSYSF-ERROR-STATUS GO TO XAVCM-DOC-RETRIEVAL End-If Move WSA-ECMHDR1 to SHACCT-X6 Set FILEIO-LOCK-NO to True Perform READ-SYSFILML thru XREAD-SYSFILML If FILEIO-STAT = "00" or "10" move SHECM1-ENABLE to WS-SHECM1-ENABLE move 7 to LS-IMAGE-CHECK-VENDOR IF LS-IMAGE-CHECK-VENDOR = 7 AND WS-SHECM1-ENABLE = 'Y' PERFORM AVCM-Image-XML-Doc-Call THRU XAVCM-Image-XML-Doc-Call Go to Return-to-Caller END-IF End-If END-IF. V.28.01 Evaluate True when IMGEVIEW-ACTION-VIEW If LS-IMAGE-CHECK-VENDOR > 0 V.25.01 AND NOT IMGEVIEW-FUNC = "PIC" V.25.05 * INCLUDING ARCIMAGE V.26.08 If (LS-IMAGE-CHECK-VENDOR = 1 or V.25.03 LS-IMAGE-CHECK-VENDOR = 8 ) V.26.08 and IMGEVIEW-TYPE-STM V.25.03 Perform Image-XML-Stmt-Call V.25.03 thru XImage-XML-Stmt-Call V.25.03 Else V.25.03 Perform Image-XML-Call thru XImage-XML-Call V.25.01 End-If V.25.03 Else V.25.01 * POPULATE OLD ACCOUNT IF IT IS ZEROES OR SPACES FOR ARCIMAGE OLD V.26.10 Perform POPULATE-OLD-ACCOUNT V.26.10 thru XPOPULATE-OLD-ACCOUNT V.26.10 Perform Image-Call thru XImage-Call End-If V.25.01 when OTHER Move 9999 to IMGEVIEW-RETURN-CODE End-Evaluate. * Return-to-Caller. * Exit Program. * * * Image-Call. * New integration for IMG button for arcimage. * Evaluate LS-IMAGE-CHECK-VENDOR V.26.08 Evaluate LS-IMAGE-DOC-VENDOR V.26.08 when 08 V.26.08 Perform ARCIMAGE-Img-Call thru V.26.08 XARCIMAGE-Img-Call V.26.08 GO TO XImage-Call V.26.08 End-Evaluate. V.26.08 * Build FILE-ID for output file: Move spaces to WIMGEVIEW-ID. String LS-DIR-HOMEDRIVE-VALUE ":" V.10.04 LS-DIR-HOMETEMP-VALUE V.10.04 "TMP\IMGEVIEW.DAT" delimited by spaces into WIMGEVIEW-ID End-String. * Open the output file: Open OUTPUT WIMGEVIEW. If FS-FILESTAT NOT = "00" Move 9011 to IMGEVIEW-RETURN-CODE Go to XImage-Call End-If. * Write the parameters to the output file: Move LS-PSH-BANKID to WBANK-IDNUM. V.18.01 Move spaces to WIMGEVIEW-PARAMS. Inspect WIMGEVIEW-PARAMS replacing all " " by ",". If IMGEVIEW-TYPE-CHK V.20.01 Evaluate LS-DIR-IMAGE-CHK-VALUE V.11.01 when "arcimage" V.10.03 Set IMGEVIEW-FLAG-ARC to True V.10.03 when "dsiimage" V.10.03 Set IMGEVIEW-FLAG-DSI to True V.10.03 when "sand" V.10.05 Set IMGEVIEW-FLAG-SANE to True V.10.05 when "imagestar" V.11.04 Set IMGEVIEW-FLAG-ISTAR to True V.11.04 when "imagedepot" V.10.05 Set IMGEVIEW-FLAG-IDEPOT to True V.10.05 when "bankware" V.10.03 Set IMGEVIEW-FLAG-BW to True V.10.03 when OTHER V.10.03 Set IMGEVIEW-FLAG-UNK to True V.10.03 End-Evaluate V.10.03 Else V.20.01 Evaluate LS-DIR-IMAGE-DOC-VALUE V.20.01 when "arcimage" V.20.01 Set IMGEVIEW-FLAG-ARC to True V.20.01 when "dsiimage" V.20.01 Set IMGEVIEW-FLAG-DSI to True V.20.01 when "sand" V.20.01 Set IMGEVIEW-FLAG-SANE to True V.20.01 when "imagestar" V.20.01 Set IMGEVIEW-FLAG-ISTAR to True V.20.01 when "imagedepot" V.20.01 Set IMGEVIEW-FLAG-IDEPOT to True V.20.01 when "bankware" V.20.01 Set IMGEVIEW-FLAG-BW to True V.20.01 when OTHER V.20.01 Set IMGEVIEW-FLAG-UNK to True V.20.01 End-Evaluate V.20.01 End-If. V.20.01 Move IMGEVIEW-FLAG to WIMGEVIEW-P-FLAG. Move IMGEVIEW-ACCT to WIMGEVIEW-P-ACCT. Move IMGEVIEW-TRAN-CHECK to WIMGEVIEW-P-CHECK. Move IMGEVIEW-TRAN-AMT to WEDIT-AMOUNT. Move WEDIT-AMOUNT to WIMGEVIEW-P-AMOUNT. Move IMGEVIEW-TRAN-SEQ to WIMGEVIEW-P-TRACE. Move IMGEVIEW-TRAN-ID to WIMGEVIEW-P-TRANID. V.13.01 Move IMGEVIEW-OLDACCT to WIMGEVIEW-P-OLDACCT. V.16.01 * Move spaces to WIMGEVIEW-P-ANC. V.16.01 V.16.02 * If IMGEVIEW-TRAN-TC NOT > zero V.10.03 V.15.01 * Move " " to WIMGEVIEW-P-DRCR V.10.03 V.15.01 * else V.10.03 V.15.01 * If IMGEVIEW-TRAN-TC < 25 OR V.15.01 * (IMGEVIEW-TRAN-TC > 49 AND IMGEVIEW-TRAN-TC < 75) V.15.01 * Move "C" to WIMGEVIEW-P-DRCR V.15.01 * else V.15.01 * Move "D" to WIMGEVIEW-P-DRCR V.15.01 * End-If V.15.01 * End-If. V.10.02 V.15.01 Set PARAMS-HDR-TRANCODE to True. V.15.01 Move IMGEVIEW-APPL to PARAMS-APPL. V.15.01 Move IMGEVIEW-TRAN-TC to PARAMS-TRANCODE-CODE. V.15.01 Perform PARAMS-LOAD-DESC thru XPARAMS-LOAD-DESC. V.15.01 Move PARAMS-TRANCODE-DRCR to WIMGEVIEW-P-DRCR. V.15.01 * * Move IMGEVIEW-ROUTNUM to WIMGEVIEW-P-ROUTNUM. V.16.02 Move LS-PSH-FRABAN to WIMGEVIEW-P-ROUTNUM. V.16.02 Multiply IMGEVIEW-TRAN-BDATE by 10000.0001 giving WIMGEVIEW-P-DATE1. Multiply IMGEVIEW-TRAN-EDATE by 10000.0001 giving WIMGEVIEW-P-DATE2. Move IMGEVIEW-IPADDR to WIMGEVIEW-P-IPADDR. Move IMGEVIEW-TYPE to WIMGEVIEW-P-DOCTYPE. Move IMGEVIEW-SSN to WIMGEVIEW-P-SSN. Move LS-PSH-BANKID to WIMGEVIEW-P-BANKID. V.10.02 Move IMGEVIEW-APPL to WIMGEVIEW-P-APPL. V.11.02 * Move LS-DIR-BROKER-VALUE to WIMGEVIEW-P-BROKER. V.11.03 V.16.01 Move LS-DIR-IMAGE-ANC-VALUE to WIMGEVIEW-P-ANC. V.16.02 Move LS-DIR-IMAGE-CHK-VALUE to WIMGEVIEW-P-VENDOR. V.11.05 If NOT IMGEVIEW-TYPE-CHK V.17.01 MOVE LS-DIR-IMAGE-DOC-VALUE to WIMGEVIEW-P-VENDOR V.17.01 End-If. V.17.01 * Formatted SSN Number - WIMGEVIEW-P-SSNX V.19.01 Move "N" to WD-Ans. V.19.01 Move IMGEVIEW-SSN to WD-SN9. V.19.01 Perform WORKDATA-Edit-TIN V.19.01 thru XWORKDATA-Edit-TIN. V.19.01 Move WD-EDIT-TINX11 to WIMGEVIEW-P-SSNX. V.19.01 Write WIMGEVIEW-PARAMS. If FS-FILESTAT NOT = "00" Move 9021 to IMGEVIEW-RETURN-CODE Close WIMGEVIEW Go to XImage-Call End-If. * Close the output file: Close WIMGEVIEW. * Build the SYSTEM call command line: Move spaces to WD-X80. If LS-USER-TYPE-DEV V.10.02 Move "ETC\IMGRETRV.EXE" to WD-X40 V.10.02 else V.10.02 Move "ETC\IMGRETRV.EXE" to WD-X40 V.10.02 End-If. V.10.02 String "C:" V.10.02 LS-DIR-PCPATH-VALUE V.10.02 WD-X40 V.10.02 delimited by spaces into WD-X80 V.10.02 End-String. V.10.02 If LS-DIR-PCDRIVE-VALUE > spaces Move LS-DIR-PCDRIVE-VALUE to WD-X80 (1:1) End-If. * Check for executable: V.10.02 Call "C$FILEINFO" V.10.02 using WD-X80 V.10.02 WFile-Info V.10.02 giving WExit-Status V.10.02 End-Call. V.10.02 If WExit-Status = zero AND WFile-Size > zero V.10.02 Next Sentence V.10.02 else V.10.02 Move 9031 to IMGEVIEW-RETURN-CODE V.10.02 Go to XImage-Call V.10.02 End-If. V.10.02 * Call SYSTEM: Call "C$RUN" using WD-X80 on exception Move 9991 to IMGEVIEW-RETURN-CODE End-Call. XImage-Call. * * This routine will display Doc images in Internet explorer. * and will string together a URL with correct keywords * so that Arc image knows what Document is required. * It uses DocPOP API to retrieve and display statements. * ARCIMAGE-Img-Call. V.26.08 MOVE spaces TO WS-ARCIMAGE-IMG. MOVE spaces TO WS-STM3. MOVE spaces TO WS-IMAGE-ADDRESS-TRANSACTION. MOVE IMGEVIEW-ACCT TO WS-ARCIMAGE-IMG-ACCT. Move LS-PSH-BANKID to WBANK-IDNUM. V.27.02 Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC Set PARAMS-APPL-DDA to True when 02 Move "SAV" to WS-AH-APPLDESC Set PARAMS-APPL-SAV to True when 03 Move "COD" to WS-AH-APPLDESC Set PARAMS-APPL-COD to True when 04 Move "ILN" to WS-AH-APPLDESC Set PARAMS-APPL-ILN to True when 05 Move "ALN" to WS-AH-APPLDESC Set PARAMS-APPL-ALN to True when 07 Move "SAF" to WS-AH-APPLDESC Set PARAMS-APPL-SDB to True when 09 Move "G/L" to WS-AH-APPLDESC Set PARAMS-APPL-GNL to True when 95 V.27.01 Move "CIF" to WS-AH-APPLDESC V.27.01 Set PARAMS-APPL-CIF to True V.27.01 * when other V.27.01 * Move "SAF" to WS-AH-APPLDESC V.27.01 * Set PARAMS-APPL-SDB to True V.27.01 End-Evaluate. Set PARAMS-HDR-ONBASEIDS to True Set PARAMS-ACTION-DESC to True Perform PARAMS-BROWSE-WINDOW thru XPARAMS-BROWSE-WINDOW If PARAMS-ACTION-LOADDONE MOVE PARAMS-ONBASE-ID TO WS-ARCIMAGE-IMG-DOCTYPGRP Else GO TO XARCIMAGE-Img-Call End-If. EVALUATE PARAMS-ONBASE-KEYWORD WHEN "A" MOVE "KT51" TO WS-ARCIMAGE-IMG-ACCTTYPE MOVE IMGEVIEW-ACCT TO WS-ARCIMAGE-ACCT-SSN-TAX WHEN "S" MOVE "KT105" TO WS-ARCIMAGE-IMG-ACCTTYPE IF WBKID-WAMEGO-KS V.27.02 MOVE "KT104" TO WS-ARCIMAGE-IMG-ACCTTYPE V.27.02 END-IF V.27.02 MOVE IMGEVIEW-SSN TO WS-ARCIMAGE-ACCT-SSN-TAX WHEN "T" MOVE "KT106" TO WS-ARCIMAGE-IMG-ACCTTYPE MOVE IMGEVIEW-SSN TO WS-ARCIMAGE-ACCT-SSN-TAX END-EVALUATE. * MOVE PARAMS-ONBASE-KEYWORD TO WS-ARCIMAGE-IMG-ACCTTYPE. IF PARAMS-ONBASE-FLAG = "G" * String LS-IMAGE-SERVER-ADDR String LS-IMAGE-SERVER-ADDR-DOC WS-ARCIMAGE-IMG-ACCTTYPE "_0_0_0=" WS-ARCIMAGE-ACCT-SSN-TAX "&doctypegroupid=" WS-ARCIMAGE-IMG-DOCTYPGRP delimited by spaces into WS-IMAGE-ADDRESS-TRANSACTION End-String ELSE * String LS-IMAGE-SERVER-ADDR String LS-IMAGE-SERVER-ADDR-DOC WS-ARCIMAGE-IMG-ACCTTYPE "_0_0_0=" WS-ARCIMAGE-ACCT-SSN-TAX "&doctypeid=" WS-ARCIMAGE-IMG-DOCTYPGRP delimited by spaces into WS-IMAGE-ADDRESS-TRANSACTION End-String End-IF. MOVE WS-IMAGE-ADDRESS-TRANSACTION TO WS-URL2. Call "C$RUN" using WS-URL-PATH. IF LS-INITS = "***" MOVE SPACES TO WS-STM3 MOVE WS-IMAGE-ADDRESS-TRANSACTION TO WS-STM3 Call "C$RUN" using WS-STMT-PATH END-IF. XARCIMAGE-Img-Call. V.26.08 * Image-XML-Call. V.25.01 * Save parent window position from calling program: Perform PREFWIND-Action-GET-Parent thru XPREFWIND-Action-GET-Parent. * * Build WS-FILE-PATH for xml: V.25.03 Move spaces to WS-FILE-PATH. V.25.03 String LS-DIR-HOMEDRIVE-VALUE ":" V.25.03 LS-DIR-HOMETEMP-VALUE V.25.03 "obj\testxml.xml" V.25.03 delimited by spaces into WS-FILE-PATH V.25.03 End-String. V.25.03 * Move LS-IMAGE-BANK-FRABA to WS-HOLD-FRABA. V.25.02 Move LS-PSH-BANKID to WBANK-IDNUM. V.25.04 Move ImgeView-acct to WS-ORIG-ACCT. V.25.06 Move ImgeView-oldacct to WS-ORIG-OLDACCT. V.25.06 Evaluate LS-IMAGE-CHECK-VENDOR * AVIP when 01 Perform AVIP-Front-Image thru XAVIP-Front-Image when 02 Perform Bankware-Front-Image thru XBankware-Front-Image when 03 Perform Standard-Front-Image thru XStandard-Front-Image when 04 Perform Summit-Front-Image thru XSummit-Front-Image when 05 V.25.08 Perform GCA-Front-Image thru XGCA-Front-Image V.25.08 when 06 V.25.08 Perform IBT-Front-Image thru XIBT-Front-Image V.25.08 when 07 V.25.10 Perform AVCM-Front-Image thru XAVCM-Front-Image V.25.10 when 08 V.26.08 Perform ARCIMAGE-Front-Image thru V.26.08 XARCIMAGE-Front-Image V.26.08 If LS-INITS = "***" V.26.08 MOVE SPACES TO WS-STM3 MOVE WS-IMAGE-ADDRESS-TRANSACTION TO WS-STM3 Call "C$RUN" using WS-STMT-PATH GO TO XImage-XML-Call V.26.08 ELSE V.26.08 GO TO XImage-XML-Call V.26.08 END-IF V.26.08 End-Evaluate. If LS-INITS = "***" V.25.02 Move LS-ENABLE-CONTROL to ImgeView-EF-URL-Enable V.25.02 Move LS-VISIBLE-CONTROL to ImgeView-EF-URL-Visible V.25.02 Move WS-IMAGE-ADDRESS-TRANSACTION V.25.02 to ImgeView-EF-URL-Value V.25.02 Modify ImgeView-EF-URL-Screen V.25.02 VALUE = ImgeView-EF-URL-Value V.25.02 Else V.25.02 Move LS-DISABLE-CONTROL to ImgeView-EF-URL-Enable V.25.02 Move LS-INVISIBLE-CONTROL to ImgeView-EF-URL-Visible V.25.02 Move WS-IMAGE-ADDRESS-TRANSACTION V.25.02 to ImgeView-EF-URL-Value V.25.02 Modify ImgeView-EF-URL-Screen V.25.02 VALUE = ImgeView-EF-URL-Value V.25.02 End-If. V.25.02 MOVE IMGEVIEW-TRAN-TC TO WSTC-TRANCODE. V.25.02 Move IMGEVIEW-AREA to WS-AVIP-SAVE-ORIG. V.25.02 If LS-IMAGE-CHECK-VENDOR = 1 V.25.02 If WSTC-CREDITS V.25.02 * IF WBKID-LEROY-MN OR WBKID-MONDOVI-WI V.25.04 V.25.09 * OR WBKID-KERKHOVEN-MN V.25.07 V.25.09 * OR WBKID-WESTHOPE-ND V.25.06 V.25.09 MOVE LS-ENABLE-CONTROL to ImgeView-PB-DepTran-EnableV.25.02 MOVE LS-VISIBLE-CONTROL V.25.04 to ImgeView-PB-DepTran-Visible V.25.02 * Else V.25.04V.25.09 * MOVE LS-DISABLE-CONTROL V.25.04V.25.09 * to ImgeView-PB-DepTran-Enable V.25.04V.25.09 * MOVE LS-INVISIBLE-CONTROL to V.25.04V.25.09 * ImgeView-PB-DepTran-Visible V.25.04V.25.09 * End-If V.25.04V.25.09 Else V.25.02 MOVE LS-DISABLE-CONTROL to ImgeView-PB-DepTran-Enable V.25.02 MOVE LS-INVISIBLE-CONTROL to V.25.02 ImgeView-PB-DepTran-Visible V.25.02 End-If V.25.02 Else V.25.02 MOVE LS-DISABLE-CONTROL to ImgeView-PB-DepTran-Enable V.25.02 MOVE LS-INVISIBLE-CONTROL to V.25.02 ImgeView-PB-DepTran-Visible V.25.02 End-If. V.25.02 If IMGEVIEW-OLDACCT > 0 V.25.06 MOVE LS-ENABLE-CONTROL to ImgeView-PB-Viewold-Enable V.25.06 MOVE LS-VISIBLE-CONTROL to ImgeView-PB-Viewold-Visible V.25.06 Else V.25.06 MOVE LS-DISABLE-CONTROL to ImgeView-PB-Viewold-Enable V.25.06 MOVE LS-INVISIBLE-CONTROL to ImgeView-PB-Viewold-Visible V.25.06 End-If. V.25.06 Move LS-ENABLE-CONTROL to ImgeView-WB-Enable. V.25.02 Move LS-VISIBLE-CONTROL to ImgeView-WB-Visible. V.25.02 Move LS-DISABLE-CONTROL to ImgeView-LB-Trans-Enable. V.25.02 Move LS-INVISIBLE-CONTROL to ImgeView-LB-Trans-Visible. V.25.02 Move LS-DISABLE-CONTROL to ImgeView-LB-Stmt-Enable. V.25.03 Move LS-INVISIBLE-CONTROL to ImgeView-LB-Stmt-Visible. V.25.03 Move LS-DISABLE-CONTROL to ImgeView-PB-ViewStmt-Enable. V.25.03 Move LS-INVISIBLE-CONTROL to ImgeView-PB-ViewStmt-Visible. V.25.03 * Get window position: Perform PREFWIND-Action-Init thru XPREFWIND-Action-Init. * Set PREFWIND-WIND-ID-ALERTWIN-1 to True. Set PREFWIND-WIND-ID-IMGEVIEW to True. Move IMGEVIEW-APPL to PREFWIND-APPL-ID. Move WS-PREFWIND-PARENT-COL to WS-PREFWIND-COL-DEF(2) PREFWIND-PUT-CURR-COL-DEF. Add WS-PREFWIND-PARENT-LIN WS-PREFWIND-TITLE-ADD giving WS-PREFWIND-LIN-WRK. Move WS-PREFWIND-LIN-WRK to WS-PREFWIND-LIN-DEF(2) PREFWIND-PUT-CURR-LIN-DEF. Perform PREFWIND-Action-GET-Current thru XPREFWIND-Action-GET-Current. Move PREFWIND-RGET-CURR-LIN-DSP to WS-PREFWIND-LIN-DSP. Move PREFWIND-RGET-CURR-COL-DSP to WS-PREFWIND-COL-DSP. * Create window title: Move IMGEVIEW-1-Title to WS-PREFWIND-Title. Perform PREFWIND-Action-Adjust-Title thru XPREFWIND-Action-Adjust-Title. Perform DISPLAY-AVIP-CHECK THRU XDISPLAY-AVIP-CHECK. XImage-XML-Call. V.25.01 * * Image-XML-Stmt-Call. V.25.03 * New integration for statement for arcimage. Evaluate LS-IMAGE-CHECK-VENDOR V.26.08 when 08 V.26.08 Perform ARCIMAGE-Stmt-Call thru V.26.08 XARCIMAGE-Stmt-Call V.26.08 GO TO XImage-XML-Stmt-Call V.26.08 End-Evaluate. V.26.08 * Save parent window position from calling program: Perform PREFWIND-Action-GET-Parent thru XPREFWIND-Action-GET-Parent. * * Build WS-FILE-PATH for xml: V.25.03 Move spaces to WS-FILE-PATH. V.25.03 String LS-DIR-HOMEDRIVE-VALUE ":" V.25.03 LS-DIR-HOMETEMP-VALUE V.25.03 "obj\testxml.xml" V.25.03 delimited by spaces into WS-FILE-PATH V.25.03 End-String. V.25.03 Move LS-IMAGE-BANK-FRABA to WS-HOLD-FRABA. * Set the title Move "AVIP Stmt List Display" to ImgeView-1-Title WS-PREFWIND-Title. Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC. Move WS-EDIT-ACCTSNAC to WS-AH-ACCT. Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC when 09 V.25.06 Move "G/L" to WS-AH-APPLDESC V.25.06 End-Evaluate. * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title. V.25.04 Perform Fill-Header-Label thru XFill-Header-Label. V.25.04 Modify ImgeView-LA-Hdr-Screen Value = ImgeView-LA-Hdr-Title. If LS-INITS = "***" Move LS-ENABLE-CONTROL to ImgeView-EF-URL-Enable Move LS-VISIBLE-CONTROL to ImgeView-EF-URL-Visible Move WS-IMAGE-ADDRESS-STMT-LIST to ImgeView-EF-URL-Value Modify ImgeView-EF-URL-Screen VALUE = ImgeView-EF-URL-Value Else Move LS-DISABLE-CONTROL to ImgeView-EF-URL-Enable Move LS-INVISIBLE-CONTROL to ImgeView-EF-URL-Visible Move WS-IMAGE-ADDRESS-STMT-LIST to ImgeView-EF-URL-Value Modify ImgeView-EF-URL-Screen VALUE = ImgeView-EF-URL-Value End-If. Move IMGEVIEW-AREA to WS-AVIP-SAVE-ORIG. Move LS-DISABLE-CONTROL to ImgeView-WB-Enable. Move LS-INVISIBLE-CONTROL to ImgeView-WB-Visible. Move LS-DISABLE-CONTROL to ImgeView-LB-Trans-Enable. Move LS-INVISIBLE-CONTROL to ImgeView-LB-Trans-Visible. Move LS-ENABLE-CONTROL to ImgeView-LB-Stmt-Enable. Move LS-VISIBLE-CONTROL to ImgeView-LB-Stmt-Visible. Move LS-ENABLE-CONTROL to ImgeView-PB-ViewStmt-Enable. Move LS-VISIBLE-CONTROL to ImgeView-PB-ViewStmt-Visible. Move LS-DISABLE-CONTROL to ImgeView-RB-Front-Enable. Move LS-DISABLE-CONTROL to ImgeView-RB-Back-Enable. Move LS-DISABLE-CONTROL to ImgeView-PB-Print-Enable. V.25.04 * Get window position: Perform PREFWIND-Action-Init thru XPREFWIND-Action-Init. * Set PREFWIND-WIND-ID-ALERTWIN-1 to True. Set PREFWIND-WIND-ID-IMGEVIEW to True. Move IMGEVIEW-APPL to PREFWIND-APPL-ID. Move WS-PREFWIND-PARENT-COL to WS-PREFWIND-COL-DEF(2) PREFWIND-PUT-CURR-COL-DEF. Add WS-PREFWIND-PARENT-LIN WS-PREFWIND-TITLE-ADD giving WS-PREFWIND-LIN-WRK. Move WS-PREFWIND-LIN-WRK to WS-PREFWIND-LIN-DEF(2) PREFWIND-PUT-CURR-LIN-DEF. Perform PREFWIND-Action-GET-Current thru XPREFWIND-Action-GET-Current. Move PREFWIND-RGET-CURR-LIN-DSP to WS-PREFWIND-LIN-DSP. Move PREFWIND-RGET-CURR-COL-DSP to WS-PREFWIND-COL-DSP. * Create window title: Move IMGEVIEW-1-Title to WS-PREFWIND-Title. Perform PREFWIND-Action-Adjust-Title thru XPREFWIND-Action-Adjust-Title. Perform Display-AVIP-Stmt-List THRU XDisplay-AVIP-Stmt-List. If WS-STMT-OLDNUM-LOOKUP = "Y" V.25.06 Move LS-ENABLE-CONTROL V.25.06 to ImgeView-PB-ViewStmt-Enable V.25.06 Modify ImgeView-PB-ViewStmt-Screen V.25.06 enabled = ImgeView-PB-ViewStmt-Enable V.25.06 Perform Display-AVIP-Stmt-List THRU V.25.06 XDisplay-AVIP-Stmt-List. V.25.06 XImage-XML-Stmt-Call. V.25.03 * AVCM-Image-XML-Doc-Call. V.28.01 Perform PREFWIND-Action-GET-Parent thru XPREFWIND-Action-GET-Parent. * Set the title Move "ECM Document Retrieval" to ImgeView-2-Title WS-PREFWIND-Title. * Get window position: Perform PREFWIND-Action-Init thru XPREFWIND-Action-Init. Set PREFWIND-WIND-ID-IMGEVIEW to True. Move IMGEVIEW-APPL to PREFWIND-APPL-ID. Move WS-PREFWIND-PARENT-COL to WS-PREFWIND-COL-DEF(2) PREFWIND-PUT-CURR-COL-DEF. Add WS-PREFWIND-PARENT-LIN WS-PREFWIND-TITLE-ADD giving WS-PREFWIND-LIN-WRK. Move WS-PREFWIND-LIN-WRK to WS-PREFWIND-LIN-DEF(2) PREFWIND-PUT-CURR-LIN-DEF. Perform PREFWIND-Action-GET-Current thru XPREFWIND-Action-GET-Current. Move PREFWIND-RGET-CURR-LIN-DSP to WS-PREFWIND-LIN-DSP. Move PREFWIND-RGET-CURR-COL-DSP to WS-PREFWIND-COL-DSP. * Create window title: Move ImgeView-2-Title to WS-PREFWIND-Title. Perform PREFWIND-Action-Adjust-Title thru XPREFWIND-Action-Adjust-Title. Perform DISPLAY-AVCM-DOC-LIST THRU XDISPLAY-AVCM-DOC-LIST. XAVCM-Image-XML-Doc-Call. V.28.01 * * This routine will display statements in Internet explorer. * and will string together a URL with correct keywords * so that Arc image knows what statement image is wanted. * It uses DocPOP API to retrieve and display statements. * ARCIMAGE-Stmt-Call. V.26.08 MOVE spaces TO WS-ARCIMAGE-DOC-TYPE. MOVE spaces TO WS-ARCIMAGE-IMAGE-STMT. MOVE spaces TO WS-STM3. MOVE spaces TO WS-IMAGE-ADDRESS-TRANSACTION. Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC when 09 Move "G/L" to WS-AH-APPLDESC when other Move "SAF" to WS-AH-APPLDESC End-Evaluate. MOVE IMGEVIEW-ACCT TO WS-ARCIMAGE-STMT-ACCT. MOVE "115" TO WS-ARCIMAGE-IMAGE-DOC1. * MOVE "315" TO * WS-LS-ONBASE-RENDERED-STMT-KEY. * MOVE "KT142" TO WS-LS-ONBASE-STMT-SPLKEY. * If WS-LS-ONBASE-RENDERED-STMT-KEY > 0 If LS-IMAGE-RENDERED-STMT-ID > 0 MOVE LS-IMAGE-RENDERED-STMT-ID TO WS-ARCIMAGE-STMT-DOCTYP Else MOVE "115" TO WS-ARCIMAGE-STMT-DOCTYP END-IF. * Date logic Begins * when there is a special keyword Initialize WDATECALL-AREA-WORK1 Move WDC-FUNC-BUMPDATE to WDC-FUNCTION Move WDC-BUMPCODE-ANNUALLY to WDC-BUMP-CODE MULTIPLY LS-IMAGE-DOCUMENT-YEARS BY -1 GIVING WS-IMAGE-STATEMENT-YEARS Move WS-IMAGE-STATEMENT-YEARS to WDC-BUMP-VALU Move LS-PSH-CURDT8 to WDC-CALDT-C Call "DATECALL.ACU" using WDATECALL-AREA End-Call * Date logic ends If LS-IMAGE-COMB-APPL-ACCT-KEYWORD > 0 MOVE WS-AH-APPLDESC TO WS-ARCIMAGE-STMT-SPLKEY(1:3) * to remove leading zeroes from the account number starts MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 MOVE ZEROS TO WS-P1 INSPECT WS-XX-ACCT1 TALLYING WS-P1 FOR LEADING ZEROS MOVE WS-XX-ACCT1(WS-P1 + 1:) TO WS-AVIP-IMAGE-ACCT IF WS-AVIP-IMAGE-ACCT(4:1) = " " MOVE WS-AVIP-IMAGE-ACCT(1:3) TO WS-AVIP-IMAGE-ACCT(2:3) MOVE "0" TO WS-AVIP-IMAGE-ACCT(1:1) SUBTRACT 1 FROM WS-P1 END-IF * to remove leading zeroes from the account number ends MOVE WS-AVIP-IMAGE-ACCT TO WS-ARCIMAGE-STMT-SPLKEY(4:18) String LS-IMAGE-SERVER-ADDR "KT51_0_0_0=" WS-ARCIMAGE-STMT-ACCT "&" LS-IMAGE-COMB-APPL-ACCT-KEYWORD "=" WS-ARCIMAGE-STMT-SPLKEY "&doctypeid=" WS-ARCIMAGE-STMT-DOCTYP "&FromDate=" WDC-CALDT-C(5:2) "%2f" WDC-CALDT-C(7:2) "%2f" WDC-CALDT-C(1:4) "&ToDate=" LS-PSH-CURDT8(5:2) "%2f" LS-PSH-CURDT8(7:2) "%2f" LS-PSH-CURDT8(1:4) delimited by spaces into WS-IMAGE-ADDRESS-TRANSACTION End-String Else * when there is no special keyword String LS-IMAGE-SERVER-ADDR "KT51_0_0_0=" WS-ARCIMAGE-STMT-ACCT "&doctypeid=" WS-ARCIMAGE-STMT-DOCTYP "&FromDate=" WDC-CALDT-C(5:2) "%2f" WDC-CALDT-C(7:2) "%2f" WDC-CALDT-C(1:4) "&ToDate=" LS-PSH-CURDT8(5:2) "%2f" LS-PSH-CURDT8(7:2) "%2f" LS-PSH-CURDT8(1:4) delimited by spaces into WS-IMAGE-ADDRESS-TRANSACTION End-String END-IF. MOVE WS-IMAGE-ADDRESS-TRANSACTION TO WS-URL2. Call "C$RUN" using WS-URL-PATH. IF LS-INITS = "***" MOVE SPACES TO WS-STM3 MOVE WS-IMAGE-ADDRESS-TRANSACTION TO WS-STM3 Call "C$RUN" using WS-STMT-PATH END-IF. XARCIMAGE-Stmt-Call. V.26.08 * * * * This routine will display a graphical window containing a * WEB-BROWSER control. The control is displayed with a URL * address for desired images/data from AVIP and that info is * then displayed withing the browser control. * DISPLAY-AVIP-CHECK. V.25.01 Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE Display Floating GRAPHICAL WINDOW SCREEN LINE WS-PREFWIND-LIN-DSP, SCREEN COLUMN WS-PREFWIND-COL-DSP, LINES 48.00, size 79.00, CELL HEIGHT LS-CELL-HEIGHT, CELL WIDTH LS-CELL-WIDTH, CONTROL FONT LS-Font-Default-Handle, TITLE-BAR, with SYSTEM MENU, MODELESS, ERASE, BIND to THREAD, NO SCROLL, NO WRAP, COLOR IS LS-CG1-SF-BKGRND, TITLE WS-PREFWIND-Title, LABEL-OFFSET 0, controls-uncropped, handle IS ImgeView-1-HANDLE. DISPLAY IMGEVIEW-1-SCREEN. * * Initialize data: Move zeroes to Key-Status. * * Toggle the action of the ENTER key: Set environment "KEYSTROKE" to "EDIT=Next TERMINATE=09 ^M". * Make the current window active again: Set Input-Output window to ImgeView-1-HANDLE. * Focus the cursor: Set ACCEPT-CONTROL-GOTO-ID to True. Move WHold-RB-Front-ID to CONTROL-ID. * * Accept the screen: Perform with test after until Exit-Button-Pressed Accept ImgeView-1-Screen before time LS-PSH-TIMEOUT on exception * 'Accept' timed out: If Key-Status = W-TIMEOUT Set Exit-Button-Pressed to True End-If * User clicked on the X window button: If Key-Status = W-EVENT AND Event-Type = CMD-CLOSE Set Exit-Button-Pressed to True End-If * User pressed the ESC key: If Escape-Button-Pressed Set Exit-Button-Pressed to True End-If If Key-Status > zero Perform Process-Exception thru XProcess-Exception End-If End-Accept End-Perform. * Put window position: V.25.01 Perform PREFWIND-Action-Init V.25.01 thru XPREFWIND-Action-Init. V.25.01 Set PREFWIND-WIND-ID-IMGEVIEW to True. V.25.01 Move ImgeView-Appl to PREFWIND-APPL-ID. V.25.01 Move WS-PREFWIND-COL-DEF(2) V.25.01 to PREFWIND-PUT-CURR-COL-DEF. V.25.01 Move WS-PREFWIND-LIN-DEF(2) V.25.01 to PREFWIND-PUT-CURR-LIN-DEF. V.25.01 Perform PREFWIND-Action-PUT-Current V.25.01 thru XPREFWIND-Action-PUT-Current. V.25.01 * Destroy screen and window: V.25.01 Destroy ImgeView-1-Screen. V.25.01 Destroy ImgeView-1-Handle. V.25.01 XDISPLAY-AVIP-CHECK. V.25.01 * * This routine will retrieve a list of available transactions * from AVIP using XML Object logic that I found on the Microfocus * user forum website. This request will retrieve an XML list of * transactions and hold that list in the WS variable WS-REPONSE. RETRIEVE-AVIP-TRAN-LIST. V.25.04 CREATE @XMLHTTP HANDLE IN MS-XML-OBJECT. V.25.04 MODIFY MS-XML-OBJECT V.25.04 @Open("GET", WS-IMAGE-ADDRESS-TRANSACTION-LIST, 0) V.25.04 MODIFY MS-XML-OBJECT @Send() V.25.04 INITIALIZE WS-STATUS V.25.04 INQUIRE MS-XML-OBJECT @Status IN WS-STATUS V.25.04 INITIALIZE WS-RESPONSE V.25.04 INQUIRE MS-XML-OBJECT @responseText IN WS-RESPONSE. V.25.04 XRETRIEVE-AVIP-TRAN-LIST. V.25.04 * * This routine will retrieve a list of available transactions * from AVIP using XML Object logic that I found on the Microfocus * user forum website. This request will retrieve an XML list of * transactions and hold that list in the WS variable WS-REPONSE. RETRIEVE-AVIP-STMT-LIST. V.25.04 CREATE @XMLHTTP HANDLE IN MS-XML-OBJECT. V.25.04 MODIFY MS-XML-OBJECT V.25.04 @Open("GET", WS-IMAGE-ADDRESS-STMT-LIST, 0) V.25.04 MODIFY MS-XML-OBJECT @Send() V.25.04 INITIALIZE WS-STATUS V.25.04 INQUIRE MS-XML-OBJECT @Status IN WS-STATUS V.25.04 INITIALIZE WS-RESPONSE V.25.04 INQUIRE MS-XML-OBJECT @responseText IN WS-RESPONSE. V.25.04 XRETRIEVE-AVIP-STMT-LIST. V.25.04 * ImgeView-Before. Evaluate CONTROL-ID when WHold-WB-ID Continue when WHold-RB-Front-ID Continue when WHold-RB-Back-ID Continue when WHold-PB-ViewOld-ID V.25.06 Continue V.25.06 when WHold-PB-Trans-ID V.25.02 Continue V.25.02 when WHold-PB-ViewTran-ID V.25.02 Continue V.25.02 when WHold-PB-ViewStmt-ID V.25.03 Continue V.25.03 when WHold-PB-Print-ID V.25.04 Continue V.25.04 when WHold-PB-Exit-ID * Toggle the action of the ENTER key: Set environment "KEYSTROKE" to "TERMINATE=13 ^M" when OTHER Continue End-Evaluate. *XImgeView-Before. * * ImgeView-After. Evaluate CONTROL-ID when WHold-WB-ID Continue when WHold-RB-Front-ID Continue when WHold-RB-Back-ID Continue when WHold-PB-ViewOld-ID V.25.06 Continue V.25.06 when WHold-PB-Trans-ID V.25.02 Continue V.25.02 when WHold-PB-ViewTran-ID V.25.02 Continue V.25.02 when WHold-PB-ViewStmt-ID V.25.03 Continue V.25.03 when WHold-PB-Print-ID V.25.04 Continue V.25.04 when WHold-PB-Exit-ID * Toggle the action of the ENTER key: Set environment "KEYSTROKE" to "EDIT=Next TERMINATE=09 ^M" when OTHER Continue End-Evaluate. *XImgeView-After. * * ImgeView-Event-Handler. * Toggle the action of the ENTER key: Set environment "KEYSTROKE" to "EDIT=Next TERMINATE=09 ^M". V.25.02 * Check for an event V.25.02 Evaluate Key-Status V.25.02 * Events: V.25.02 when W-EVENT V.25.02 Evaluate EVENT-TYPE V.25.02 when zero V.25.02 Exit Paragraph V.25.02 when CMD-DBLCLICK V.25.02 Continue V.25.02 when CMD-GOTO V.25.02 Exit Paragraph V.25.02 when CMD-HELP V.25.02 Continue V.25.02 when CMD-CLOSE V.25.02 Exit Paragraph V.25.02 End-evaluate V.25.02 End-evaluate. V.25.02 * User selected help: V.25.04 If Key-Status = LS-ITEM-HELP-MODE V.25.04 OR Key-Status = LS-HELP-CURSOR-MODE V.25.04 Set ACCEPT-CONTROL-GOTO-ID to True V.25.04 Exit Paragraph V.25.04 End-If. V.25.04 * User clicked on the Help push button: V.25.04 If Key-Status = ImgeView-PB-WinHelp-Exception V.25.04 Move WWIN-HELP-MAIN to WD-N8 V.25.04 Perform LIBHELP-HelpScreen thru XLIBHELP-HelpScreen V.25.04 Set ACCEPT-CONTROL-GOTO-ID to True V.25.04 Exit Paragraph V.25.04 End-If. V.25.04 * User clicked on the EMail push button: V.25.04 If Key-Status = ImgeView-PB-EMail-Exception V.25.04 Perform Process-EMail thru XProcess-EMail V.25.04 Set ACCEPT-CONTROL-GOTO-ID to True V.25.04 End-If. V.25.04 * Controls: Evaluate CONTROL-ID when WHold-WB-ID Continue when WHold-RB-Front-ID Perform ImgeView-Set-Side thru XImgeView-Set-Side Set ACCEPT-CONTROL-GOTO-ID to True * Continue when WHold-RB-Back-ID Perform ImgeView-Set-Side thru XImgeView-Set-Side Set ACCEPT-CONTROL-GOTO-ID to True * Continue when WHold-PB-Viewold-ID V.25.06 Move 1 to ImgeView-RB-FrontBack-Value V.25.06 If ImgeView-ACCT = WS-ORIG-ACCT V.25.06 Move ImgeView-OLDACCT to ImgevIEW-ACCT V.25.06 Else V.25.06 Move WS-ORIG-ACCT to Imgeview-acct V.25.06 End-If V.25.06 Perform ImgeView-Set-Side thru XImgeView-Set-Side V.25.06 SET ACCEPT-CONTROL-GOTO-ID to True V.25.06 when WHold-PB-Trans-ID V.25.02 Move "Y" to WS-VIEWTRAN V.25.02 Move LS-DISABLE-CONTROL to ImgeView-WB-Enable V.25.02 Move LS-INVISIBLE-CONTROL to ImgeView-WB-Visible V.25.02 Move LS-ENABLE-CONTROL to ImgeView-LB-Trans-Enable V.25.02 Move LS-VISIBLE-CONTROL to ImgeView-LB-Trans-Visible V.25.02 Move LS-DISABLE-CONTROL to ImgeView-PB-DepTran-Enable V.25.02 Move LS-INVISIBLE-CONTROL to V.25.02 ImgeView-PB-DepTran-Visible V.25.02 Move LS-VISIBLE-CONTROL to ImgeView-PB-ViewTran-VisibleV.25.02 Move LS-ENABLE-CONTROL to ImgeView-PB-ViewTran-Enable V.25.02 Modify ImgeView-LB-Trans-Screen V.25.02 ENABLED = ImgeView-LB-Trans-Enable V.25.02 Display ImgeView-1-Screen V.25.02 Set ACCEPT-CONTROL-GOTO-ID to True V.25.02 Perform ImgeView-Get-Trans thru XImgeView-Get-Trans V.25.02 Set ACCEPT-CONTROL-GOTO-ID to True V.25.02 when WHold-PB-ViewTran-ID V.25.02 Move "Y" to WS-VIEWTRAN-IMAGE V.25.02 Move LS-ENABLE-CONTROL to ImgeView-WB-Enable V.25.02 Move LS-VISIBLE-CONTROL to ImgeView-WB-Visible V.25.02 Move LS-DISABLE-CONTROL to ImgeView-LB-Trans-Enable V.25.02 Move LS-INVISIBLE-CONTROL to ImgeView-LB-Trans-Visible V.25.02 Move LS-DISABLE-CONTROL to ImgeView-PB-DepTran-Enable V.25.02 Move LS-INVISIBLE-CONTROL to V.25.02 ImgeView-PB-DepTran-Visible V.25.02 Move LS-INVISIBLE-CONTROL to V.25.02 ImgeView-PB-ViewTran-Visible V.25.02 Move LS-DISABLE-CONTROL to ImgeView-PB-ViewTran-Enable V.25.02 Modify ImgeView-LB-Trans-Screen V.25.02 ENABLED = ImgeView-LB-Trans-Enable V.25.02 Perform Display-Tran-Image thru XDisplay-Tran-Image V.25.02 Set ACCEPT-CONTROL-GOTO-ID to True V.25.02 Display ImgeView-1-Screen V.25.02 when WHold-PB-ViewStmt-ID V.25.03 Move "Y" to WS-VIEWSTMT-IMAGE V.25.03 Move LS-ENABLE-CONTROL to ImgeView-WB-Enable V.25.03 Move LS-VISIBLE-CONTROL to ImgeView-WB-Visible V.25.03 Move LS-DISABLE-CONTROL to ImgeView-LB-Stmt-Enable V.25.03 Move LS-INVISIBLE-CONTROL to ImgeView-LB-Stmt-Visible V.25.03 Move LS-DISABLE-CONTROL to ImgeView-PB-DepTran-Enable V.25.03 Move LS-INVISIBLE-CONTROL to V.25.03 ImgeView-PB-DepTran-Visible V.25.03 Move LS-INVISIBLE-CONTROL to V.25.03 ImgeView-PB-ViewTran-Visible V.25.03 Move LS-DISABLE-CONTROL to ImgeView-PB-ViewTran-Enable V.25.03 Move LS-INVISIBLE-CONTROL to V.25.03 ImgeView-PB-ViewStmt-Visible V.25.03 Move LS-DISABLE-CONTROL to ImgeView-PB-ViewStmt-Enable V.25.03 Modify ImgeView-LB-Stmt-Screen V.25.03 ENABLED = ImgeView-LB-Stmt-Enable V.25.03 Perform Display-Stmt-Image thru XDisplay-Stmt-Image V.25.03 Set ACCEPT-CONTROL-GOTO-ID to True V.25.03 * Display ImgeView-1-Screen V.25.03 Evaluate TRUE V.25.03 when LS-CELL-SIZE-10 V.25.03 DISPLAY WEB-BROWSER VALUE WS-IMAGE-ADDRESS-STMT V.25.03 COLUMN 2, LINE 5, SIZE 93, LINES 25, V.25.03 handle in browser-1 V.25.03 when LS-CELL-SIZE-12 V.25.03 DISPLAY WEB-BROWSER VALUE WS-IMAGE-ADDRESS-STMT V.25.03 COLUMN 2, LINE 5, SIZE 97, LINES 23, V.25.03 handle in browser-1 V.25.03 when LS-CELL-SIZE-13 V.25.03 DISPLAY WEB-BROWSER VALUE WS-IMAGE-ADDRESS-STMT V.25.03 COLUMN 2, LINE 5, SIZE 96, LINES 24, V.25.03 handle in browser-1 V.25.03 when LS-CELL-SIZE-14 V.25.03 DISPLAY WEB-BROWSER VALUE WS-IMAGE-ADDRESS-STMT V.25.03 COLUMN 2, LINE 5, SIZE 93, LINES 22, V.25.03 handle in browser-1 V.25.03 when LS-CELL-SIZE-15 V.25.03 DISPLAY WEB-BROWSER VALUE WS-IMAGE-ADDRESS-STMT V.25.03 COLUMN 2, LINE 5, SIZE 102, LINES 23, V.25.03 handle in browser-1 V.25.03 End-Evaluate V.25.03 when WHold-PB-Print-ID V.25.04 Perform ImgeView-Print thru XImgeView-Print V.25.04 Set ACCEPT-CONTROL-GOTO-ID to True V.25.04 when WHold-PB-Exit-ID * Toggle the action of the ENTER key: If WS-VIEWTRAN-IMAGE = "Y" V.25.02 Move "N" to WS-VIEWTRAN-IMAGE V.25.02 Move LS-DISABLE-CONTROL to ImgeView-WB-Enable V.25.02 Move LS-INVISIBLE-CONTROL to ImgeView-WB-Visible V.25.02 Move LS-ENABLE-CONTROL to ImgeView-LB-Trans-Enable V.25.02 Move LS-VISIBLE-CONTROL to V.25.02 ImgeView-LB-Trans-Visible V.25.02 Move LS-DISABLE-CONTROL to ImgeView-PB-DepTran-Enable V.25.02 Move LS-INVISIBLE-CONTROL to V.25.02 ImgeView-PB-DepTran-Visible V.25.02 Move LS-VISIBLE-CONTROL to V.25.02 ImgeView-PB-ViewTran-Visible V.25.02 Move LS-ENABLE-CONTROL to V.25.02 ImgeView-PB-ViewTran-Enable V.25.02 Modify ImgeView-LB-Trans-Screen V.25.02 ENABLED = ImgeView-LB-Trans-Enable V.25.02 Set ACCEPT-CONTROL-GOTO-ID to True V.25.02 Move WS-AVIP-SAVE-ORIG to IMGEVIEW-AREA V.25.02 Perform AVIP-Front-Image thru XAVIP-Front-Image V.25.02 Display ImgeView-1-Screen V.25.02 Else V.25.02 If WS-VIEWTRAN = "Y" V.25.02 Move "N" TO WS-VIEWTRAN V.25.02 Move LS-ENABLE-CONTROL to ImgeView-WB-Enable V.25.02 Move LS-VISIBLE-CONTROL to ImgeView-WB-Visible V.25.02 Move LS-DISABLE-CONTROL to V.25.02 ImgeView-LB-Trans-Enable V.25.02 Move LS-INVISIBLE-CONTROL to V.25.02 ImgeView-LB-Trans-Visible V.25.02 Move LS-ENABLE-CONTROL to V.25.02 ImgeView-PB-DepTran-Enable V.25.02 Move LS-VISIBLE-CONTROL to V.25.02 ImgeView-PB-DepTran-Visible V.25.02 Move LS-INVISIBLE-CONTROL to V.25.02 ImgeView-PB-ViewTran-Visible V.25.02 Move LS-DISABLE-CONTROL to V.25.02 ImgeView-PB-ViewTran-Enable V.25.02 Modify ImgeView-LB-Trans-Screen V.25.02 ENABLED = ImgeView-LB-Trans-Enable V.25.02 Display ImgeView-1-Screen V.25.02 Set ACCEPT-CONTROL-GOTO-ID to True V.25.02 Else V.25.02 If WS-VIEWSTMT-IMAGE = "Y" V.25.03 DESTROY BROWSER-1 V.25.03 Move "N" to WS-VIEWSTMT-IMAGE V.25.03 Move LS-DISABLE-CONTROL to ImgeView-WB-Enable V.25.03 Move LS-INVISIBLE-CONTROL V.25.03 to ImgeView-WB-Visible V.25.03 Move LS-ENABLE-CONTROL V.25.03 to ImgeView-LB-Stmt-Enable V.25.03 Move LS-VISIBLE-CONTROL to V.25.03 ImgeView-LB-Stmt-Visible V.25.03 Move LS-VISIBLE-CONTROL to V.25.03 ImgeView-PB-ViewStmt-Visible V.25.03 Move LS-ENABLE-CONTROL to V.25.03 ImgeView-PB-ViewStmt-Enable V.25.03 Modify ImgeView-LB-Stmt-Screen V.25.03 ENABLED = ImgeView-LB-Stmt-Enable V.25.03 Set ACCEPT-CONTROL-GOTO-ID to True V.25.03 Perform AVIP-Stmt-List thru XAVIP-Stmt-List V.25.03 Display ImgeView-1-Screen V.25.03 Else V.25.03 Perform Cleanup-tmp-files V.26.06 thru XCleanup-tmp-files V.26.06 Set environment "KEYSTROKE" to "EDIT=Next TERMINATE=09 ^M" End-If V.25.03 End-If V.25.02 End-If V.25.02 when OTHER Continue End-Evaluate. XImgeView-Event-Handler. * Imgeview-2-GD-Event-Handler. V.28.01 * Toggle the action of the ENTER key: Evaluate EVENT-TYPE * User leaving the grid control, turn off colors: when MSG-VALIDATE If Imgeview-2-GD-Last-Row > 01 Move WCell-Color-Low to WD-N5 Move zeroes to Imgeview-2-GD-Cursor-X Imgeview-2-GD-Cursor-Y Perform Set-Grid-Row-Color thru XSet-Grid-Row-Color Set WLB-High-YesLOW to True else Set WLB-High-No to True End-If * User changed the column width: when MSG-COL-WIDTH-CHANGED Continue * User moved to the grid from another control: when CMD-GOTO Continue * User moved the cursor to a new cell, highlight the * active row: when MSG-GOTO-CELL when MSG-GOTO-CELL-MOUSE Inquire ImgeView-2-GD-List-Screen CURSOR-X in Imgeview-2-GD-Cursor-X CURSOR-Y in Imgeview-2-GD-Cursor-Y If EVENT-DATA-2 < 02 OR EVENT-DATA-2 > Imgeview-2-GD-Last-Row Move EVENT-ACTION-FAIL to EVENT-ACTION Exit Paragraph End-If If NOT WLB-High-No Set WLB-High-No to True Modify ImgeView-2-GD-List-Screen Y = Imgeview-2-GD-Cursor-Y ROW-COLOR = 0 Move 0 to WGD-Row-Color End-If If Imgeview-2-GD-Last-Row > 01 Add 01 to Imgeview-2-GD-Last-Row giving WD-N2 If EVENT-DATA-2 < WD-N2 Move WCell-Color-High to WD-N5 Move EVENT-DATA-1 to Imgeview-2-GD-Cursor-X Move EVENT-DATA-2 to Imgeview-2-GD-Cursor-Y Perform Set-Grid-Row-Color thru XSet-Grid-Row-Color Set WLB-High-YesHIGH to True If WS-HIDDEN-DATA > spaces Move WS-HIDDEN-DATA to WS-HIDDEN-Save End-If else Move EVENT-ACTION-FAIL to EVENT-ACTION End-If else Move EVENT-ACTION-FAIL to EVENT-ACTION End-If * User is dragging the mouse, no action: when MSG-BEGIN-DRAG Move EVENT-ACTION-FAIL to EVENT-ACTION * User is changing the cell contents, no action: when MSG-BEGIN-ENTRY Inquire Imgeview-2-GD-list-Screen ENTRY-REASON in WD-Ans If WD-Ans = H"00" OR H"0d" Move EVENT-ACTION-FAIL-TERMINATE to EVENT-ACTION else Move EVENT-ACTION-FAIL to EVENT-ACTION End-If * User clicked down 1: when MSG-PAGED-NEXT If WEOF-Flag-End Move EVENT-ACTION-FAIL to EVENT-ACTION Else If ImgeView-2-GD-Last-Row = ImgeView-2-GD-Num-Rows If WGD-Flag-Blank AND WGD-Cnt = zero Set WGD-Flag-Next to True Move 01 to WGD-Cnt End-If If NOT WGD-Flag-Blank Move zeroes to WDocs-GRID-HIGH-X WDocs-GRID-HIGH-Y * Retrieve current cursor position: Inquire ImgeView-2-GD-List-Screen CURSOR-X in ImgeView-2-GD-Cursor-X CURSOR-Y in ImgeView-2-GD-Cursor-Y * Turn off grid's row color: Inquire ImgeView-2-GD-List-Screen ROW-COLOR in WD-N5 Move WGD-Row-Color to WD-N5 If WD-N5 > zero Move ImgeView-2-GD-Cursor-X to WDocs-GRID-HIGH-X Move ImgeView-2-GD-Cursor-Y to WDocs-GRID-HIGH-Y Modify ImgeView-2-GD-List-Screen Y = ImgeView-2-GD-Cursor-Y ROW-COLOR = 0 Inquire ImgeView-2-GD-List-Screen CURSOR-COLOR in WD-N5 Move 0 to WD-N5 WGD-Row-Color If WD-N5 = WCell-Color-Reverse OR WD-N5 = WCell-Color-Reverse-NA OR WD-N5 = WCell-Color-Reverse-CO OR WD-N5 = WCell-Color-Reverse-PL OR WD-N5 = WCell-Color-Reverse-DF Modify ImgeView-2-GD-List-Screen X = ImgeView-2-GD-Cursor-X Y = ImgeView-2-GD-Cursor-Y CELL-COLOR = WD-N5 Else Modify ImgeView-2-GD-List-Screen X = ImgeView-2-GD-Cursor-X Y = ImgeView-2-GD-Cursor-Y CELL-COLOR = 0 End-If Modify ImgeView-2-GD-List-Screen CURSOR-COLOR = 0 End-If * Retrieve last record in grid: Modify ImgeView-2-GD-List-Screen Y = ImgeView-2-GD-Num-Rows Inquire ImgeView-2-GD-List-Screen RECORD-DATA in ImgeView-2-GD-List-Record Move GD-List-Col-DocID to WS-HIDDEN-DATA Set WEOL-Flag-No to True * loaded records to the grid: Move zeroes to WDocs-GRID-SUB WDocs-GRID-REC *gil * move zeroes to WDocs-GRID-REC If WDocs-GRID-LAST < ws-count1 Add 1 to WDocs-GRID-LAST giving WDocs-GRID-SUB Move '01' to WS-CHK-1 Perform LOAD-RDNXT-DOCLOOK thru XLOAD-RDNXT-DOCLOOK * End-If If GD-List-Col-DocID = spaces move '01' to W-It-is-last-line Exit Paragraph End-if Move GD-List-Col-DocID to WS-HIDDEN-DATA If ImgeView-2-GD-List-Record > spaces Set WEOF-Flag-Mid to True Modify ImgeView-2-GD-List-Screen INSERTION-INDEX = 0 RECORD-TO-ADD = ImgeView-2-GD-List-Record Add 01 to WDocs-GRID-LAST Add 01 WDocs-GRID-LMT giving WDoc-Sub End-if If WDocs-GRID-HIGH-Y > zero Subtract 01 from WDocs-GRID-HIGH-Y End-If If WS-HIDDEN-DATA = WS-HIDDEN-Save Move ImgeView-2-GD-Cursor-X to WDocs-GRID-HIGH-X Move ImgeView-2-GD-Num-Rows to WDocs-GRID-HIGH-Y End-If Else If WDocs-GRID-LAST = ws-count1 Move zeroes to WGD-Cnt Set WEOF-Flag-End to True End-If End-If * Restore grid's row color: If WDocs-GRID-HIGH-Y > 01 AND WDocs-GRID-HIGH-Y <= ImgeView-2-GD-Num-Rows Modify ImgeView-2-GD-List-Screen X = WDocs-GRID-HIGH-X Y = WDocs-GRID-HIGH-Y CURSOR-X = WDocs-GRID-HIGH-X CURSOR-Y = WDocs-GRID-HIGH-Y If CONTROL-ID = WHold-GD-List-ID Move WCell-Color-High to WD-N5 else Move WCell-Color-Low to WD-N5 End-If Move WDocs-GRID-HIGH-X to ImgeView-2-GD-Cursor-X Move WDocs-GRID-HIGH-Y to ImgeView-2-GD-Cursor-Y Perform Set-Grid-Row-Color thru XSet-Grid-Row-Color If CONTROL-ID = WHold-GD-List-ID Set WLB-High-YesHIGH to True else Set WLB-High-YesLOW to True End-If If WS-HIDDEN-DATA > spaces If NOT WGD-Flag-FrstPage Move WS-HIDDEN-DATA to WS-HIDDEN-Save End-If End-If else Set WLB-High-No to True End-If End-If End-if If WGD-Cnt = 01 Set WGD-Flag-Blank to True END-IF If WGD-Cnt > zero Subtract 01 from WGD-Cnt End-If End-If * User clicked up 1: when MSG-PAGED-PREV If WEOF-Flag-Beg Move EVENT-ACTION-FAIL to EVENT-ACTION Else If Imgeview-2-GD-Last-Row = Imgeview-2-GD-Num-Rows If WGD-Flag-Blank AND WGD-Cnt = zero Set WGD-Flag-Prev to True Move 01 to WGD-Cnt End-If If NOT WGD-Flag-Blank Move zeroes to WDocs-GRID-HIGH-X WDocs-GRID-HIGH-Y * Retrieve current cursor position: Inquire Imgeview-2-GD-list-Screen CURSOR-X in Imgeview-2-GD-Cursor-X CURSOR-Y in Imgeview-2-GD-Cursor-Y * Turn off grid's row color: Inquire Imgeview-2-GD-list-Screen ROW-COLOR = WD-N5 Move WGD-Row-Color to WD-N5 If WD-N5 > zero Move Imgeview-2-GD-Cursor-X to WDocs-GRID-HIGH-X Move Imgeview-2-GD-Cursor-Y to WDocs-GRID-HIGH-Y Modify Imgeview-2-GD-list-Screen Y = Imgeview-2-GD-Cursor-Y ROW-COLOR = 0 Inquire Imgeview-2-GD-list-Screen CURSOR-COLOR in WD-N5 Move 0 to WD-N5 WGD-Row-Color If WD-N5 = WCell-Color-Reverse OR WD-N5 = WCell-Color-Reverse-NA OR WD-N5 = WCell-Color-Reverse-CO OR WD-N5 = WCell-Color-Reverse-PL OR WD-N5 = WCell-Color-Reverse-DF Modify Imgeview-2-GD-list-Screen X = Imgeview-2-GD-Cursor-X Y = Imgeview-2-GD-Cursor-Y CELL-COLOR = WD-N5 Else Modify Imgeview-2-GD-list-Screen X = Imgeview-2-GD-Cursor-X Y = Imgeview-2-GD-Cursor-Y CELL-COLOR = 0 End-If Modify Imgeview-2-GD-list-Screen CURSOR-COLOR = 0 End-If * Retrieve first record in grid: Modify Imgeview-2-GD-list-Screen Y = 2 Inquire Imgeview-2-GD-list-Screen RECORD-DATA in Imgeview-2-GD-list-Record Move GD-List-Col-DocID to WS-HIDDEN-DATA * Load new records: Set WEOL-Flag-No to True If FILEIO-STAT NOT = "00" Set WEOL-Flag-Yes to True End-If Move zeroes to WDocs-GRID-SUB WDocs-GRID-REC If WDocs-GRID-LAST > 15 subtract 15 from WDocs-GRID-LAST giving WDocs-GRID-SUB move 02 to WS-CHK-2 Perform LOAD-RDPRV-DOCLOOK thru XLOAD-RDPRV-DOCLOOK If GD-List-Col-DocID = spaces move '01' to W-It-is-first-line Exit Paragraph End-if If Imgeview-2-GD-list-Record > spaces Set WEOF-Flag-Mid to True Inspect Imgeview-2-GD-list-Record replacing all H"00" by H"20" Move GD-List-Col-DocID to WS-HIDDEN-DATA Modify Imgeview-2-GD-list-Screen INSERTION-INDEX = 02 RECORD-TO-ADD = Imgeview-2-GD-list-Record Subtract 1 from WDocs-GRID-LAST Add 01 WDocs-GRID-LMT giving WDoc-Sub End-If If WDocs-GRID-HIGH-Y > zero Add 01 to WDocs-GRID-HIGH-Y End-If If WS-HIDDEN-DATA = WS-HIDDEN-Save Move Imgeview-2-GD-Cursor-X to WDocs-GRID-HIGH-X Move 02 to WDocs-GRID-HIGH-Y End-If Else If WS-FIRST-ID = WS-HIDDEN-DATA AND WGD-Cnt = 1 Move zeroes to WGD-Cnt Set WEOF-Flag-Beg to True End-If End-If * Restore grid's row color: If WDocs-GRID-HIGH-Y > 01 AND WDocs-GRID-HIGH-Y <= Imgeview-2-GD-Num-Rows Modify Imgeview-2-GD-list-Screen X = WDocs-GRID-HIGH-X Y = WDocs-GRID-HIGH-Y CURSOR-X = WDocs-GRID-HIGH-X CURSOR-Y = WDocs-GRID-HIGH-Y If CONTROL-ID = WHold-GD-list-ID Move WCell-Color-High to WD-N5 else Move WCell-Color-Low to WD-N5 End-If Move WDocs-GRID-HIGH-X to Imgeview-2-GD-Cursor-X Move WDocs-GRID-HIGH-Y to Imgeview-2-GD-Cursor-Y Perform Set-Grid-Row-Color thru XSet-Grid-Row-Color If CONTROL-ID = WHold-GD-list-ID Set WLB-High-YesHIGH to True else Set WLB-High-YesLOW to True End-If If WS-HIDDEN-DATA > spaces Move WS-HIDDEN-DATA to WS-HIDDEN-Save End-If else Set WLB-High-No to True End-If End-If End-If If WGD-Cnt = 01 Set WGD-Flag-Blank to True END-IF If WGD-Cnt > zero Subtract 01 from WGD-Cnt End-If End-if * User clicked page down: when MSG-PAGED-NEXTPAGE If Imgeview-2-GD-Last-Row NOT = Imgeview-2-GD-Num-Rows Move EVENT-ACTION-FAIL to EVENT-ACTION Else Set WGD-Flag-NextPage to True Subtract 01 from Imgeview-2-GD-Num-Rows giving WGD-Cnt End-If * User clicked page up: when MSG-PAGED-PREVPAGE If Imgeview-2-GD-Last-Row NOT = Imgeview-2-GD-Num-Rows Move EVENT-ACTION-FAIL to EVENT-ACTION Else Set WGD-Flag-PrevPage to True Subtract 01 from Imgeview-2-GD-Num-Rows giving WGD-Cnt End-If * User clicked last page: when MSG-PAGED-LAST If Imgeview-2-GD-Last-Row NOT = Imgeview-2-GD-Num-Rows Move EVENT-ACTION-FAIL to EVENT-ACTION Else Set WEOF-Flag-End to True Set WGD-Flag-LastPage to True Subtract 01 from Imgeview-2-GD-Num-Rows giving WGD-Cnt Add 15 to ws-count1 giving WDocs-GRID-LAST End-If * User clicked first page: when MSG-PAGED-FIRST If Imgeview-2-GD-Last-Row NOT = Imgeview-2-GD-Num-Rows Move EVENT-ACTION-FAIL to EVENT-ACTION Else Set WEOF-Flag-Beg to True Set WGD-Flag-FrstPage to True Subtract 01 from Imgeview-2-GD-Num-Rows giving WGD-Cnt Move zero to WDocs-GRID-LAST End-If End-Evaluate. XImgeview-2-GD-Event-Handler. * Imgeview-2-LB-List-Bef. * Toggle the action of the ENTER key: Set environment "KEYSTROKE" to "EDIT=Next TERMINATE=09 ^M". * Advance to the next control if no entries: If Imgeview-2-GD-Last-Row NOT > 01 Set ACCEPT-CONTROL-GOTO-ID to True Move WHold-PB-Exit-ID to CONTROL-ID Exit Paragraph. * Highlight the first item only when moving to the list * box from another control: If WLB-High-No OR WLB-High-YesLOW If Imgeview-2-GD-Last-Row > 01 Move WCell-Color-High to WD-N5 Move zeroes to Imgeview-2-GD-Cursor-X Imgeview-2-GD-Cursor-Y Perform Set-Grid-Row-Color thru XSet-Grid-Row-Color Set WLB-High-YesHIGH to True If WS-HIDDEN-DATA > spaces Move WS-HIDDEN-DATA to WS-HIDDEN-Save End-If End-If End-If. *** XImgeview-2-LB-List-Bef. * Imgeview-2-LB-List-Evt. XImgeview-2-LB-List-Evt. * * ImgeView-2-PB-View-Bef. XImgeView-2-PB-View-Bef. * ImgeView-2-PB-View-Evt. XImgeView-2-PB-View-Evt. * ImgeView-2-PB-Exit-Bef. * Toggle the action of the ENTER key: 015E9B Set environment "KEYSTROKE" to "TERMINATE=13 ^M". XImgeView-2-PB-Exit-Bef. * ImgeView-2-PB-Exit-Evt. * Toggle the action of the ENTER key: 015EA7 Set environment "KEYSTROKE" to "EDIT=Next TERMINATE=09 ^M". * User selected help: 015EAF If Key-Status = LS-ITEM-HELP-MODE OR Key-Status = LS-HELP-CURSOR-MODE 015EC2 Set ACCEPT-CONTROL-GOTO-ID to True 015EC8 Exit Paragraph End-If. XImgeView-2-PB-Exit-Evt. * Load-Doc-List-Header. Move spaces to ImgeView-2-GD-List-Record. Move "Document ID" to GD-List-Col-DocID(1:). Move "A/c Number" to GD-List-Col-Acct(1:). Move "A/c Type" to GD-List-Col-Acctyp(1:). Move "End Date" to GD-List-Col-EndDT(1:). Move "Document Type" to GD-List-Col-Doctype(1:). * Move "Document Tax Id" to GD-List-Col-Doctaxid(1:). Modify ImgeView-2-GD-List-Screen RECORD-TO-ADD = ImgeView-2-GD-List-Record. XLoad-Doc-List-Header. * Load-Doc-List. XLoad-Doc-List. V.28.01 * Process-Exception. Evaluate Key-Status * Window Help: when ImgeView-PB-WinHelp-Exception Move WWin-Help-Main to WD-N8 Perform LIBHELP-HELPSCREEN thru XLIBHELP-HELPSCREEN Set ACCEPT-CONTROL-GOTO-ID to True * EMail Automation: when ImgeView-PB-EMail-Exception Perform Process-Email thru XProcess-Email Set ACCEPT-CONTROL-GOTO-ID to True * View ecm Document: V.28.01 when ImgeView-2-PB-View-Exception V.28.01 Perform AVCM-Resend-XML-Request V.28.01 thru XAVCM-Resend-XML-Request V.28.01 * Exit: when ImgeView-PB-Exit-Exception when ImgeView-2-PB-Exit-Exception V.28.01 Set Exit-Button-Pressed to True End-Evaluate. XProcess-Exception. * Process-EMail. * Initialize: Initialize INTERNET-AREA. Initialize INTERNET-EMAIL-EMAILAUTO-DATA. * Call subprogram: Set INTERNET-AUTO-TYPE-SCR to True. Move ImgeView-SF-1-Title to INTERNET-AUTO-INFO. Move "IMGEVIEW.ACU" to INTERNET-AUTO-PROGRAM(1). Move "SPPRINTR.ACU" to INTERNET-AUTO-PROGRAM(2). Perform INTERNET-Email-Auto thru XINTERNET-Email-Auto. XProcess-EMail. * * ImgeView-Set-Side. * Retrieve application subscript: Inquire ImgeView-RB-Front-Screen VALUE in ImgeView-RB-FrontBack-Value. Evaluate ImgeView-RB-FrontBack-Value when 1 Modify ImgeView-RB-Front-Screen VALUE = ImgeView-RB-FrontBack-Value Evaluate LS-IMAGE-CHECK-VENDOR when 01 Perform AVIP-Front-Image thru XAVIP-Front-Image when 02 Perform Bankware-Front-Image thru XBankware-Front-Image when 03 Perform Standard-Front-Image thru XStandard-Front-Image when 04 Perform Summit-Front-Image thru XSummit-Front-Image when 05 V.25.08 Perform GCA-Front-Image V.25.08 thru XGCA-Front-Image V.25.08 when 06 V.25.08 Perform IBT-Front-Image V.25.08 thru XIBT-Front-Image V.25.08 when 07 V.25.10 Perform AVCM-Front-Image V.25.10 thru XAVCM-Front-Image V.25.10 End-Evaluate when 2 Modify ImgeView-RB-Back-Screen VALUE = ImgeView-RB-FrontBack-Value Evaluate LS-IMAGE-CHECK-VENDOR when 01 Perform AVIP-Back-Image thru XAVIP-Back-Image when 02 Perform Bankware-Back-Image thru XBankware-Back-Image when 03 Perform Standard-Back-Image thru XStandard-Back-Image when 04 Perform Summit-Back-Image thru XSummit-Back-Image when 05 V.25.08 Perform GCA-Back-Image V.25.08 thru XGCA-Back-Image V.25.08 when 06 V.25.09 Perform IBT-Back-Image V.25.08 thru XIBT-Back-Image V.25.08 when 07 V.25.10 Perform AVCM-Back-Image V.25.10 thru XAVCM-Back-Image V.25.10 End-Evaluate End-Evaluate. If LS-INITS = "***" V.25.02 Move LS-ENABLE-CONTROL to ImgeView-EF-URL-Enable V.25.02 Move LS-VISIBLE-CONTROL to ImgeView-EF-URL-Visible V.25.02 Move WS-IMAGE-ADDRESS-TRANSACTION V.25.02 to ImgeView-EF-URL-Value V.25.02 Modify ImgeView-EF-URL-Screen V.25.02 VALUE = ImgeView-EF-URL-Value V.25.02 Else V.25.02 Move LS-DISABLE-CONTROL to ImgeView-EF-URL-Enable V.25.02 Move LS-INVISIBLE-CONTROL to ImgeView-EF-URL-Visible V.25.02 Move WS-IMAGE-ADDRESS-TRANSACTION V.25.02 to ImgeView-EF-URL-Value V.25.02 Modify ImgeView-EF-URL-Screen V.25.02 VALUE = ImgeView-EF-URL-Value V.25.02 End-If. V.25.02 XImgeView-Set-Side. * AVIP-Front-Image. * Move LS-IMAGE-BANK-FRABA to WS-AVIP-IMAGE-FRDABA V.25.02 Move WS-HOLD-FRABA to WS-AVIP-IMAGE-FRDABA V.25.02 * MOVE IMGEVIEW-ACCT TO WS-AVIP-IMAGE-ACCT V.25.02 V.25.03 * IF WBKID-WESTHOPE-ND V.25.06 * IF IMGEVIEW-APPL = 2 OR 3 OR 4 OR 5 V.25.06 * IF IMGEVIEW-OLDACCT > 0 V.25.06 * MOVE IMGEVIEW-OLDACCT TO WS-XX-ACCT1 V.25.06 * ELSE V.25.06 * MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.06 * END-IF V.25.06 * ELSE V.25.06 * MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.06 * END-IF V.25.06 * ELSE V.25.06 IF WBKID-POWERSLAKE-ND V.25.05 IF IMGEVIEW-APPL = 3 OR 4 OR 5 V.25.05 IF IMGEVIEW-OLDACCT > 0 V.25.05 MOVE IMGEVIEW-OLDACCT TO WS-XX-ACCT1 V.25.05 ELSE V.25.05 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.05 END-IF V.25.05 ELSE V.25.05 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.05 END-IF V.25.05 ELSE V.25.05 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.03 END-IF. V.25.05 * END-IF. V.25.06 IF LS-IMAGE-LEADING-ACCT0 = "Y" V.25.05 MOVE WS-XX-ACCT1 TO WS-AVIP-IMAGE-ACCT V.25.05 ELSE V.25.05 MOVE ZEROS TO WS-P1 V.25.03 INSPECT WS-XX-ACCT1 TALLYING WS-P1 FOR LEADING ZEROS V.25.03 MOVE WS-XX-ACCT1(WS-P1 + 1:) TO WS-AVIP-IMAGE-ACCT V.25.03 IF WS-AVIP-IMAGE-ACCT(4:1) = " " V.25.04 MOVE WS-AVIP-IMAGE-ACCT(1:3) TO WS-AVIP-IMAGE-ACCT(2:3)V.25.04 MOVE "0" TO WS-AVIP-IMAGE-ACCT(1:1) V.25.04 SUBTRACT 1 FROM WS-P1 V.25.06 END-IF V.25.05 END-IF. V.25.04 MOVE IMGEVIEW-TRAN-BDATE TO WS-AVIP-IMAGE-DATE MOVE "&amt=" TO WS-AVIP-IMAGE-AMT-LABEL V.25.02 MULTIPLY IMGEVIEW-TRAN-AMT BY 100 V.25.02 GIVING WS-AVIP-IMAGE-AMT V.25.02 IF IMGEVIEW-TRAN-CHECK = 0 MOVE SPACES TO WS-AVIP-IMAGE-TRACER-REQUEST MOVE "&ex_trace=" TO WS-AVIP-IMAGE-TRACER-LABEL MOVE IMGEVIEW-TRAN-SEQ TO WS-AVIP-IMAGE-TRACER MOVE "&side=f" TO WS-AVIP-IMAGE-TRACER-SIDE Evaluate TRUE when LS-CELL-SIZE-10 MOVE "&iw=0680" TO WS-AVIP-IMAGE-TRACER-WIDTH MOVE "&ih=0350" TO WS-AVIP-IMAGE-TRACER-HEIGHT when LS-CELL-SIZE-12 MOVE "&iw=0840" TO WS-AVIP-IMAGE-TRACER-WIDTH MOVE "&ih=0420" TO WS-AVIP-IMAGE-TRACER-HEIGHT when LS-CELL-SIZE-13 MOVE "&iw=0900" TO WS-AVIP-IMAGE-TRACER-WIDTH MOVE "&ih=0450" TO WS-AVIP-IMAGE-TRACER-HEIGHT when LS-CELL-SIZE-14 MOVE "&iw=0990" TO WS-AVIP-IMAGE-TRACER-WIDTH MOVE "&ih=0510" TO WS-AVIP-IMAGE-TRACER-HEIGHT when LS-CELL-SIZE-15 MOVE "&iw=1050" TO WS-AVIP-IMAGE-TRACER-WIDTH MOVE "&ih=0530" TO WS-AVIP-IMAGE-TRACER-HEIGHT End-Evaluate ELSE MOVE SPACES TO WS-AVIP-IMAGE-CHECK-REQUEST MOVE "&check=" TO WS-AVIP-IMAGE-CHECK-LABEL MOVE IMGEVIEW-TRAN-CHECK TO WS-AVIP-IMAGE-CHECK * MOVE "&amt=" TO WS-AVIP-IMAGE-AMT-LABEL V.25.02 * MULTIPLY IMGEVIEW-TRAN-AMT BY 100 V.25.02 * GIVING WS-AVIP-IMAGE-AMT V.25.02 MOVE "&side=f" TO WS-AVIP-IMAGE-SIDE Evaluate TRUE when LS-CELL-SIZE-10 MOVE "&iw=0680" TO WS-AVIP-IMAGE-WIDTH MOVE "&ih=0350" TO WS-AVIP-IMAGE-HEIGHT when LS-CELL-SIZE-12 MOVE "&iw=0840" TO WS-AVIP-IMAGE-WIDTH MOVE "&ih=0420" TO WS-AVIP-IMAGE-HEIGHT when LS-CELL-SIZE-13 MOVE "&iw=0900" TO WS-AVIP-IMAGE-WIDTH MOVE "&ih=0450" TO WS-AVIP-IMAGE-HEIGHT when LS-CELL-SIZE-14 MOVE "&iw=0990" TO WS-AVIP-IMAGE-WIDTH MOVE "&ih=0510" TO WS-AVIP-IMAGE-HEIGHT when LS-CELL-SIZE-15 MOVE "&iw=1050" TO WS-AVIP-IMAGE-WIDTH MOVE "&ih=0530" TO WS-AVIP-IMAGE-HEIGHT End-Evaluate END-IF Move spaces to WS-IMAGE-ADDRESS-TRANSACTION IF LS-IMAGE-LEADING-ACCT0 = "Y" V.25.06 IF IMGEVIEW-TRAN-CHECK > 0 AND IMGEVIEW-TRAN-SEQ > 0 V.25.06 * IF WS-AVIP-IMAGE-ACCT = "0000000000" OR " "V.25.06 V.25.07 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.06 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.06 "&ex_trace=" V.25.06 IMGEVIEW-TRAN-SEQ V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06 End-String V.25.06 * ELSE V.25.06V.25.07 * String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06V.25.07 * WS-AVIP-IMAGE-TRAN-INFO DELIMITED BY " "V.25.06V.25.07 * "&ex_trace=" V.25.06V.25.07 * IMGEVIEW-TRAN-SEQ V.25.06V.25.07 * INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06V.25.07 * End-String V.25.06V.25.07 * END-IF V.25.06V.25.07 Else V.25.06 IF WS-AVIP-IMAGE-ACCT = "0000000000" OR " " V.25.06 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.06 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06 End-String V.25.06 ELSE V.25.06 IF IMGEVIEW-TRAN-SEQ > 0 V.25.07 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.07 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.07 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.07 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.07 End-String V.25.07 ELSE V.25.07 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-IMAGE-TRAN-INFO DELIMITED BY " " V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06 End-String V.25.06 END-IF V.25.07 END-IF V.25.06 End-If V.25.06 Else V.25.06 IF IMGEVIEW-TRAN-CHECK > 0 AND IMGEVIEW-TRAN-SEQ > 0 V.25.06 * IF WS-AVIP-IMAGE-ACCT = "0000000000" OR " "V.25.06V.25.07 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.06 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.06 "&ex_trace=" V.25.06 IMGEVIEW-TRAN-SEQ V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06 End-String V.25.06 * ELSE V.25.06V.25.07 * String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06V.25.07 * WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.06V.25.07 * WS-AVIP-IMAGE-ACCT-TITLE V.25.06V.25.07 * WS-AVIP-IMAGE-ACCT(1:10 - WS-P1) V.25.06V.25.07 * WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.06V.25.07 * "&ex_trace=" V.25.06V.25.07 * IMGEVIEW-TRAN-SEQ V.25.06V.25.07 * INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06V.25.07 * End-String V.25.06V.25.07 * END-IF V.25.06V.25.07 ELSE V.25.06 IF WS-AVIP-IMAGE-ACCT = "0000000000" OR " " V.25.06 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.06 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06 End-String V.25.06 ELSE V.25.06 IF IMGEVIEW-TRAN-SEQ > 0 V.25.07 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.07 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.07 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.07 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.07 End-String V.25.07 ELSE V.25.07 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.06 WS-AVIP-IMAGE-ACCT-TITLE V.25.06 WS-AVIP-IMAGE-ACCT(1:10 - WS-P1) V.25.06 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06 End-String V.25.06 END-IF V.25.07 END-IF V.25.06 END-IF V.25.06 End-If V.25.06 Move "AVIP Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC when 09 V.25.03 Move "G/L" to WS-AH-APPLDESC V.25.03 End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title V.25.04 Perform Fill-Header-Label thru XFill-Header-Label V.25.04 Move 1 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. XAVIP-Front-Image. * AVIP-Back-Image. * Move LS-IMAGE-BANK-FRABA to WS-AVIP-IMAGE-FRDABA V.25.02 Move WS-HOLD-FRABA to WS-AVIP-IMAGE-FRDABA V.25.02 * MOVE IMGEVIEW-ACCT TO WS-AVIP-IMAGE-ACCT V.25.02 V.25.03 * IF WBKID-WESTHOPE-ND V.25.06 * IF IMGEVIEW-APPL = 2 OR 3 OR 4 OR 5 V.25.06 * IF IMGEVIEW-OLDACCT > 0 V.25.06 * MOVE IMGEVIEW-OLDACCT TO WS-XX-ACCT1 V.25.06 * ELSE V.25.06 * MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.06 * END-IF V.25.06 * ELSE V.25.06 * MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.06 * END-IF V.25.06 * ELSE V.25.06 IF WBKID-POWERSLAKE-ND V.25.05 IF IMGEVIEW-APPL = 3 OR 4 OR 5 V.25.05 IF IMGEVIEW-OLDACCT > 0 V.25.05 MOVE IMGEVIEW-OLDACCT TO WS-XX-ACCT1 V.25.05 ELSE V.25.05 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.05 END-IF V.25.05 ELSE V.25.05 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.05 END-IF V.25.05 ELSE V.25.05 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.03 END-IF. V.25.05 * END-IF. V.25.06 IF LS-IMAGE-LEADING-ACCT0 = "Y" V.25.05 MOVE WS-XX-ACCT1 TO WS-AVIP-IMAGE-ACCT V.25.05 ELSE V.25.05 MOVE ZEROS TO WS-P1 V.25.03 INSPECT WS-XX-ACCT1 TALLYING WS-P1 FOR LEADING ZEROS V.25.03 MOVE WS-XX-ACCT1(WS-P1 + 1:) TO WS-AVIP-IMAGE-ACCT V.25.03 IF WS-AVIP-IMAGE-ACCT(4:1) = " " V.25.04 MOVE WS-AVIP-IMAGE-ACCT(1:3) TO WS-AVIP-IMAGE-ACCT(2:3)V.25.04 MOVE "0" TO WS-AVIP-IMAGE-ACCT(1:1) V.25.04 SUBTRACT 1 FROM WS-P1 V.25.06 END-IF V.25.05 END-IF. V.25.04 MOVE IMGEVIEW-TRAN-BDATE TO WS-AVIP-IMAGE-DATE MOVE "&amt=" TO WS-AVIP-IMAGE-AMT-LABEL V.25.02 MULTIPLY IMGEVIEW-TRAN-AMT BY 100 V.25.02 GIVING WS-AVIP-IMAGE-AMT V.25.02 IF IMGEVIEW-TRAN-CHECK = 0 MOVE SPACES TO WS-AVIP-IMAGE-TRACER-REQUEST MOVE "&ex_trace=" TO WS-AVIP-IMAGE-TRACER-LABEL MOVE IMGEVIEW-TRAN-SEQ TO WS-AVIP-IMAGE-TRACER MOVE "&side=b" TO WS-AVIP-IMAGE-TRACER-SIDE Evaluate TRUE when LS-CELL-SIZE-10 MOVE "&iw=0680" TO WS-AVIP-IMAGE-TRACER-WIDTH MOVE "&ih=0350" TO WS-AVIP-IMAGE-TRACER-HEIGHT when LS-CELL-SIZE-12 MOVE "&iw=0840" TO WS-AVIP-IMAGE-TRACER-WIDTH MOVE "&ih=0420" TO WS-AVIP-IMAGE-TRACER-HEIGHT when LS-CELL-SIZE-13 MOVE "&iw=0900" TO WS-AVIP-IMAGE-TRACER-WIDTH MOVE "&ih=0450" TO WS-AVIP-IMAGE-TRACER-HEIGHT when LS-CELL-SIZE-14 MOVE "&iw=0990" TO WS-AVIP-IMAGE-TRACER-WIDTH MOVE "&ih=0510" TO WS-AVIP-IMAGE-TRACER-HEIGHT when LS-CELL-SIZE-15 MOVE "&iw=1050" TO WS-AVIP-IMAGE-TRACER-WIDTH MOVE "&ih=0530" TO WS-AVIP-IMAGE-TRACER-HEIGHT End-Evaluate ELSE MOVE SPACES TO WS-AVIP-IMAGE-CHECK-REQUEST MOVE "&check=" TO WS-AVIP-IMAGE-CHECK-LABEL MOVE IMGEVIEW-TRAN-CHECK TO WS-AVIP-IMAGE-CHECK * MOVE "&amt=" TO WS-AVIP-IMAGE-AMT-LABEL V.25.02 * MULTIPLY IMGEVIEW-TRAN-AMT BY 100 V.25.02 * GIVING WS-AVIP-IMAGE-AMT V.25.02 MOVE "&side=b" TO WS-AVIP-IMAGE-SIDE Evaluate TRUE when LS-CELL-SIZE-10 MOVE "&iw=0680" TO WS-AVIP-IMAGE-WIDTH MOVE "&ih=0350" TO WS-AVIP-IMAGE-HEIGHT when LS-CELL-SIZE-12 MOVE "&iw=0840" TO WS-AVIP-IMAGE-WIDTH MOVE "&ih=0420" TO WS-AVIP-IMAGE-HEIGHT when LS-CELL-SIZE-13 MOVE "&iw=0900" TO WS-AVIP-IMAGE-WIDTH MOVE "&ih=0450" TO WS-AVIP-IMAGE-HEIGHT when LS-CELL-SIZE-14 MOVE "&iw=0990" TO WS-AVIP-IMAGE-WIDTH MOVE "&ih=0510" TO WS-AVIP-IMAGE-HEIGHT when LS-CELL-SIZE-15 MOVE "&iw=1050" TO WS-AVIP-IMAGE-WIDTH MOVE "&ih=0530" TO WS-AVIP-IMAGE-HEIGHT End-Evaluate END-IF Move spaces to WS-IMAGE-ADDRESS-TRANSACTION IF LS-IMAGE-LEADING-ACCT0 = "Y" V.25.06 IF IMGEVIEW-TRAN-CHECK > 0 AND IMGEVIEW-TRAN-SEQ > 0 V.25.06 * IF WS-AVIP-IMAGE-ACCT = "0000000000" OR " " V.25.06V.25.07 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.06 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.06 "&ex_trace=" V.25.06 IMGEVIEW-TRAN-SEQ V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06 End-String V.25.06 * ELSE V.25.06V.25.07 * String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06V.25.07 * WS-AVIP-IMAGE-TRAN-INFO DELIMITED BY " " V.25.06V.25.07 * "&ex_trace=" V.25.06V.25.07 * IMGEVIEW-TRAN-SEQ V.25.06V.25.07 * INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06V.25.07 * End-String V.25.06V.25.07 * END-IF V.25.06V.25.07 Else V.25.06 IF WS-AVIP-IMAGE-ACCT = "0000000000" OR " " V.25.06 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.06 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06 End-String V.25.06 ELSE V.25.06 IF IMGEVIEW-TRAN-SEQ > 0 V.25.07 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.07 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.07 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.07 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.07 End-String V.25.07 ELSE V.25.07 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-IMAGE-TRAN-INFO DELIMITED BY " " V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06 End-String V.25.06 END-IF V.25.07 END-IF V.25.06 End-If V.25.06 Else V.25.06 IF IMGEVIEW-TRAN-CHECK > 0 AND IMGEVIEW-TRAN-SEQ > 0 V.25.06 * IF WS-AVIP-IMAGE-ACCT = "0000000000" OR " "V.25.06V.25.07 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.06 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.06 "&ex_trace=" V.25.06 IMGEVIEW-TRAN-SEQ V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06 End-String V.25.06 * ELSE V.25.06V.25.07 * String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06V.25.07 * WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.06V.25.07 * WS-AVIP-IMAGE-ACCT-TITLE V.25.06V.25.07 * WS-AVIP-IMAGE-ACCT(1:10 - WS-P1) V.25.06V.25.07 * WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " "V.25.06V.25.07 * "&ex_trace=" V.25.06V.25.07 * IMGEVIEW-TRAN-SEQ V.25.06V.25.07 * INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06V.25.07 * End-String V.25.06V.25.07 * END-IF V.25.06V.25.07 ELSE V.25.06 IF WS-AVIP-IMAGE-ACCT = "0000000000" OR " " V.25.06 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.06 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06 End-String V.25.06 ELSE V.25.06 IF IMGEVIEW-TRAN-SEQ > 0 V.25.07 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.07 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.07 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.07 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.07 End-String V.25.07 ELSE V.25.07 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-IMAGE-TRAN-INFO-BEG V.25.06 WS-AVIP-IMAGE-ACCT-TITLE V.25.06 WS-AVIP-IMAGE-ACCT(1:10 - WS-P1) V.25.06 WS-AVIP-IMAGE-TRAN-INFO-END DELIMITED BY " " V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION V.25.06 End-String V.25.06 END-IF V.25.07 END-IF V.25.06 END-IF V.25.06 End-If V.25.06 Move "AVIP Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC when 09 V.25.03 Move "G/L" to WS-AH-APPLDESC V.25.03 End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title V.25.04 Perform Fill-Header-Label thru XFill-Header-Label V.25.04 Move 2 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. XAVIP-Back-Image. * Bankware-Front-Image. MOVE IMGEVIEW-ACCT TO WS-BANKWARE-IMAGE-ACCT. MOVE LS-IMAGE-BANK-NUMBER TO WS-BANKWARE-IMAGE-BANKNUM. MOVE IMGEVIEW-TRAN-TC TO WSTC-TRANCODE. IF WSTC-CREDITS MOVE SPACES TO WS-BANKWARE-IMG-DEPOSIT-REQUEST MOVE "de" TO WS-BANKWARE-IMAGE-TYPE MOVE "&date=" TO WS-BANKWARE-IMGCR-DATE-LBL MOVE IMGEVIEW-TRAN-BDATE TO WS-BANKWARE-IMGCR-DATE MOVE "&side=f" TO WS-BANKWARE-IMGCR-SIDE MOVE "&amt=" TO WS-BANKWARE-IMGCR-AMT-LBL MULTIPLY IMGEVIEW-TRAN-AMT BY 100 GIVING WS-BANKWARE-IMGCR-AMT ELSE MOVE "ce" TO WS-BANKWARE-IMAGE-TYPE MOVE "&date=" TO WS-BANKWARE-IMGDB-DATE-LBL MOVE IMGEVIEW-TRAN-BDATE TO WS-BANKWARE-IMGDB-DATE MOVE "&side=f" TO WS-BANKWARE-IMGDB-SIDE MOVE "&amt=" TO WS-BANKWARE-IMGDB-AMT-LBL MULTIPLY IMGEVIEW-TRAN-AMT BY 100 GIVING WS-BANKWARE-IMGDB-AMT MOVE "&check=" TO WS-BANKWARE-IMGDB-CHECK-LBL MOVE IMGEVIEW-TRAN-CHECK TO WS-BANKWARE-IMGDB-CHECK END-IF Move spaces to WS-IMAGE-ADDRESS-TRANSACTION String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-BANKWARE-IMAGE-TRAN-INFO INTO WS-IMAGE-ADDRESS-TRANSACTION End-String Move "Bankware Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title V.25.04 Perform Fill-Header-Label thru XFill-Header-Label V.25.04 Move 1 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. XBankware-Front-Image. * Bankware-Back-Image. MOVE IMGEVIEW-ACCT TO WS-BANKWARE-IMAGE-ACCT. MOVE LS-IMAGE-BANK-NUMBER TO WS-BANKWARE-IMAGE-BANKNUM. MOVE IMGEVIEW-TRAN-TC TO WSTC-TRANCODE. IF WSTC-CREDITS MOVE SPACES TO WS-BANKWARE-IMG-DEPOSIT-REQUEST MOVE "de" TO WS-BANKWARE-IMAGE-TYPE MOVE "&date=" TO WS-BANKWARE-IMGCR-DATE-LBL MOVE IMGEVIEW-TRAN-BDATE TO WS-BANKWARE-IMGCR-DATE MOVE "&side=b" TO WS-BANKWARE-IMGCR-SIDE MOVE "&amt=" TO WS-BANKWARE-IMGCR-AMT-LBL MULTIPLY IMGEVIEW-TRAN-AMT BY 100 GIVING WS-BANKWARE-IMGCR-AMT ELSE MOVE "ce" TO WS-BANKWARE-IMAGE-TYPE MOVE "&date=" TO WS-BANKWARE-IMGDB-DATE-LBL MOVE IMGEVIEW-TRAN-BDATE TO WS-BANKWARE-IMGDB-DATE MOVE "&side=b" TO WS-BANKWARE-IMGDB-SIDE MOVE "&amt=" TO WS-BANKWARE-IMGDB-AMT-LBL MULTIPLY IMGEVIEW-TRAN-AMT BY 100 GIVING WS-BANKWARE-IMGDB-AMT MOVE "&check=" TO WS-BANKWARE-IMGDB-CHECK-LBL MOVE IMGEVIEW-TRAN-CHECK TO WS-BANKWARE-IMGDB-CHECK END-IF Move spaces to WS-IMAGE-ADDRESS-TRANSACTION String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-BANKWARE-IMAGE-TRAN-INFO INTO WS-IMAGE-ADDRESS-TRANSACTION End-String Move "Bankware Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title V.25.04 Perform Fill-Header-Label thru XFill-Header-Label V.25.04 Move 2 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. XBankware-Back-Image. * Summit-Front-Image. Move LS-IMAGE-BANK-FRABA to WS-SUMMIT-IMAGE-ABA. MOVE IMGEVIEW-ACCT TO WS-SUMMIT-IMAGE-ACCT. MULTIPLY IMGEVIEW-TRAN-AMT BY 100 GIVING WS-SUMMIT-IMAGE-AMT. MULTIPLY IMGEVIEW-TRAN-BDATE BY 10000.0001 GIVING WS-SUMMIT-IMAGE-DATE. MOVE IMGEVIEW-TRAN-CHECK TO WS-SUMMIT-IMAGE-CHECK. MOVE IMGEVIEW-TRAN-SEQ TO WS-SUMMIT-IMAGE-TRACE. MOVE "F" TO WS-SUMMIT-IMAGE-SIDE. Move LS-IMAGE-BANK-FRABA to WS-SUMMIT-IMAGE-ABA1. V.26.11 MOVE IMGEVIEW-ACCT TO WS-SUMMIT-IMAGE-ACCT1. V.26.11 Move IMGEVIEW-TRAN-AMT TO WS-XX-SUMMIT-AMT V.26.11 * to remove leading spaces from the amount starts V.26.11 MOVE WS-XX-SUMMIT-AMT TO WS-XX-AMT1 V.26.11 MOVE ZEROS TO WS-P2 V.26.11 INSPECT WS-XX-AMT1 TALLYING WS-P2 FOR LEADING SPACES V.26.11 MOVE WS-XX-AMT1(WS-P2 + 1:) TO WS-SUMMIT-IMAGE-AMT1 V.26.11 * to remove leading spaces from the amount ends V.26.11 * MOVE WS-XX-SUMMIT-AMT TO WS-SUMMIT-IMAGE-AMT1 V.26.11 MULTIPLY IMGEVIEW-TRAN-BDATE BY 10000.0001 V.26.11 GIVING WS-SUMMIT-IMAGE-DATE1. V.26.11 MOVE IMGEVIEW-TRAN-CHECK TO WS-SUMMIT-IMAGE-CHECK1. V.26.11 * to remove leading zeroes from the TRACE number starts V.26.11 MOVE IMGEVIEW-TRAN-SEQ TO WS-XX-TRACE V.26.11 MOVE ZEROS TO WS-P2 V.26.11 INSPECT WS-XX-TRACE TALLYING WS-P2 FOR LEADING ZEROS V.26.11 MOVE WS-XX-TRACE(WS-P2 + 1:) TO WS-XX-TRACE1 V.26.11 * to remove leading zeroes from the TRACE number ends V.26.11 MOVE WS-XX-TRACE1 TO WS-SUMMIT-IMAGE-TRACE1. V.26.11 MOVE "F" TO WS-SUMMIT-IMAGE-SIDE1. V.26.11 Move spaces to WS-IMAGE-ADDRESS-TRANSACTION V.26.11 * String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.26.11 * WS-SUMMIT-IMAGE-TRAN-INFO V.26.11 * INTO WS-IMAGE-ADDRESS-TRANSACTION V.26.11 * End-String V.26.11 String LS-IMAGE-SERVER-ADDR V.26.11 WS-SUMMIT-IMAGE-TRAN-INFO1 V.26.11 WS-SUMMIT-IMAGE-TRAN-INFO2 V.26.11 WS-SUMMIT-IMAGE-TRAN-INFO3 V.26.11 WS-SUMMIT-IMAGE-TRAN-INFO4 V.26.11 WS-SUMMIT-IMAGE-TRAN-INFO5 V.26.11 delimited by spaces INTO WS-IMAGE-ADDRESS-TRANSACTION V.26.11 End-String V.26.11 Move "Summit Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title V.25.04 Perform Fill-Header-Label thru XFill-Header-Label V.25.04 Move 1 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. XSummit-Front-Image. * Summit-Back-Image. * Move LS-IMAGE-BANK-FRABA to WS-SUMMIT-IMAGE-ABA. * MOVE IMGEVIEW-ACCT TO WS-SUMMIT-IMAGE-ACCT. * MULTIPLY IMGEVIEW-TRAN-AMT BY 100 * GIVING WS-SUMMIT-IMAGE-AMT. * MULTIPLY IMGEVIEW-TRAN-BDATE BY 10000.0001 * GIVING WS-SUMMIT-IMAGE-DATE. * MOVE IMGEVIEW-TRAN-CHECK TO WS-SUMMIT-IMAGE-CHECK. * MOVE IMGEVIEW-TRAN-SEQ TO WS-SUMMIT-IMAGE-TRACE. * MOVE "B" TO WS-SUMMIT-IMAGE-SIDE. Move LS-IMAGE-BANK-FRABA to WS-SUMMIT-IMAGE-ABA1. V.26.11 MOVE IMGEVIEW-ACCT TO WS-SUMMIT-IMAGE-ACCT1. V.26.11 Move IMGEVIEW-TRAN-AMT TO WS-XX-SUMMIT-AMT V.26.11 * to remove leading spaces from the amount starts V.26.11 MOVE WS-XX-SUMMIT-AMT TO WS-XX-AMT1 V.26.11 MOVE ZEROS TO WS-P2 V.26.11 INSPECT WS-XX-AMT1 TALLYING WS-P2 FOR LEADING SPACES V.26.11 MOVE WS-XX-AMT1(WS-P2 + 1:) TO WS-SUMMIT-IMAGE-AMT1 V.26.11 * to remove leading spaces from the amount ends V.26.11 * MOVE WS-XX-SUMMIT-AMT TO WS-SUMMIT-IMAGE-AMT1 V.26.11 MULTIPLY IMGEVIEW-TRAN-BDATE BY 10000.0001 V.26.11 GIVING WS-SUMMIT-IMAGE-DATE1. V.26.11 MOVE IMGEVIEW-TRAN-CHECK TO WS-SUMMIT-IMAGE-CHECK1. V.26.11 * to remove leading zeroes from the TRACE number starts V.26.11 MOVE IMGEVIEW-TRAN-SEQ TO WS-XX-TRACE V.26.11 MOVE ZEROS TO WS-P2 V.26.11 INSPECT WS-XX-TRACE TALLYING WS-P2 FOR LEADING ZEROS V.26.11 MOVE WS-XX-TRACE(WS-P2 + 1:) TO WS-XX-TRACE1 V.26.11 * to remove leading zeroes from the TRACE number ends V.26.11 MOVE WS-XX-TRACE1 TO WS-SUMMIT-IMAGE-TRACE1. V.26.11 MOVE "B" TO WS-SUMMIT-IMAGE-SIDE1. V.26.11 Move spaces to WS-IMAGE-ADDRESS-TRANSACTION V.26.11 * String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.26.11 * WS-SUMMIT-IMAGE-TRAN-INFO V.26.11 * INTO WS-IMAGE-ADDRESS-TRANSACTION V.26.11 * End-String V.26.11 String LS-IMAGE-SERVER-ADDR V.26.11 WS-SUMMIT-IMAGE-TRAN-INFO1 V.26.11 WS-SUMMIT-IMAGE-TRAN-INFO2 V.26.11 WS-SUMMIT-IMAGE-TRAN-INFO3 V.26.11 WS-SUMMIT-IMAGE-TRAN-INFO4 V.26.11 WS-SUMMIT-IMAGE-TRAN-INFO5 V.26.11 delimited by spaces INTO WS-IMAGE-ADDRESS-TRANSACTION V.26.11 End-String V.26.11 Move "Summit Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title V.25.04 Perform Fill-Header-Label thru XFill-Header-Label V.25.04 Move 2 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. XSummit-Back-Image. * V.25.10 AVCM-Front-Image. MOVE IMGEVIEW-ACCT TO WS-AVCM-IMAGE-ACCT. MOVE IMGEVIEW-ACCT TO WS-AVCM-IMAGE-ACCT1. V.26.13 * MOVE SPACES TO WS-AVCM-IMAGE-TRAN-INFO V.26.09 * WS-AVCM-IMAGE-TRAN-INFO1. V.26.09 MULTIPLY IMGEVIEW-TRAN-AMT BY 100 GIVING WS-AVCM-IMAGE-AMT. * MULTIPLY IMGEVIEW-TRAN-BDATE BY 10000.0001 * GIVING WS-AVCM-IMAGE-DATE. MOVE IMGEVIEW-TRAN-BDATE TO WS-AVCM-IMAGE-DATE1. V.26.13 MOVE IMGEVIEW-TRAN-BDATE TO WS-AVCM-IMAGE-DATE. MOVE "F" TO WS-AVCM-IMAGE-SIDE. MOVE "F" TO WS-AVCM-IMAGE-SIDE1. V.26.09 MOVE IMGEVIEW-TRAN-SEQ TO WS-AVCM-IMAGE-TRACE. V.26.07 MOVE IMGEVIEW-TRAN-CHECK TO WS-AVCM-IMAGE-Check. V.26.07 * MOVE IMGEVIEW-TRAN-CHECK TO WS-AVCM-IMAGE-Check1. V.26.09V.26.13 Move spaces to WS-IMAGE-ADDRESS-TRANSACTION IF WS-AVCM-IMAGE-TRACE > 0 V.26.09 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-AVCM-IMAGE-TRAN-INFO1 INTO WS-IMAGE-ADDRESS-TRANSACTION End-String ELSE String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-AVCM-IMAGE-TRAN-INFO INTO WS-IMAGE-ADDRESS-TRANSACTION End-String END-IF. Move "AVCM Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title Perform Fill-Header-Label thru XFill-Header-Label Move 1 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. XAVCM-Front-Image. * V.25.10 AVCM-Back-Image. MOVE IMGEVIEW-ACCT TO WS-AVCM-IMAGE-ACCT. MOVE IMGEVIEW-ACCT TO WS-AVCM-IMAGE-ACCT1. V.26.13 MULTIPLY IMGEVIEW-TRAN-AMT BY 100 GIVING WS-AVCM-IMAGE-AMT. * MULTIPLY IMGEVIEW-TRAN-BDATE BY 10000.0001 * GIVING WS-AVCM-IMAGE-DATE. MOVE IMGEVIEW-TRAN-BDATE TO WS-AVCM-IMAGE-DATE1. V.26.13 MOVE IMGEVIEW-TRAN-BDATE TO WS-AVCM-IMAGE-DATE. MOVE "B" TO WS-AVCM-IMAGE-SIDE. MOVE "B" TO WS-AVCM-IMAGE-SIDE1. V.26.09 MOVE IMGEVIEW-TRAN-SEQ TO WS-AVCM-IMAGE-TRACE. V.26.07 MOVE IMGEVIEW-TRAN-CHECK TO WS-AVCM-IMAGE-Check. V.26.07 * MOVE IMGEVIEW-TRAN-CHECK TO WS-AVCM-IMAGE-Check1. V.26.09 Move spaces to WS-IMAGE-ADDRESS-TRANSACTION IF WS-AVCM-IMAGE-TRACE > 0 V.26.09 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-AVCM-IMAGE-TRAN-INFO1 INTO WS-IMAGE-ADDRESS-TRANSACTION End-String ELSE String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-AVCM-IMAGE-TRAN-INFO INTO WS-IMAGE-ADDRESS-TRANSACTION End-String END-IF. Move "AVCM Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC End-Evaluate Perform Fill-Header-Label thru XFill-Header-Label Move 2 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. XAVCM-Back-Image. * * This routine will display check images in Internet explorer. * and will string together a URL with correct keywords * so that Arc image knows what check image is required. * It uses DocPOP API to retrieve and display statements. * ARCIMAGE-Front-Image. MOVE IMGEVIEW-TRAN-TC TO WSTC-TRANCODE. MOVE spaces TO WS-ARCIMAGE-DOC-TYPE. If WSTC-CREDITS Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC Move "35" to WS-ARCIMAGE-DOC-TYPE when 02 Move "SAV" to WS-AH-APPLDESC Move "11" to WS-ARCIMAGE-DOC-TYPE when 03 Move "COD" to WS-AH-APPLDESC Move "13" to WS-ARCIMAGE-DOC-TYPE when 04 Move "ILN" to WS-AH-APPLDESC Move "15" to WS-ARCIMAGE-DOC-TYPE when 05 Move "ALN" to WS-AH-APPLDESC Move "17" to WS-ARCIMAGE-DOC-TYPE when 07 Move "SAF" to WS-AH-APPLDESC Move "19" to WS-ARCIMAGE-DOC-TYPE when 09 Move "G/L" to WS-AH-APPLDESC Move "21" to WS-ARCIMAGE-DOC-TYPE when other Move "SAF" to WS-AH-APPLDESC Move "32" to WS-ARCIMAGE-DOC-TYPE End-Evaluate Else Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC Move "29" to WS-ARCIMAGE-DOC-TYPE when 02 Move "SAV" to WS-AH-APPLDESC Move "10" to WS-ARCIMAGE-DOC-TYPE when 03 Move "COD" to WS-AH-APPLDESC Move "12" to WS-ARCIMAGE-DOC-TYPE when 04 Move "ILN" to WS-AH-APPLDESC Move "14" to WS-ARCIMAGE-DOC-TYPE when 05 Move "ALN" to WS-AH-APPLDESC Move "16" to WS-ARCIMAGE-DOC-TYPE when 07 Move "SAF" to WS-AH-APPLDESC Move "18" to WS-ARCIMAGE-DOC-TYPE when 09 Move "G/L" to WS-AH-APPLDESC Move "20" to WS-ARCIMAGE-DOC-TYPE when other Move "32" to WS-ARCIMAGE-DOC-TYPE End-Evaluate End-If. * for testing trace zero * Move zeroes to IMGEVIEW-TRAN-SEQ IF IMGEVIEW-TRAN-SEQ > 0 MOVE IMGEVIEW-TRAN-SEQ TO WS-ARCIMAGE-TRACER MOVE WS-ARCIMAGE-DOC-TYPE TO WS-ARCIMAGE-IMAGE-DOC2 MOVE IMGEVIEW-TRAN-BDATE TO WS-ARCIMAGE-IMAGE-TO-DTE V.26.13 MOVE IMGEVIEW-TRAN-BDATE TO WS-ARCIMAGE-IMAGE-FROM-DTE V.26.13 * MOVE WS-ARCIMAGE-IMAGE-TRAN-INFO1 V.26.13 * TO WS-ARCIMAGE-IMAGE-TRAN-INFO3 V.26.13 String V.26.13 WS-ARCIMAGE-IMAGE-TRAN-INFO1 V.26.13 "&ToDate=" V.26.13 WS-ARCIMAGE-IMAGE-TO-DTE(5:2) V.26.13 "%2f" V.26.13 WS-ARCIMAGE-IMAGE-TO-DTE(7:2) V.26.13 "%2f" V.26.13 WS-ARCIMAGE-IMAGE-TO-DTE(1:4) V.26.13 "&FromDate=" V.26.13 WS-ARCIMAGE-IMAGE-FROM-DTE(5:2) V.26.13 "%2f" V.26.13 WS-ARCIMAGE-IMAGE-FROM-DTE(7:2) V.26.13 "%2f" V.26.13 WS-ARCIMAGE-IMAGE-FROM-DTE(1:4) V.26.13 delimited by spaces into WS-ARCIMAGE-IMAGE-TRAN-INFO3 V.26.13 End-String V.26.13 ELSE MOVE WS-ARCIMAGE-DOC-TYPE TO WS-ARCIMAGE-IMAGE-DOC1 IF IMGEVIEW-OLDACCT > 0 MOVE IMGEVIEW-OLDACCT TO WS-ARCIMAGE-IMAGE-ACCT ELSE MOVE IMGEVIEW-ACCT TO WS-ARCIMAGE-IMAGE-ACCT END-IF MOVE IMGEVIEW-TRAN-CHECK TO WS-ARCIMAGE-IMAGE-CHECK * MULTIPLY IMGEVIEW-TRAN-AMT BY 100 * GIVING WS-ARCIMAGE-IMAGE-AMT * MOVE IMGEVIEW-TRAN-AMT TO WS-ARCIMAGE-IMAGE-AMT Move IMGEVIEW-TRAN-AMT to WEDIT-AMOUNT MOVE WEDIT-AMOUNT TO WS-ARCIMAGE-IMAGE-AMT MOVE IMGEVIEW-TRAN-BDATE TO WS-ARCIMAGE-IMAGE-TO-DTE MOVE IMGEVIEW-TRAN-BDATE TO WS-ARCIMAGE-IMAGE-FROM-DTE MOVE SPACES TO WS-ARCIMAGE-IMAGE-TRAN-INFO3 String "KT51_0_0_0=" WS-ARCIMAGE-IMAGE-ACCT "&KT52_0_0_0=" WS-ARCIMAGE-IMAGE-CHECK "&KT53_0_0_0=" WS-ARCIMAGE-IMAGE-AMT "&doctypeid=" WS-ARCIMAGE-IMAGE-DOC1 "&ToDate=" WS-ARCIMAGE-IMAGE-TO-DTE(5:2) "%2f" WS-ARCIMAGE-IMAGE-TO-DTE(7:2) "%2f" WS-ARCIMAGE-IMAGE-TO-DTE(1:4) "&FromDate=" WS-ARCIMAGE-IMAGE-FROM-DTE(5:2) "%2f" WS-ARCIMAGE-IMAGE-FROM-DTE(7:2) "%2f" WS-ARCIMAGE-IMAGE-FROM-DTE(1:4) delimited by spaces into WS-ARCIMAGE-IMAGE-TRAN-INFO3 End-String END-IF. String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-ARCIMAGE-IMAGE-TRAN-INFO3 INTO WS-IMAGE-ADDRESS-TRANSACTION End-String. MOVE WS-IMAGE-ADDRESS-TRANSACTION TO WS-URL2. Call "C$RUN" using WS-URL-PATH. IF LS-INITS = "***" MOVE SPACES TO WS-STM3 MOVE WS-IMAGE-ADDRESS-TRANSACTION TO WS-STM3 Call "C$RUN" using WS-STMT-PATH END-IF. XARCIMAGE-Front-Image. * V.25.10 Standard-Front-Image. MOVE LS-IMAGE-BANK-NUMBER TO WS-STANDARD-IMAGE-BANKNUM. Move "&fn=item" TO WS-STANDARD-IMAGE-FUNCTION. MOVE IMGEVIEW-ACCT TO WS-STANDARD-IMAGE-ACCT. MOVE IMGEVIEW-TRAN-CHECK TO WS-STANDARD-IMAGE-CHECK. MOVE IMGEVIEW-TRAN-BDATE TO WS-STANDARD-IMAGE-DATE. MULTIPLY IMGEVIEW-TRAN-AMT BY 100 GIVING WS-STANDARD-IMAGE-AMT. MOVE IMGEVIEW-TRAN-SEQ TO WS-STANDARD-IMAGE-TRACE. MOVE "f" TO WS-STANDARD-IMAGE-SIDE. Move spaces to WS-IMAGE-ADDRESS-TRANSACTION. String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-STANDARD-IMAGE-TRAN-INFO INTO WS-IMAGE-ADDRESS-TRANSACTION End-String Move "Standard Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title V.25.04 Perform Fill-Header-Label thru XFill-Header-Label V.25.04 Move 1 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. XStandard-Front-Image. * Standard-Back-Image. MOVE LS-IMAGE-BANK-NUMBER TO WS-STANDARD-IMAGE-BANKNUM. Move "&fn=item" TO WS-STANDARD-IMAGE-FUNCTION. MOVE IMGEVIEW-ACCT TO WS-STANDARD-IMAGE-ACCT. MOVE IMGEVIEW-TRAN-CHECK TO WS-STANDARD-IMAGE-CHECK. MOVE IMGEVIEW-TRAN-BDATE TO WS-STANDARD-IMAGE-DATE. MULTIPLY IMGEVIEW-TRAN-AMT BY 100 GIVING WS-STANDARD-IMAGE-AMT. MOVE IMGEVIEW-TRAN-SEQ TO WS-STANDARD-IMAGE-TRACE. MOVE "b" TO WS-STANDARD-IMAGE-SIDE. Move spaces to WS-IMAGE-ADDRESS-TRANSACTION. String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-STANDARD-IMAGE-TRAN-INFO INTO WS-IMAGE-ADDRESS-TRANSACTION End-String Move "Standard Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title V.25.04 Perform Fill-Header-Label thru XFill-Header-Label V.25.04 Move 1 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. XStandard-Back-Image. * GCA-Front-Image. V.25.08 MOVE IMGEVIEW-ACCT TO WS-GCA-IMAGE-ACCT. MULTIPLY IMGEVIEW-TRAN-BDATE BY 10000.0001 GIVING WS-GCA-IMAGE-DATE. MOVE IMGEVIEW-TRAN-AMT to WS-GCA-IMAGE-AMT. IF IMGEVIEW-TRAN-CHECK = 0 MOVE SPACES TO WS-GCA-IMAGE-TRACER-REQUEST MOVE "&traceid=" TO WS-GCA-IMAGE-TRACER-LABEL MOVE IMGEVIEW-TRAN-SEQ TO WS-GCA-IMAGE-TRACER ELSE MOVE SPACES TO WS-GCA-IMAGE-CHECK-REQUEST MOVE "&serial=" TO WS-GCA-IMAGE-CHECK-LABEL MOVE IMGEVIEW-TRAN-CHECK TO WS-GCA-IMAGE-CHECK END-IF. MOVE "F" TO WS-GCA-IMAGE-SIDE. Move spaces to WS-IMAGE-ADDRESS-TRANSACTION String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-GCA-IMAGE-TRAN-INFO-BEG DELIMITED BY " " WS-GCA-IMAGE-TRAN-LABEL DELIMITED BY " " WS-GCA-IMAGE-TRAN-INFO-END DELIMITED BY " " INTO WS-IMAGE-ADDRESS-TRANSACTION End-String Move "GENESYS Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC when 09 Move "G/L" to WS-AH-APPLDESC End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title Perform Fill-Header-Label thru XFill-Header-Label Move 1 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. XGCA-Front-Image. V.25.08 * GCA-Back-Image. V.25.08 MOVE IMGEVIEW-ACCT TO WS-GCA-IMAGE-ACCT. MULTIPLY IMGEVIEW-TRAN-BDATE BY 10000.0001 GIVING WS-GCA-IMAGE-DATE. MOVE IMGEVIEW-TRAN-AMT TO WS-GCA-IMAGE-AMT. IF IMGEVIEW-TRAN-CHECK = 0 MOVE SPACES TO WS-GCA-IMAGE-TRACER-REQUEST MOVE "&traceid=" TO WS-GCA-IMAGE-TRACER-LABEL MOVE IMGEVIEW-TRAN-SEQ TO WS-GCA-IMAGE-TRACER ELSE MOVE SPACES TO WS-GCA-IMAGE-CHECK-REQUEST MOVE "&serial=" TO WS-GCA-IMAGE-CHECK-LABEL MOVE IMGEVIEW-TRAN-CHECK TO WS-GCA-IMAGE-CHECK END-IF. MOVE "B" TO WS-GCA-IMAGE-SIDE. Move spaces to WS-IMAGE-ADDRESS-TRANSACTION String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-GCA-IMAGE-TRAN-INFO-BEG DELIMITED BY " " WS-GCA-IMAGE-TRAN-LABEL DELIMITED BY " " WS-GCA-IMAGE-TRAN-INFO-END DELIMITED BY " " INTO WS-IMAGE-ADDRESS-TRANSACTION End-String Move "Genesys Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC when 09 Move "G/L" to WS-AH-APPLDESC End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title Perform Fill-Header-Label thru XFill-Header-Label Move 2 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. XGCA-Back-Image. V.25.08 * IBT-Front-Image. V.25.08 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1. MOVE ZEROS TO WS-P1. INSPECT WS-XX-ACCT1 TALLYING WS-P1 FOR LEADING ZEROS. MOVE WS-XX-ACCT1(WS-P1 + 1:) TO WS-IBT-IMAGE-ACCT. MOVE IMGEVIEW-TRAN-AMT to WS-XX-AMT. MOVE ZEROS TO WS-P1. INSPECT WS-XX-AMT TALLYING WS-P1 FOR LEADING ZEROS. MOVE WS-XX-AMT(WS-P1 + 1:) TO WS-IBT-IMAGE-AMT. MOVE IMGEVIEW-TRAN-BDATE TO WS-IBT-IMAGE-DATE. MOVE IMGEVIEW-TRAN-CHECK TO WS-XX-CHECKNUM. MOVE ZEROS TO WS-P1. INSPECT WS-XX-CHECKNUM TALLYING WS-P1 FOR LEADING ZEROS. MOVE WS-XX-CHECKNUM(WS-P1 + 1:) TO WS-IBT-IMAGE-SERIAL. MOVE 1 TO WS-IBT-IMAGE-SIDE. MOVE 1 TO WS-IBT-IMAGE-ONUS. Move spaces to WS-IMAGE-ADDRESS-TRANSACTION. String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-IBT-IMAGE-TRAN-INFO-ACCT DELIMITED BY " " "&Amount=" WS-IBT-IMAGE-AMT DELIMITED BY " " "&Date=" WS-IBT-IMAGE-DATE DELIMITED BY " " WS-IBT-IMAGE-TRAN-SERIAL-INFO DELIMITED BY " " WS-IBT-IMAGE-TRAN-END DELIMITED BY " " INTO WS-IMAGE-ADDRESS-TRANSACTION End-String Move "IBT Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC when 09 Move "G/L" to WS-AH-APPLDESC End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title Perform Fill-Header-Label thru XFill-Header-Label Move 1 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. * IF WBKID-MADISON-GA V.26.04 * Move SPACES TO WS-URL2 V.26.04 * Move WS-IMAGE-ADDRESS-TRANSACTION TO WS-URL2 V.26.04 * Call "C$RUN" using WS-URL-PATH V.26.04 * END-IF. V.26.04 XIBT-Front-Image. V.25.08 * IBT-Back-Image. V.25.08 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1. MOVE ZEROS TO WS-P1. INSPECT WS-XX-ACCT1 TALLYING WS-P1 FOR LEADING ZEROS. MOVE WS-XX-ACCT1(WS-P1 + 1:) TO WS-IBT-IMAGE-ACCT. MOVE IMGEVIEW-TRAN-AMT to WS-XX-AMT. MOVE ZEROS TO WS-P1. INSPECT WS-XX-AMT TALLYING WS-P1 FOR LEADING ZEROS. MOVE WS-XX-AMT(WS-P1 + 1:) TO WS-IBT-IMAGE-AMT. MOVE IMGEVIEW-TRAN-BDATE TO WS-IBT-IMAGE-DATE. MOVE IMGEVIEW-TRAN-CHECK TO WS-XX-CHECKNUM. MOVE ZEROS TO WS-P1. INSPECT WS-XX-CHECKNUM TALLYING WS-P1 FOR LEADING ZEROS. MOVE WS-XX-CHECKNUM(WS-P1 + 1:) TO WS-IBT-IMAGE-SERIAL. MOVE 2 TO WS-IBT-IMAGE-SIDE. MOVE 1 TO WS-IBT-IMAGE-ONUS. String LS-IMAGE-SERVER-ADDR DELIMITED BY " " WS-IBT-IMAGE-TRAN-INFO-ACCT DELIMITED BY " " "&Amount=" WS-IBT-IMAGE-AMT DELIMITED BY " " "&Date=" WS-IBT-IMAGE-DATE DELIMITED BY " " WS-IBT-IMAGE-TRAN-SERIAL-INFO DELIMITED BY " " WS-IBT-IMAGE-TRAN-END DELIMITED BY " " INTO WS-IMAGE-ADDRESS-TRANSACTION End-String Move "IBT Check Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC when 09 Move "G/L" to WS-AH-APPLDESC End-Evaluate * Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title Perform Fill-Header-Label thru XFill-Header-Label Move 2 to ImgeView-RB-FrontBack-Value. Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. * IF WBKID-MADISON-GA V.26.04 * Move SPACES TO WS-URL2 V.26.04 * Move WS-IMAGE-ADDRESS-TRANSACTION TO WS-URL2 V.26.04 * Call "C$RUN" using WS-URL-PATH V.26.04 * END-IF. V.26.04 XIBT-Back-Image. V.25.08 * ImgeView-Get-Trans. V.25.02 * This routine performs the following: * 1-Deletes any TMP files from a previous process. * 2-Copies the XML file to the \SP3000\TMP directory * for processing. * 3-Calls the XMLPARSE module to convert the file from * XML to TXT. * * 1-Delete any TMP files from a previous process: * Copy of XML input file: Move spaces to XMLTMPIN-ID. String LS-DIR-HOMEDRIVE-VALUE ":" LS-DIR-HOMETEMP-VALUE "TMP\IMGEVIEW.XML" delimited by spaces into XMLTMPIN-ID End-String. Call "C$DELETE" using XMLTMPIN-ID "S" giving WD-N1 End-Call. * TXT2FILE output/input file: Move spaces to TXT2FILE-ID. String LS-DIR-HOMEDRIVE-VALUE ":" LS-DIR-HOMETEMP-VALUE "TMP\IMGEVIEW.TXT" delimited by spaces into TXT2FILE-ID End-String. Call "C$DELETE" using TXT2FILE-ID "S" giving WD-N1 End-Call. * TXT2FLDS output file: Move spaces to TXT2FLDS-ID. String LS-DIR-HOMEDRIVE-VALUE ":" LS-DIR-HOMETEMP-VALUE "TMP\IMGEFLDS.TXT" delimited by spaces into TXT2FLDS-ID End-String. Call "C$DELETE" using TXT2FLDS-ID "S" giving WD-N1 End-Call. Move LS-IMAGE-BANK-FRABA to WS-AVIP-TRANLIST-FRDABA * MOVE IMGEVIEW-ACCT TO WS-AVIP-TRANLIST-ACCT V.25.03 * IF WBKID-WESTHOPE-ND V.25.06 * IF IMGEVIEW-APPL = 2 OR 3 OR 4 OR 5 V.25.06 * IF IMGEVIEW-OLDACCT > 0 V.25.06 * MOVE IMGEVIEW-OLDACCT TO WS-XX-ACCT1 V.25.06 * ELSE V.25.06 * MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.06 * END-IF V.25.06 * ELSE V.25.06 * MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.06 * END-IF V.25.06 * ELSE V.25.06 IF WBKID-POWERSLAKE-ND V.25.05 IF IMGEVIEW-APPL = 3 OR 4 OR 5 V.25.05 IF IMGEVIEW-OLDACCT > 0 V.25.05 MOVE IMGEVIEW-OLDACCT TO WS-XX-ACCT1 V.25.05 ELSE V.25.05 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.05 END-IF V.25.05 ELSE V.25.05 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.05 END-IF V.25.05 ELSE V.25.05 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.03 END-IF. V.25.05 * END-IF. V.25.06 IF LS-IMAGE-LEADING-ACCT0 = "Y" V.25.05 MOVE WS-XX-ACCT1 TO WS-AVIP-TRANLIST-ACCT V.25.05 ELSE V.25.05 MOVE ZEROS TO WS-P1 V.25.03 INSPECT WS-XX-ACCT1 TALLYING WS-P1 FOR LEADING ZEROS V.25.03 MOVE WS-XX-ACCT1(WS-P1 + 1:) TO WS-AVIP-TRANLIST-ACCT V.25.03 IF WS-AVIP-TRANLIST-ACCT(4:1) = " " V.25.04 MOVE WS-AVIP-TRANLIST-ACCT(1:3) V.25.04 TO WS-AVIP-TRANLIST-ACCT(2:3) V.25.04 MOVE "0" TO WS-AVIP-TRANLIST-ACCT(1:1) V.25.04 SUBTRACT 1 FROM WS-P1 V.25.06 END-IF V.25.05 END-IF. V.25.04 MOVE IMGEVIEW-TRAN-BDATE TO WS-AVIP-TRANLIST-DATE MOVE "&ex_trace=" TO WS-AVIP-TRANLIST-TRACER-LABEL MOVE IMGEVIEW-TRAN-SEQ TO WS-AVIP-TRANLIST-TRACER Move spaces to WS-IMAGE-ADDRESS-TRANSACTION-LIST IF LS-IMAGE-LEADING-ACCT0 = "Y" V.25.06 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-TRAN-LIST-INFO V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION-LIST V.25.06 End-String V.25.06 Else V.25.06 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-TRAN-LIST-INFO-BEG V.25.06 WS-AVIP-TRANLIST-ACCT(1:10 - WS-P1) V.25.06 WS-AVIP-TRAN-LIST-INFO-END V.25.06 INTO WS-IMAGE-ADDRESS-TRANSACTION-LIST V.25.06 End-String V.25.06 End-If. V.25.06 IF WBKID-KENMARE-ND V.26.05 Move spaces to WS-IMAGE-ADDRESS-TRANSACTION-LIST V.26.05 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.26.05 WS-AVIP-TRAN-LIST-INFO-BEG(1:37) V.26.05 WS-AVIP-TRAN-LIST-INFO-END V.26.05 INTO WS-IMAGE-ADDRESS-TRANSACTION-LIST V.26.05 End-String V.26.05 End-If. V.26.05 If LS-INITS = "***" V.25.03 Move LS-ENABLE-CONTROL to ImgeView-EF-URL-Enable V.25.03 Move LS-VISIBLE-CONTROL to ImgeView-EF-URL-Visible V.25.03 Move WS-IMAGE-ADDRESS-TRANSACTION-LIST V.25.03 to ImgeView-EF-URL-Value V.25.03 Modify ImgeView-EF-URL-Screen V.25.03 VALUE = ImgeView-EF-URL-Value V.25.03 Else V.25.03 Move LS-DISABLE-CONTROL to ImgeView-EF-URL-Enable V.25.03 Move LS-INVISIBLE-CONTROL to ImgeView-EF-URL-Visible V.25.03 Move WS-IMAGE-ADDRESS-TRANSACTION-LIST V.25.03 to ImgeView-EF-URL-Value V.25.03 Modify ImgeView-EF-URL-Screen V.25.03 VALUE = ImgeView-EF-URL-Value V.25.03 End-If. V.25.03 Perform retrieve-avip-TRAN-list V.25.04 thru xretrieve-avip-TRAN-list. V.25.04 * 3-Call the XMLPARSE module to convert the file from XML to text: * Initialize the module: Perform XMLPARSE-Action-Init thru XXMLPARSE-Action-Init. * XML Input File ID: Move XMLTMPIN-ID to XMLPARSE-XMLINPUT-FILEID. * TXT Output File ID (may be blank): Move TXT2FILE-ID to XMLPARSE-TXTOTPUT-FILEID. Move WS-RESPONSE to XMLPARSE-RESPONSE-DATA. V.25.04 Move ws-image-address-transaction-list to V.25.04 xmlparse-temp-data. V.25.04 Perform XMLPARSE-Action-XML2TXT2 thru XXMLPARSE-Action-XML2TXT2. * Terminate the module: Perform XMLPARSE-Action-Term thru XXMLPARSE-Action-Term. If XMLPARSE-RETURN-FAIL If XMLPARSE-CXML-Error-Code = zero Display message box "*** XML PARSE ERROR" LS-NEWLINE LS-NEWLINE "Code: " XMLPARSE-RETURN-CODE LS-NEWLINE "Desc: " XMLPARSE-RETURN-DESC title LS-SP3000-RESPONSE type MB-OK icon MB-ERROR-ICON default MB-OK giving WD-MSGBOX-RESP else Display message box "*** XML PARSE ERROR" LS-NEWLINE LS-NEWLINE "Code: " XMLPARSE-RETURN-CODE LS-NEWLINE "Desc: " XMLPARSE-RETURN-DESC LS-NEWLINE LS-NEWLINE "XML Code: " XMLPARSE-CXML-Error-Code LS-NEWLINE "XML Desc: " XMLPARSE-CXML-Error-Msg title LS-SP3000-RESPONSE type MB-OK icon MB-WARNING-ICON default MB-OK giving WD-MSGBOX-RESP End-If End-If. Perform Create-Tran-Listbox thru XCreate-Tran-Listbox. XImgeView-Get-Trans. V.25.02 * Create-Tran-Listbox. V.25.02 Move zeroes to WIMG-LISTBOX-MAX. * Reset list box: Modify ImgeView-LB-Trans-Screen MASS-UPDATE = 1. Modify ImgeView-LB-Trans-Screen RESET-LIST = 1. * Init variables: Move WIMG-LISTBOX-LMT to WIMG-LISTBOX-NEED. Modify ImgeView-LB-Trans-Screen SELECTION-INDEX = -1. * Open the TXT2 file: * NOTE: This file contains the XML data in a text format. Open INPUT TXT2FILE. If FS-FILESTAT NOT = "00" Go to XCreate-Tran-Listbox End-If. * Open the FLDS file: * NOTE: This file is for research purposes only. It shows * how the Mortgagebot data is mapped to SPARAK. Set WS-TXT2FLDS-Writ to True. Open OUTPUT TXT2FLDS. If FS-FILESTAT NOT = "00" Set WS-TXT2FLDS-Skip to True End-If. * Initialize: Set WS-TXT2FILE-Beg to True. Set WS-UsageType-Unknown to True. * Read ROOT record: Perform LOAD-Read-TXT2FILE thru XLOAD-Read-TXT2FILE. * Process TXT2FILE: * STOP "DEBUG". | Debug Only If NOT WS-TXT2FILE-End Perform until 0 = 1 * Process Element/Attribute: Perform LOAD-Element-All thru XLOAD-Element-All If WS-TXT2FILE-End Exit Perform End-If End-Perform End-If. Move spaces to ImgeView-LB-Trans-Add. * Redisplay listbox: Modify ImgeView-LB-Trans-Screen MASS-UPDATE = 0. * Highlight transaction: If WIMG-LISTBOX-MAX > zero Move 01 to WIMG-LISTBOX-SEL Modify ImgeView-LB-Trans-Screen SELECTION-INDEX = WIMG-LISTBOX-SEL End-If. * Close files: Close TXT2FILE. If WS-TXT2FLDS-Writ Move "=====End of LOAD===== " to TXT2FLDS-REC Write TXT2FLDS-REC If FS-FILESTAT NOT = "00" Set WS-TXT2FLDS-Clos to True End-If End-If. If WS-TXT2FLDS-Writ Move " " to TXT2FLDS-REC Write TXT2FLDS-REC If FS-FILESTAT NOT = "00" Set WS-TXT2FLDS-Clos to True End-If End-If. If NOT WS-TXT2FLDS-Skip Close TXT2FLDS End-If. Xcreate-Tran-Listbox. V.25.02 * * LOAD-Read-TXT2FILE. V.25.02 * Read TXT2FILE: Move spaces to TXT2FILE-REC. Read TXT2FILE. If FS-FILESTAT NOT = "00" Set WS-TXT2FILE-End to True Go to XLOAD-Read-TXT2FILE End-If. * Element/Attribute & Value: * Move TXT2FILE-REC (WS-DATA-COL:) to WD-X160. V.25.04 Move TXT2FILE-REC to WD-X160. V.25.04 * Split the data into Element/Attribute & Value: Perform LOAD-Separate-Data thru XLOAD-Separate-Data. * For debug purposes, click on name to view valud: Move " " to WD-Ans. XLOAD-Read-TXT2FILE. V.25.02 * * LOAD-Separate-Data. V.25.02 Call "C$JUSTIFY" using WD-X160 "L" End-Call. Move zeroes to WD-N3. Inspect WD-X160 tallying WD-N3 for all "|". If WD-N3 = zero Move WD-X160 to WS-ElemAttrib-Name Move spaces to WS-ElemAttrib-Data else Move spaces to WS-ElemAttrib-Name Move spaces to WS-ElemAttrib-Data Move zeroes to WD-N3 Set WD-N4 to size of WD-X160 Perform until 0 = 1 Add 01 to WD-N3 If WD-N3 > WD-N4 Exit Perform End-If If WD-X160 (WD-N3:1) = "|" Subtract 01 from WD-N3 Move WD-X160 (1:WD-N3) to WS-ElemAttrib-Name Add 03 to WD-N3 Move WD-X160 (WD-N3:) to WS-ElemAttrib-Data Exit Perform End-If End-Perform If WS-ElemAttrib-Data > spaces Inspect WS-ElemAttrib-Data replacing all H"22" by H"20" | Double Quotes w/Space Call "C$JUSTIFY" using WS-ElemAttrib-Data "L" End-Call End-If End-If. XLOAD-Separate-Data. V.25.02 * * LOAD-Element-All. V.25.02 * Initialize: Set WS-Skip-Attributes-YES to True. * Write ELEMENT to TXT2FLDS: Perform LOAD-Write-FLDS-Element thru XLOAD-Write-FLDS-Element. * Process ELEMENTS: * Evaluate WS-Depth-Element(WS-Depth-Sub) V.25.04 Evaluate WS-ElemAttrib-Name V.25.04 * when "" V.25.04 when "Bank" Move WS-ElemAttrib-Data to XWORK Perform Right-Just-Numeric thru XRight-Just-Numeric Move NWORK-N10 to WD-N10 Move WD-N10 to WIMG-BANK * when "" V.25.04 when "Date" V.25.04 Move WS-ElemAttrib-Data to XWORK Perform Right-Just-Numeric thru XRight-Just-Numeric Move NWORK-N8 to WD-N8 Multiply WD-N8 by 10000.0001 giving WD-N8 Move WD-N8 to WIMG-DATE * when "" V.25.04 when "ExternalTrace" V.25.04 Move WS-ElemAttrib-Data to XWORK Perform Right-Just-Numeric thru XRight-Just-Numeric Move NWORK-N18 to WD-N18 Move WD-N18 to WIMG-TRACE * when "" V.25.04 when "Account" V.25.04 Move WS-ElemAttrib-Data to XWORK Perform Right-Just-Numeric thru XRight-Just-Numeric Move NWORK-N10 to WD-N10 Move WD-N10 to WIMG-ACCT * when "" V.25.04 when "Amount" V.25.04 Move WS-ElemAttrib-Data to XWORK Perform Right-Just-Numeric thru XRight-Just-Numeric If NWORK-N12 > zero If Decimal-Found = "Y" If NWK-NUMERIC = 1 Divide NWORK-N12 by 10 giving WIMG-AMT Else If NWK-NUMERIC = 2 Divide NWORK-N12 by 100 giving WIMG-AMT End-If End-If Else Move NWORK-N12 to WIMG-AMT End-If End-If * when "" V.25.04 when "CheckNo" V.25.04 * Add entry to list box: Move WS-ElemAttrib-Data to XWORK Perform Right-Just-Numeric thru XRight-Just-Numeric Move NWORK-N8 to WD-N8 Move WD-N8 to WIMG-CHECK Move WIMG-LISTBOX-ITEM to ImgeView-LB-Trans-Add Modify ImgeView-LB-Trans-Screen ITEM-TO-ADD = ImgeView-LB-Trans-Add Subtract 1 from WIMG-LISTBOX-NEED Add 1 to WIMG-LISTBOX-MAX End-Evaluate. Perform LOAD-Read-TXT2FILE thru XLOAD-Read-TXT2FILE. XLOAD-Element-All. V.25.02 * LOAD-Write-FLDS-Element. V.25.02 If WS-TXT2FLDS-Writ * Move TXT2FILE-REC (1:8) to TXT2FLDS-REC (1:) V.25.04 * Move spaces to TXT2FLDS-REC (9:6) V.25.04 * Move TXT2FILE-REC (9:) to TXT2FLDS-REC (15:) V.25.04 Move TXT2FILE-REC to TXT2FLDS-REC V.25.04 Write TXT2FLDS-REC If FS-FILESTAT NOT = "00" Set WS-TXT2FLDS-Clos to True End-If End-If. XLOAD-Write-FLDS-Element. V.25.02 * * LOAD-Write-FLDS-Attribute. V.25.02 If WS-TXT2FLDS-Writ * Move TXT2FILE-REC (1:8) to TXT2FLDS-REC (1:) V.25.04 Move TXT2FILE-REC to TXT2FLDS-REC V.25.04 Write TXT2FLDS-REC If FS-FILESTAT NOT = "00" Set WS-TXT2FLDS-Clos to True End-If End-If. XLOAD-Write-FLDS-Attribute. V.25.02 * Right-Just-Numeric. V.25.02 Move zeroes to NWK-NUMERIC. Move "N" to Decimal-Found. Move zeroes to NWORK. Move NWK-LMT to NWK-SUB. Move NWK-LMT to XWK-SUB. Perform NWK-LMT times If XWK-CHAR(XWK-SUB) is numeric Move XWK-CHAR(XWK-SUB) to NWK-CHAR(NWK-SUB) Subtract 01 from NWK-SUB If Decimal-Found = "N" Add 1 to NWK-NUMERIC End-If Else If XWK-CHAR(XWK-SUB) = "." Move "Y" to Decimal-Found End-If End-If Subtract 01 from XWK-SUB End-Perform. XRight-Just-Numeric. V.25.02 * Display-Tran-Image. V.25.02 * Modify ImgeView-LB-Trans-Screen * QUERY-INDEX = WIMG-LISTBOX-SEL. Inquire ImgeView-LB-Trans-Screen ITEM-VALUE = ImgeView-LB-Trans-Value. Move ImgeView-LB-Trans-Value to WIMG-LISTBOX-ITEM. * Move WIMG-BANK to NWORK-N10. Move NWORK-N10 to WS-HOLD-FRABA. Move WIMG-DATE to WS-CHECK-DATE-M. Move WS-CHECK-DATE-M-MM TO WS-CHECK-DATE-Y-MM. Move WS-CHECK-DATE-M-DD TO WS-CHECK-DATE-Y-DD. Move WS-CHECK-DATE-M-CCYY TO WS-CHECK-DATE-Y-CCYY. Move WS-CHECK-DATE-Y to IMGEVIEW-TRAN-BDATE. Move WIMG-TRACE to NWORK-N18. Move NWORK-N18 to IMGEVIEW-TRAN-SEQ. Move WIMG-ACCT to NWORK-N10. Move NWORK-N10 to IMGEVIEW-ACCT. Move WIMG-AMT to WS-CHECK-AMT. Move WS-CHECK-AMT to IMGEVIEW-TRAN-AMT. Move WIMG-CHECK to NWORK-N8. Move NWORK-N8 to IMGEVIEW-TRAN-CHECK. Perform ImgeView-Set-Side thru XImgeView-Set-Side. XDisplay-Tran-Image. V.25.02 * AVIP-Stmt-List. V.25.03 * This routine performs the following: * 1-Deletes any TMP files from a previous process. * 2-Copies the XML file to the \SP3000\TMP directory * for processing. * 3-Calls the XMLPARSE module to convert the file from * XML to TXT. * * 1-Delete any TMP files from a previous process: * Copy of XML input file: Move spaces to XMLTMPIN-ID. String LS-DIR-HOMEDRIVE-VALUE ":" LS-DIR-HOMETEMP-VALUE "TMP\STMTVIEW.XML" delimited by spaces into XMLTMPIN-ID End-String. Call "C$DELETE" using XMLTMPIN-ID "S" giving WD-N1 End-Call. * TXT3FILE output/input file: Move spaces to TXT3FILE-ID. String LS-DIR-HOMEDRIVE-VALUE ":" LS-DIR-HOMETEMP-VALUE "TMP\STMTVIEW.TXT" delimited by spaces into TXT3FILE-ID End-String. Call "C$DELETE" using TXT3FILE-ID "S" giving WD-N1 End-Call. * TXT3FLDS output file: Move spaces to TXT3FLDS-ID. String LS-DIR-HOMEDRIVE-VALUE ":" LS-DIR-HOMETEMP-VALUE "TMP\STMTFLDS.TXT" delimited by spaces into TXT3FLDS-ID End-String. Call "C$DELETE" using TXT3FLDS-ID "S" giving WD-N1 End-Call. Move LS-IMAGE-BANK-FRABA to WS-AVIP-STLST-FRDABA * MOVE IMGEVIEW-ACCT TO WS-AVIP-STLST-ACCT V.25.03 * IF wbkid-westhope-ND V.25.06 * IF IMGEVIEW-APPL = 2 OR 3 OR 4 OR 5 V.25.06 * IF IMGEVIEW-OLDACCT > 0 V.25.06 * MOVE IMGEVIEW-OLDACCT TO WS-XX-ACCT1 V.25.06 * ELSE V.25.06 * MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.06 * END-IF V.25.06 * ELSE V.25.06 * MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.06 * END-IF V.25.06 * ELSE V.25.06 IF WBKID-POWERSLAKE-ND V.25.05 IF IMGEVIEW-APPL = 3 OR 4 OR 5 V.25.05 IF IMGEVIEW-OLDACCT > 0 V.25.05 MOVE IMGEVIEW-OLDACCT TO WS-XX-ACCT1 V.25.05 ELSE V.25.05 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.05 END-IF V.25.05 ELSE V.25.05 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.05 END-IF V.25.05 ELSE V.25.05 MOVE IMGEVIEW-ACCT TO WS-XX-ACCT1 V.25.03 END-IF. V.25.05 * END-IF. V.25.06 IF LS-IMAGE-LEADING-ACCT0 = "Y" V.25.05 MOVE WS-XX-ACCT1 TO WS-AVIP-STLST-ACCT V.25.05 ELSE V.25.05 MOVE ZEROS TO WS-P1 V.25.03 INSPECT WS-XX-ACCT1 TALLYING WS-P1 FOR LEADING ZEROS V.25.03 MOVE WS-XX-ACCT1(WS-P1 + 1:) TO WS-AVIP-STLST-ACCT V.25.03 IF WS-AVIP-STLST-ACCT(4:1) = " " V.25.04 MOVE WS-AVIP-STLST-ACCT(1:3) V.25.04 TO WS-AVIP-STLST-ACCT(2:3) V.25.04 MOVE "0" TO WS-AVIP-STLST-ACCT(1:1) V.25.04 SUBTRACT 1 FROM WS-P1 V.25.06 END-IF V.25.05 END-IF. V.25.04 MOVE 19000101 TO WS-AVIP-STLST-SDATE MOVE 20991231 TO WS-AVIP-STLST-EDATE Move spaces to WS-IMAGE-ADDRESS-STMT-LIST Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AVIP-STLST-APPL when 02 Move "SAV" to WS-AVIP-STLST-APPL when 03 Move "COD" to WS-AVIP-STLST-APPL when 04 Move "ILN" to WS-AVIP-STLST-APPL when 05 * Move "ALN" to WS-AVIP-STLST-APPL V.26.12 Move "AL" to WS-AVIP-STLST-APPL V.26.12 when 07 Move "SAF" to WS-AVIP-STLST-APPL when 09 V.25.06 Move "G/L" to WS-AVIP-STLST-APPL V.25.06 End-Evaluate IF LS-IMAGE-LEADING-ACCT0 = "Y" V.25.06 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-STMT-LIST-INFO V.25.06 INTO WS-IMAGE-ADDRESS-STMT-LIST V.25.06 End-String V.25.06 Else V.25.06 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-STMT-LIST-INFO-BEG V.25.06 WS-AVIP-STLST-ACCT(1:10 - WS-P1) V.25.06 WS-AVIP-STMT-LIST-INFO-END V.25.06 INTO WS-IMAGE-ADDRESS-STMT-LIST V.25.06 End-String V.25.06 End-If V.25.06 Move "AVIP Stmt List Display" to ImgeView-1-Title WS-PREFWIND-Title Move IMGEVIEW-ACCT12 to WS-EDIT-ACCTSNAC Move WS-EDIT-ACCTSNAC to WS-AH-ACCT Evaluate IMGEVIEW-APPL when 01 Move "DDA" to WS-AH-APPLDESC when 02 Move "SAV" to WS-AH-APPLDESC when 03 Move "COD" to WS-AH-APPLDESC when 04 Move "ILN" to WS-AH-APPLDESC when 05 Move "ALN" to WS-AH-APPLDESC when 07 Move "SAF" to WS-AH-APPLDESC when 09 V.25.06 Move "G/L" to WS-AH-APPLDESC V.25.06 End-Evaluate Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title Modify ImgeView-LA-Hdr-Screen Value = ImgeView-LA-Hdr-Title If LS-INITS = "***" Move LS-ENABLE-CONTROL to ImgeView-EF-URL-Enable Move LS-VISIBLE-CONTROL to ImgeView-EF-URL-Visible Move WS-IMAGE-ADDRESS-STMT-LIST to ImgeView-EF-URL-Value Modify ImgeView-EF-URL-Screen VALUE = ImgeView-EF-URL-Value Else Move LS-DISABLE-CONTROL to ImgeView-EF-URL-Enable Move LS-INVISIBLE-CONTROL to ImgeView-EF-URL-Visible Move WS-IMAGE-ADDRESS-STMT-LIST to ImgeView-EF-URL-Value Modify ImgeView-EF-URL-Screen VALUE = ImgeView-EF-URL-Value End-If. Perform RETRIEVE-AVIP-STMT-LIST thru V.25.04 XRETRIEVE-AVIP-STMT-LIST. V.25.04 * 3-Call the XMLPARSE module to convert the file from XML to text: * Initialize the module: Perform XMLPARSE-Action-Init thru XXMLPARSE-Action-Init. * XML Input File ID: Move XMLTMPIN-ID to XMLPARSE-XMLINPUT-FILEID. * TXT Output File ID (may be blank): Move TXT3FILE-ID to XMLPARSE-TXTOTPUT-FILEID. Move WS-RESPONSE to XMLPARSE-RESPONSE-DATA. V.25.04 move ws-image-address-stmt-list to V.25.04 xmlparse-temp-data. V.25.04 Perform XMLPARSE-Action-XML2TXT3 thru XXMLPARSE-Action-XML2TXT3. * Terminate the module: Perform XMLPARSE-Action-Term thru XXMLPARSE-Action-Term. If XMLPARSE-RETURN-FAIL If XMLPARSE-CXML-Error-Code = zero Display message box "*** XML PARSE ERROR" LS-NEWLINE LS-NEWLINE "Code: " XMLPARSE-RETURN-CODE LS-NEWLINE "Desc: " XMLPARSE-RETURN-DESC title LS-SP3000-RESPONSE type MB-OK icon MB-ERROR-ICON default MB-OK giving WD-MSGBOX-RESP else Display message box "*** XML PARSE ERROR" LS-NEWLINE LS-NEWLINE "Code: " XMLPARSE-RETURN-CODE LS-NEWLINE "Desc: " XMLPARSE-RETURN-DESC LS-NEWLINE LS-NEWLINE "XML Code: " XMLPARSE-CXML-Error-Code LS-NEWLINE "XML Desc: " XMLPARSE-CXML-Error-Msg title LS-SP3000-RESPONSE type MB-OK icon MB-WARNING-ICON default MB-OK giving WD-MSGBOX-RESP End-If End-If. Perform Create-Stmt-Listbox thru XCreate-Stmt-Listbox. XAVIP-Stmt-List. V.25.03 * Create-Stmt-Listbox. V.25.03 Move zeroes to WSTMT-LISTBOX-MAX. Move spaces to wstmt-error. v.25.06 * Reset list box: Modify ImgeView-LB-Stmt-Screen MASS-UPDATE = 1. Modify ImgeView-LB-Stmt-Screen RESET-LIST = 1. * Init variables: Move WSTMT-LISTBOX-LMT to WSTMT-LISTBOX-NEED. Modify ImgeView-LB-Stmt-Screen SELECTION-INDEX = -1. * Open the TXT3 file: * NOTE: This file contains the XML data in a text format. Open INPUT TXT3FILE. If FS-FILESTAT NOT = "00" Go to XCreate-Stmt-Listbox End-If. * Open the FLDS file: Set WS-TXT3FLDS-Writ to True. Open OUTPUT TXT3FLDS. If FS-FILESTAT NOT = "00" Set WS-TXT3FLDS-Skip to True End-If. * Initialize: Set WS-TXT3FILE-Beg to True. Set WS-UsageType-Unknown to True. * Read ROOT record: Perform LOAD-Read-TXT3FILE thru XLOAD-Read-TXT3FILE. * Process TXT3FILE: * STOP "DEBUG". | Debug Only If NOT WS-TXT3FILE-End Perform until 0 = 1 * Process Element/Attribute: Perform LOAD-Element-All-TXT3 thru XLOAD-Element-All-TXT3 If WS-TXT3FILE-End Exit Perform End-If End-Perform End-If. Move spaces to ImgeView-LB-Stmt-Add. * Redisplay listbox: Modify ImgeView-LB-Stmt-Screen MASS-UPDATE = 0. * Highlight transaction: If WSTMT-LISTBOX-MAX > zero Move 01 to WSTMT-LISTBOX-SEL Modify ImgeView-LB-Stmt-Screen SELECTION-INDEX = WSTMT-LISTBOX-SEL End-If. * Close files: Close TXT3FILE. If WS-TXT3FLDS-Writ Move "=====End of LOAD===== " to TXT3FLDS-REC Write TXT3FLDS-REC If FS-FILESTAT NOT = "00" Set WS-TXT3FLDS-Clos to True End-If End-If. If WS-TXT3FLDS-Writ Move " " to TXT3FLDS-REC Write TXT3FLDS-REC If FS-FILESTAT NOT = "00" Set WS-TXT3FLDS-Clos to True End-If End-If. If NOT WS-TXT3FLDS-Skip Close TXT3FLDS End-If. XCreate-Stmt-Listbox. V.25.03 * Display-Stmt-Image. V.25.03 Inquire ImgeView-LB-Stmt-Screen ITEM-VALUE = ImgeView-LB-Stmt-Value. Move ImgeView-LB-Stmt-Value to WSTMT-LISTBOX-ITEM. * Move WS-AVIP-STLST-FRDABA to WS-AVIP-STMT-FRDABA. Move WS-AVIP-STLST-ACCT to WS-AVIP-STMT-ACCT. Move WS-AVIP-STLST-APPL to WS-AVIP-STMT-APPL. Move WSTMT-SDATE to WS-CHECK-DATE-M. Move WS-CHECK-DATE-M-MM TO WS-CHECK-DATE-Y-MM. Move WS-CHECK-DATE-M-DD TO WS-CHECK-DATE-Y-DD. Move WS-CHECK-DATE-M-CCYY TO WS-CHECK-DATE-Y-CCYY. Move WS-CHECK-DATE-Y to WS-AVIP-STMT-SDATE. Move WSTMT-EDATE to WS-CHECK-DATE-M. Move WS-CHECK-DATE-M-MM TO WS-CHECK-DATE-Y-MM. Move WS-CHECK-DATE-M-DD TO WS-CHECK-DATE-Y-DD. Move WS-CHECK-DATE-M-CCYY TO WS-CHECK-DATE-Y-CCYY. Move WS-CHECK-DATE-Y to WS-AVIP-STMT-EDATE. Move WS-AVIP-STLST-APPL to WS-AVIP-STMT-APPL. Move spaces to WS-IMAGE-ADDRESS-STMT. IF LS-IMAGE-LEADING-ACCT0 = "Y" V.25.06 String LS-IMAGE-SERVER-ADDR delimited by " " V.25.06 WS-AVIP-STMT-INFO V.25.06 into WS-IMAGE-ADDRESS-STMT V.25.06 End-String V.25.06 ELSE V.25.06 String LS-IMAGE-SERVER-ADDR DELIMITED BY " " V.25.06 WS-AVIP-STMT-INFO-BEG V.25.06 WS-AVIP-STMT-ACCT(1:10 - WS-P1) V.25.06 WS-AVIP-STMT-INFO-END V.25.06 INTO WS-IMAGE-ADDRESS-STMT V.25.06 End-String V.25.06 End-If. V.25.06 Move WHold-WB-ID to CONTROL-ID. Set ACCEPT-CONTROL-GOTO-ID to True. Move WS-IMAGE-ADDRESS-STMT tO IMGEVIEW-WB-VALUE. Modify ImgeView-WB-Screen VALUE = ImgeView-WB-Value. If LS-INITS = "***" Move LS-ENABLE-CONTROL to ImgeView-EF-URL-Enable Move LS-VISIBLE-CONTROL to ImgeView-EF-URL-Visible Move WS-IMAGE-ADDRESS-STMT to ImgeView-EF-URL-Value Modify ImgeView-EF-URL-Screen VALUE = ImgeView-EF-URL-Value Else Move LS-DISABLE-CONTROL to ImgeView-EF-URL-Enable Move LS-INVISIBLE-CONTROL to ImgeView-EF-URL-Visible Move WS-IMAGE-ADDRESS-STMT to ImgeView-EF-URL-Value Modify ImgeView-EF-URL-Screen VALUE = ImgeView-EF-URL-Value End-If. XDisplay-Stmt-Image. V.25.03 * LOAD-Read-TXT3FILE. V.25.03 * Read TXT3FILE: Move spaces to TXT3FILE-REC. Read TXT3FILE. If FS-FILESTAT NOT = "00" Set WS-TXT3FILE-End to True Go to XLOAD-Read-TXT3FILE End-If. * Element/Attribute & Value: Move TXT3FILE-REC to WD-X160. V.25.04 * Split the data into Element/Attribute & Value: Perform LOAD-Separate-Data thru XLOAD-Separate-Data. * For debug purposes, click on name to view valud: Move " " to WD-Ans. XLOAD-Read-TXT3FILE. V.25.03 * LOAD-Element-All-TXT3. V.25.03 * Initialize: Set WS-Skip-Attributes-YES to True. * Write ELEMENT to TXT3FLDS: Perform LOAD-Write-FLDS-Element-TXT3 thru XLOAD-Write-FLDS-Element-TXT3. Evaluate WS-ElemAttrib-Name V.25.04 when "StartDate" V.25.04 Move WS-ElemAttrib-Data to XWORK Perform Right-Just-Numeric thru XRight-Just-Numeric Initialize WDATECALL-AREA-WORK1 Move WDC-FUNC-CONV6TO8 to WDC-FUNCTION Move nwork-n6 to WDC-CALDT-M Call "DATECALL.ACU" using WDATECALL-AREA End-Call If WDC-RETURN-CODE = zeroes Move WDC-CALDT-M to nwork-n8 else Move zeroes to nwork-n8 End-If Move NWORK-N8 to WD-N8 Move WD-N8 to WSTMT-SDATE when "EndDate" V.25.04 Move WS-ElemAttrib-Data to XWORK Perform Right-Just-Numeric thru XRight-Just-Numeric Initialize WDATECALL-AREA-WORK1 Move WDC-FUNC-CONV6TO8 to WDC-FUNCTION Move NWORK-N6 to WDC-CALDT-M Call "DATECALL.ACU" using WDATECALL-AREA End-Call If WDC-RETURN-CODE = zeroes Move WDC-CALDT-M to nwork-n8 else Move zeroes to nwork-n8 End-If Move NWORK-N8 to WD-N8 Move WD-N8 to WSTMT-EDATE Move WSTMT-LISTBOX-ITEM to ImgeView-LB-Stmt-Add Modify ImgeView-LB-Stmt-Screen ITEM-TO-ADD = ImgeView-LB-Stmt-Add Subtract 1 from WSTMT-LISTBOX-NEED Add 1 to WSTMT-LISTBOX-MAX when "errordesc" V.25.04 If WS-STMT-OLDNUM-LOOKUP = "N" V.25.06 IF IMGEVIEW-OLDACCT > 0 AND V.25.06 IMGEVIEW-OLDACCT NOT = IMGEVIEW-ACCT V.25.06 Move "Y" to WS-STMT-OLDNUM-LOOKUP V.25.06 Move IMGEVIEW-OLDACCT to IMGEVIEW-ACCT V.25.06 Move LS-DISABLE-CONTROL V.25.06 to ImgeView-PB-ViewStmt-Enable V.25.06 Modify ImgeView-PB-ViewStmt-Screen V.25.06 enabled = ImgeView-PB-ViewStmt-Enable V.25.06 Move WS-ElemAttrib-Data to WSTMT-ERROR V.25.06 Move WSTMT-LISTBOX-ITEM to ImgeView-LB-Stmt-Add V.25.06 Modify ImgeView-LB-Stmt-Screen V.25.06 ITEM-TO-ADD = ImgeView-LB-Stmt-Add V.25.06 Subtract 1 from WSTMT-LISTBOX-NEED V.25.06 Add 1 to WSTMT-LISTBOX-MAX V.25.06 Set WS-TXT3FILE-End to True V.25.06 Set ACCEPT-CONTROL-GOTO-ID to True V.25.06 Move WHold-PB-Exit-ID to CONTROL-ID V.25.06 Set ACCEPT-CONTROL-GOTO-ID to True V.25.06 Set Exit-Button-Pressed to True V.25.06 move 999 to key-status V.25.06 go to XLOAD-Element-All-TXT3 V.25.06 Else V.25.06 Move LS-DISABLE-CONTROL V.25.06 to ImgeView-PB-ViewStmt-Enable V.25.06 Modify ImgeView-PB-ViewStmt-Screen V.25.06 enabled = ImgeView-PB-ViewStmt-Enable V.25.06 Move WS-ElemAttrib-Data to WSTMT-ERROR V.25.06 Move WSTMT-LISTBOX-ITEM to ImgeView-LB-Stmt-Add V.25.06 Modify ImgeView-LB-Stmt-Screen V.25.06 ITEM-TO-ADD = ImgeView-LB-Stmt-Add V.25.06 Subtract 1 from WSTMT-LISTBOX-NEED V.25.06 Add 1 to WSTMT-LISTBOX-MAX V.25.06 End-If V.25.06 Else V.25.06 Move LS-DISABLE-CONTROL to ImgeView-PB-ViewStmt-Enable V.25.06 Modify ImgeView-PB-ViewStmt-Screen enabled = ImgeView-PB-ViewStmt-Enable Move WS-ElemAttrib-Data to WSTMT-ERROR Move WSTMT-LISTBOX-ITEM to ImgeView-LB-Stmt-Add Modify ImgeView-LB-Stmt-Screen ITEM-TO-ADD = ImgeView-LB-Stmt-Add Subtract 1 from WSTMT-LISTBOX-NEED Add 1 to WSTMT-LISTBOX-MAX End-If V.25.06 End-Evaluate. Perform LOAD-READ-TXT3FILE thru XLOAD-READ-TXT3FILE. V.25.04 XLOAD-Element-All-TXT3. V.25.03 * LOAD-Write-FLDS-Element-TXT3. V.25.03 If WS-TXT3FLDS-Writ Move TXT3FILE-REC to TXT3FLDS-REC V.25.04 Write TXT3FLDS-REC If FS-FILESTAT NOT = "00" Set WS-TXT3FLDS-Clos to True End-If End-If. XLOAD-Write-FLDS-Element-TXT3. V.25.03 * * LOAD-Write-FLDS-Attribute-TXT3. V.25.03 If WS-TXT3FLDS-Writ Move TXT3FILE-REC to TXT3FLDS-REC V.25.04 Write TXT3FLDS-REC If FS-FILESTAT NOT = "00" Set WS-TXT3FLDS-Clos to True End-If End-If. XLOAD-Write-FLDS-Attribute-TXT3. V.25.03 * This routine will display a graphical window containing a * WEB-BROWSER control. The control is displayed with a URL * address for desired images/data from AVIP and that info is * then displayed withing the browser control. * DISPLAY-AVIP-STMT-LIST. V.25.03 Move WS-IMAGE-ADDRESS-TRANSACTION TO IMGEVIEW-WB-VALUE Display Floating GRAPHICAL WINDOW SCREEN LINE WS-PREFWIND-LIN-DSP, SCREEN COLUMN WS-PREFWIND-COL-DSP, LINES 48.00, size 79.00, CELL HEIGHT LS-CELL-HEIGHT, CELL WIDTH LS-CELL-WIDTH, CONTROL FONT LS-Font-Default-Handle, TITLE-BAR, with SYSTEM MENU, MODELESS, ERASE, BIND to THREAD, NO SCROLL, NO WRAP, COLOR IS LS-CG1-SF-BKGRND, TITLE WS-PREFWIND-Title, LABEL-OFFSET 0, controls-uncropped, handle IS ImgeView-1-HANDLE. DISPLAY IMGEVIEW-1-SCREEN. * * Initialize data: Move zeroes to Key-Status. * * Toggle the action of the ENTER key: Set environment "KEYSTROKE" to "EDIT=Next TERMINATE=09 ^M". * Make the current window active again: Set Input-Output window to ImgeView-1-HANDLE. * Focus the cursor: Set ACCEPT-CONTROL-GOTO-ID to True. Move WHold-WB-ID to CONTROL-ID. Set ACCEPT-CONTROL-GOTO-ID to True. Perform AVIP-Stmt-List thru XAVIP-Stmt-List. * * Accept the screen: Perform with test after until Exit-Button-Pressed Accept ImgeView-1-Screen before time LS-PSH-TIMEOUT on exception * 'Accept' timed out: If Key-Status = W-TIMEOUT Set Exit-Button-Pressed to True End-If * User clicked on the X window button: If Key-Status = W-EVENT AND Event-Type = CMD-CLOSE Set Exit-Button-Pressed to True End-If * User pressed the ESC key: If Escape-Button-Pressed Set Exit-Button-Pressed to True End-If If Key-Status > zero Perform Process-Exception thru XProcess-Exception End-If End-Accept End-Perform. * Put window position: Perform PREFWIND-Action-Init thru XPREFWIND-Action-Init. Set PREFWIND-WIND-ID-IMGEVIEW to True. Move ImgeView-Appl to PREFWIND-APPL-ID. Move WS-PREFWIND-COL-DEF(2) to PREFWIND-PUT-CURR-COL-DEF. Move WS-PREFWIND-LIN-DEF(2) to PREFWIND-PUT-CURR-LIN-DEF. Perform PREFWIND-Action-PUT-Current thru XPREFWIND-Action-PUT-Current. * Destroy screen and window: Destroy ImgeView-1-Screen. Destroy ImgeView-1-Handle. XDISPLAY-AVIP-STMT-LIST. V.25.03 * ImgeView-Print. V.25.04 Modify ImgeView-Wb-Screen PRINt=1. V.25.04 XImgeView-Print. V.25.04 * Fill-Header-Label. V.25.04 Move spaces to WS-AH-DATA. If IMGEVIEW-TRAN-AMT > 0 Move IMGEVIEW-TRAN-AMT to WEDIT-AMOUNT Move WEDIT-AMOUNT to WS-EDIT-AMT-Z STRING "Amt= " delimited by size WS-EDIT-AMT-Z delimited by size INTO ws-amt-data END-STRING End-If. If IMGEVIEW-TRAN-CHECK > 0 Move IMGEVIEW-TRAN-CHECK to NWORK-N8 Move NWORK-N8 to WS-EDIT-Z8 STRING "Check= " delimited by size WS-EDIT-Z8 delimited by size INTO WS-check-data END-STRING End-If. If IMGEVIEW-TRAN-SEQ > 0 Move IMGEVIEW-TRAN-SEQ to NWORK-N18 Move NWORK-N18 to WS-EDIT-Z18 STRING "Trace= " delimited by size WS-EDIT-Z18 delimited by size INTO ws-trace-data END-STRING End-If. If IMGEVIEW-TRAN-BDATE > 0 Multiply IMGEVIEW-TRAN-BDATE by 10000.0001 giving NWORK-N10 MOVE NWORK-N10 TO WS-EDIT-DATE STRING "Post Date= " delimited by size WS-EDIT-DATE delimited by size INTO WS-postdt-data END-STRING End-If. If IMGEVIEW-TRAN-EDATE > 0 Multiply IMGEVIEW-TRAN-EDATE by 10000.0001 giving NWORK-N10 MOVE NWORK-N10 TO WS-EDIT-DATE STRING "Eff Date= " delimited by size WS-EDIT-DATE delimited by size INTO ws-effdt-data END-STRING End-If. If IMGEVIEW-TRAN-ID > 0 Move IMGEVIEW-TRAN-ID to NWORK-N14 Move NWORK-N14 to WS-EDIT-Z14 STRING "Tran Id= " delimited by size WS-EDIT-Z14 delimited by size INTO ws-tran-data END-STRING End-If. STRING WS-AH-DATA DELIMITED BY " " WS-AMT-DATA DELIMITED BY SIZE " " DELIMITED BY SIZE WS-CHECK-DATA DELIMITED BY SIZE " " DELIMITED BY SIZE WS-TRACE-DATA DELIMITED BY SIZE " " DELIMITED BY SIZE WS-POSTDT-DATA DELIMITED BY SIZE " " DELIMITED BY SIZE WS-EFFDT-DATA DELIMITED BY SIZE " " DELIMITED BY SIZE WS-TRAN-DATA DELIMITED BY SIZE INTO WS-AH-DATA END-STRING. Move WS-ACCT-HEADING to ImgeView-LA-Hdr-Title. XFill-Header-Label. V.25.04 * Cleanup-tmp-files. V.26.06 * 1-Delete any TMP files from a previous process: V.26.06 * Copy of XML input file: V.26.06 Move spaces to XMLTMPIN-ID. V.26.06 String LS-DIR-HOMEDRIVE-VALUE ":" V.26.06 LS-DIR-HOMETEMP-VALUE V.26.06 "TMP\IMGEVIEW.XML" delimited by spaces V.26.06 into XMLTMPIN-ID V.26.06 End-String. V.26.06 Call "C$DELETE" V.26.06 using XMLTMPIN-ID "S" V.26.06 giving WD-N1 V.26.06 End-Call. V.26.06 * TXT2FILE output/input file: V.26.06 Move spaces to TXT2FILE-ID. V.26.06 String LS-DIR-HOMEDRIVE-VALUE ":" V.26.06 LS-DIR-HOMETEMP-VALUE V.26.06 "TMP\IMGEVIEW.TXT" delimited by spaces V.26.06 into TXT2FILE-ID V.26.06 End-String. V.26.06 Call "C$DELETE" V.26.06 using TXT2FILE-ID "S" V.26.06 giving WD-N1 V.26.06 End-Call. V.26.06 * TXT2FLDS output file: V.26.06 Move spaces to TXT2FLDS-ID. V.26.06 String LS-DIR-HOMEDRIVE-VALUE ":" V.26.06 LS-DIR-HOMETEMP-VALUE V.26.06 "TMP\IMGEFLDS.TXT" delimited by spaces V.26.06 into TXT2FLDS-ID V.26.06 End-String. V.26.06 Call "C$DELETE" V.26.06 using TXT2FLDS-ID "S" V.26.06 giving WD-N1 V.26.06 End-Call. V.26.06 * 1-Delete any TMP files from a previous process: V.26.06 * Copy of XML input file: V.26.06 Move spaces to XMLTMPIN-ID. V.26.06 String LS-DIR-HOMEDRIVE-VALUE ":" V.26.06 LS-DIR-HOMETEMP-VALUE V.26.06 "TMP\STMTVIEW.XML" delimited by spaces V.26.06 into XMLTMPIN-ID V.26.06 End-String. V.26.06 Call "C$DELETE" V.26.06 using XMLTMPIN-ID "S" V.26.06 giving WD-N1 V.26.06 End-Call. V.26.06 * TXT3FILE output/input file: V.26.06 Move spaces to TXT3FILE-ID. V.26.06 String LS-DIR-HOMEDRIVE-VALUE ":" V.26.06 LS-DIR-HOMETEMP-VALUE V.26.06 "TMP\STMTVIEW.TXT" delimited by spaces V.26.06 into TXT3FILE-ID V.26.06 End-String. V.26.06 Call "C$DELETE" V.26.06 using TXT3FILE-ID "S" V.26.06 giving WD-N1 V.26.06 End-Call. V.26.06 * TXT3FLDS output file: V.26.06 Move spaces to TXT3FLDS-ID. V.26.06 String LS-DIR-HOMEDRIVE-VALUE ":" V.26.06 LS-DIR-HOMETEMP-VALUE V.26.06 "TMP\STMTFLDS.TXT" delimited by spaces V.26.06 into TXT3FLDS-ID V.26.06 End-String. V.26.06 Call "C$DELETE" V.26.06 using TXT3FLDS-ID "S" V.26.06 giving WD-N1 V.26.06 End-Call. V.26.06 * XMLPRSTR file. V.26.06 Move spaces to XMLPRSTR-ID. V.26.06 String LS-DIR-HOMEDRIVE-VALUE ":" V.26.06 LS-DIR-HOMETEMP-VALUE V.26.06 "TMP\XMLPRSTR.TXT" V.26.06 delimited by spaces into XMLPRSTR-ID V.26.06 End-String. V.26.06 Call "C$DELETE" V.26.06 using XMLPRSTR-ID "S" V.26.06 giving WD-N1 V.26.06 End-Call. V.26.06 XCleanup-tmp-files. V.26.06 * * Populate old account numbers with current account when it is V.26.10 * when it is spaces or zeroes for arcimage vendors V.26.10 POPULATE-OLD-ACCOUNT. V.26.10 IF LS-DIR-IMAGE-CHK-VALUE = "arcimage" and IMGEVIEW-OLDACCT NOT > SPACES OR ZEROES MOVE IMGEVIEW-ACCT TO IMGEVIEW-OLDACCT END-IF. XPOPULATE-OLD-ACCOUNT. V.26.10 * AVCM-DOC-RETRIEVAL. V.28.01 Move spaces to XMLFILE1-ID. String LS-DIR-HOMEDRIVE-VALUE ":" LS-DIR-HOMETEMP-VALUE "TMP\file1.xml" delimited by spaces into XMLFILE1-ID End-String. Move spaces to XMLFILE2-ID. String LS-DIR-HOMEDRIVE-VALUE ":" LS-DIR-HOMETEMP-VALUE "TMP\file2.xml" delimited by spaces into XMLFILE2-ID End-String. XML INITIALIZE. open OUTPUT XMLFILE1. If XMLFILE1-STATUS = "00" or SPACE continue else PERFORM NORMAL-FILE-ERROR-STATUS THRU XNORMAL-FILE-ERROR-STATUS GO TO XAVCM-DOC-RETRIEVAL END-IF. * Retrieve the ECM parameter credentials details from SYSFILE Set FILEIO-FUNC-OPEN-IO to True. Perform OPEN-SYSFILML thru XOPEN-SYSFILML. If FILEIO-STAT NOT = "00" PERFORM SYSF-ERROR-STATUS THRU XSYSF-ERROR-STATUS GO TO XAVCM-DOC-RETRIEVAL End-If. * Move WSA-ECMHDR1 to SHACCT-X6. Set FILEIO-LOCK-NO to True. Perform READ-SYSFILML thru XREAD-SYSFILML. If FILEIO-STAT = "00" or "10" move SHECM1-USRNAME to WS-AUTH-VARIABLE-DATA1 move SHECM1-ENTRYPD to WS-AUTH-VARIABLE-DATA2 move SHECM1-WEB-AUTH to Post-Address1 move SHECM1-WEB-SRCH to Post-Address2 move SHECM1-WEB-DLVRY to Post-Address3 * Reading 2nd System Headers to get other web/soap service links Move WSA-ECMHDR2 to SHACCT-X6 Set FILEIO-LOCK-NO to True Perform READ-SYSFILML thru XREAD-SYSFILML IF FILEIO-STAT = "00" or "10" move SHECM2-SOAP-AUTHUSR to WS-SOAP-ACTION1 move SHECM2-SOAP-EXCSRCH to WS-SOAP-ACTION2 move SHECM2-SOAP-URLBYID to WS-SOAP-ACTION3 * Preparing authenticate xml here String WS-AUTH-FIXED-DATA1 delimited by size WS-AUTH-VARIABLE-DATA1 delimited by space WS-AUTH-FIXED-DATA2 delimited by size WS-AUTH-VARIABLE-DATA2 delimited by space WS-AUTH-FIXED-DATA3 delimited by size into WS-AUTH-XML-OUT End-string move WS-AUTH-XML-OUT to XMLFILE1-REC Write XMLFILE1-REC If FILEIO-STAT NOT = "00" PERFORM NORMAL-FILE-ERROR-STATUS THRU XNORMAL-FILE-ERROR-STATUS GO TO XAVCM-DOC-RETRIEVAL END-IF close XMLFILE1 * Get Webservice Authenticate link Inspect post-address1 TALLYING post-address1-count for all spaces compute Actual-post-address1-cnt = 150 - post-address1-count move post-address1(1:Actual-post-address1-cnt) to post-address1-out * Get Webservice Websearch link Inspect post-address2 TALLYING post-address2-count for all spaces compute Actual-post-address2-cnt = 150 - post-address2-count move post-address2(1:Actual-post-address2-cnt) to post-address2-out * Get Webservice delivery link Inspect post-address3 TALLYING post-address3-count for all spaces compute Actual-post-address3-cnt = 150 - post-address3-count move post-address3(1:Actual-post-address3-cnt) to post-address3-out * Below all Soap actions links are getting arranged String A-Desired-SOAP-Action1 delimited by size A-Desired-SOAP-Action2 delimited by space A-Desired-SOAP-Action3 delimited by size into WS-SOAP-ACTION1-OUT End-string String B-Desired-SOAP-Action1 delimited by size B-Desired-SOAP-Action2 delimited by space B-Desired-SOAP-Action3 delimited by size into WS-SOAP-ACTION2-OUT End-string String C-Desired-SOAP-Action1 delimited by size C-Desired-SOAP-Action2 delimited by space C-Desired-SOAP-Action3 delimited by size into WS-SOAP-ACTION3-OUT End-string Inspect WS-SOAP-ACTION1-OUT TALLYING soap-action-add1-count for all spaces compute Actual-soap-address1-cnt = 150 - soap-action-add1-count Inspect WS-SOAP-ACTION2-OUT TALLYING soap-action-add2-count for all spaces compute Actual-soap-address2-cnt = 150 - soap-action-add2-count Inspect WS-SOAP-ACTION3-OUT TALLYING soap-action-add3-count for all spaces compute Actual-soap-address3-cnt = 150 - soap-action-add3-count Else Perform CLOSE-SYSFILML thru XCLOSE-SYSFILML PERFORM SYSF-ERROR-STATUS THRU XSYSF-ERROR-STATUS GO TO XAVCM-DOC-RETRIEVAL End-if. * Below xml get logic will be processed for authentication stop 'gil'. XML GET TEXT request-payload request-len XMLFILE1-ID. IF NOT XML-OK PERFORM XML-NOT-OKAY THRU XXML-NOT-OKAY GO TO XAVCM-DOC-RETRIEVAL END-IF. PERFORM NET-INIT THRU XNET-INIT. * Below authenticate xml call to know webservice credentials * okay or not. If credentials correct, and then we get 36 * characters authenticate code from webservice. * that authenticate code is important to get further details * from webservice call "HttpPost" using post-address1-out(1:Actual-post-address1-cnt) Content-Type request-payload request-len response-payload response-len WS-SOAP-ACTION1-OUT(1:Actual-soap-address1-cnt) giving response-status. XML PUT TEXT response-payload response-len XMLFILE2-ID. IF NOT XML-OK PERFORM XML-NOT-OKAY THRU XXML-NOT-OKAY GO TO XAVCM-DOC-RETRIEVAL END-IF. Open input XMLFILE2. If XMLFILE2-STATUS = "00" or SPACE continue else PERFORM NORMAL-FILE-ERROR-STATUS THRU XNORMAL-FILE-ERROR-STATUS GO TO XAVCM-DOC-RETRIEVAL END-IF. Read XMLFILE2 into XMLFILE2-REC AT END MOVE 1 to EOF-SW If XMLFILE2-STATUS = 00 or SPACE continue else If EOF-SW = 1 perform INCORRECT-PARAMETER-SETUP thru XINCORRECT-PARAMETER-SETUP GO TO XAVCM-DOC-RETRIEVAL end-if End-if. close XMLFILE2. UNSTRING XMLFILE2-REC delimited by "" OR "" into ws-variable1 ws-variable2 END-UNSTRING. If ws-variable2 = space perform INCORRECT-PARAMETER-SETUP thru XINCORRECT-PARAMETER-SETUP GO TO XAVCM-DOC-RETRIEVAL End-if. stop 'gil' Move ws-variable2 to WS-WEBSRH-AUTHENTICAT. ************************************************ * Below move, We are getting account number from sparak and * passing to webservice thru xml * Right now, testing purpose hardcoded here * Before check in/before bank move below hardcode * will be removed and *gilly * MOVE IMGEVIEW-ACCT TO WS-WEBSRH-XML-ACC-NUM. stop 'gil' move 90593 TO WS-WEBSRH-XML-ACC-NUM. ************************************************ * Move IMGEVIEW-SSN to WD-SN9. move 789553379 to WD-SN9. Perform WORKDATA-Edit-TIN thru XWORKDATA-Edit-TIN. Move WD-EDIT-TINX11 to WS-TAX-ID-SSN. Move WS-WEBSRH-XML-AC-IN TO ws-variable3. open output XMLFILE1. If XMLFILE1-STATUS = "00" or space continue else PERFORM NORMAL-FILE-ERROR-STATUS THRU XNORMAL-FILE-ERROR-STATUS GO TO XAVCM-DOC-RETRIEVAL END-IF. move ws-variable3 to XMLFILE1-REC. stop 'gil' write XMLFILE1-REC. If XMLFILE1-STATUS = "00" continue else PERFORM NORMAL-FILE-ERROR-STATUS THRU XNORMAL-FILE-ERROR-STATUS GO TO XAVCM-DOC-RETRIEVAL END-IF. close XMLFILE1. XML GET TEXT request-payload request-len XMLFILE1-ID. IF NOT XML-OK PERFORM XML-NOT-OKAY THRU XXML-NOT-OKAY GO TO XAVCM-DOC-RETRIEVAL END-IF. PERFORM NET-INIT THRU XNET-INIT. * Below web search xml call to get list of document ids * for sparak account. call "HttpPost" using Post-Address2-out(1:Actual-post-address2-cnt) Content-Type request-payload request-len response-payload response-len WS-SOAP-ACTION2-OUT(1:Actual-soap-address2-cnt) giving response-status. XML PUT TEXT response-payload response-len XMLFILE2-ID. IF NOT XML-OK PERFORM XML-NOT-OKAY THRU XXML-NOT-OKAY GO TO XAVCM-DOC-RETRIEVAL END-IF. Open input XMLFILE2. Read XMLFILE2 into XMLFILE2-REC AT END MOVE 1 to EOF-SW. If XMLFILE2-STATUS = 00 or SPACE continue else If EOF-SW = 1 perform INCORRECT-PARAMETER-SETUP thru XINCORRECT-PARAMETER-SETUP GO TO XAVCM-DOC-RETRIEVAL end-if End-if. UNSTRING XMLFILE2-REC delimited by "" OR "" into WS-SERVR-UNABL1 WS-SERVR-UNABL2 End-unstring. If WS-SERVR-UNABL2 NOT = SPACE Display message box "Documents retrival issues.Please try again" TITLE LS-SP3000-RESPONSE TYPE MB-OK ICON MB-ERROR-ICON DEFAULT MB-OK giving WD-MSGBOX-RESP Go to XAVCM-DOC-RETRIEVAL End-if. * Here we are finding total number of xml rows with details * and move to screen variables *gilbat MOVE 1 TO WS-POINTER1. Inspect XMLFILE2-REC tallying ws-count1 for all "". Move ws-count1 to WDocs-GRID-LOAD. perform ws-count1 times ADD 1 TO WS-SUB UNSTRING XMLFILE2-REC delimited by "" OR "" into WS-VARIABLE-GRP1(WS-SUB) WS-VARIABLE-GRP1-M(WS-SUB) with pointer WS-POINTER1 END-UNSTRING Move WS-VARIABLE-GRP1-M(WS-SUB) to GD-List-Col-DocID UNSTRING XMLFILE2-REC delimited by "" OR "" into WS-VARIABLE-GRP2(WS-SUB) WS-VARIABLE-GRP2-M(WS-SUB) with pointer WS-POINTER1 END-UNSTRING Move WS-VARIABLE-GRP2-M(WS-SUB) to GD-List-Col-Acct UNSTRING XMLFILE2-REC delimited by "" OR "" into WS-VARIABLE-GRP3(WS-SUB) WS-VARIABLE-GRP3-M(WS-SUB) with pointer WS-POINTER1 END-UNSTRING Move WS-VARIABLE-GRP3-M(WS-SUB) to GD-List-Col-Acctyp UNSTRING XMLFILE2-REC delimited by "" OR "" into WS-VARIABLE-GRP4(WS-SUB) WS-VARIABLE-GRP4-M(WS-SUB) with pointer WS-POINTER1 END-UNSTRING Move WS-VARIABLE-GRP4-M(WS-SUB) to GD-List-Col-EndDT UNSTRING XMLFILE2-REC delimited by "" OR "" into WS-VARIABLE-GRP5(WS-SUB) WS-VARIABLE-GRP5-M(WS-SUB) with pointer WS-POINTER1 END-UNSTRING Move WS-VARIABLE-GRP5-M(WS-SUB) to GD-List-Col-Doctype UNSTRING XMLFILE2-REC delimited by "" OR "" into WS-VARIABLE-GRP6(WS-SUB) WS-VARIABLE-GRP6-M(WS-SUB) with pointer WS-POINTER1 END-UNSTRING * Move WS-VARIABLE-GRP6-M(WS-SUB) to GD-List-Col-Doctaxid end-perform. close XMLFILE2. Move WS-VARIABLE-GRP1-M(1) to WS-FIRST-ID. Perform Load-Accounts thru XLoad-Accounts. XAVCM-DOC-RETRIEVAL. * NET-INIT. call "NetInit" giving response-status. CALL "NetSSLVerifyPeer" USING 0. XNET-INIT. XML-NETFREE. call "NetFree" using response-payload. call "NetCleanup". XXML-NETFREE. XML-NOT-OKAY. Call "W$MOUSE" using Set-Mouse-Shape Arrow-Pointer. Close window WStatus-Handle. Display message box "XML not okay.Please contact finastra" TITLE LS-SP3000-RESPONSE TYPE MB-OK ICON MB-ERROR-ICON DEFAULT MB-OK giving WD-MSGBOX-RESP perform EXIT-PROCESS-WHEN-FAIL THRU XEXIT-PROCESS-WHEN-FAIL. XXML-NOT-OKAY. NORMAL-FILE-ERROR-STATUS. Call "W$MOUSE" using Set-Mouse-Shape Arrow-Pointer. Close window WStatus-Handle. Display message box "File access error!Please contact Sparak support team" TITLE LS-SP3000-RESPONSE TYPE MB-OK ICON MB-ERROR-ICON DEFAULT MB-OK giving WD-MSGBOX-RESP perform EXIT-PROCESS-WHEN-FAIL THRU XEXIT-PROCESS-WHEN-FAIL. XNORMAL-FILE-ERROR-STATUS. SYSF-ERROR-STATUS. Call "W$MOUSE" using Set-Mouse-Shape Arrow-Pointer. Close window WStatus-Handle. Display message box "SYSFILE has error!Please contact Sparak support team" TITLE LS-SP3000-RESPONSE TYPE MB-OK ICON MB-ERROR-ICON DEFAULT MB-OK giving WD-MSGBOX-RESP perform EXIT-PROCESS-WHEN-FAIL THRU XEXIT-PROCESS-WHEN-FAIL. XSYSF-ERROR-STATUS. INCORRECT-PARAMETER-SETUP. * Destroy status window: Call "W$MOUSE" using Set-Mouse-Shape Arrow-Pointer. Close window WStatus-Handle. Display message box "ECM Parameter has incorrect details. Please verify" TITLE LS-SP3000-RESPONSE TYPE MB-OK ICON MB-ERROR-ICON DEFAULT MB-OK giving WD-MSGBOX-RESP perform EXIT-PROCESS-WHEN-FAIL THRU XEXIT-PROCESS-WHEN-FAIL. XINCORRECT-PARAMETER-SETUP. EXIT-PROCESS-WHEN-FAIL. Set ACCEPT-CONTROL-GOTO-ID to True Move WHold-PB-Exit-ID to CONTROL-ID * Make current window active again: If WSwitch-First-Time = 0 Move 1 to WSwitch-First-Time Set Input-Output window to ImgeView-2-Handle End-If. XEXIT-PROCESS-WHEN-FAIL. * Using below paragraph,We can select any particular document id * to get the result of pdf document in web browser. AVCM-Resend-XML-Request. ADD 1 TO WS-FIL-CNTR. Inquire ImgeView-2-GD-List-Screen Record-Data in ImgeView-2-GD-List-Record. Move GD-List-Col-DocID(1:13) to WS-DELIVERY-DOC-ID-IN. move WS-WEBSRH-AUTHENTICAT to ws-authentication-token. open output XMLFILE1. If XMLFILE1-STATUS = "00" or space continue else PERFORM NORMAL-FILE-ERROR-STATUS THRU XNORMAL-FILE-ERROR-STATUS GO TO XAVCM-DOC-RETRIEVAL END-IF. String WS-DELIVERY-FIXED-DATA1 delimited by size WS-DELIVERY-VARIABLE-DATA1 delimited by space WS-DELIVERY-FIXED-DATA2 delimited by size into WS-DELIVERY-XML-OUT End-string. move WS-DELIVERY-XML-IN to XMLFILE1-REC. write XMLFILE1-REC. XML GET TEXT request-payload request-len XMLFILE1-ID. IF NOT XML-OK PERFORM XML-NOT-OKAY THRU XXML-NOT-OKAY GO TO XAVCM-DOC-RETRIEVAL END-IF. PERFORM NET-INIT THRU XNET-INIT. * Below delivery xml call to get pdf document call "HttpPost" using Post-Address3-out(1:Actual-post-address3-cnt) Content-Type request-payload request-len response-payload response-len WS-SOAP-ACTION3-OUT(1:Actual-soap-address3-cnt) giving response-status. XML PUT TEXT response-payload response-len XMLFILE2-ID. IF NOT XML-OK PERFORM XML-NOT-OKAY THRU XXML-NOT-OKAY GO TO XAVCM-DOC-RETRIEVAL END-IF. OPEN INPUT XMLFILE2. If XMLFILE2-STATUS = "00" or space continue Else PERFORM NORMAL-FILE-ERROR-STATUS THRU XNORMAL-FILE-ERROR-STATUS GO TO XAVCM-DOC-RETRIEVAL END-IF. Read XMLFILE2 into XMLFILE2-REC AT END MOVE 1 to EOF-SW. If XMLFILE2-STATUS = 00 or SPACE continue else If EOF-SW = 1 perform INCORRECT-PARAMETER-SETUP thru XINCORRECT-PARAMETER-SETUP GO TO XAVCM-Resend-XML-Request end-if End-If. MOVE XMLFILE2-REC To final-ws-variable2. INITIALIZE ws-variable1 ws-variable2. UNSTRING final-ws-variable2 delimited by "" OR "" into ws-variable1 ws-variable2 END-UNSTRING. UNSTRING ws-variable2 DELIMITED BY "amp;" INTO WS-TEST3 WS-TEST4 END-UNSTRING. STRING WS-TEST3 Delimited by space WS-TEST4 delimited by space into WS-TEST5. move WS-TEST5 to WS-URL-AVCM. close XMLFILE1 XMLFILE2. call "C$SYSTEM" using WS-URL-PATH-AVCM,CSYS-ASYNC. PERFORM XML-NETFREE THRU XXML-NETFREE. XAVCM-Resend-XML-Request. * Load-Accounts. LA-Reset. Set WLB-High-No to True. Modify ImgeView-2-GD-List-Screen MASS-UPDATE = 1. Modify ImgeView-2-GD-List-Screen RESET-GRID = 1. Modify ImgeView-2-GD-List-Screen ROW-COLOR = 0 CURSOR-COLOR = 0. Move 0 to WGD-Row-Color. Move zeroes to ImgeView-2-GD-Last-Row. Move 0 to WDoc-Sub WDoc-Hgh WDoc-Max. Move low-value to WDoc-Data. Set WEOF-Flag-Empty to True. Move LS-ENABLE-CONTROL to ImgeView-2-PB-View-Enable. Modify ImgeView-2-PB-View-Screen ENABLED is True. LA-Reset-End. Set WEOL-Flag-No to True. Perform LOAD-DOCLOOK thru XLOAD-DOCLOOK. Move ws-count1 to WDocs-GRID-LOAD. Set WEOL-Flag-Yes to True. Move zeroes to WDocs-GRID-SUB WDOcs-GRID-REC. Move spaces to ImgeView-2-GD-List-Record. Move "Document ID" to GD-List-Col-DocID(1:). Move "A/C Number" to GD-List-Col-Acct(1:). Move "A/C Type" to GD-List-Col-Acctyp(1:). Move "End Date" to GD-List-Col-EndDT(1:). Move "Document Type" to GD-List-Col-Doctype(1:). Modify ImgeView-2-GD-List-Screen RECORD-TO-ADD = ImgeView-2-GD-List-Record. * LA-ReadNext. Perform LOAD-RDNXT-DOCLOOK thru XLOAD-RDNXT-DOCLOOK. If ImgeView-2-GD-List-Record > spaces Modify ImgeView-2-GD-List-Screen RECORD-TO-ADD = ImgeView-2-GD-List-Record Add 01 WDocs-GRID-SUB giving WDoc-Sub else Subtract 01 from WDocs-GRID-SUB Go to LA-Close End-If. If WDocs-GRID-SUB < WDocs-GRID-LMT Go to LA-ReadNext. * LA-Close. * Clear add variable: Move spaces to ImgeView-2-GD-List-Record. Move WDocs-GRID-SUB to WDocs-GRID-LAST WDocs-GRID-LOAD. * Destroy status window: * If WHold-Appls-Skip > WHold-Appls-Status Call "W$MOUSE" using Set-Mouse-Shape Arrow-Pointer. Close window WStatus-Handle. LA-Restore. * Redisplay listbox: Modify ImgeView-2-GD-List-Screen MASS-UPDATE = 0. LA-Restore-End. Inquire ImgeView-2-GD-List-Screen LAST-ROW in ImgeView-2-GD-Last-Row. Move ImgeView-2-GD-Last-Row to WDoc-Max. If ImgeView-2-GD-Last-Row NOT > 01 Display MESSAGE BOX "No pdf document exist for this account " LS-NEWLINE "number. " title LS-SP3000-RESPONSE type MB-OK icon MB-WARNING-ICON default MB-OK giving WD-MSGBOX-RESP Move LS-ENABLE-CONTROL to ImgeView-2-PB-View-Enable Modify ImgeView-2-PB-View-Screen ENABLED is false else Set WEOF-Flag-Beg to True Set ACCEPT-CONTROL-GOTO-ID to True Move WHold-GD-list-ID to CONTROL-ID End-If. * Make current window active again: If WSwitch-First-Time = 0 Move 1 to WSwitch-First-Time Set Input-Output window to ImgeView-2-Handle End-If. XLoad-Accounts. * LOAD-DOCLOOK. XLOAD-DOCLOOK. * LOAD-RDNXT-DOCLOOK. if WS-CHK-1 = 01 continue else Add 01 to WDocs-GRID-SUB Add 01 to WDocs-GRID-REC end-if. Move WS-VARIABLE-GRP1-M(WDocs-GRID-SUB) to GD-List-Col-DocID Move WS-VARIABLE-GRP2-M(WDocs-GRID-SUB) to GD-List-Col-Acct Move WS-VARIABLE-GRP3-M(WDocs-GRID-SUB) to GD-List-Col-Acctyp Move WS-VARIABLE-GRP4-M(WDocs-GRID-SUB) to WS-GD-List-Col-EndDT move WS-GD-List-Col-EndDT(1:10) to GD-List-Col-EndDT Move WS-VARIABLE-GRP5-M(WDocs-GRID-SUB) to GD-List-Col-Doctype. move WDocs-GRID-SUB to WS-SUB-UP-1. XLOAD-RDNXT-DOCLOOK. * LOAD-RDPRV-DOCLOOK. Move WS-VARIABLE-GRP1-M(WDocs-GRID-SUB) to GD-List-Col-DocID Move WS-VARIABLE-GRP2-M(WDocs-GRID-SUB) to GD-List-Col-Acct Move WS-VARIABLE-GRP3-M(WDocs-GRID-SUB) to GD-List-Col-Acctyp Move WS-VARIABLE-GRP4-M(WDocs-GRID-SUB) to WS-GD-List-Col-EndDT move WS-GD-List-Col-EndDT(1:10) to GD-List-Col-EndDT Move WS-VARIABLE-GRP5-M(WDocs-GRID-SUB) to GD-List-Col-Doctype. If WS-CHK-2 = 02 subtract 1 from WDocs-GRID-SUB INITIALIZE WS-CHK-2 End-if. move WDocs-GRID-SUB to WS-SUB-DOWN-1. XLOAD-RDPRV-DOCLOOK. * Set-Grid-Row-Color. * This routine sets the color of the selected row in the grid: * WD-N5 = color to change to 040A5 If ImgeView-2-GD-Cursor-X = zero or ImgeView-2-GD-Cursor-Y = zero 040B6 Inquire ImgeView-2-GD-List-Screen CURSOR-X in ImgeView-2-GD-Cursor-X CURSOR-Y in ImgeView-2-GD-Cursor-Y End-If. 040D0 Modify ImgeView-2-GD-List-Screen Y = ImgeView-2-GD-Cursor-Y. 040EB Inquire ImgeView-2-GD-List-Screen RECORD-DATA in ImgeView-2-GD-List-Record. Move GD-List-Col-DocID to WS-HIDDEN-DATA. 04103 If WD-N5 NOT = WCell-Color-Low 0410D Modify ImgeView-2-GD-List-Screen Y = ImgeView-2-GD-Cursor-Y ROW-COLOR = WCell-Color-High 0413B Move WCell-Color-High to WD-N5 04142 Move WCell-Color-High to WGD-Row-Color 041B8 Move ImgeView-2-GD-Cursor-Y to WDoc-Hgh else 041C5 Modify ImgeView-2-GD-List-Screen Y = ImgeView-2-GD-Cursor-Y ROW-COLOR = WCell-Color-Low 041F3 Move WCell-Color-Low to WD-N5 041FA Move WCell-Color-Low to WGD-Row-Color End-If. Modify ImgeView-2-GD-List-Screen CURSOR-COLOR = WD-N5. XSet-Grid-Row-Color. V.28.01 DISPLAY-AVCM-DOC-LIST. V.28.01 Evaluate TRUE when LS-CELL-SIZE-10 Move 38.5 to ImgeView-2-GD-Lines when LS-CELL-SIZE-12 Move 40.1 to ImgeView-2-GD-Lines when LS-CELL-SIZE-13 Move 40.8 to ImgeView-2-GD-Lines when LS-CELL-SIZE-14 when LS-CELL-SIZE-15 Continue End-Evaluate. Display Floating GRAPHICAL WINDOW SCREEN LINE WS-PREFWIND-LIN-DSP, SCREEN COLUMN WS-PREFWIND-COL-DSP, LINES 48.00, size 79.00, CELL HEIGHT LS-CELL-HEIGHT, CELL WIDTH LS-CELL-WIDTH, CONTROL FONT LS-Font-Default-Handle, TITLE-BAR, with SYSTEM MENU, MODELESS, ERASE, BIND to THREAD, NO SCROLL, NO WRAP, COLOR IS LS-CG1-SF-BKGRND, TITLE WS-PREFWIND-Title, LABEL-OFFSET 0, controls-uncropped, handle IS ImgeView-2-HANDLE. DISPLAY IMGEVIEW-2-SCREEN. * Display floating window TITLE LS-SP3000-NAME SIZE 40 LINES 05 LINE 21 COL 24 CONTROL FONT LS-Font-Default-Handle HANDLE is WStatus-Handle. Display LABEL "Retrieving List..." SIZE 40 CELLS centered LINE 03 COL 01. Call "W$MOUSE" using Set-Mouse-Shape Wait-Pointer. Subtract 01 from ImgeView-2-GD-Num-Rows giving WDocs-GRID-LMT. * Initialize data: Move zeroes to Key-Status. * * Toggle the action of the ENTER key: Set environment "KEYSTROKE" to "EDIT=Next TERMINATE=09 ^M". * Make the current window active again: Set Input-Output window to ImgeView-2-HANDLE. * Focus the cursor: Set ACCEPT-CONTROL-GOTO-ID to True. Move WHold-WB-ID to CONTROL-ID. * Set ACCEPT-CONTROL-GOTO-ID to True. * Below main perform Perform AVCM-DOC-RETRIEVAL thru XAVCM-DOC-RETRIEVAL. * * Accept the screen: Perform with test after until Exit-Button-Pressed Accept ImgeView-2-Screen before time LS-PSH-TIMEOUT on exception * 'Accept' timed out: If Key-Status = W-TIMEOUT Set Exit-Button-Pressed to True End-If * User clicked on the X window button: If Key-Status = W-EVENT AND Event-Type = CMD-CLOSE Set Exit-Button-Pressed to True End-If * User pressed the ESC key: If Escape-Button-Pressed Set Exit-Button-Pressed to True End-If If Key-Status > zero Perform Process-Exception thru XProcess-Exception End-If End-Accept End-Perform. * Put window position: Perform PREFWIND-Action-Init thru XPREFWIND-Action-Init. * Set PREFWIND-WIND-ID-IMGEVIEW to True. Move ImgeView-Appl to PREFWIND-APPL-ID. Move WS-PREFWIND-COL-DEF(2) to PREFWIND-PUT-CURR-COL-DEF. Move WS-PREFWIND-LIN-DEF(2) to PREFWIND-PUT-CURR-LIN-DEF. Perform PREFWIND-Action-PUT-Current thru XPREFWIND-Action-PUT-Current. * Destroy screen and window: Destroy ImgeView-2-Screen. Destroy ImgeView-2-Handle. XDISPLAY-AVCM-DOC-LIST. V.28.01 * COPY "IOSYSFML.PDC". V.28.01 COPY "PARAMS.PDC". V.15.01 COPY "WORKDATA.PDC". V.19.01 COPY "PREFWIND.PDC". V.25.01 COPY "LIBHELP.PDC". V.25.01 COPY "LIBMISC.PDC". V.25.01 COPY "INTERNET.PDC". V.25.01 COPY "XMLPARSE.PDC". V.25.02 * *