Figure 12. Using srApiStamp

             DCL        VAR(&HEX00) TYPE(*CHAR) LEN(8) VALUE(X'0000000000000000')

             CHGVAR     VAR(&ApiStamp) VALUE(&LastStamp)
             CALLSUBR   SUBR(SrApiStamp) 
             CHGVAR     VAR(&LastUsed) VALUE(&ApiIso)

/*-------------------------------------------------------------------*/
/*Convert API time stamp into *ISO-format ---------------------------*/
             SUBR       SUBR(SrApiStamp)
            
	     IF         COND(&ApiStamp = &Hex00) THEN(CHGVAR VAR(&ApiIso) VALUE('        '))
             ELSE       CMD(CALL PGM(QWCCVTDT) PARM('*DTS    ' &ApiStamp '*YYMD   ' &ApiIsoDS &ApiErrDS))
             
             ENDSUBR
             ENDPGM