GECSUNUM ;WISC/RFJ-get next counter number ;01 Nov 93
Source file <GECSUNUM.m>
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 |