Re: Assembly Error IEAMSCHD I can't see it may be you can and can Help thanks

[Reichman Joseph]

I made a stupid mistake

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:IT:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Peter Relson
Sent: Monday, February 27, 2017 10:34 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Assembly Error IEAMSCHD I can't see it may be you can and can Help 
thanks

>I just cut and past the "RTMRADDR"  from the documentation site and it 
>assembled don't understand

What documentation site has this typo? Otherwise, you did not cut and paste (or 
your "paste" has some sort of auto-incorrect). 

Peter Relson
z/OS Core Technology Design


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: QSAM using DCBE macro

[Reichman Joseph]

Thanks



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Charles Mills
Sent: Wednesday, February 15, 2017 10:39 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: QSAM using DCBE macro

At its core, yes.

CharlesSent from a mobile; please excuse the brevity.
 Original message From: Steve Smith  Date: 
2/15/17  7:26 AM  (GMT-08:00) To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: QSAM 
using DCBE macro Is this supposed to be a poem?

sas

On Wed, Feb 15, 2017 at 10:00 AM, Joseph Reichman 
wrote:

> Hi
>
> Previously I had asked if there were any advantages to using BSAM over 
> QSAM
>
> I was told there were very little
>
> And with a high price of coding complexity
>
> Now I wonder about using the DCBE macro
>
> With QSAM if there are any advantages I.E.
>
> Using the large block interface
>
> Would this mean that one QSAM "GET"
>
> Would read more data at one time into core
>
> Thanks
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



--
sas

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: QSAM using DCBE macro

[Reichman Joseph]

?


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Steve Smith
Sent: Wednesday, February 15, 2017 10:27 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: QSAM using DCBE macro

Is this supposed to be a poem?

sas

On Wed, Feb 15, 2017 at 10:00 AM, Joseph Reichman 
wrote:

> Hi
>
> Previously I had asked if there were any advantages to using BSAM over 
> QSAM
>
> I was told there were very little
>
> And with a high price of coding complexity
>
> Now I wonder about using the DCBE macro
>
> With QSAM if there are any advantages I.E.
>
> Using the large block interface
>
> Would this mean that one QSAM "GET"
>
> Would read more data at one time into core
>
> Thanks
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



--
sas

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

GetPool Question

[Reichman Joseph]

Hi

If I use GetPool  macro for lets say 10,32000, does that mean every time I do a 
QSAM GET in locate mode the pointer to the record is 320,000 bytes long ?



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Limit on the number of concatenated datasets

[Reichman Joseph]

We have here if anything large amounts of data. So there are a number of files 
I must search thru. 

After I allocate the datasets (I think probably dynamically)

I can do a GETDSAB  to get the TIOT entry for the ddname.

Then if I find what I am looking for I can use DCBTIOT (AL2) as an  index to 
the TIOT

The TIOT  JFCB field should have entry for the dataset name 



Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:IT:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Lizette Koehler
Sent: Monday, August 22, 2016 3:29 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Limit on the number of concatenated datasets

Maybe it would help to have more information on what process you are trying to 
do?

That way the answer can be more targeted.

Lizette

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Reichman Joseph
> Sent: Monday, August 22, 2016 9:51 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Limit on the number of concatenated datasets
> 
> Lizette
> 
> Don’t understand as the TIOT has one DDNAME unless of course I am 
> doing the Allocation VIA SVC 99 dynamic allocation then I specify 
> ddnames to be concatenated I think
> 
> Joe Reichman
> Joe Reichman
> 
> IT Specialist
M-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Follow up on Cancatenation RDJFCB

[Reichman Joseph]

Hi

I am searching a large number of datasets which is the reason I asked my first 
question, when I find what I am looking can the RDJFCB macro point me to the 44 
bytes dataset name in that concatenation

Thanks

Joe Reichman
Joe Reichman

IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:IT:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Limit on the number of concatenated datasets

[Reichman Joseph]

Lizette

Don’t understand as the TIOT has one DDNAME unless of course I am doing the 
Allocation VIA SVC 99 dynamic allocation then I specify ddnames to be 
concatenated I think

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:IT:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Lizette Koehler
Sent: Monday, August 22, 2016 11:59 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Limit on the number of concatenated datasets

So from the ALLOCxx definition in MVS Init and Tuning z/OS V2.10.

Table 1. Relationship size of TIOT and maximum number of DDs allowed

Dec Hex Size of TIOTMaximum number Maximum number of 
DDs allowed
 of single unit DD Allowed  when every DD requests 

