Make it easy on yourself. Try this:
PGM64A CSECT
PGM64A AMODE 64
PGM64A RMODE 31
BAKR 14,0
LARL 13,SAVEAREA
LARL 12,PGM64A
USING PGM64A,12
LGHI 15,0
***** LLGF 1,CRITDTE
LLGT 15,=V(PGMA)
SAM31
LA R1,CRITDTE
BASR 14,15
PR ,
CRITDTE DS CL8
SAVEAREA DS 0D'0',F'0',C'F1SA'
LTORG
END PGM64A.
And then, fix your 31 bit program:
LR 3,1
LA 5,UPDTXT
MVC 0(7,3),0(5) =======>Receive inbound value in Reg 3 and update with
Todd
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.484 / Virus Database: 269.12.2 - Release Date: 8/22/2007 12:00
AM
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
