John, Thanks for the help, it worked perfect........... Scott Ford Senior Systems Engineer
[p] 678.266.3399 x304 [m] 609-346-0399 identityforge.com This message is for the designated recipient only and may contain privileged, proprietary, or otherwise private information. If you have received it in error, please notify the sender immediately or let us know at [EMAIL PROTECTED] or [EMAIL PROTECTED], and then delete the original. Any other use of the email by you is prohibited. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of John McKown Sent: Tuesday, October 14, 2008 12:12 PM To: [email protected] Subject: Re: VBM to VBA? This is how I do it, to read SYSLOG datasets. FD SYSLOG-INPUT BLOCK CONTAINS 0 RECORDS LABEL RECORDS ARE STANDARD RECORDING MODE IS V RECORD IS VARYING IN SIZE FROM 1 TO 133 CHARACTERS DEPENDING ON SYSLOG-INPUT-RECORD-LENGTH. 01 SYSLOG-RECORD-MINIMUM PIC X. 01 SYSLOG-RECORD-MAXIMUM PIC X(133). ... WORKING-STORAGE SECTION. 77 SYSLOG-FILE-STATUS PIC XX. 77 REPORT-FILE-STATUS PIC XX. 77 SYSLOG-INPUT-RECORD-LENGTH PIC 9(4) BINARY. ... 77 SYSLOG-RECORD-FIXED PIC X(133). ... READ SYSLOG-INPUT AT END SET EOF-ON-SYSLOG TO TRUE END-READ IF EOF-ON-SYSLOG THEN GOTO READ-SYSLOG-EOF END-IF MOVE SYSLOG-RECORD-MAXIMUM(1:SYSLOG-INPUT-RECORD-LENGTH) TO SYSLOG-RECORD-FIXED. ... much cut down in size, but the basic principles are there. -- John ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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
