PRCHES14 ;WISC/RHD/AKS-ESIG MAINT ;AUG 2, 2001
Source file <PRCHES14.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
V | ;;5.1;IFCAP;**38**;Oct 20, 2000
|
|
DECODE(LEVEL0,LEVEL1) | ;return esig to readable form
|
|
D1 | ;esig for ver 1
|
|
ENCODE(LEVEL0,LEVEL1,USERNUM,Y) | ;Encode esig for version 1 only
|
|
RECODE(LEVEL0,CHECKSUM,Y) | ;Recode esig for version 1 only
|
|
REMOVE(LEVEL0,LEVEL1) | ;Entry point to remove esig from record
|
|
VERIFY(LEVEL0,LEVEL1) | ||
STRING(X,X1) |