Bytes in a 3390 track - reason for the question

The reason for asking the question about bytes on a track is that I am writing programs to report on all disk datasets. The first program looks at all on-line disk packs and extracts all format 1, 3, 8 and 9 DSCBs while also providing a summary of space available/used on each disk (similar to

Re: Bytes in a 3390 track

Thank you very much for that comprehensive explanation. John -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Bytes in a 3390 track

Thanks Steve. I did not know about the standard record 0, now that I do it makes sense. John -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO

Bytes in a 3390 track

Hello On all the disk volumes I have looked at, the format 4 DSCB field DS4DEVTK (device track length) has the value 58786. All the IBM documentation says that there are 56664 bytes in a track on a 3390 drive. At this link https://www.lascon.co.uk/hwd-3390-disks.php reference is made to 55996

Re: Query ESM from REXX

Hi CBT file 953 has TRYAUTH a REXX program and CHKAUTH a REXX function written in Assembler. TRYAUTH calls CHKAUTH with a dataset name and CHKAUTH uses RACROUTE to check the access of the ID running the program. For your purposes you would need to change TRYAUTH to pass a facility name and

Re: Rexx parse using period as placeholder

Regarding PCRE2-Perl-Compatible Regular Expressions. Version 10.33 for z/OS is available on file 939 and includes a much improved Rexx interface. http://www.cbttape.org/ftp/cbt/CBT939.zip Files 882 and 884 are no longer supported and have been removed from the CBT website. John

How can a batch REXX get the step return codes for the job it is running in

This subject comes up every now and then, and I have just found a way that is new to me. Since z/OS 2.2, SDSF has a new line command JS on the DA, H, I, O and ST panels which displays a sub panel which shows the return code and other details for all the steps taken from the SMF-30 sub type 4

BALR and BAL in AMODE=24

Hello. The link information in the 24-bit addressing mode consists of the instruction-length code (ILC), the condition code (CC), the program-mask bits, and the rightmost 24 bits of the updated instruction address. I have never given much thought to the high byte when using this instruction

Re: Need help with ISPF Dialogue Manager and VGET

Hi This is what I have for an assembler program calling REXX, but the REXX can see the variables so something similar should work for you. CALL ISPLINK,(VDEFINE,NXXPROG,INVXPROG,CHAR,LXXPROG),VL CALL ISPLINK,(VPUT,NXXPROG),VL CALL

Re: DASD Utilization Trigger

Hi I have an assembler program which looks at all on-line DASD using UCBSCAN and prints volume name, total space, used space, free space and percentage free. I have been meaning to put this on the CBT for some time. If you would like a copy then contact me off list. Regards John

Re: AC(1)

Peter, The CBT program uses code from Mark Zelden's IPLINFO to get a list of APF libraries (he is credited). In assembler this is L R1,16 point to CVT L R1,140(,R1) point to CVTECVT L R1,228(,R1) point to CSV

Re: AC(1)

Hi Charles File 953 on the CBT contains a program LISTAPF which checks every load library in the STEPLIB or JOBLIB against the APF list. Regards John -- For IBM-MAIN subscribe / signoff / archive access instructions, send

Re: Mass submit jcl

Dan Great idea, this seems to do the job but may need a bit more work. /*REXX*/ /* */ /* The purpose of this is to enable every member of a PDS */ /* so be submitted in order. */ /*

Re: Assembler calling DSNTAIR

I use this code to get the error message from DSNTIAR CALL_PARM DS 0F PARM_1 DC A(SQLCA) PARM_2 DC A(MSGLEN) PARM_3 DC A(MSGSIZE) MSGSIZE DC F'72' LENGTH OF EACH LINE MSGAREA DS H,CL(20*72)

Sorting a REXX STEM variable

Hi Last weeks discussion on sorting a REXX stem inspired me to write a program to do it. example call to sort ascending "ISPEXEC LIBDEF ISPLLIB DATASET ID ('my_loadlib') STACK" "ALLOC FI(SORTPRT) DUMMY" r_c = SORTSTEM(my_stem_name,'A') "FREE FILE(SORTPRT)" "ISPEXEC LIBDEF ISPLLIB "

Re: SDSF/REXX question

0.7 was by trial and error, 0.6 was not long enough for a single IEFBR14 job. I already had the REXX assembler function so I only had to code this JRGSTIM('7') also I did not know about SYSCALL :-) -- For IBM-MAIN subscribe /

Re: SDSF/REXX question

I had a similar problem. In my case I was reading JESYSMSG to check the return codes of preceding steps and usually JESYSMSG was there but occasionally it was not, and in these cases the job elapsed time was quite low. I added a call to an assembler program at the start of the REXX to issue a

Re: Assembler addressing issue

Hi Try re-establishing the DSECT like this DYNAREA DSECT AAA DS .. BBB DS.. ​ IEFZB4D0 DYNAREA DSECT DYNMSG WTO...,MF=L John -- For IBM-MAIN subscribe / signoff / archive access

Re: Defined capacity?

Hi Is this rexx what you are looking for? http://www.longpelaexpertise.com/toolsLPinfoX.php Regards John -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the

Re: Which STEPLIB concatenation is not authorized?

Hi I know it's a while since this discussion, but file 953 on the cbttape latest updates page has two possible solutions for this. Assembler program LISTAPF uses the code from Mark Zelden's IPLINFO to get a list of APF authorised datasets it then gets all datasets concatenated to STEPLIB and