Steve,
Here is my program:
***********************************************************************
* AUTHOR: JOHNNY *
* DATE : 05/11/07
* DESCRIPTION: UPDATE A PS,FB FILE USING QSAM
* I-O FILE: INVMAST(PS,FB,50)
***********************************************************************
TITLE 'DEMONSTRATE HOW TO UPDATE UISNG QSAM'
QSAMUPD CSECT
* HOUSEKEEPING
SAVE (14,12)
LR 3,15
USING QSAMUPD,3 BASE REGISTER
LA 15,SAVEAREA
ST 15,8(,13)
ST 13,SAVEAREA+4
LR 13,15
* MAINLINE
OPEN (INVMAST,UPDAT)
READ GET INVMAST
MVC 0(50,1),=CL50'UPDATED BY QSAM HAHA!'
PUTX INVMAST
B READ
EOF CLOSE (INVMAST)
* HOUSEKEEPING
L 13,SAVEAREA+4
MVC 16(4,13),RC
RETURN (14,12)
* WORKING AREA
LTORG
INVMAST DCB DDNAME=INVMAST, X
DSORG=PS, X
RECFM=FB, X
LRECL=50, X
EODAD=EOF, X
MACRF=(GL,PM)
*
SAVEAREA DS 18F
RC DC F'0'
END QSAMUPD
On 8/21/07, Steve Comstock <[EMAIL PROTECTED]> wrote:
>
>
>
> Hmmmm. I'd have to see the program.
>
>
>
--
Best Regards,
Johnny Luo
----------------------------------------------------------------------
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