the maximum number of units (59)
16  10  16384 (16K) 816 64
17  11  17408 (17K) 867 68
24  18  24576 (24K) 122597
25  19  25600 (25K) 1277101
32  20  32768 (32K) 1635129
40  28  40960 (40K) 2045162
48  30  49152 (48K) 2454194
56  38  57344 (56K) 2864227
64  40  65536 (64K) 3273259


From this definition I would think the concatenated would count as 1 but be 
careful of the TIOT size if each one has more than one volume for it.


Just a guess


Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Mitch Mccluhan
> Sent: Monday, August 22, 2016 8:42 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Limit on the number of concatenated datasets
> 
>  Joe,
> 
> There is one, yes.  I believe it is 256.  Advice from everyone else?
> 
> Regards,
> 
> 
> 
> Mitch McCluhan
> mitc...@aol.com
> 
> 
> 
> 
> 
> -Original Message-
> From: Reichman Joseph <joseph.reich...@irs.gov>
> To: IBM-MAIN <IBM-MAIN@LISTSERV.UA.EDU>
> Sent: Mon, Aug 22, 2016 10:38 am
> Subject: Limit on the number of concatenated datasets
> 
> Hi
> 
> I looked in the JCL reference and DFSMS bookshelf and did not see a 
> limit on the number of concatenated datasets
> 
> 
> Would anybody know if there is one ?
> 
> 
> Thanks
> 
> Joe Reichman
> Joe Reichman

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Limit on the number of concatenated datasets

[Reichman Joseph]

thanks

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:IT:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Mitch Mccluhan
Sent: Monday, August 22, 2016 11:42 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Limit on the number of concatenated datasets

 Joe,

There is one, yes.  I believe it is 256.  Advice from everyone else?

Regards,

 

Mitch McCluhan
mitc...@aol.com

 

 

-Original Message-
From: Reichman Joseph <joseph.reich...@irs.gov>
To: IBM-MAIN <IBM-MAIN@LISTSERV.UA.EDU>
Sent: Mon, Aug 22, 2016 10:38 am
Subject: Limit on the number of concatenated datasets

Hi

I looked in the JCL reference and DFSMS bookshelf and did not see a limit on 
the number of concatenated datasets


Would anybody know if there is one ?


Thanks

Joe Reichman
Joe Reichman

IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:IT:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Limit on the number of concatenated datasets

[Reichman Joseph]

Hi

I looked in the JCL reference and DFSMS bookshelf and did not see a limit on 
the number of concatenated datasets


Would anybody know if there is one ?


Thanks

Joe Reichman
Joe Reichman

IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:IT:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Books Webs Site down

[Reichman Joseph]

It has been over a day does anybody know when It will be back up ?

Joe Reichman
Joe Reichman

IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:IT:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DEVTYPE INFO=DASD

[Reichman Joseph]

First I want to make clear this posting contains nothing but general code 
(nothing to do with taxpayer code) there isn’t any IRS tax payer info in this 
post



 L 11R?+106 L(30) XC
 0002CFEC.  FFF0 000F F000 01000800  *...00...*  
     *..  *
 TEST

This is where AREA is at so area is at 11R? + 106

00110C 2086 AREA DSXL16 
006

Mapped by the IHADVA macro right ? Am I missing something ?


000 00010  9801+DVAIDASD DSECT  
   @H5A 01-
   
9802+***
   9803+*SECTION FOR INFO=DASD. 
   @H5C
   
9804+***
00 9805+ DS0CL16 INFOLIST 
POINTS TO LIST WITH INFO=DASD@H5C 01-
00 9806+DVAICYL  DSFL4   NUMBER OF 
CYLINDERS, EXCLUDING ALTERNATES @H5A 01-
04 9807+DVAITRK  DSFL4   TRACKS PER 
CYLINDER   @H5A 01-
08 9808+DVAIFLAG  DS   0XL1  FLAGS  
   @LvC 01-
08 9809+DVAIFLAG1 DS   X FLAGS WITH 
PREFERRED SYMBOLS  @H5A 01-
  000809810+DVAECKD1 EQU   X'80' ECKD 
SUPPORTED, ALSO ON FOR VIO DATA SETS @LvC 01-
  000409811+DVALRE1  EQU   X'40' LOCATE RECORD 
EXTENDED IS SUPPORTED   @H4A 01-


00110C 2086 AREA DSXL16


This is the beginning of my program


  F  19+R15  EQU   15
  E  21 XLNK EQU   14
