PRCFU ;WISC@ALTOONA/CTB/BGJ-UTILITY ROUTINE CODE SHEETS ;10 Sep 89/3:08 PM
Source file <PRCFU.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 |
|---|---|---|
| V | ;;5.1;IFCAP;**39**;Oct 20, 2000
|
|
| LZF | ;LEFT ZERO A FIELD, Y IS VARIABLE IN, Y IS VARIABLE OUT, PRCFLN IS FIELD LENGTH
|
|
| RZF | ;RIGHT ZERO FILL A FIELD ; Y = DATA , PRCFLN = FIELD LENGTH
|
|
| LBF | ;LEFT BLANK FILL ;Y = DATA, PRCFLN=FIELD LENGTH
|
|
| RBF | ;RIGHT BLANK FILL ; Y=DATA,PRCFLN=FIELD LENGTH
|
|
| DIC | ||
| EX | ||
| CAPSDATE | ;CONVERT INTERNAL FM DATE IN Y TO MM,DD,YY FORMAT FOR CAPPS
|
|
| CAPSDOL | ;CREATE CAPS DOLLAR FIELD TO 9 NUMBER LZF
|
|
| LBF1(STRING,LENGTH) | ;Left blank fill string in a field with specified length
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EX~ |
| C | DIC~, EX~ |
| D | DIC~, EX~ |
| DB | DIC~, EX~ |
| DCS | EX~ |
| DD | EX~ |
| DG | DIC!, EX~ |
| DIA | DIC~, EX~ |
| DIBTDH | EX~ |
| DIC | DIC~*, EX~* |
| DIC("S" | DIC*, EX* |
| DIC(0 | DIC*, EX* |
| DICR | DIC~ |
| DIE | DIC~, EX~ |
| DIX | DIC~, EX~ |
| DIY | EX~ |
| DO | DIC~, EX~ |
| DQ | EX~ |
| DR | DIC~, EX~ |
| DS | DIC~ |
| DSC | DIC~ |
| DV | DIC~ |
| DXS | DIC~, EX~ |
| DZ | EX~ |
| DZ1 | EX~ |
| L | DIC~, EX~ |
| LENGTH | LBF1~, LBF1+2, LBF1+3 |
| >> PRCF("OUT" | CAPSDOL+1 |
| PRCFLN | LZF+1, LZF+2!, RZF+1, RZF+2!, LBF+1, LBF+2!, RBF+1, RBF+2!, CAPSDATE+1*, CAPSDOL+1* |
| PRCFZ | LZF+1!, LZF+2*!, RZF+1!, RZF+2*!, LBF+1!, LBF+2*!, RBF+1!, RBF+2*! |
| STRING | LBF1~, LBF1+2*, LBF1+3 |
| X | EX~*, LBF1+1~, LBF1+2* |
| XQH | EX~ |
| Y | LZF+2*, RZF+2*, LBF+2*, RBF+2*, EX~, CAPSDATE+1* |
