IBCEFG ;ALB/TMP - OUTPUT FORMATTER EXTRACT ;17-JAN-96
Source file <IBCEFG.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXTRACT(IBXFORM,IBXIEN,IBXREC,IBXPARM,IBXPOSTWA) | ; Extract entry into global by rec #/pg/ln/col; WCJ;IB718v22
; IBXFORM (required) Form id pointer to file #353 ; IBXIEN (required) entry # in form's base file to output ; IBXREC (optional) record # in extract file - if not defined - 1 used ; IBXPARM (optional) array used to pass in specific search variables ; that can be used to customize the determination ; of the form field definition to use for each ; form field to be extracted ; IBXPARM(1) should contain a code to identify the ; type of form being processed (see $$ELE^IBCEFG0 function) ; IBXPOSTWA (optional) = 1 if the post processing of workarounds should be executed ; WCJ;IB718v22 ; Returns total # of bytes of data extracted if extract successful ; or 0 if extract not successful |
|
| EXTQ | ;
|
|
| DATA(IBXPG,IBXLN,IBXCOL,IBXIEN,IBXFORM,IBXDA,IBXPARM,IBXERR) | ; Extract/Format Data Element
|
|
| FORMAT(DATA,IBXLEN,IBXPAD,IBX0,MULTI) | ; Adjust length on data for field def,add prompt
; DATA = the data to be output ; IBXLEN = the max length of the data ; IBXPAD = code for pad character ; IBX0 = the 0-node of the entry in file 364.7 being formatted ; MULTI = (optional) ; 0 or null if a single occurrence of the data ; > 0 if multiple ocurrences of the data being processed (group data) ; |
|
| SETGBL(IBXPG,IBXLN,IBXCOL,VAL,IBXSIZE) | ; Sets the output global
|
|
| SETEDIT(IBFORM,IBX0) | ;
|
|
| NULLCHEK | ; Checks for no output if null, deletes variable if appropriate
; Check for no output if transmit and null |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | SETEDIT+4 |
| ^IBA(364.5 - [#364.5] | DATA+20, DATA+22, SETEDIT+3 |
| ^IBA(364.6 - [#364.6] | EXTRACT+28, EXTRACT+29, EXTRACT+30, EXTRACT+33, DATA+32, NULLCHEK+2 |
| ^IBA(364.7 - [#364.7] | DATA+17, DATA+27, DATA+43, DATA+50 |
| ^IBE(353 - [#353] | EXTRACT+19, EXTRACT+23, EXTRACT+24, EXTQ+1, EXTQ+2, DATA+13, DATA+44, DATA+51, SETEDIT+4, NULLCHEK+2 |
| ^TMP("DIERR" | EXTRACT+17! |
| ^TMP("IBXDATA" | EXTRACT+17!, SETGBL+4* |
| ^TMP("IBXEDIT" | EXTRACT+17!, SETEDIT+6, SETEDIT+7* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATA | FORMAT~, FORMAT+11 |
| IBFORM | SETEDIT~ |
| IBX0 | EXTQ+4!, DATA+14~, DATA+17*, DATA+19, DATA+43, DATA+44, DATA+50, DATA+51, FORMAT~, FORMAT+12 , FORMAT+13, FORMAT+14, FORMAT+15, SETEDIT~, SETEDIT+2, SETEDIT+3, SETEDIT+6, SETEDIT+7 |
| IBX00 | EXTQ+4!, DATA+14~, DATA+20*, DATA+24 |
| IBX2 | EXTRACT+14~, EXTRACT+19*, EXTRACT+21 |
| IBXARRAY | EXTQ+4!, DATA+14~, DATA+22*, DATA+23, DATA+24, DATA+35, DATA+38, DATA+40, DATA+43, DATA+46 , NULLCHEK+3, NULLCHEK+4, NULLCHEK+6 |
| IBXCOL | EXTRACT+14~, EXTRACT+28*, EXTRACT+29*, EXTRACT+30, EXTRACT+32, DATA~, DATA+43, DATA+50, SETGBL~, SETGBL+4 |
| IBXDA | EXTRACT+30*, EXTRACT+31, EXTRACT+32, EXTRACT+33, EXTQ+4!, DATA~, DATA+15, DATA+32, NULLCHEK+2 |
| IBXDA0 | DATA+14~, DATA+32*, DATA+34, DATA+38, DATA+40, DATA+41 |
| IBXDATA | EXTQ+4! |
| IBXELE | DATA+14~, DATA+19*, DATA+20, DATA+22, DATA+24 |
| IBXERR | EXTRACT+14~, EXTRACT+15*, EXTRACT+16*, EXTRACT+20*, EXTRACT+25, EXTRACT+28, EXTRACT+29, EXTRACT+32, EXTRACT+33*, EXTQ+5 , DATA~, DATA+24, DATA+25, DATA+27, DATA+34, DATA+35*, DATA+41* |
| IBXF | EXTRACT+14~, EXTRACT+21*, EXTRACT+24, EXTRACT+28, EXTRACT+29, EXTRACT+30, EXTQ+2 |
| IBXFF | EXTQ+4!, DATA+14~, DATA+15*, DATA+16, DATA+17, DATA+27, DATA+28~, DATA+43, DATA+50 |
| IBXFILE | EXTRACT+14~, EXTRACT+19*, EXTRACT+20, DATA+13*, DATA+24 |
| IBXFORM | EXTRACT~, EXTRACT+16, EXTRACT+19, EXTRACT+20, EXTRACT+21, EXTRACT+23, EXTRACT+24, EXTRACT+32, EXTQ+1, EXTQ+2 , DATA~, DATA+13, DATA+15, DATA+44, DATA+51, SETEDIT+4, NULLCHEK+2 |
| IBXIEN | EXTRACT~, EXTRACT+16, EXTRACT+32, DATA~, DATA+24 |
| IBXLEN | DATA+14~, DATA+40*, DATA+43, DATA+50, FORMAT~, FORMAT+10, FORMAT+11 |
| IBXLN | EXTRACT+14~, EXTRACT+28*, EXTRACT+29, EXTRACT+30, EXTRACT+32, DATA~, DATA+43, DATA+49, SETGBL~, SETGBL+4 |
| IBXLOOP | DATA+28~ |
| IBXLOOP( | DATA+29*, DATA+31 |
| IBXMAX | EXTQ+4!, DATA+14~, DATA+40*, DATA+41, DATA+42 |
| IBXNOREQ | DATA+34, DATA+36, DATA+37! |
| IBXPAD | FORMAT~, FORMAT+10, FORMAT+11 |
| IBXPARM | EXTRACT~, EXTRACT+32, DATA~, DATA+15 |
| IBXPG | EXTRACT+14~, EXTRACT+27*, EXTRACT+28*, EXTRACT+29, EXTRACT+30, EXTRACT+32, DATA~, DATA+43, DATA+50, SETGBL~ , SETGBL+4 |
| IBXPOSTWA | EXTRACT~ |
| IBXREC | EXTRACT~, EXTRACT+15*, EXTRACT+17, DATA+12*, SETGBL+4 |
| IBXSIZE | EXTRACT+14~, EXTQ+5*, EXTQ+6, DATA+43, DATA+50, SETGBL~, SETGBL+4* |
| IBXZ | DATA+14~, DATA+27*, DATA+30 |
| IBZ | EXTQ+4!, DATA+14~, DATA+46*, DATA+48*, DATA+49, DATA+50 |
| IBZ0 | EXTQ+4!, DATA+14~, DATA+46*, DATA+47*, DATA+48, DATA+49 |
| IBZ1 | EXTQ+4!, DATA+14~, DATA+49*, DATA+50 |
| MULTI | FORMAT~, FORMAT+13 |
| U | EXTRACT+21, EXTRACT+33, DATA+19, DATA+34, DATA+38, DATA+40, DATA+41, DATA+43, DATA+44, DATA+50 , DATA+51, FORMAT+12, FORMAT+13, FORMAT+14, FORMAT+15, SETEDIT+2, SETEDIT+3, SETEDIT+6, SETEDIT+7, NULLCHEK+2 |
| VAL | SETGBL~, SETGBL+4 |
| Z | DATA+28~, DATA+29*, DATA+31*, DATA+35~*, FORMAT+9~, FORMAT+10*, FORMAT+11*, FORMAT+13*, FORMAT+14*, FORMAT+15* , FORMAT+16, SETEDIT+1~, SETEDIT+6*, SETEDIT+7, NULLCHEK+5~, NULLCHEK+6* |
| Z0 | SETEDIT+1~, SETEDIT+3*, SETEDIT+4*, SETEDIT+5, SETEDIT+7 |