00 90EC D00CC22  STM   R14,R12,12(R13)   SAVE 
CALLER'S REGISTERS
04 0DC0  23  BASR  R12,0 
ESTABLISH ADDRESSABILITY
R:CB  6  24  USING *,R12,R11 BASE 
REGISTER OF EXECUTING PROGRAM
06 41B0 CFFF00FFF25  LAR11,4095(,R12)
0A 41B0 B001126  LAR11,1(,R11)

This is DEVTYPE macro R6 points the DDNAME from SVC 99

0002D2 4160 C5F5005FB   224  LA R6,RETDDN+6 
0
225  DEVTYPE 
(R6),(AREA,L'AREA),INFOLIST=ILIST2 0
0002D6 0700 226+ CNOP  0,4ENSURE 
PARAMETER LIST ALIGNMENT  @L1A 0
0002D8 4D10 C2EE002F4   227+ BAS   1,IHB0032  SKIP OVER 
PARAMETER LIST @02C 0
0002DC 18   228+ DC0F'0',AL1(24)  LENGTH OF 
PARAMETER LIST @02C 0
0002DD 01   229+ DCAL1(1) VERSION 
OF PARAMETER LIST@L1A 0
0002DE 8000 230+ DCX'8000'DD NAME 
LOCATION WAS CODED0
0002E0  231+ DCA(0)   ADDRESS 
OF DD NAME0
0002E4  232+ DCA(0)   RESERVED 
OR UCB LIST LENGTH   0
0002E8 110C 233+ DCA(AREA)ADDRESS 
OF RESULT AREA   @L1A 0
0002EC 0010 234+ DCA(L'AREA)  SIZE OF 
RESULT AREA  @L1A 0

6R? L(8) XC
0002C4DB.  E2E8E2F0 F0F0F0F6*SYS6*  
TEST

This is the list of the DEVTYPE


  000314 07FE 251  BR R14   
  0
 252 ILIST2   DEVTYPE INFO=DASD 
 0
 000316 0001 253+ILIST2   DCH'1'   NUMBER 
OF ENTRIES IN INFO LIST   @02C 0
 000318 0210 254+ DCX'0210'DASD 
CODE@02C 0
 255 *B  SCANUCB
 0
 256 *NOPDSCBABC
 0



Joe Reichman
Joe Reichman

IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:IT:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm

-Original Message-
From: IBM Mainframe Discussion List 

Re: DEVTYPE INFO=DASD

[Reichman Joseph]

I just got word from Jay Campbell that the device capability is 17,974 cyls I 
am getting back X'FFF0'  or 65,520, Since he is in touch with IBM I would 
suggest you contact him

Thanks  

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of John Eells
Sent: Thursday, July 21, 2016 2:42 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: DEVTYPE INFO=DASD

Well, yes, but we should get the book right.  So do you mind telling me what 
the actual volume size is, just to confirm?

Reichman Joseph wrote:
> It is the first half word of each has to be
>
> Joe Reichman
> Joe Reichman
>
> IT Specialist
> Master Files Division
> New Carrollton Federal Building, B7-182 OS:CTO:AD:CP:I:IB Flex 
> M,T,Th,F Home office (240) 863 - 3965 Office (240) 613-4350
> Cell (917) 748-9693
> TOD M - F  7:30 am  - 4:00 pm
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] 
> On Behalf Of John Eells
> Sent: Thursday, July 21, 2016 2:35 PM
> To: IBM-MAIN@listserv.ua.edu
> Subject: Re: DEVTYPE INFO=DASD
>
> I think I understand your confusion.  I'm not sure why you're using the z/OS 
> V1.10 level of the book.  But in any event, the current (V2.2) level of the 
> book says this returns, for INFO=DASD:
>
> Returns 16 bytes as follows:
> Bytes 0-3 - Number of cylinders on the device, excluding alternates. 
> 
>
> Bytes 4-7 - Number of tracks per cylinder.
>
> So one would reasonably expect x'FFF0' to be the number of cylinders, and 
> x'000FF000' to be the number of tracks per cylinder.  The values of the first 
> halfwords in each word, however, seem far more reasonable (possible, even!).  
> The correct number of tracks/cylinder is definitely 15.
>
> But what is the actual size of the volume?  You can use "V" on ISPF
> OPT3.4 to see VTOC information, including the volume size in tracks under 
> "Volume data" on the left.  Divide by 15 to get cylinders.  What do you see?
>
> It's likely RCF time...
>
>
> Reichman Joseph wrote:
>> 7.2.15 Marked DEVTYPE-  info form   from DFSMSdfp "Advanced Services"  z/os 
>> V1R10.0
>>
>> Joe Reichman
>> Joe Reichman
>>
>> IT Specialist
>> Master Files Division
>> New Carrollton Federal Building, B7-182 OS:CTO:AD:CP:I:IB Flex 
>> M,T,Th,F Home office (240) 863 - 3965 Office (240) 613-4350
>> Cell (917) 748-9693
>> TOD M - F  7:30 am  - 4:00 pm
>>
>>
>> -----Original Message-
>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] 
>> On Behalf Of Elardus Engelbrecht
>> Sent: Thursday, July 21, 2016 12:52 PM
>> To: IBM-MAIN@listserv.ua.edu
>> Subject: Re: DEVTYPE INFO=DASD
>>
>> Reichman Joseph wrote:
>>
>>> The doc says bytes 0 - 3 is cylinders bytes 0 -3 is FFF0 and 
>>> bytes 4 - 7 000FF000 is tracks per cyl ? am I misreading 
>>> misunderstanding the documentation
>>
>> What docs? Could you be kind to give us the URL of that source of above info 
>> and docs?
>>
>>> I was looking for the capability on a dasd device DEVTYPE
>>> (R6),(AREA,L'AREA),INFOLIST=ILIST2
>>> ILIST2   DEVTYPE INFO=DASD
>>> AREA DSXL16
>>
>> Hmmm, interesting application of that useful macro. I must try out 
>> this little gem next week on my z/OS v2.1 sandbox when I'm returning 
>> to my bread and butter work... ;-)
>>
>>> This was the data returned in area R15 = 0
>>> FFF0 000FF000 0100 0800
>>
>> On what z/OS level were you trying to try out that Assembler snippet? How 
>> did you obtained the contents of that R15? Via a dump or a MVC or something 
>> else?
>>
>>
>>> Mike Schwab wrote:
>>
>>>> FFF0 000FF000 0100 0800
>>> x'FFF0' would be 65520 cylinders.  x'000F' would be 15 tracks per cylinder. 
>>>  Reasonable for a 3390-54.
>>
> 
>
>
> --
> John Eells
> IBM Poughkeepsie
> ee...@us.ibm.com
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


