S0C4 CSECT
USING S0C4,15
L 14,BADADDR
ST 1,0(14)
DS 0F
BADADDR DC X'80FFFFFF'
END---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
