AUZEROF.m

AUZEROF ;ROUTINE TO PUT LEADING ZEROS ON A NUMERIC NUMBER FROM FILEMAN GLOBAL [ 05/15/86  4:21 PM ]

 ;RPMS/CMB RFD

 ;SET VARIABLE AUZX TO $P OF GLOBAL ENTRY

 ;SET VARIABLE AUZY TO THE LENGTH RECEIVING FIELD, ZERO FILLED

AUZERO1 Q:$D(AUZX)=0

 S AUZW=$L(AUZY)-$L(AUZX)

 S AUZX=$E(AUZY,1,AUZW)_AUZX

 K AUZW

 Q

AUZEROF   ;ROUTINE TO PUT LEADING ZEROS ON A NUMERIC NUMBER FROM FILEMAN GLOBAL [ 05/15/86  4:21 PM ]

 +1       ;RPMS/CMB RFD

 +2       ;SET VARIABLE AUZX TO $P OF GLOBAL ENTRY

 +3       ;SET VARIABLE AUZY TO THE LENGTH RECEIVING FIELD, ZERO FILLED

AUZERO1    IF $DATA(AUZX)=0

               QUIT 

 +1        SET AUZW=$LENGTH(AUZY)-$LENGTH(AUZX)

 +2        SET AUZX=$EXTRACT(AUZY,1,AUZW)_AUZX

 +3        KILL AUZW

 +4        QUIT