GECSUNUM ;WISC/RFJ-get next counter number ;01 Nov 93
Source file <GECSUNUM.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 |
Package | Total | Caller Graph |
---|---|---|
Generic Code Sheet | 3 | GECSBATC GECSEDIT GECSUFMS |
Name | Comments | DBIA/ICR reference |
---|---|---|
COUNTER(GECSNAME) | ; return next counter number
; gecsname=station-batch type-fiscal year ; example for fms: 460-FMS:MO-94 ; return next counter number |
|
ACOUNTER(GECSNAME) | ; return next alphanumeric counter number
; gecsname=station-batch type-fiscal year ; example for fms: 460-FMS:MO-94 ; return next alphanumeric counter number |
|
ACNTEND | ||
ALPHA(A) | ;Increment alpha character to next letter in the alphabet
; A = Any letter in the alphabet except O to prevent confusion with zero |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("UPPERCASE" | ALPHA+4 |
^GECS(2101.5 - [#2101.5] | COUNTER+7, COUNTER+10, COUNTER+12, COUNTER+13, COUNTER+14, COUNTER+15*, COUNTER+16*, COUNTER+17*, COUNTER+18, COUNTER+20 , COUNTER+21, COUNTER+24*, COUNTER+25, ACOUNTER+8, ACOUNTER+11, ACOUNTER+13, ACOUNTER+14, ACOUNTER+15, ACOUNTER+16*, ACOUNTER+17* , ACOUNTER+18*, ACOUNTER+19, ACOUNTER+21, ACOUNTER+22, ACNTEND*, ACNTEND+1 |
Name | Line Occurrences |
---|---|
$$ALPHA | ACOUNTER+28, ACOUNTER+30, ACOUNTER+38 |
ACNTEND | ACOUNTER+23, ACOUNTER+33 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | COUNTER+5~, COUNTER+13*, COUNTER+14, COUNTER+17*, COUNTER+21*, COUNTER+22*, COUNTER+23*, COUNTER+24, COUNTER+26, ACOUNTER+5~ , ACOUNTER+14*, ACOUNTER+15, ACOUNTER+18*, ACOUNTER+22*, ACOUNTER+23, ACOUNTER+24*, ACOUNTER+25, ACOUNTER+26, ACOUNTER+27, ACOUNTER+32* , ACOUNTER+33, ACOUNTER+34*, ACOUNTER+35, ACOUNTER+36, ACOUNTER+40*, ACOUNTER+41*, ACOUNTER+42*, ACNTEND, ACNTEND+2 |
A | ALPHA~, ALPHA+3, ALPHA+4*, ALPHA+5, ALPHA+6*, ALPHA+7 |
DA | COUNTER+5~, COUNTER+7*, COUNTER+8, COUNTER+12*, COUNTER+14*, COUNTER+15, COUNTER+16, COUNTER+17, COUNTER+20, COUNTER+21 , COUNTER+24, COUNTER+25, ACOUNTER+5~, ACOUNTER+8*, ACOUNTER+9, ACOUNTER+13*, ACOUNTER+15*, ACOUNTER+16, ACOUNTER+17, ACOUNTER+18 , ACOUNTER+21, ACOUNTER+22, ACNTEND, ACNTEND+1 |
GECALPHA | ACOUNTER+5~, ACOUNTER+7*, ALPHA+6 |
GECCNT | ACOUNTER+5~, ACOUNTER+36*, ACOUNTER+37*, ACOUNTER+39*, ACOUNTER+40 |
GECSNAME | COUNTER~, COUNTER+4, COUNTER+7, COUNTER+12, COUNTER+15, COUNTER+16, ACOUNTER~, ACOUNTER+4, ACOUNTER+8, ACOUNTER+13 , ACOUNTER+16, ACOUNTER+17 |
X | ALPHA+2~, ALPHA+4* |
X1 | ACOUNTER+5~, ACOUNTER+27*, ACOUNTER+31*, ACOUNTER+32 |
X2 | ACOUNTER+5~, ACOUNTER+26*, ACOUNTER+30*, ACOUNTER+31, ACOUNTER+32 |
X3 | ACOUNTER+5~, ACOUNTER+25*, ACOUNTER+28*, ACOUNTER+29, ACOUNTER+32, ACOUNTER+35*, ACOUNTER+38*, ACOUNTER+40 |
Y | ALPHA+2~, ALPHA+4 |