IBJDE ;ALB/RB - DM DATA EXTRACTION (MAIN ROUTINE) ; 15-APR-99
Source file <IBJDE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BJ | ; - Entry point from IBAMTC.
|
|
| ST | ; - Start extraction process.
|
|
| EXTRACT | ||
| E(RI,J) | ; - Change report extract status/load DM summary report data.
; Input: RI=Report IEN from IB DM EXTRACT REPORTS file (#351.7). ; J=1-Change status, 0=Load DM data |
|
| E1 | ; - Load DM summary report data into file #351.71.
|
|
| E2 | ||
| COMP | ||
| ENQ | ||
| M1(X,Y) | ; - Return first/last day of month (if Y=0), previous month (if Y=1),
; first/last day of month in MMDDYYYY format (if Y=2), or date in ; external format (if Y=3). |
|
| M1Q | ||
| M2(X,Y,Z,R) | ; - Return specific date range.
; Input: X=Date in Fileman format ; Y=Number of months back from X ; Z=Number of months ahead from date created via Y ; R=0-Date range in Fileman format, 1-In MMDDYYYY format |
|
| M2Q | ||
| M3(X) | ;Beginning date 365 days prior
|
|
| CHK(X) | ; - Check if all extract reports have completed.
; Input: X=Date IEN of entry in file #351.71 ; Output: Y=0-Completed, 1-Not completed |
|
| LDATE(X) | ; DETERMINE CUT-OFF DATE FOR THE MONTH
|
| FileNo | Call Tags |
|---|---|
| ^IBE(351.71 - [#351.71] | Classic Fileman Calls |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | BJ+9, EXTRACT+19*, E+6, E+11, E2, COMP+1, ENQ+1! |
| >> %H | BJ+9 |
| DA | BJ+11*, BJ+12!, EXTRACT+5*, EXTRACT+6!, E+6*, E+7!, E+12*!, E1+8*!, E2+1*!, COMP+1*! |
| DA(1 | EXTRACT+5*, E+12*, E1+7*, E2+1* |
| DA(2 | E1+7* |
| DD | BJ+16!, EXTRACT+5!, EXTRACT+6!, E1+8! |
| DIC | BJ+15*, BJ+16!, EXTRACT+4*, EXTRACT+6!, E1+6*, E1+8! |
| DIC("DR" | BJ+15*, EXTRACT+4*, E1+7* |
| DIC("P" | EXTRACT+5*, E1+7* |
| DIC(0 | BJ+15*, EXTRACT+4*, E1+6* |
| DIE | BJ+11*, BJ+12!, E+6*, E+7!, E+11*, E+12!, E2*, E2+1!, COMP+1*! |
| DINUM | BJ+16*!, EXTRACT+5*, EXTRACT+6!, E1+8*! |
| DO | BJ+16!, EXTRACT+5!, EXTRACT+6!, E1+8! |
| DR | BJ+11*, BJ+12!, E+6*, E+7!, E+11*, E+12!, E2*, E2+1!, COMP+1*! |
| DT | BJ+4, BJ+5, ST+4, E+3, M1+3, M2+6 |
| IBA0 | ST+4*, ST+5*, EXTRACT+1, EXTRACT+3, EXTRACT+5, EXTRACT+10, EXTRACT+11, EXTRACT+18, E1+2*, E1+3 , E1+8, ENQ+1! |
| IBA1 | EXTRACT+9*, EXTRACT+10*, EXTRACT+11, ENQ+1! |
| IBCT | ENQ+1! |
| IBDT | BJ+4*, BJ+5*, BJ+6*, BJ+7, BJ+10, BJ+11, BJ+16*, ST+1, EXTRACT+1, EXTRACT+3 , EXTRACT+4, EXTRACT+5, EXTRACT+17, E+3*, E+5, E+6, E+10, E+11, E+12, E1+6 , E1+7, E2, E2+1, E2+5, COMP+1, COMP+2, ENQ! |
| IBN0 | ST+4*, ST+5*, EXTRACT, EXTRACT+16, E1+3*, E1+7, ENQ+1! |
| IBN1 | EXTRACT+10*, EXTRACT+12, ENQ+1! |
| IBRD | BJ+9*, BJ+11, BJ+15, EXTRACT+19, ENQ+1! |
| IBS | BJ+9*, EXTRACT+19*, ENQ+1! |
| IBUNBILL | ST+3~, ST+4*, ST+5*, E+3, E1+1 |
| IBV | EXTRACT+12*, ENQ+1! |
| IBV1 | ENQ+1! |
| >> IBX | EXTRACT+17, ENQ |
| IBXDATE | E+3, E2+1! |
| IBXTRACT | E2+1! |
| J | E~, E+3 |
| R | M2~, M2+6*, M2+11 |
| RI | E~, E+10, E+12, E1+2, E1+6, E1+7, E2+1 |
| U | EXTRACT, EXTRACT+12, EXTRACT+16, EXTRACT+18, E1+3, COMP+2, M1+5, M1+8, M2+11, M2+12 , CHK+4 |
| X | BJ+16*, EXTRACT+5*, E1+8*, ENQ+1!, M1~, M1+3*, M1+4, M1+5*, M1+6*, M1+8* , M1+9*, M1Q, M2~, M2+6*, M2+7*, M2+8, M2+9*, M2+10*, M2+11*, M2+12* , M2Q, M3~, M3+2, M3+3, CHK~, CHK+5, LDATE~, LDATE+1*, LDATE+2*, LDATE+3* , LDATE+4 |
| X1 | M1+3~, M1+8*, M2+5~, M2+8*, M2+11, M2+12*, M3+1~, M3+2*, CHK+3~*, CHK+4* , CHK+5* |
| X2 | M1+3~, M1+4*, M1+5, M1+8, M2+5~, M2+9*, M2+10*, M2+12*, M3+1~, M3+2* , CHK+3~*, CHK+4*, CHK+6 |
| X3 | M2+9*, M2+11, CHK+3~*, CHK+5*, CHK+6 |
| Y | BJ+16, ENQ+1!, M1~, M1+3*, M1+5, M1+6, M1+7, M1+9*, M2~, M2+6* , M2+9, CHK+3*, CHK+6*, CHK+7 |
| Z | M2~, M2+6*, M2+10 |
| ZTDESC | EXTRACT+9~, EXTRACT+16* |
| ZTDTH | EXTRACT+9~, EXTRACT+19* |
| ZTIO | EXTRACT+9~, EXTRACT+16* |
| ZTRTN | EXTRACT+9~, EXTRACT+18* |
| ZTSAVE | EXTRACT+9~ |
| ZTSAVE( | EXTRACT+12* |
| ZTSAVE("IBUNBILL" | EXTRACT+15* |
| ZTSAVE("IBXDATE" | EXTRACT+17* |
| ZTSAVE("IBXTRACT" | EXTRACT+16* |
| ZTSK | EXTRACT+9~ |
