----------------------------------------------------------- IB Compile of EXPAP.IBS, SYO to EXPAP, SYO Version: 0 on 04/29/09 at 09:44:48 16 EXPAP IBS 0000 USE "^COM" 16 EXPAP IBS 39 ************************************************************************************************************************************ 17 EXPAP IBS 0000 USE "^rcvrap" ! 0998 AP Invoice W = WRITE ! 17 EXPAP IBS 39 *****************! 0998 AP Invoice W = WRITE ! 18 EXPAP IBS 0000 USE "^C1A" ! Hist U = UPDATE ! 18 EXPAP IBS 39 *****************! Hist U = UPDATE ! 19 EXPAP IBS 0000 USE "^N5" ! 1450 D = DELETE ! 19 EXPAP IBS 39 *****************! 1450 D = DELETE ! 20 EXPAP IBS 0000 USE "^rcvhist" ! 1591 C = CREATE ! 20 EXPAP IBS 39 *****************! 1591 C = CREATE ! 21 EXPAP IBS 0000 USE "^XMRHIST" 21 EXPAP IBS 39 ************************************************************************************************************************************ 22 EXPAP IBS 0000 USE "^RDF" ! 1590 P = KEY ONLY ! 22 EXPAP IBS 39 *****************! 1590 P = KEY ONLY ! 23 EXPAP IBS 0000 USE "^XDF" 23 EXPAP IBS 39 ************************************************************************************************************************************ 24 EXPAP IBS 0000 USE "^COOP" ! K = KEYED ! 24 EXPAP IBS 39 *****************! K = KEYED ! 25 EXPAP IBS 0000 USE "^N1" ! S = SEQUENTIAL! 25 EXPAP IBS 39 *****************! S = SEQUENTIAL! 26 EXPAP IBS 0000 USE "^CREDIT" ! G = CONTIGUOUS! 26 EXPAP IBS 39 *****************! G = CONTIGUOUS! 27 EXPAP IBS 0000 USE "^SUB" 27 EXPAP IBS 39 ************************************************************************************************************************************ 28 EXPAP IBS 0000 use "^HWOAP" 28 EXPAP IBS 39 ************************************************************************************************************************************ 29 EXPAP IBS 0000 USE "^HSUB" ! 29 EXPAP IBS 39 *****************************************************************************! 45 EXPAP IBS 0000 USE '^DATE' 45 EXPAP IBS 39 ************************************************************************************************************************************ 46 EXPAP IBS 0000 USE '^Z1' 46 EXPAP IBS 39 ************************************************************************************************************************************ 89 EXPAP IBS 0036 ZDATE$,@(70,0) 89 EXPAP IBS 03 ************* 91 EXPAP IBS 0036 (SB);"PROCESSING RECORD # ",@(10,10);(SF);" ";HVNBR$;(SF) 91 EXPAP IBS 03 *********************************************************** 124 EXPAP IBS 0053 INQUIRE (Z1,0990) KEY = TERM$ 124 EXPAP IBS 18 *********************** 127 EXPAP IBS 0059 CREATE "APAYEXP.TXT" DIR = ZREMDISK$ 127 EXPAP IBS 03 ******************************************* 134 EXPAP IBS 0082 Z1$ = CHECKDT$ 134 EXPAP IBS 03 ********** 136 EXPAP IBS 0085 IF DT$ = "N" GOTO 2500 136 EXPAP IBS 03 ************* 149 EXPAP IBS 00CD INQUIRE(N5,1450)KEY=KEY$,EXCP=5000 149 EXPAP IBS 18 ******************** 152 EXPAP IBS 00D9 IF HCKDATE$ NE YYMMDD$ GOTO 3000 !!!!if date of check does not equal selection date get next record 152 EXPAP IBS 03 **************** !!!!if date of check does not equal selection date get next record 153 EXPAP IBS 00D9 IF SUB(HREFNBR$,1,4) = "BCHG" THEN !!!bureau charge invoice 153 EXPAP IBS 03 *************** !!!bureau charge invoice 156 EXPAP IBS 00DF ENDIF 156 EXPAP IBS 15 ***** 157 EXPAP IBS 00DF If SUB(HREFNBR$,1,5) = "RADIO" THEN !!! radio invoice 157 EXPAP IBS 03 *************** !!! radio invoice 160 EXPAP IBS 00E5 ENDIF 160 EXPAP IBS 15 ***** 167 EXPAP IBS 00E5 IF SUB(HREFNBR$,12,1) = "F" RESERVE$ = "F" !!! reserve invoice 167 EXPAP IBS 03 *************** !!! reserve invoice 170 EXPAP IBS 00F1 INQUIRE(C1A,0311) KEY = HVNBR$, EXCP = 3010 170 EXPAP IBS 18 ********************** ----------------------------------------------------------- 173 EXPAP IBS 00F9 POSITION(N1) KEY = HVNBR$ + SUB(HREFNBR$,1,11) + "F" + " DI " 173 EXPAP IBS 03 *************************** 174 EXPAP IBS 00FA KEYN1$= KEY(N1,EXCP=3020) 174 EXPAP IBS 03 ******** 175 EXPAP IBS 00FA IF SUB(KEYN1$,1,22) = HVNBR$+SUB(HREFNBR$,1,11)+"F"+" DI " THEN 175 EXPAP IBS 03 *************** 177 EXPAP IBS 0100 INQUIRE(N1,1410) 177 EXPAP IBS 18 ******************** 178 EXPAP IBS 0100 IF ABS(NTRAMT) NE ABS(HTRAMT) SPLIT$ = "Y" 178 EXPAP IBS 03 ****************** 180 EXPAP IBS 0100 ENDIF 180 EXPAP IBS 15 ***** 182 EXPAP IBS 0100 POSITION(RCVRAP) KEY=HVNBR$ + HREFNBR$,EXCP=3200 182 EXPAP IBS 03 ********************************* 185 EXPAP IBS 010C IF SUB(RCVKEY$,1,18) NE (HVNBR$ + HREFNBR$) 185 EXPAP IBS 03 ************************************* 187 EXPAP IBS 011A ENDIF 187 EXPAP IBS 15 *********** 188 EXPAP IBS 011A INQUIRE(RCVRAP,0998)KEY=RCVKEY$,EXCP=5500 188 EXPAP IBS 18 ************************ 189 EXPAP IBS 011A IF SUB(HREFNBR$,12,1) = "A" THEN 189 EXPAP IBS 03 ******************** 192 EXPAP IBS 0120 ENDIF 192 EXPAP IBS 15 ********** 194 EXPAP IBS 0120 DSERNBR$ = "Unknown" 194 EXPAP IBS 03 ************** 195 EXPAP IBS 0120 IF STRIP(RACTCYMD$) NE "" THEN !!!! 09/05/04 195 EXPAP IBS 03 ************************ !!!! 09/05/04 196 EXPAP IBS 0120 INQUIRE(RDF,1590) KEY = RCVERNUM$ + RACTCYMD$, EXCP =3205 196 EXPAP IBS 18 ************************* 197 EXPAP IBS 0120 ELSE 197 EXPAP IBS 15 ********** 199 EXPAP IBS 0123 POSITION(RDF) KEY=RCVERNUM$+"^^", Excp = 3210 !!!!ACTIVITY IS BEFORE 199 EXPAP IBS 03 ************************************ !!!!ACTIVITY IS BEFORE 201 EXPAP IBS 012F IF SUB(KEYRDF$,1,16) = RCVERNUM$ !!!MUST BELONG TO ORIGINAL 201 EXPAP IBS 03 ***************************************** !!!MUST BELONG TO ORIGINAL 202 EXPAP IBS 013A INQUIRE(RDF,1590) KEY = KEYRDF$ !!!RECEIVER (BEFORE ACT DATE 202 EXPAP IBS 18 ******************************* !!!RECEIVER (BEFORE ACT DATE 203 EXPAP IBS 013A ENDIF !!!IN KEY 203 EXPAP IBS 15 ************** !!!IN KEY 204 EXPAP IBS 013A ENDIF 204 EXPAP IBS 15 *********** 207 EXPAP IBS 013A CCYYMMDD$ = SUB(RCVREFDT$,1,4) + SUB(RCVREFDT$,6,2) 207 EXPAP IBS 03 *********************************** 208 EXPAP IBS 013A CCYYMMDD$ = CCYYMMDD$ + SUB(RCVREFDT$,9,2) 208 EXPAP IBS 03 *********************************************** 212 EXPAP IBS 015E RKDATE$ = XCYYMMDD$ 212 EXPAP IBS 03 ***************** 213 EXPAP IBS 015E RHCOMMT$ = "None on file" 213 EXPAP IBS 03 ************** 215 EXPAP IBS 015E IF STRIP(RHSEQ$) NE "" THEN 215 EXPAP IBS 03 *************** 216 EXPAP IBS 015E XSEQ$ = RHSEQ$ 216 EXPAP IBS 03 ************************ 219 EXPAP IBS 0161 IF RCVERNUM$ NE OLDRCV$ THEN 219 EXPAP IBS 03 ***************** 223 EXPAP IBS 0177 OLDRCV$ = RCVERNUM$ 223 EXPAP IBS 03 ************************************** 229 EXPAP IBS 0190 OLDRCV$ = RCVERNUM$ 229 EXPAP IBS 03 ************************************** 234 EXPAP IBS 01A1 OLDRCV$ = RCVERNUM$ ----------------------------------------------------------- 234 EXPAP IBS 03 ****************************** 235 EXPAP IBS 01A1 ENDIF 235 EXPAP IBS 15 ********** 237 EXPAP IBS 01A1 IF RKDATE$ NE OLDDT$ THEN 237 EXPAP IBS 03 *************** 241 EXPAP IBS 01B7 OLDDT$ = RKDATE$ 241 EXPAP IBS 03 *********************************** 247 EXPAP IBS 01D0 OLDDT$ = RKDATE$ 247 EXPAP IBS 03 *********************************** 252 EXPAP IBS 01E1 OLDDT$ = RKDATE$ 252 EXPAP IBS 03 *************************** 253 EXPAP IBS 01E1 ENDIF 253 EXPAP IBS 15 ********** 255 EXPAP IBS 01E1 POSITION (RCVHIST) KEY = RCVERNUM$ + RKDATE$ + XSEQ$ 255 EXPAP IBS 03 **************************************** 259 EXPAP IBS 01ED IF SUB(KEYRH$,1,24) NE RCVERNUM$ + RKDATE$ THEN 259 EXPAP IBS 03 *********************************** 263 EXPAP IBS 0220 POSITION(RCVHIST) KEY = RCVERNUM$ + RKDATE$ + XSEQ$ 263 EXPAP IBS 03 ****************************************** 265 EXPAP IBS 022C IF SUB(KEYRH$,1,24) NE RCVERNUM$ + RKDATE$ THEN 265 EXPAP IBS 03 ***************************************** 266 EXPAP IBS 0237 ENDIF 266 EXPAP IBS 15 ************** 268 EXPAP IBS 023A ENDIF 268 EXPAP IBS 15 *********** 269 EXPAP IBS 023A INQUIRE (RCVHIST,1591) 269 EXPAP IBS 18 *************************** 272 EXPAP IBS 023A if pos("DEACTIVAT",rhcommt$) ne 0 then 272 EXPAP IBS 03 ********************************* 274 EXPAP IBS 023D endif 274 EXPAP IBS 15 *********** 275 EXPAP IBS 023D if rdlramt = 0 goto 3200 !!do not end record for $0 to dealer 275 EXPAP IBS 03 **************** !!do not end record for $0 to dealer 278 EXPAP IBS 023D IF RCVPAID EQ RDLRAMT GOTO 3230 278 EXPAP IBS 03 **************** 279 EXPAP IBS 023D IF RCVPAID EQ RHDOLL GOTO 3230 279 EXPAP IBS 03 **************** 284 EXPAP IBS 0243 ChCkDate$ = SUB(HCKDATE$,3,2) + "/" + SUB(HCKDATE$,5,2) + __ 284 EXPAP IBS 03 ***************************** __ 288 EXPAP IBS 0243 ACTDATE$ = SUB(ACTDCYMD$,5,2) + "/" + SUB(ACTDCYMD$,7,2) + "/" + __ 288 EXPAP IBS 03 ******************************** __ 291 EXPAP IBS 0243 IF STRIP(RDACTDT$) = "" THEN 291 EXPAP IBS 03 ********************** 293 EXPAP IBS 0249 else 293 EXPAP IBS 15 ********* 294 EXPAP IBS 024C DEACTDate$ = SUB(RDACTDT$,6,2) + "/" + SUB(RDACTDT$,9,2) + "/" + __ 294 EXPAP IBS 03 *********************************** __ 297 EXPAP IBS 024C if strip(rdQUALDT$) = "" then 297 EXPAP IBS 03 ************************ 299 EXPAP IBS 0252 else 299 EXPAP IBS 15 ********* 300 EXPAP IBS 0255 DISQDate$ = SUB(RDQUALdt$,6,2) + "/" + SUB(RDQUALdt$,9,2) + "/" + __ 300 EXPAP IBS 03 *********************************** __ 303 EXPAP IBS 0255 IF STRIP(RQUALDT$) = "" THEN 303 EXPAP IBS 03 *********************** 305 EXPAP IBS 025B ELSE 305 EXPAP IBS 15 ********** 306 EXPAP IBS 025E QUALDATE$ = SUB(RQUALDT$,6,2) + "/" + SUB(RQUALDT$,9,2) + "/" + __ 306 EXPAP IBS 03 ********************************* __ 309 EXPAP IBS 025E IF RDLRAMT LT 0 309 EXPAP IBS 03 **************** ----------------------------------------------------------- 311 EXPAP IBS 0264 ELSE 311 EXPAP IBS 15 ********** 314 EXPAP IBS 026D XRCVPAID = ABS(RDLRAMT) 314 EXPAP IBS 03 **************************** 315 EXPAP IBS 026D STRING$ = STRIP(HVNBR$) + SP$ +_ Dealer 315 EXPAP IBS 03 *************************** _ Dealer 329 EXPAP IBS 0274 STRING2$ = STRIP(subNAME$) + SP$ + __ 329 EXPAP IBS 03 ***************************** __ 342 EXPAP IBS 0279 DLRCOM = DLRCOM + RDLRAMT 342 EXPAP IBS 03 ************************* 345 EXPAP IBS 028D SDESC$ = RHCOMMT$ 345 EXPAP IBS 03 ********************** 346 EXPAP IBS 028D SDLRAMT = RDLRAMT 346 EXPAP IBS 03 ********************** 347 EXPAP IBS 028D INQUIRE(RCVHIST,1591),EXCP= 3050 347 EXPAP IBS 18 ************************* 348 EXPAP IBS 028D IF STRIP(RHCOMMT$) NE STRIP(SDESC$) OR SDLRAMT NE RDLRAMT 348 EXPAP IBS 03 ********************** 351 EXPAP IBS 0299 ENDIF 351 EXPAP IBS 15 ********** 352 EXPAP IBS 0299 ENDIF 352 EXPAP IBS 15 ***** 366 EXPAP IBS 02E1 RCVSEQ$ = "" 366 EXPAP IBS 03 ************* 367 EXPAP IBS 02E1 RCVERNUM$ = "" 367 EXPAP IBS 03 *************** 368 EXPAP IBS 02E1 DSERNBR$ = "" 368 EXPAP IBS 03 ************** 371 EXPAP IBS 02E7 INQUIRE(COOP,3000), EXCP=4090 371 EXPAP IBS 18 *********************** 376 EXPAP IBS 0314 "@010C1F@Processing ";cpdealer$;coopdt$;cprcvid$ !@(31,11) 376 EXPAP IBS 03 ***************************************************** !@(31,11) 378 EXPAP IBS 0319 IF POS("COOP",CPRCVID$) = 0 GOTO 4000 378 EXPAP IBS 03 **************************** 380 EXPAP IBS 0319 IF STRIP(CHKDATE$) NE YYMMDD$ GOTO 4000 380 EXPAP IBS 03 *********************** 381 EXPAP IBS 0319 IF STRIP(CCHKNBR$) = "" CCHKNBR$ = "COOP" 381 EXPAP IBS 03 *********************** 383 EXPAP IBS 031F XCPPAID = ABS(CPAMOUNT) 383 EXPAP IBS 03 **************************** 384 EXPAP IBS 031F ACTDATE$ = SUB(CPDATE$,6,2)+"/"+SUB(CPDATE$,9,2)+"/" 384 EXPAP IBS 03 **************************** 385 EXPAP IBS 031F ACTDATE$ = ACTDATE$ + SUB(CPDATE$,3,2) 385 EXPAP IBS 03 *************************************** 386 EXPAP IBS 031F CHCKDATE$ = SUB(CHKDATE$,3,2)+"/"+SUB(CHKDATE$,5,2)+"/"+SUB(CHKDATE$,1,2) 386 EXPAP IBS 03 ****************************** 387 EXPAP IBS 031F STRING$ = STRIP(CPDEALER$) + SP$ +_ Dealer 387 EXPAP IBS 03 ******************************* _ Dealer 400 EXPAP IBS 0324 COOPTOT = COOPTOT + CPAMOUNT 400 EXPAP IBS 03 **************************** 416 EXPAP IBS 0354 POSITION(CREDIT) KEY = HVNBR$ + HREFNBR$, EXCP=8090 416 EXPAP IBS 03 ********************************** 419 EXPAP IBS 0360 IF SUB(KEYCREDIT$,1,18) NE HVNBR$ + HREFNBR$ GOTO 8099 419 EXPAP IBS 03 ************************************** 420 EXPAP IBS 036B INQUIRE(CREDIT,0399) 420 EXPAP IBS 18 ************************ 422 EXPAP IBS 0371 XCPAY = ABS(CPAY) 422 EXPAP IBS 03 ********************* 423 EXPAP IBS 0371 ChCkDate$ = SUB(HCKDATE$,3,2) + "/" + SUB(HCKDATE$,5,2) + __ 423 EXPAP IBS 03 ***************************** __ 425 EXPAP IBS 0371 IF STRIP(CRESULT$) = "APPROVED" THEN ----------------------------------------------------------- 425 EXPAP IBS 03 ********************** 426 EXPAP IBS 0371 XCLRES$ = "APP" + STRIP(CCLAIM$) 426 EXPAP IBS 03 ******************************************* 427 EXPAP IBS 0371 ELSE 427 EXPAP IBS 15 ********* 428 EXPAP IBS 0374 XCLRES$ = STRIP(CRESULT$) 428 EXPAP IBS 03 ************************************ 430 EXPAP IBS 0374 STRING$ = STRIP(CDLR$) + SP$ +_ Dealer 430 EXPAP IBS 03 ************************** _ Dealer 448 EXPAP IBS 0389 POSITION(XMRRAP) KEY=HVNBR$ + HREFNBR$,EXCP=8520 448 EXPAP IBS 03 ********************************* 451 EXPAP IBS 0395 IF SUB(RCVKEY$,1,18) NE (HVNBR$ + HREFNBR$) 451 EXPAP IBS 03 ************************************* 453 EXPAP IBS 03A3 ENDIF 453 EXPAP IBS 15 *********** 454 EXPAP IBS 03A3 INQUIRE(XMRRAP,0998) 454 EXPAP IBS 18 ************************* 456 EXPAP IBS 03A3 DSERNBR$ = "Unknown" 456 EXPAP IBS 03 ************** 457 EXPAP IBS 03A3 INQUIRE (XDF,2445) KEY =RCVERNUM$ Excp = 8530 457 EXPAP IBS 18 *********************** 460 EXPAP IBS 03A3 CCYYMMDD$ = SUB(RCVREFDT$,7,4) + SUB(RCVREFDT$,1,2) 460 EXPAP IBS 03 ******************************* 461 EXPAP IBS 03A3 CCYYMMDD$ = CCYYMMDD$ + SUB(RCVREFDT$,4,2) 461 EXPAP IBS 03 ******************************************* 465 EXPAP IBS 03C7 RKDATE$ = XCYYMMDD$ 465 EXPAP IBS 03 ************* 466 EXPAP IBS 03C7 RHCOMMT$ = "None on file" 466 EXPAP IBS 03 ************** 467 EXPAP IBS 03C7 XSEQ$ = RHSEQ$ 467 EXPAP IBS 03 ******************** 469 EXPAP IBS 03C7 INQUIRE (XMRHIST,2450) KEY = RCVERNUM$ + RKDATE$ + XSEQ$, EXCP= 8590 469 EXPAP IBS 18 *************************** 470 EXPAP IBS 03C7 IF RCVPAID EQ RHDOLL GOTO 8550 470 EXPAP IBS 03 **************** 474 EXPAP IBS 03CA ChCkDate$ = SUB(HCKDATE$,3,2) + "/" + SUB(HCKDATE$,5,2) + __ 474 EXPAP IBS 03 ***************************** __ 477 EXPAP IBS 03CA ActDate$ = SUB(RACTDT$,1,6) + SUB(RACTDT$,9,2) 477 EXPAP IBS 03 *************************** 480 EXPAP IBS 03CA IF STRIP(RDACTDT$) = "" 480 EXPAP IBS 03 ********************** 482 EXPAP IBS 03D0 else 482 EXPAP IBS 15 ********* 483 EXPAP IBS 03D3 DISQDATE$ = SUB(RDACTDT$,1,6) + SUB(RDACTDT$,9,2) 483 EXPAP IBS 03 ********************************** 486 EXPAP IBS 03D3 IF RDLRAMT LT 0 486 EXPAP IBS 03 **************** 488 EXPAP IBS 03D9 ELSE 488 EXPAP IBS 15 ********** 491 EXPAP IBS 03E2 XRCVPAID = ABS(RDLRAMT) 491 EXPAP IBS 03 **************************** 492 EXPAP IBS 03E2 STRING$ = STRIP(HVNBR$) + SP$ +_ Dealer 492 EXPAP IBS 03 **************************** _ Dealer 505 EXPAP IBS 03E7 DLRCOM = DLRCOM + RDLRAMT 505 EXPAP IBS 03 ******************************* 518 EXPAP IBS 040F 8900 USE "^8900" 518 EXPAP IBS 39 ************************************************************************************************************************************ 520 EXPAP IBS 040F 9000 USE '^MESSAGE' 520 EXPAP IBS 39 ************************************************************************************************************************************ 528 EXPAP IBS 0447 PROGRAM$ = "D" 528 EXPAP IBS 03 **************** ----------------------------------------------------------- 531 EXPAP IBS 044B SUBNAME$ = "NOT ON FILE" 531 EXPAP IBS 03 **************** 532 EXPAP IBS 044B SPHONE$ = "" 532 EXPAP IBS 03 *************** 533 EXPAP IBS 044B SADDR1$ = "" 533 EXPAP IBS 03 *************** 534 EXPAP IBS 044B SADDR2$ = "" 534 EXPAP IBS 03 *************** 535 EXPAP IBS 044B SCITY$ = "" 535 EXPAP IBS 03 ************** 536 EXPAP IBS 044B SST$ = "" 536 EXPAP IBS 03 ************ 537 EXPAP IBS 044B SZIP$ = "" 537 EXPAP IBS 03 ************* 538 EXPAP IBS 044B SCERT$ = "" 538 EXPAP IBS 03 ************** 539 EXPAP IBS 044B SAGREE$ = "" 539 EXPAP IBS 03 *************** 540 EXPAP IBS 044B SPREM$ = "" 540 EXPAP IBS 03 ************** 541 EXPAP IBS 044B INQUIRE(SUB,SUBM) KEY = RCVACCT$, EXCP = SUBSCRIBERRETURN 541 EXPAP IBS 18 ************************ 547 EXPAP IBS 044C ChCkDate$ = SUB(HCKDATE$,3,2) + "/" + SUB(HCKDATE$,5,2) + __ 547 EXPAP IBS 03 ***************************** __ 550 EXPAP IBS 0452 XRCVPAID = ABS(RCVPAID) 550 EXPAP IBS 03 *************************** 551 EXPAP IBS 0452 STRING$ =STRIP(HVNBR$) + SP$ +_ Dealer 551 EXPAP IBS 03 ************************** _ Dealer 578 EXPAP IBS 0496 DLRCOM = DLRCOM + rcvpaid !!!!!!!!!!!!11RDLRAMT 578 EXPAP IBS 03 ******************************* !!!!!!!!!!!!11RDLRAMT ERROR: 27 STRUCTURED 'IF's Exist With No 'endif's starting at 0085 WARNING: Format 0000 Defined At 0000, Has no Reference WARNING: Format 2710 Defined At 0036, Has no Reference WARNING: Statement 3230 Defined At 0240, Has no Reference WARNING: Statement 4090 Defined At 0327, Has no Reference WARNING: Statement 8550 Defined At 03CA, Has no Reference WARNING: Statement 8590 Defined At 03F1, Has no Reference TOTAL ERRORS 00300 NO OBJECT CODE CREATED Compilation Memory Usage Available 00065057 Symbol Table 00002889 Compile Completed