--
John Eells
IBM Poughkeepsie
ee...@us.ibm.com

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DEVTYPE INFO=DASD

[Reichman Joseph]

It is the first half word of each has to be 

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of John Eells
Sent: Thursday, July 21, 2016 2:35 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: DEVTYPE INFO=DASD

I think I understand your confusion.  I'm not sure why you're using the z/OS 
V1.10 level of the book.  But in any event, the current (V2.2) level of the 
book says this returns, for INFO=DASD:

Returns 16 bytes as follows:
Bytes 0-3 - Number of cylinders on the device, excluding alternates. 

Bytes 4-7 - Number of tracks per cylinder.

So one would reasonably expect x'FFF0' to be the number of cylinders, and 
x'000FF000' to be the number of tracks per cylinder.  The values of the first 
halfwords in each word, however, seem far more reasonable (possible, even!).  
The correct number of tracks/cylinder is definitely 15.

But what is the actual size of the volume?  You can use "V" on ISPF
OPT3.4 to see VTOC information, including the volume size in tracks under 
"Volume data" on the left.  Divide by 15 to get cylinders.  What do you see?

It's likely RCF time...


Reichman Joseph wrote:
> 7.2.15 Marked DEVTYPE-  info form   from DFSMSdfp "Advanced Services"  z/os 
> V1R10.0
>
> Joe Reichman
> Joe Reichman
>
> IT Specialist
> Master Files Division
> New Carrollton Federal Building, B7-182 OS:CTO:AD:CP:I:IB Flex 
> M,T,Th,F Home office (240) 863 - 3965 Office (240) 613-4350
> Cell (917) 748-9693
> TOD M - F  7:30 am  - 4:00 pm
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] 
> On Behalf Of Elardus Engelbrecht
> Sent: Thursday, July 21, 2016 12:52 PM
> To: IBM-MAIN@listserv.ua.edu
> Subject: Re: DEVTYPE INFO=DASD
>
> Reichman Joseph wrote:
>
>> The doc says bytes 0 - 3 is cylinders bytes 0 -3 is FFF0 and 
>> bytes 4 - 7 000FF000 is tracks per cyl ? am I misreading 
>> misunderstanding the documentation
>
> What docs? Could you be kind to give us the URL of that source of above info 
> and docs?
>
>> I was looking for the capability on a dasd device DEVTYPE
>> (R6),(AREA,L'AREA),INFOLIST=ILIST2
>> ILIST2   DEVTYPE INFO=DASD
>> AREA DSXL16
>
> Hmmm, interesting application of that useful macro. I must try out 
> this little gem next week on my z/OS v2.1 sandbox when I'm returning 
> to my bread and butter work... ;-)
>
>> This was the data returned in area R15 = 0
>> FFF0 000FF000 0100 0800
>
> On what z/OS level were you trying to try out that Assembler snippet? How did 
> you obtained the contents of that R15? Via a dump or a MVC or something else?
>
>
>> Mike Schwab wrote:
>
>>> FFF0 000FF000 0100 0800
>> x'FFF0' would be 65520 cylinders.  x'000F' would be 15 tracks per cylinder.  
>> Reasonable for a 3390-54.
>



