> 1st operand -  PWORK   DC   X'4020206B212020' 

Can I recommend more readable (IMHO) EDIT patterns, Something like:

DIGIT   EQU  X'20'
SIG     EQU  X'01'

PWORK   DC   0CL7,AL1(C' ',DIGIT,DIGIT,C',',DIGIT+SIG,DIGIT,DIGIT)
Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU

Reply via email to