Assistance Needed with COBOL File Reading Structure

Subject: Assistance Needed with COBOL File Reading Structure Dear [Recipient's Name], I hope this message finds you well. I am currently working on a COBOL program to read a file with the following format: length1, content1, length2, content2, and so on. An example of the data in the file is a

Re: As a long-time Rexx programmer

Ok I will bite. Please point out what parts of that extract are "grim" and "embarrassing". Rob Scott Rocket Software Get Outlook for Android From: IBM Mainframe Discussion List on behalf of Lionel B. Dyck <057b0ee5a853-dmarc-requ...@

Re: Assistance Needed with COBOL File Reading Structure

Jason, try it with this (and use correct numbers- your sample had 0 to 3) 05 LL1 PIC 9(2). 05 TT1 OCCURS 0 TO 3 TIMES DEPENDING ON LL1. 05 REMAIN PIC X(4) and in working storage section have this: 01 TEMP-WORK. 05 LL2 PIC 9(2).

Re: Assistance Needed with COBOL File Reading Structure

Hi Martin and Jason, I agree with Martin that the length / data elements must be processed one at a time. Some additional remarks: - the length field must have attribute S9(4) comp, because it is a binary length field - I would suggest not to use the OCCURS ... DEPENDING clause at all, but

Re: Assistance Needed with COBOL File Reading Structure

Sorry, Typo ... should read: ... and Y is the maximum length plus 2 ... Am 14.06.2024 um 13:09 schrieb Bernd Oppolzer: Hi Martin and Jason, I agree with Martin that the length / data elements must be processed one at a time. Some additional remarks: - the length field must have attribute S9

Re: Assistance Needed with COBOL File Reading Structure

Martin Thank you for your response. I have carefully reviewed the file and have a few questions regarding handling hexadecimal numbers for the length part and how it integrates with the OCCURS DEPENDING ON clause. Questions: The file that needs to be processed contains lengths in hexadecimal

Re: Assistance Needed with COBOL File Reading Structure

Bernd Thank you for providing another approach to read and process the file. I have a few questions to confirm my understanding: Q1: File Section Definition: cobol Copy code FILE SECTION. FD INPUT-FILE. 01 INPUT-RECORD PIC X(80). Is it correct ? Q2: Do hexadecimal lengths req

Re: Assistance Needed with COBOL File Reading Structure

Jason, as Bern pointed out you need to define the field as COMP (or new BINARY) - there are 2, 4 or 8 byte binary fields- no 6 bytes- but you can redefine a 8 byte binary field with a two byte filler and 6 bytes for the binary number. Martin On 14.06.24 14:14, Jason Cai wrote: Bernd Tha

Re: WS JES2 SPOOL OFFLOAD

Classification: Confidential Check the selection criteria in the $TOFFLOAD command, It should do what you want, -Original Message- From: IBM Mainframe Discussion List On Behalf Of Samuel Alejandro Díaz Chávez Sent: Thursday, June 13, 2024 9:46 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject:

DB2 V12 RSU2403

Upfront - I am not a DB2 SYSPROG, SYSADM, or Programmer I have pulled in and applied DB2 V12 RSU2403. That was the easy part. There are 134 PTF's with HOLD ACTION and that is where trouble is going to Begin. Does anyone have a Home Grown implementation document to help me get

Re: Getting dasd info

If you are running authorized you can MODESET to key zero and modify the DEB. Measure twice cut once. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר From: IBM Mainframe Discussion List on be

Getting dasd info

All, I have a z/VSE program that I want to start using with z/OS. The program issues several CCWs to the DS8000, such as SNS, SSS, RCD, & PSSF that are either volume specific or subsystem specific. Not file specific. My first question is in the area of getting access to a specific volume on

Re: As a long-time Rexx programmer

"If the command contains special characters or blanks, enclose it in single quotation marks." Might not be the best example, but it's clear from the doc that whoever wrote it doesn't understand that unassigned Rexx variables return their literal values. Point is, if this is an SDSF special thi

Re: As a long-time Rexx programmer

My experience has been that product documntation often summarizes, incorrectly, rules for, e.g., CLIST, JCL, REXX, instead of referring the reader to the appropriate documentation. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר ___

Re: Getting dasd info

Tony, You can run in problem program state and key and issue a UCBSCAN macro to get a list of UCBs and UCB copies for that z/OS system. You can then run that returned list and choose only the online DASD UCBs. For each of those that you are interested in, issue an LSPACE SVC specifying the UCB add

Re: Getting dasd info

Take a look at file 527 on the CBT tape. Program(s) DADSM and LISTICAT. Both programs do a scan of the disk volumes and generate reports on VTOC, VVDS, etc. Matthew On Fri, 14 Jun 2024 12:08:54 -0400, Mike Shaw wrote: >Tony, > >You can run in problem program state and key and issue a UCBSCAN

Re: Getting dasd info

Doesn’t physical scan of VTOC/VVDS areas on DASD (or for that matter directly issuing CCW’s to any DASD for any reason) also require at least SAF authorization (if not also APF authorization) to allow access under z/OS? Peter From: IBM Mainframe Discussion List On Behalf Of Matthew Stitt Sent

Re: Getting dasd info

Either SAF or APF, depending on what you are doing,, except for those cases where there is an unprivileged interface for specific types of access. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר __

Re: Getting dasd info

No. With the right combination of DYNALLOC, OPEN and RDJFCB you can open the VTOC and execute a channel program that reads the entire VTOC without any kind of SAF authorization. It can also be read with BSAM but that is a little slower. Mike Shaw MVS/QuickRef Support Group Chicago-Soft, Ltd On Fr

Re: As a long-time Rexx programmer

I must admit that I find nothing amiss with the quoted section. It describes the syntax requirements of the SDSF-specific ISFEXEC verb. It does not get into any generic REXX techniques to provide the statement buffer to the verb as that is not required in this case. Contrast that with the doc

Re: Getting dasd info

The OP was asking about scanning the entire volume, not just the VTOC. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר From: IBM Mainframe Discussion List on behalf of Mike Shaw Sent: Friday

Re: Getting dasd info

All, No. I am not talking about scanning the volume nor reading the VTOC. I am not touching, in any way, the actual disk data. I am getting low-level info from the sub-system using CCW Commands: x'27' PSSF - Perform Sub-System Function, functions 18/47, 18/0B x'64' RDC - Read Device Character

Re: Getting dasd info

Do those depend on specific bits in the file mask? If not, open any dataset for EXCP. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר From: IBM Mainframe Discussion List on behalf of Tony Th

Re: As a long-time Rexx programmer (SDSF)

Friday, a little bit off-topic, but still about mainframes and SDSF SDSF is great tool. I was enhanced significantly last years. I like it. However I observe many users are simply *not aware* of many new features. They obviously use panels, which are visible in main menu, but they miss many othe

Re: Getting dasd info

W dniu 14.06.2024 o 17:20, Tony Thigpen pisze: All, I have a z/VSE program that I want to start using with z/OS. The program issues several CCWs to the DS8000, such as SNS, SSS, RCD, & PSSF that are either volume specific or subsystem specific. Not file specific. My first question is in the

Re: As a long-time Rexx programmer

On Fri, 14 Jun 2024 11:51:23 -0400, Phil Smith III wrote: >"If the command contains special characters or blanks, enclose it in single >quotation marks." > >Might not be the best example, but it's clear from the doc that whoever wrote >it doesn't understand that unassigned Rexx variables return

Re: As a long-time Rexx programmer

I think we can blame JCL-based rules for that – I suspect that double-quote is NOT a valid substitute for apostrophe in those SDSF commands, as such substitution is also not valid in JCL. After all, why would anyone use a “shift apostrophe” keystroke to get double quotes when simply typing the

Re: As a long-time Rexx programmer (SDSF)

For every z/OS release we also create a "What's new in SDSF" style presentation that we give at Share and GSE and then upload to the IBM Education GitHub. There is also an in-product help table of new functions for the release. As for SDSF rexx examples, you can use the RGEN command that will ge

Re: DB2 V12 RSU2403

Depends on the holds. DOC holds are easily bypassed. Others not entirely bypass-able.(although most are) Some of them you might have to perform a bind to finish the installation. Here is a sample. //WJJCAPCK JOB (3200,TBL1),'APCK DB2 MAINT',CLASS=8,MSGCLASS=Q,  // NOTIFY=&SYSUID,REGION=6

Re: DB2 V12 RSU2403

I usually just specify BYPASS(HOLDSYS) - this why you don’t have to specify every HOLDSYS provided. Make sure you read what the HOLD action is. Thanks -Original Message- From: IBM Mainframe Discussion List On Behalf Of Dave Beagle Sent: Friday, June 14, 2024 5:30 PM To: IBM-MAIN@L

Re: DB2 V12 RSU2403

The ones that scare me are the DB2BIND Sent from my iPhone No one said I could type with one thumb > On Jun 14, 2024, at 17:41, Steely.Mark wrote: > > I usually just specify BYPASS(HOLDSYS) - this why you don’t have to > specify every HOLDSYS provided. > Make sure you read what the HOLD

Re: DB2 V12 RSU2403

Why? Generally you just need to rebind. Sent from Yahoo Mail for iPhone On Friday, June 14, 2024, 7:02 PM, Steve Beaver <050e0c375a14-dmarc-requ...@listserv.ua.edu> wrote: The ones that scare me are the DB2BIND Sent from my iPhone No one said I could type with one thumb > On Jun 14,

Re: As a long-time Rexx programmer

It used to, until I started doing a lot more coding in VBA, where double quotes are the rule for literal strings. Now I find myself using double-quotes reflexively in REXX, too - very much to my dismay, because I'm with you, why use two fingers where one will do? --- Bob Bridges, robhbrid...@g