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