--
John Eells
IBM Poughkeepsie
ee...@us.ibm.com

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DEVTYPE INFO=DASD

[Reichman Joseph]

7.2.15 Marked DEVTYPE-  info form   from DFSMSdfp "Advanced Services"  z/os 
V1R10.0 

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Elardus Engelbrecht
Sent: Thursday, July 21, 2016 12:52 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: DEVTYPE INFO=DASD

Reichman Joseph wrote:

>The doc says bytes 0 - 3 is cylinders bytes 0 -3 is FFF0 and bytes 4 - 7 
>000FF000 is tracks per cyl ? am I misreading misunderstanding the 
>documentation

What docs? Could you be kind to give us the URL of that source of above info 
and docs?

> I was looking for the capability on a dasd device DEVTYPE 
> (R6),(AREA,L'AREA),INFOLIST=ILIST2
> ILIST2   DEVTYPE INFO=DASD 
> AREA DSXL16 

Hmmm, interesting application of that useful macro. I must try out this little 
gem next week on my z/OS v2.1 sandbox when I'm returning to my bread and butter 
work... ;-)

> This was the data returned in area R15 = 0
> FFF0 000FF000 0100 0800

On what z/OS level were you trying to try out that Assembler snippet? How did 
you obtained the contents of that R15? Via a dump or a MVC or something else?


>Mike Schwab wrote:

>> FFF0 000FF000 0100 0800
>x'FFF0' would be 65520 cylinders.  x'000F' would be 15 tracks per cylinder.  
>Reasonable for a 3390-54. 
 
Indeed.

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DEVTYPE INFO=DASD

[Reichman Joseph]

The doc says bytes 0 - 3 is cylinders bytes 0 -3 is FFF0 and bytes 4 - 7 
000FF000 is tracks per cyl ? am I misreading misunderstanding the documentation 
  

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Mike Schwab
Sent: Thursday, July 21, 2016 11:36 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: DEVTYPE INFO=DASD

> FFF0 000FF000 0100 0800

x'FFF0' would be 65520 cylinders.  x'000F' would be 15 tracks per cylinder.  
Reasonable for a 3390-54.

