How to read a VBS dataset in assembler
Select messages from
# through # FAQ
[/[Print]\]

MVSFORUMS.com -> Other Technical Topics

#1: How to read a VBS dataset in assembler Author: rajib76 PostPosted: Tue Jun 14, 2016 10:24 am
    —
Hi
Can you please let me know how to read a VBS dataset in assembler.

#2:  Author: kolusuLocation: San Jose PostPosted: Tue Jun 14, 2016 12:02 pm
    —
rajib76,

There is nothing special in reading a VBS datasets in assembler. If you use QSAM GET, it automatically gets the RDW for you. Sample code

Code:

         MVC   OPENPL(MOPENPLL),MOPENPL  Copy model Open Plist
         MVC   VBSDATA(MVBSDATAL),MVBSDATA COPY VBSDATA DCB 
         OPEN  (VBSDATA,INPUT),MF=(E,OPENPL)

         LA    R2,RECAREA                                     
         USING VBSRCD30,R2                                   
         GET   VBSDATA,RECAREA    Read data into RECAREA     

VBSDATA  DS    XL(MVBSDATAL)      Reference DCB - VBSDATA

RECAREA  DS    (32768+4)X
MOPENPL  OPEN  (,),MF=L 
MOPENPLL  EQU  *-MOPENPL

MVBSDATA  DCB   DDNAME=VBSDATA,MACRF=GM,DSORG=PS,DEVD=DA,EODAD=EOD
MVBSDATAL EQU  *-MVBSDATA                                       



MVSFORUMS.com -> Other Technical Topics


output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1

Powered by phpBB © 2001, 2005 phpBB Group