Re: Help with BSAM WRITE VBA getting 002-30

On Thu, 16 Mar 2023 13:17:02 -0400, Joseph Reichman wrote: > >BTW before I posted I thought I would be a good ideas to look at a sysadata >file > >As that is a VB file >After the read I saw x’0001’ > >In the BDW area ? > In:

Re: Help with BSAM WRITE VBA getting 002-30

Thanks to everyone for their help I didn’t get to it as I started getting error with my dynamic allocation of the GDG file I am using for the snap BTW before I posted I thought I would be a good ideas to look at a sysadata file As that is a VB file After the read I saw x’0001’ In the

Re: Help with BSAM WRITE VBA getting 002-30

On Wed, 15 Mar 2023 19:22:58 -0400, Joseph Reichman wrote: > >I have been abending for 2 days doing different things to write abend >messages snaps dataset ... > -- gil --

Re: Help with BSAM WRITE VBA getting 002-30

On Thu, 16 Mar 2023 10:37:07 +, Seymour J Metz wrote: >Just seeing if you were awake. That's my story and I'm sticking to it. > >Why change the carriage control from single space to eject? > Why not? But I thought any record with non-empty data would be a better illustration. >> The first

Re: Help with BSAM WRITE VBA getting 002-30

[IBM-MAIN@LISTSERV.UA.EDU] on behalf of Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu] Sent: Wednesday, March 15, 2023 9:26 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Help with BSAM WRITE VBA getting 002-30 On 3/15/23 18:38:33, Seymour J Metz wrote: > The first HW is the length for bot

Re: Help with BSAM WRITE VBA getting 002-30

LRECL=125 TESTBL DCX'0081' 4 + sum of record lengths = 129 TESTRL DCX'007D' 4 + Data length = 125 TESTCC DC X'40' TESTDATA DC CL120'+1+2+3+4+5X '+6+7+8+9+A+B+C' On Wed, Mar 1

Re: Help with BSAM WRITE VBA getting 002-30

On 3/15/23 18:38:33, Seymour J Metz wrote: The first HW is the length for both BDW and RDW. ITYM BDW DS0H DCY(*-SOF)Y(SOF-*) DCH'0' DCY(*-SOF)Y(SOF-*) DCH'0' DCC' 'C'1Skip to c

Re: Help with BSAM WRITE VBA getting 002-30

> TESTMESS DCX'0005000540F1F2F3F4' * Corrected to: TESTMESS DC X'000D000940F1F2F3F4' TESTBL DCX'000D' 4 + sum of record lengths TEDTRL DCX'0009' 4 + Data length = 9 TESTDATA DC X'40F1F2F3F4' C'b1234' so length = 5 On Wed, Mar 15, 2023 at 6:23 PM Joseph Reichma

Re: Help with BSAM WRITE VBA getting 002-30

Thought only RDW was in the upper half it includes 4 bytes for the BDW Thank you I’ll try it out > On Mar 15, 2023, at 8:39 PM, Seymour J Metz wrote: > > The first HW is the length for both BDW and RDW. > > BDW DS0H > DCY(*-SOF) > DCH'0' > DCY(*-

Re: Help with BSAM WRITE VBA getting 002-30

The first HW is the length for both BDW and RDW. BDW DS0H DCY(*-SOF) DCH'0' DCY(*-SOF) DCH'0' DCC' ' SOF EQU * From: IBM Mainframe Discussion List on behalf of Joseph Reichm