Announcement letters for XA and ESA
I'm trying to fill in some details in the wiki article on S/370, and I'd like links for announcement letters of GI manuals for the initial releases of BTAM/SP DFP (XA) DFP (ESA) GAM/SP MVS/SP V2 MVS/SP V3 TSO/E (XA) TSO/E (ESA) -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Silly question - can one force IDCAMS PRINT to show printable lower case characters?
CCSID would determine which characters were treated as valid. I would not expect IDCAMS to second guess the user's InfoPrint parameters. Ideally there should be a common print validation service and every utility would have a parameter to pass it. As long as the utilities attempt to redact "unprintable" data, they should allow the user to control that redaction, regardless of how many other places have a CCSID option. Especially a CCSID parameter documented as being applicable only to tape. How is DASD an excuse for translating characters that the user considers valid to periods? I don't care if it's legacy DASD, SYSOUT or Unix path, the user should be able to control the translation. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu] Sent: Saturday, December 12, 2020 7:24 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Silly question - can one force IDCAMS PRINT to show printable lower case characters? On Sat, 12 Dec 2020 23:40:52 +, Seymour J Metz wrote: >I might believe lost in the world of 3211; the 3211 is older than IDCAMS. >Shirley it's time to add a CCSID operand. > What would CCSID do? What implementation do you envision? Would it interface to InfoPrint? Shouldn't every utility have one? But that's redundant; it should be an option on DD SYSOUT. DD, EXEC, and JOB already have a CCSID option. Is that enough? And if SYSPRINT is DASD, it should just pass the data unfiltered. BitSavers reinforces my conjecture. Something you don't want in a production job: http://secure-web.cisco.com/1WhhAX4GjxhomdW3zmNfgT472Yr6nQhRZO040EgqFcFvPBMsDPxogfvqMO12NQs36E2Lf8gEmkDkccMSTqwEn22FDxfabOAdb9sSzzpmB-xLwJnTd8s0I4b9wVTIf0YIGlbUnRiAzzGGuj70uPltjgBdpcAQD3hM1RWi8kVLFAnzpfZI1-qtzSoC0tniJheFaqIvC82btQ5mIONuQYT_xpuDWMvGGdUjRSGL9FImMDx_75jgCFL2ZMBBktTpOE9u1wCgOPfs_9yaGHJ-C-WuKzYLleg8tqOQOg-XcMKs15NG3euVyj0GQw2OiD2ueoIZWJ7M0XyKZpOPrBTvXbLGr9WXF93UHmZ3y5NjnJZpxcjkFG8_3iC6cs8Jn3Ud4f-CCsiRjoKzqaHZ7tXHzsMIikG1gcxJ0BUwzivOPmilFUZ7RuB7rHgBZdogbSOd9bt9X/http%3A%2F%2Fwww.bitsavers.org%2Fpdf%2Fibm%2F1403%2FGA24-3073-8_1403_printer.pdf Data Check (Sense Bit 4) Data check indicates that a code in a data record sent to the printer does not match a code in the Universal Character Set (UCS) feature storage. Printing does not occur in the print position to which the unmatching code applies. The entire line (except for the data check position) OIr only a portion of the line may be printed. Therefore, the last printed line may contain erroneous data and/or an incomplete record. Data check usually indicates that the UCS storage was improperly loaded or that a data record code (other than blank or null) does not compare to any code in the UCS storage. Provide an operator message and exit from this error- recovery procedure. The operator should then: 1. Accept the record and indicate that the application program is to proceed without further retry of the command, or 2. Restart the application program from a logical point. If the error persists, a call should be made to a service representative. -- gil -- 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: Silly question - can one force IDCAMS PRINT to show printable lower case characters?
On Sat, 12 Dec 2020 23:40:52 +, Seymour J Metz wrote: >I might believe lost in the world of 3211; the 3211 is older than IDCAMS. >Shirley it's time to add a CCSID operand. > What would CCSID do? What implementation do you envision? Would it interface to InfoPrint? Shouldn't every utility have one? But that's redundant; it should be an option on DD SYSOUT. DD, EXEC, and JOB already have a CCSID option. Is that enough? And if SYSPRINT is DASD, it should just pass the data unfiltered. BitSavers reinforces my conjecture. Something you don't want in a production job: www.bitsavers.org/pdf/ibm/1403/GA24-3073-8_1403_printer.pdf Data Check (Sense Bit 4) Data check indicates that a code in a data record sent to the printer does not match a code in the Universal Character Set (UCS) feature storage. Printing does not occur in the print position to which the unmatching code applies. The entire line (except for the data check position) OIr only a portion of the line may be printed. Therefore, the last printed line may contain erroneous data and/or an incomplete record. Data check usually indicates that the UCS storage was improperly loaded or that a data record code (other than blank or null) does not compare to any code in the UCS storage. Provide an operator message and exit from this error- recovery procedure. The operator should then: 1. Accept the record and indicate that the application program is to proceed without further retry of the command, or 2. Restart the application program from a logical point. If the error persists, a call should be made to a service representative. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Silly question - can one force IDCAMS PRINT to show printable lower case characters?
I might believe lost in the world of 3211; the 3211 is older than IDCAMS. Shirley it's time to add a CCSID operand. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Attila Fogarasi [fogar...@gmail.com] Sent: Saturday, December 12, 2020 4:54 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Silly question - can one force IDCAMS PRINT to show printable lower case characters? Yes, you have to switch to a print train which has lower case (since IDCAMS is lost in the world of 1403). PARM GRAPHICS(CHAIN(SN)) as your first IDCAM statement will switch to printing lower case instead of periods. On Sun, Dec 13, 2020 at 8:35 AM Binyamin Dissen wrote: > Silly question - can one force IDCAMS PRINT to show printable lower case > characters? > > -- > Binyamin Dissen > http://secure-web.cisco.com/1VfS157sCRvu2bl4qZIKzzFnZFLt7o09B94XI3fnCStgsCjFgHKDrlCzyakB44Fj3xUaBy6ZW1y5BhhE4chmJYkEnWZaoGKa4mhwl1ODFrJP3cG-E6o5N4olM5vnuPJlBFVUPQvqfGaJFLi13hPUrYQR8n5Egmlj-C3rARILkWqnDqfb6ktGOXFvcQdpnR5gst0qSbn3YDyeLr9XqyDXlRKiU70cpSUR5xdKAXwWkI7RgKRZ7coAEKFM9t6iO2HECj1JTpwwmHOAoRU1Z1GkbgY1eKZfcmrbtrEViGp7IqM53TBF_rB82_ONKeb9f8HldSLay01oz_dB3w-aeYcPj1R4RwFI0wyzwPV2a3iegAJA3RTF29Conf9N0aF5VbEk7AYyMYzUorgezrUiXewZiwPp2D0nknzTgJCFKmjZZQIdLJjQ8ba0JIsN1zGlEPud5/http%3A%2F%2Fwww.dissensoftware.com > > Director, Dissen Software, Bar & Grill - Israel > > > Should you use the mailblocks package and expect a response from me, > you should preauthorize the dissensoftware.com domain. > > I very rarely bother responding to challenge/response systems, > especially those from irresponsible companies. > > -- > 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: Silly question - can one force IDCAMS PRINT to show printable lower case characters?
On Sat, 12 Dec 2020 23:34:50 +0200, Binyamin Dissen wrote: >Silly question - can one force IDCAMS PRINT to show printable lower case >characters? > GRAPHICS (CHAIN(TN))/*COMMENT*/ - Who woulda thunk it. How come in this 21st Century this isn't the default? I suppose a data check caused an important cu$tomer's printer to miss a batch window. Don't know about Hebrew. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Silly question - can one force IDCAMS PRINT to show printable lower case characters?
Yes, you have to switch to a print train which has lower case (since IDCAMS is lost in the world of 1403). PARM GRAPHICS(CHAIN(SN)) as your first IDCAM statement will switch to printing lower case instead of periods. On Sun, Dec 13, 2020 at 8:35 AM Binyamin Dissen wrote: > Silly question - can one force IDCAMS PRINT to show printable lower case > characters? > > -- > Binyamin Dissen > http://www.dissensoftware.com > > Director, Dissen Software, Bar & Grill - Israel > > > Should you use the mailblocks package and expect a response from me, > you should preauthorize the dissensoftware.com domain. > > I very rarely bother responding to challenge/response systems, > especially those from irresponsible companies. > > -- > 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
Silly question - can one force IDCAMS PRINT to show printable lower case characters?
Silly question - can one force IDCAMS PRINT to show printable lower case characters? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Z15 zedc compression and CONNECT DIRECT, MFT compression
First off, thank you to all that responded to this inquiry. Some additional information: On our systems that are still running on the z/14 processor, the triplets, Offset, Length, and Count are all present in the SMF type 30 record. The products in question are using the unauthorized method of zEDC compression and de-compression. In order to get the use of the facility, it was Necessary to add FPZ.ACCELERATOR.COMPRESSION Read access the specific started tasks. This was necessary in the pre z/15 days. For SMF type 30 records created on non z/15 processors, All 3 fields are filled in with data. With the compression now incorporated in the z/15 hardware, we have seen only the Offset and length fields filled in. I need to point out that only the un-authorized tasks exhibit this Anomaly. The reference material I have viewed is https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R4sa2313 77/$file/ieac100_v2r4.pdf . It's not a big issue, just that how do we know if compression is really taking place Sincerely; Kenneth J. Kripke -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Gwyn's Maxim (was: FSUM7197 pax ...)
Yeah, boy, I did that once. I was compiling my COBOL code, and chafed yet again at how sloppy the JCL proc was. I decided to make my own version, decently aligned and all the DD names in a conceptually logical order. In the process I fixed a few things; for example, I allowed the JCL to delete, from the PDS shared by all the developers, the member that I no longer needed. I ran it around noon. There were, I would guess, not quite 50 of us in the department, so I wiped out about four hours' work for let's guess 30 or 40 programmers. I was not a popular newbie that day. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* Of all tyrannies, a tyranny sincerely exercised for the good of its victims may be the most oppressive. It may be better to live under robber-barons than under omnipotent moral busybodies. The robber-baron's cruelty may at some point be satiated; but those who torment us for our own good will torment us without end, for they do so with the approval of their own conscience. -CS Lewis */ -Original Message- From: IBM Mainframe Discussion List On Behalf Of Paul Gilmartin Sent: Thursday, November 5, 2020 15:42 https://opensource.com/business/14/12/linux-philosophy --- On Thu, 5 Nov 2020 06:46:15 -0800, Charles Mills wrote: >What the heck were the UNIX designers thinking when they allowed the casual >creation of a filename of -x? There may be a legitimate reason why someone >would want to create a file named -x but if so, then *they* should be made to >jump through some small hoop and "escape" the name in some way. The innocent >victim who stumbles into this situation should not be the one made to jump >through hoops. Will UNIX allow the creation of a file named "rm *"? That could >have some interesting side effects. > Even worse, a file named "-rf *". This resembles the plaint of a JCL novice who has just encountered, painfully, the astonishing behavior of: //SYSUT1 DD DSN=&SYSUID..PDS(MEMBER),DISP=(OLD,DELETE) That should be fixed for DYNALLOC, JCL, TSO, globally by making the TU for member mutex with the TU for delete. Who volunteers to bell the RFE cat? Probably there's a "dusty deck" somewhere whose inexcusably clever author relied on the behavior and whose heirs haven't access to the source. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL EXEC name field?
No URL for the manual, but I got the following on a z/OS 2.4 system: 1 J E S 2 J O B L O G -- S Y S T E M ? ? ? -- N O D E N 1 0 10.09.36 JOB02763 SATURDAY, 12 DEC 2020 10.09.36 JOB02763 IRR010I USERID !! IS ASSIGNED TO THIS JOB. 10.09.36 JOB02763 IEFC452I !!X - JOB NOT RUN - JCL ERROR 898 0-- JES2 JOB STATISTICS -- 03 CARDS READ 0 18 SYSOUT PRINT RECORDS 00 SYSOUT PUNCH RECORDS 01 SYSOUT SPOOL KBYTES 0 0.00 MINUTES EXECUTION TIME 1 //!!X JOB CLASS=K,MSGCLASS=H,NOTIFY=&SYSUID JOB02763 //*ISPF EDIT OF !!.PDS.JCL(IEFBR14) IEFC653I SUBSTITUTION JCL - CLASS=K,MSGCLASS=H,NOTIFY=!! 2 //000.STEP EXEC PGM=IEFBR14 STMT NO. MESSAGE 2 IEFC662I INVALID LABEL But then I did thie: 1 J E S 2 J O B L O G -- S Y S T E M ? -- N O D E N 1 0 10.13.29 JOB02764 SATURDAY, 12 DEC 2020 10.13.29 JOB02764 IRR010I USERID !! IS ASSIGNED TO THIS JOB. 10.14.03 JOB02764 ICH70001I !! LAST ACCESS AT 10:07:43 ON SATURDAY, DECEMBER 12, 2020 10.14.03 JOB02764 $HASP373 !!Y STARTED - INIT 1- CLASS A - SYS CBT 10.14.03 JOB02764 - TIMINGS (MINUTES)- -PAGING C 10.14.03 JOB02764 -STEPNAME PROCSTEPRC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP 10.14.03 JOB02764 -STEP 00 6 0 0.03 0.000.0 179 SYSTEM 0 0 10.14.03 JOB02764 -!!Y ENDED. NAME- TOTAL TCB CPU TIME= 0.03 TOTAL ELAPSED TIME= 0.0 SUBSY 10.14.03 JOB02764 $HASP395 !!Y ENDED - RC= 0-- JES2 JOB STATISTICS -- - 12 DEC 2020 JOB EXECUTION DATE -3 CARDS READ - 39 SYSOUT PRINT RECORDS -0 SYSOUT PUNCH RECORDS -5 SYSOUT SPOOL KBYTES - 0.00 MINUTES EXECUTION TIME 1 //!!Y JOB CLASS=K,MSGCLASS=H,NOTIFY=&SYSUID JOB02764 //*ISPF EDIT OF !!.PDS.JCL(IEFBR14) IEFC653I SUBSTITUTION JCL - CLASS=K,MSGCLASS=H,NOTIFY=!! 2 //X00.STEP EXEC PGM=IEFBR14 ICH70001I !! LAST ACCESS AT 10:07:43 ON SATURDAY, DECEMBER 12, 2020 IEFA111I !!Y IS USING THE FOLLOWING JOB RELATED SETTINGS: SWA=BELOW,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB IEF142I !!Y STEP - STEP WAS EXECUTED - COND CODE IEF373I STEP/STEP/START 2020347.1014 IEF032I STEP/STEP/STOP 2020347.1014 CPU: 0 HR 00 MIN 00.00 SECSRB: 0 HR 00 MIN 00.00 SEC VIRT: 4K SYS: 232K EXT:0K SYS:12308K ATB- REAL: 1044K SLOTS: 0K VIRT- ALLOC: 11M SHRD: 0M IEF375I JOB/!!Y /START 2020347.1014 IEF033I JOB/!!Y /STOP 2020347.1014 CPU: 0 HR 00 MIN 00.00 SECSRB: 0 HR 00 MIN 00.00 SEC On Fri, Dec 11, 2020 at 7:16 PM Charles Mills wrote: > I saw that just today and was astounded! > > Charles > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Paul Gilmartin > Sent: Friday, December 11, 2020 4:11 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: JCL EXEC name field? > > In the JCL Ref.: > > Chapter 16. EXEC statement > ... > Name field > ... > • The stepname may be preceded by up to 8 alphanumeric or national > characters >and then separated by a period. If the stepname is coded in this > way, >the characters up to and including the period are ignored. > > WTF? > > A way of coding a very short comment? Is "." OK? > > -- > 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: JCL EXEC name field?
Sure 'nuff. 2 //NOTARY.SOJACK EXEC PGM=IEFBR14 IEF142I SOJACK - STEP WAS EXECUTED - COND CODE IEF373I STEP/SOJACK /START 2020347.1012 IEF032I STEP/SOJACK /STOP 2020347.1012 And no, 00 fails 2 //00.SOJACK EXEC PGM=IEFBR14 STMT NO. MESSAGE 2 IEFC662I INVALID LABEL Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Friday, December 11, 2020 4:11 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: JCL EXEC name field? In the JCL Ref.: Chapter 16. EXEC statement ... Name field ... • The stepname may be preceded by up to 8 alphanumeric or national characters and then separated by a period. If the stepname is coded in this way, the characters up to and including the period are ignored. WTF? A way of coding a very short comment? Is "." OK? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Auto Reply on SDSF Console
Dear All, Thank you for your response.Problem has been resolved by using below code If Strip(comp_vol) = TOvolume Then Do "MVS R "MsgID",NO" End Really sorry for delay in response as i was not well so couldnt able to reply you on time. Thank you once again. On Sat, Dec 12, 2020 at 8:19 AM Brian Westerman < brian_wester...@syzygyinc.com> wrote: > Using SyzMPF/z you would only need to code 3 lines in the script for > message IEF455D: > > IF WORD 02 = SP5145 | SP5146 | SP5147 | SP5149 > Reply ,NO > ENDIF > > > We count the words of a message starting with zero as the messageid and > (in this case) the message itself is: > IEF455D MOUNT ser ON dev FOR jobname stepname OR REPLY ‘NO’ > w0 w1 w2 w3 w4 w5 w6 w7 w8 w9w10 > > So the word you want to check for is word 2 (the ser in the above). The > "" is automagically filled in with the outstanding replyID presented in > the IEF455D message. > > Not only are Syzygy automation products MUCH less expensive than any of > the other automation vendors, it's also a lot easier to use. > > Brian > > On Mon, 30 Nov 2020 11:15:20 +0300, saurabh khandelwal < > sourabhkhandelwal...@gmail.com> wrote: > > >Dear Group , > > > > > > > >We have requirement to automate below manual reply comes in console every > >time, when we don’t find volume in our system and the standard reply to > >these message is *Reply id, NO.* > > > > > >10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO SARBCH > >OR REPLY 'NO'l > > > >In this above message, whenever we get message id *IEF455D *on SDSF > console > >and on 4th place in this line, we get volume name* SP5145 or SP5146 , > >SP5147, SP5149 *then immediately using automation we should reply > > > >With* reply id, no.* > > > > > > > >In order to do this, we created > > > > > > > >IF MSGID = 'IEF455D' > >THEN > > > >EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y); > > > > > > > > > > > >Then into *'AUTREXX'* REXX side, > > > > > > > > > > > > > > > >/* REXX */ > > > >trace r > > > >'PIPE SAFE * | STEM MSG.' > > > >TOvolume = Word( Msg,4 ) > > > >MsgID = Word( Msg,1 ) > > > >MsgID1 = substr(MsgID,2,2) > > > > > > > >volume = 'SP5145 ' , > > > > 'SP5146 ' , > > > >'SP5147 ' > > > > > > > >Do i = 1 to Words(volume) > > > >comp_vol = Word(volume,i) > > > > If Strip(comp_vol) = TOvolume Then > > > > > > > >But unable to complete this logic in to REXX. Can you please help in > >building this REXX, which can help in replying on console once the above > >mentioned criteria matches. > > > > > > > >*Regards* > > > >*Saurabh* > > > >-- > >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 > -- Thanks & Regards Saurabh Khandelwal -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN