*20 ERROR=JMS I . ; ERR *200 MUBUF=. MNFNO=. CDFMYF=CDF 10 ERR, 0 TAD I (MUBUF+MNFNO;CDFMYF /ELSE GET DOC NUMBER TAD I (MUBUF+MNFNO);CDFMYF /ELSE GET DOC NUMBER2 TAD (JMS ERR) /GET INPUT CALL INSTRUCTION $