On Thu, Jul 21, 2016 at 9:00 AM, Reichman Joseph <joseph.reich...@irs.gov> 
wrote:
> Hi
>
> I was looking for the capability on a dasd device
>
>
> DEVTYPE (R6),(AREA,L'AREA),INFOLIST=ILIST2
>
> ILIST2   DEVTYPE INFO=DASD
>
> AREA DSXL16
>
> This was the data returned in area R15 = 0
>
> FFF0 000FF000 0100 0800
>
>
>
> DASD  Returns 16 bytes as follows:
>
> Bytes 0-3 Number of cylinders on the device, excluding alternates. For a VIO 
> data set, this number is the number of simulated cylinders needed to contain 
> the data set.
>
> Bytes4-7 Number of tracks per cylinder.
>
>
> Seems to indicate over 4 million cylinders and over 100,000 tracks on the 
> volume ?
>
>
> Joe Reichman
> Joe Reichman
>
> IT Specialist
> Master Files Division
> New Carrollton Federal Building, B7-182 OS:CTO:AD:CP:I:IB Flex 
> M,T,Th,F Home office (240) 863 - 3965 Office (240) 613-4350
> Cell (917) 748-9693
> TOD M - F  7:30 am  - 4:00 pm
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

DEVTYPE INFO=DASD

[Reichman Joseph]

Hi

I was looking for the capability on a dasd device


DEVTYPE (R6),(AREA,L'AREA),INFOLIST=ILIST2

ILIST2   DEVTYPE INFO=DASD

AREA DSXL16

This was the data returned in area R15 = 0

FFF0 000FF000 0100 0800



DASD  Returns 16 bytes as follows:

Bytes 0-3 Number of cylinders on the device, excluding alternates. For a VIO 
data set, this number is the number of simulated cylinders needed to contain 
the data set.

Bytes4-7 Number of tracks per cylinder.


Seems to indicate over 4 million cylinders and over 100,000 tracks on the 
volume ?


Joe Reichman
Joe Reichman

IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Bsam VS Qsam for VB records

[Reichman Joseph]

Thanks for all your help I really understand the problem thing is the file is 
huge and I don’t know by what factor DFSMS blocked and if the blocking is 
consistent meaning always by the same factor

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of John McKown
Sent: Tuesday, July 19, 2016 2:25 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Bsam VS Qsam for VB records

On Tue, Jul 19, 2016 at 1:20 PM, Farley, Peter x23353 < 
peter.far...@broadridge.com> wrote:

> I've been following the various attempts to help you fix your broken 
> file with a block that has a zero BDW.  How that ever happened is a 
> mystery you really ought to engage IBM to help solve, BUT . . .
>
> No one else seems to have suggested the "old time" solution to 
> recovering the file data - does your shop license DITTO?  DITTO can 
> access AND MODIFY disk blocks directly, without programming.  You can 
> display blocks in the file until you get to the one you want and then 
> update the BDW in that block based on the block length DITTO tells you it 
> read.
>
> If your shop does license DITTO the "disk modify" function is very 
> likely security protected (or darn well ought to be, since it can 
> really wreck things up if misused or abused), so you may need to 
> interface with your security team to get appropriate authority.
>
> There is a "batch" interface to DITTO as well as TSO capability, so 
> you could set it up as a batch job or try to accomplish it on the fly 
> from TSO.  If it were me I would also try to make sure I have at least 
> one safe volume backup of the disk containing that file in case things 
> get messed up.  Caveat emptor.
>
> HTH
>
> Peter
>

​AMASPZAP can do the same thing. I don't know DITTO, so I'll guess it would be 
easier to use. Personally, I'd hate to use AMASPZAP to correct BDWs on disk. 
AMASPZAP can also print the data, in HEX.​



--
"Worry was nothing more than paying interest on a loan that a man may never 
borrow"

From: "Quest for the White Wind" by Alan Black

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Bsam VS Qsam for VB records

[Reichman Joseph]

I am in the process of running with RECFM=U (under TEST) I see that is shows 
both BDW and RDW

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Farley, Peter x23353
Sent: Tuesday, July 19, 2016 2:20 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Bsam VS Qsam for VB records

I've been following the various attempts to help you fix your broken file with 
a block that has a zero BDW.  How that ever happened is a mystery you really 
ought to engage IBM to help solve, BUT . . .

No one else seems to have suggested the "old time" solution to recovering the 
file data - does your shop license DITTO?  DITTO can access AND MODIFY disk 
blocks directly, without programming.  You can display blocks in the file until 
you get to the one you want and then update the BDW in that block based on the 
block length DITTO tells you it read.

If your shop does license DITTO the "disk modify" function is very likely 
security protected (or darn well ought to be, since it can really wreck things 
up if misused or abused), so you may need to interface with your security team 
to get appropriate authority.

There is a "batch" interface to DITTO as well as TSO capability, so you could 
set it up as a batch job or try to accomplish it on the fly from TSO.  If it 
were me I would also try to make sure I have at least one safe volume backup of 
the disk containing that file in case things get messed up.  Caveat emptor.

HTH

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Reichman Joseph
Sent: Tuesday, July 19, 2016 1:31 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Bsam VS Qsam for VB records

The problem is not the RDW it’s the BDW with QSAM that’s somewhere inside DFSMS 
code it doesn't seem RECFM=U would reveal that 

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Bill Woodger
Sent: Tuesday, July 19, 2016 1:13 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Bsam VS Qsam for VB records

With RECFM=U, you get the entire physical record presented to you. It has no 
"length" as far as the system is concerned, it is just an amorphous lump of 
data. For VB-as-U the first four bytes are the RDW of what was the block, the 
next four bytes the RDW of the first record, and you can find the start of the 
next record (next RDW) though some simple maths (adding).


On Tuesday, 19 July 2016 17:15:53 UTC+2, Reichman Joseph  wrote:
> With RECFM=U there is 1 record per block and the BDW is RDW + 4 ?
> 
> Joe Reichman

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Bsam VS Qsam for VB records

[Reichman Joseph]

The problem is not the RDW it’s the BDW with QSAM that’s somewhere inside DFSMS 
code it doesn't seem RECFM=U would reveal that 

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Bill Woodger
Sent: Tuesday, July 19, 2016 1:13 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Bsam VS Qsam for VB records

With RECFM=U, you get the entire physical record presented to you. It has no 
"length" as far as the system is concerned, it is just an amorphous lump of 
data. For VB-as-U the first four bytes are the RDW of what was the block, the 
next four bytes the RDW of the first record, and you can find the start of the 
next record (next RDW) though some simple maths (adding).


On Tuesday, 19 July 2016 17:15:53 UTC+2, Reichman Joseph  wrote:
> With RECFM=U there is 1 record per block and the BDW is RDW + 4 ?
> 
> Joe Reichman

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Bsam VS Qsam for VB records

[Reichman Joseph]

With RECFM=U there is 1 record per block and the BDW is RDW + 4 ?

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of John McKown
Sent: Tuesday, July 19, 2016 10:57 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Bsam VS Qsam for VB records

On Tue, Jul 19, 2016 at 9:54 AM, Pew, Curtis G <curtis@austin.utexas.edu
> wrote:

> On Jul 19, 2016, at 9:39 AM, Reichman Joseph <joseph.reich...@irs.gov>
> wrote:
> >
> > I am not thinking of moving this in production it may help me track 
> > down
> a problem
>
> If your motivation is to examine the physical blocks, why not read 
> with QSAM specifying RECFM=U?
>

​That is what I do, with: RECFM=U,LRECL=32756,BLKSIZE=32760 and then use QSAM 
and "have fun".​ Or not, as the case may be.



>
> --
> Pew, Curtis G
> curtis@austin.utexas.edu
> ITS Systems/Core/Administrative Services
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



--
"Worry was nothing more than paying interest on a loan that a man may never 
borrow"

From: "Quest for the White Wind" by Alan Black

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Bsam VS Qsam for VB records

[Reichman Joseph]

I am not thinking of moving this in production it may help me track down a 
problem  

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Vernooij, CP (ITOPT1) - KLM
Sent: Tuesday, July 19, 2016 10:37 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Bsam VS Qsam for VB records

I wonder what application it is that justifies considering this. It is not the 
80's anymore. And even with QSAM you have the BUFNO parameter. 
If you really want to go down to the details, consider EXCP (I did, 35 years 
ago).

Kees.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: 19 July, 2016 16:24
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Bsam VS Qsam for VB records

IOW - unless you are very clever and you have a real need for I/O overlap 
performance, and you don't mind the maintenance programmer cussing you out, 
then I'd just go with QSAM.

--

For information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by error, please notify the sender immediately by return 
e-mail, and delete this message. 

Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its 
employees shall not be liable for the incorrect or incomplete transmission of 
this e-mail or any attachments, nor responsible for any delay in receipt. 
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch 
Airlines) is registered in Amstelveen, The Netherlands, with registered number 
33014286




--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Bsam VS Qsam for VB records

[Reichman Joseph]

That’s what I meant 

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Vernooij, CP (ITOPT1) - KLM
Sent: Tuesday, July 19, 2016 10:39 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Bsam VS Qsam for VB records

Cumulative RDW's+4 (first beginners error).

Kees.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Reichman Joseph
Sent: 19 July, 2016 16:33
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Bsam VS Qsam for VB records

As Far as I can see all the I/O we do here is qsam  There was an issue here as 
Jay Campbell pointed out where writing a VB record had a valid RDW but the BDW 
was zeros. Using qsam I would have no idea what the BDW was as the system takes 
care

of that. I am assuming if you use BSAM you decide the number of records that 
make up a block and each record is proceeded by a RDW and the block which you 
write has cumulative BDW.

Am I on the right track ?   

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of John McKown
Sent: Tuesday, July 19, 2016 10:24 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Bsam VS Qsam for VB records

On Tue, Jul 19, 2016 at 9:02 AM, Reichman Joseph <joseph.reich...@irs.gov>
wrote:

> Hi,
>
> Would anyone know the plus and or minus for using BSAM as opposed to 
> QSAM for VB records. It seems with BSAM there is more control e.g.
> specifying the BDW as well as the RDW. Wondering about performance.
>
> I am guessing if you know what you are doing BSAM would be faster. If 
> anyone could point me to examples using BSAM would appreciated. As I 
> have mainly used QSAM specifying the RDW
>
> Thanks
>
> Joe Reichman
>

​In general (VB or FB), QSAM is much easier to program. The access method just 
hands you individual records. But you pay for this in that you cannot do I/O 
overlap yourself. With BSAM, you do a READ. But the _block_ is not available to 
you (for certain sure) until you do a CHECK. But this allows you to test the 
I/O ECB and "do something else" if it has not been POST'd yet. A type of 
"useful polling" loop. Also, if you are reading multiple files, you can do a 
ECBLIST and wait for any one of the I/Os to complete instead of doing the I/O 
serially. Again performance. The problem is that _your code_ must de-block the 
​ individual records. For VB, you should probably determine the number of byte 
read in the block (they aren't necessarily all the same size, you
know) and check that the value in the BDW agrees with this number. And the code 
to do this is non-obvious because what you end up doing is knowing how many 
bytes you asked for and the I/O control block tells you the residual byte count 
- not the byte read but more like "you asked to read some bytes and there were 
​ were not enough in the block - the block was short by ? bytes). So the number 
of bytes read is the number of bytes you requested in the READ (not given back 
to you - you must remember) minus the "residual byte" count which is returned.

