PRCPWPU1 ;WISC/RFJ-get number series for issue books ;11 Mar 94
Source file <PRCPWPU1.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 |
---|---|---|
IBCNS(SERIES) | ; return next issue book common numbering series number
; series=460-I4 where 460 is station number, 4 is fiscal year |
|
MISSING(START) | ; search for missing numbers
; return missing one or null if none found |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PRC(442.6 - [#442.6] | IBCNS+3, IBCNS+4, IBCNS+6, IBCNS+7, IBCNS+10*, IBCNS+13*, IBCNS+18, IBCNS+25*, IBCNS+26 |
^PRCP(445.2 - [#445.2] | IBCNS+18, MISSING+3 |
Name | Line Occurrences |
---|---|
$$MISSING | IBCNS+22, IBCNS+23 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | IBCNS+2~, IBCNS+11*, IBCNS+12, IBCNS+14*, IBCNS+15, MISSING+3*, MISSING+4 |
DA | IBCNS+2~, IBCNS+3*, IBCNS+4, IBCNS+6, IBCNS+7, IBCNS+10, IBCNS+13, IBCNS+18, IBCNS+25, IBCNS+26 |
DATA | IBCNS+2~, IBCNS+7*, IBCNS+10, IBCNS+11, IBCNS+13, IBCNS+14 |
NEXT | IBCNS+2~, IBCNS+7*, IBCNS+18, IBCNS+19, IBCNS+20, IBCNS+22*, IBCNS+23*, IBCNS+25, IBCNS+27 |
SERIES | IBCNS~, IBCNS+3, IBCNS+4, IBCNS+12, IBCNS+15, IBCNS+18, IBCNS+19, IBCNS+27, MISSING+3, MISSING+4 |
START | MISSING~, MISSING+3 |
X | IBCNS+2~, IBCNS+4!, IBCNS+12!, IBCNS+15!, IBCNS+19!, IBCNS+21, MISSING+5! |
X(1 | IBCNS+4*, IBCNS+12*, IBCNS+15*, IBCNS+19*, MISSING+5* |
X(2 | IBCNS+20* |