IBCEFG ;ALB/TMP - OUTPUT FORMATTER EXTRACT ;17-JAN-96
Source file <IBCEFG.m>
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 |