IOW - unless you are very clever and you have a real need for I/O overlap 
performance, and you don't mind the maintenance programmer cussing you out, 
then I'd just go with QSAM.

--
"Worry was nothing more than paying interest on a loan that a man may never 
borrow"

From: "Quest for the White Wind" by Alan Black

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

For information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by 

Re: Bsam VS Qsam for VB records

[Reichman Joseph]

As Far as I can see all the I/O we do here is qsam  There was an issue here as 
Jay Campbell pointed out where writing a VB record had a valid RDW but the BDW 
was zeros. Using qsam I would have no idea what the BDW was as the system takes 
care

of that. I am assuming if you use BSAM you decide the number of records that 
make up a block and each record is proceeded by a RDW and the block which you 
write has cumulative BDW.

Am I on the right track ?   

Joe Reichman
Joe Reichman
 
IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965 
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of John McKown
Sent: Tuesday, July 19, 2016 10:24 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Bsam VS Qsam for VB records

On Tue, Jul 19, 2016 at 9:02 AM, Reichman Joseph <joseph.reich...@irs.gov>
wrote:

> Hi,
>
> Would anyone know the plus and or minus for using BSAM as opposed to 
> QSAM for VB records. It seems with BSAM there is more control e.g. 
> specifying the BDW as well as the RDW. Wondering about performance.
>
> I am guessing if you know what you are doing BSAM would be faster. If 
> anyone could point me to examples using BSAM would appreciated. As I 
> have mainly used QSAM specifying the RDW
>
> Thanks
>
> Joe Reichman
>

​In general (VB or FB), QSAM is much easier to program. The access method just 
hands you individual records. But you pay for this in that you cannot do I/O 
overlap yourself. With BSAM, you do a READ. But the _block_ is not available to 
you (for certain sure) until you do a CHECK. But this allows you to test the 
I/O ECB and "do something else" if it has not been POST'd yet. A type of 
"useful polling" loop. Also, if you are reading multiple files, you can do a 
ECBLIST and wait for any one of the I/Os to complete instead of doing the I/O 
serially. Again performance. The problem is that _your code_ must de-block the 
​ individual records. For VB, you should probably determine the number of byte 
read in the block (they aren't necessarily all the same size, you
know) and check that the value in the BDW agrees with this number. And the code 
to do this is non-obvious because what you end up doing is knowing how many 
bytes you asked for and the I/O control block tells you the residual byte count 
- not the byte read but more like "you asked to read some bytes and there were 
​ were not enough in the block - the block was short by ? bytes). So the number 
of bytes read is the number of bytes you requested in the READ (not given back 
to you - you must remember) minus the "residual byte" count which is returned.

IOW - unless you are very clever and you have a real need for I/O overlap 
performance, and you don't mind the maintenance programmer cussing you out, 
then I'd just go with QSAM.

--
"Worry was nothing more than paying interest on a loan that a man may never 
borrow"

From: "Quest for the White Wind" by Alan Black

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Bsam VS Qsam for VB records

[Reichman Joseph]

Hi,


Would anyone know the plus and or minus for using BSAM as opposed to QSAM for 
VB records. It seems with BSAM there is more control e.g. specifying the BDW as 
well as the RDW. Wondering about performance.

I am guessing if you know what you are doing BSAM would be faster. If anyone 
could point me to examples using BSAM would appreciated. As I have mainly used 
QSAM specifying the RDW

Thanks

Joe Reichman
Joe Reichman

IT Specialist
Master Files Division
New Carrollton Federal Building, B7-182
OS:CTO:AD:CP:I:IB
Flex M,T,Th,F
Home office (240) 863 - 3965
Office (240) 613-4350
Cell (917) 748-9693
TOD M - F  7:30 am  - 4:00 pm


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN