Re: DFSORT - How to select last 8 bytes in variable length records
On Sun, 7 Jun 2015 13:36:53 -0400, Robert A. Rosenberg wrote: At 09:46 -0500 on 06/07/2015, Paul Gilmartin wrote about Re: DFSORT - How to select last 8 bytes in variable length : On Sun, 7 Jun 2015 22:28:01 +0900, Minoru Massaki wrote: Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. ... Must it be DFSORT? For example: 508 $ cat last8; sh last8 #! /bin/sh -x echo \ RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B | sed 's/\(.*\)\(\)/\2 \1/' RECORD01X11 RECORD02Y2 ZCCC RECORD03 RECORD044A444 RECORD0555B 509 $ Is it then possible to pipe the output of sed into SORTIN? -- gil While this may be a way of doing this your script has an error (if the sample output is accurate). The request was to append the last 8 characters to the record while your sample moves it there (dropping these characters from the altered record). Just add another \2 after\1. But the OP also said this: Record data before the last 8 bytes may contain x'00' thru x'FF' That would mean there could be end-of-line characters and hex 00 characters in a record, which would mean sed would not work. Bill -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
On Sun, 7 Jun 2015 09:21:08 -0700, Lizette Koehler wrote: Also, you could probably do this in REXX. There are many ways to do this function. Can one code a DFSORT exit in Rexx? Without a whole lot of interface code? -Original Message- From: Minoru Massaki Sent: Sunday, June 07, 2015 8:57 AM At this point, they (the customer) want to use only DFSORT without E15/E35. I'll tell them your ideas. (Notwithstanding.) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
Hello Tony-san, I already have read many DFSORT related posts in many Wed sites but could not find the answer. I know that the first 2 bytes of the variable record (RDW) contains the length of the record. But based on my knowledge of DFSORT, that value of the field could not use as the pointer in DFSORT control statement parameter to select the last 8 bytes. So I'm asking the way to do it by DFSORT. Thank you. Minoru Massaki - (M*M) 2015-06-08 1:59 GMT+09:00 Tony's Outlook via Mozilla tbabo...@outlook.com: There was a DF/SORT related post sometime in the not so distant past that gave an example of how to read a VB file and determine all the differing record lengths. Without thinking about it much reading all the RDW fields should not be that difficult. On 6/7/2015 11:21 AM, Lizette Koehler wrote: I am sure the DFSORT team will respond on Monday in the USA. Or you could send your query to them, there might be someone watching their helpline dfs...@us.ibm.com Those folks are very helpful. Also, the DFSORT Website on http://www-01.ibm.com/support/docview.wss?uid=isg3T779 Also, you could probably do this in REXX. There are many ways to do this function. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Minoru Massaki Sent: Sunday, June 07, 2015 8:57 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFSORT - How to select last 8 bytes in variable length records Hello Gilmartin-san, Thank you for your idea. At this point, they (the customer) want to use only DFSORT without E15/E35. I'll tell them your ideas. Minoru Massaki - (M*M) 2015-06-07 23:46 GMT+09:00 Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu: On Sun, 7 Jun 2015 22:28:01 +0900, Minoru Massaki wrote: Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. ... Must it be DFSORT? For example: 508 $ cat last8; sh last8 #! /bin/sh -x echo \ RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B | sed 's/\(.*\)\(\)/\2 \1/' RECORD01X11 RECORD02Y2 ZCCC RECORD03 RECORD044A444 RECORD0555B 509 $ Is it then possible to pipe the output of sed into SORTIN? -- 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 -- 全先 実 - Minoru Massaki (M*M) E-mail: mmass...@gmail.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
At 09:46 -0500 on 06/07/2015, Paul Gilmartin wrote about Re: DFSORT - How to select last 8 bytes in variable length : On Sun, 7 Jun 2015 22:28:01 +0900, Minoru Massaki wrote: Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. ... Must it be DFSORT? For example: 508 $ cat last8; sh last8 #! /bin/sh -x echo \ RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B | sed 's/\(.*\)\(\)/\2 \1/' RECORD01X11 RECORD02Y2 ZCCC RECORD03 RECORD044A444 RECORD0555B 509 $ Is it then possible to pipe the output of sed into SORTIN? -- gil While this may be a way of doing this your script has an error (if the sample output is accurate). The request was to append the last 8 characters to the record while your sample moves it there (dropping these characters from the altered record). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
Hello MM, without thinking about this much, using DF/SORT, you could convert all the VB records to FB, pick a fill character that doesn't now exist in the input file, then PARSE to search across the record, looking for the fill character and obtain the trailing 8 bytes. I'm guessing Kolusu will have a more elegant solution Monday morning. On 6/7/2015 12:23 PM, Minoru Massaki wrote: Hello Tony-san, I already have read many DFSORT related posts in many Wed sites but could not find the answer. I know that the first 2 bytes of the variable record (RDW) contains the length of the record. But based on my knowledge of DFSORT, that value of the field could not use as the pointer in DFSORT control statement parameter to select the last 8 bytes. So I'm asking the way to do it by DFSORT. Thank you. Minoru Massaki - (M*M) 2015-06-08 1:59 GMT+09:00 Tony's Outlook via Mozilla tbabo...@outlook.com: There was a DF/SORT related post sometime in the not so distant past that gave an example of how to read a VB file and determine all the differing record lengths. Without thinking about it much reading all the RDW fields should not be that difficult. On 6/7/2015 11:21 AM, Lizette Koehler wrote: I am sure the DFSORT team will respond on Monday in the USA. Or you could send your query to them, there might be someone watching their helpline dfs...@us.ibm.com Those folks are very helpful. Also, the DFSORT Website on http://www-01.ibm.com/support/docview.wss?uid=isg3T779 Also, you could probably do this in REXX. There are many ways to do this function. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Minoru Massaki Sent: Sunday, June 07, 2015 8:57 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFSORT - How to select last 8 bytes in variable length records Hello Gilmartin-san, Thank you for your idea. At this point, they (the customer) want to use only DFSORT without E15/E35. I'll tell them your ideas. Minoru Massaki - (M*M) 2015-06-07 23:46 GMT+09:00 Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu: On Sun, 7 Jun 2015 22:28:01 +0900, Minoru Massaki wrote: Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. ... Must it be DFSORT? For example: 508 $ cat last8; sh last8 #! /bin/sh -x echo \ RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B | sed 's/\(.*\)\(\)/\2 \1/' RECORD01X11 RECORD02Y2 ZCCC RECORD03 RECORD044A444 RECORD0555B 509 $ Is it then possible to pipe the output of sed into SORTIN? -- 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
There was a DF/SORT related post sometime in the not so distant past that gave an example of how to read a VB file and determine all the differing record lengths. Without thinking about it much reading all the RDW fields should not be that difficult. On 6/7/2015 11:21 AM, Lizette Koehler wrote: I am sure the DFSORT team will respond on Monday in the USA. Or you could send your query to them, there might be someone watching their helpline dfs...@us.ibm.com Those folks are very helpful. Also, the DFSORT Website on http://www-01.ibm.com/support/docview.wss?uid=isg3T779 Also, you could probably do this in REXX. There are many ways to do this function. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Minoru Massaki Sent: Sunday, June 07, 2015 8:57 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFSORT - How to select last 8 bytes in variable length records Hello Gilmartin-san, Thank you for your idea. At this point, they (the customer) want to use only DFSORT without E15/E35. I'll tell them your ideas. Minoru Massaki - (M*M) 2015-06-07 23:46 GMT+09:00 Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu: On Sun, 7 Jun 2015 22:28:01 +0900, Minoru Massaki wrote: Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. ... Must it be DFSORT? For example: 508 $ cat last8; sh last8 #! /bin/sh -x echo \ RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B | sed 's/\(.*\)\(\)/\2 \1/' RECORD01X11 RECORD02Y2 ZCCC RECORD03 RECORD044A444 RECORD0555B 509 $ Is it then possible to pipe the output of sed into SORTIN? -- 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: DFSORT - How to select last 8 bytes in variable length records
Hello Koehler-san, Thank you for telling me DFSORT helpline. As your suggested, I have sent the question to them. Also, you could probably do this in REXX. Yes, I already have written a REXX EXEC to do this. If number of the records to be processed is huge, the REXX EXEC (about 20 lines of the code) will consume more and more CPU time and will take longer elapsed time than DFSORT.;-) Usually our customers in Japan don't like to do coding by language such as REXX for doing this kind of small(?) things. On the other hand, they accept to make control cards jobs such as DFSORT, IDCAMS, and other utilities. I don't know the reason. Thank you! Minoru Massaki - (M*M) 2015-06-08 1:21 GMT+09:00 Lizette Koehler stars...@mindspring.com: I am sure the DFSORT team will respond on Monday in the USA. Or you could send your query to them, there might be someone watching their helpline dfs...@us.ibm.com Those folks are very helpful. Also, the DFSORT Website on http://www-01.ibm.com/support/docview.wss?uid=isg3T779 Also, you could probably do this in REXX. There are many ways to do this function. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Minoru Massaki Sent: Sunday, June 07, 2015 8:57 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFSORT - How to select last 8 bytes in variable length records Hello Gilmartin-san, Thank you for your idea. At this point, they (the customer) want to use only DFSORT without E15/E35. I'll tell them your ideas. Minoru Massaki - (M*M) 2015-06-07 23:46 GMT+09:00 Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu: On Sun, 7 Jun 2015 22:28:01 +0900, Minoru Massaki wrote: Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. ... Must it be DFSORT? For example: 508 $ cat last8; sh last8 #! /bin/sh -x echo \ RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B | sed 's/\(.*\)\(\)/\2 \1/' RECORD01X11 RECORD02Y2 ZCCC RECORD03 RECORD044A444 RECORD0555B 509 $ Is it then possible to pipe the output of sed into SORTIN? -- gil\ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- 全先 実 - Minoru Massaki (M*M) E-mail: mmass...@gmail.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Identifying a NIP console
In f66e9ee737492b448738e797fdb828eddd961...@kbmexmbxpr02.kbm1.loc, on 06/04/2015 at 08:05 PM, Staller, Allan allan.stal...@kbmg.com said: The system will respond to the first console that presents an interrupt. That certainly used to be the case before console restructuring, but even if it is still the case, is that really the behavior that you want? -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SWA token translation (IEFQMREC, SWAREQ)
In of5321bd51.23a69625-on85257e5b.0054b99c-85257e5b.00550...@us.ibm.com, on 06/05/2015 at 11:28 AM, Peter Relson rel...@us.ibm.com said: REXX EXECs that attempt to use the STORAGE If it were me I'd add a SWAREQ service to my installation's function package; you'd still need to modify the REXX code, but the changes would be fewer. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DFSORT - How to select last 8 bytes in variable length records
Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. Input file: RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B Output File I want to have: RECORD01X11 RECORD02Y2 ZCCC RECORD03ZCCC RECORD044A444 RECORD0555B Record data before the last 8 bytes may contain x'00' thru x'FF', there is no specific delimiter character for parsing the last 8 bytes. The last 8 bytes is also binary. I'd like to hear any ideas how this to be done by DFSORT WITHOUT using E15/E35. Your help would be highly appreciated. Minoru Massaki - M*M -- 全先 実 - Minoru Massaki (M*M) E-mail: mmass...@gmail.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: User Log File migration issue (Was Re: Notify for XMIT)
In 5572880c.3020...@acm.org, on 06/06/2015 at 12:41 AM, Joel Ewing jcew...@acm.org said: Why this insistent fixation on TCB structure, Because *that* was the claim that I was rebutting. Because solving a problem usually requires a correct analysis of what is happening. Neither My recollection is that the immediate bailout from the CLIST and from batch TSO on a non-zero TSO command processor RC only occurred for commands running directly under the batch TMP TCB nor If you are invoking the SEND command from a CLIST in certain environments (we were, in batch TSO), the non-zero return code can cause the CLIST containing the SEND command (and batch TSO) to immediately terminate without completing any following statements in the CLIST. mentions IKJEFT1{AB]. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
Hello Packer-san, Thank you for your suggestion. Same as your suggestion, I thought to use a bunch of IFTHEN for checking record length. At this point, unfortunately I cannot figure out how many different record lengths out there. The question came from a customer, they like to use DFSORT without E15/E35 exits. Thank you for your suggestion. Minoru Massaki - (M*M) 2015-06-07 23:34 GMT+09:00 Martin Packer martin_pac...@uk.ibm.com: How many different record lengths do you expect to see? If it's a few then maybe doing a bunch of IFTHEN clauses on the length in the RDW helps move these fields into place. By a few I once ran with 100 IFTHEN clauses and didn't notice the difference. Other than that I don't see how to do it. Cheers, Martin Martin Packer, zChampion, Principal Systems Investigator, Worldwide Banking Center of Excellence, IBM +44-7802-245-584 email: martin_pac...@uk.ibm.com Twitter / Facebook IDs: MartinPacker Blog: https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker From: Minoru Massaki mmass...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 07/06/2015 14:28 Subject:DFSORT - How to select last 8 bytes in variable length records Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. Input file: RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B Output File I want to have: RECORD01X11 RECORD02Y2 ZCCC RECORD03ZCCC RECORD044A444 RECORD0555B Record data before the last 8 bytes may contain x'00' thru x'FF', there is no specific delimiter character for parsing the last 8 bytes. The last 8 bytes is also binary. I'd like to hear any ideas how this to be done by DFSORT WITHOUT using E15/E35. Your help would be highly appreciated. Minoru Massaki - M*M -- 全先 実 - Minoru Massaki (M*M) E-mail: mmass...@gmail.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- 全先 実 - Minoru Massaki (M*M) E-mail: mmass...@gmail.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
I am sure the DFSORT team will respond on Monday in the USA. Or you could send your query to them, there might be someone watching their helpline dfs...@us.ibm.com Those folks are very helpful. Also, the DFSORT Website on http://www-01.ibm.com/support/docview.wss?uid=isg3T779 Also, you could probably do this in REXX. There are many ways to do this function. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Minoru Massaki Sent: Sunday, June 07, 2015 8:57 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFSORT - How to select last 8 bytes in variable length records Hello Gilmartin-san, Thank you for your idea. At this point, they (the customer) want to use only DFSORT without E15/E35. I'll tell them your ideas. Minoru Massaki - (M*M) 2015-06-07 23:46 GMT+09:00 Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu: On Sun, 7 Jun 2015 22:28:01 +0900, Minoru Massaki wrote: Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. ... Must it be DFSORT? For example: 508 $ cat last8; sh last8 #! /bin/sh -x echo \ RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B | sed 's/\(.*\)\(\)/\2 \1/' RECORD01X11 RECORD02Y2 ZCCC RECORD03 RECORD044A444 RECORD0555B 509 $ Is it then possible to pipe the output of sed into SORTIN? -- gil\ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DB2 IFI locks a DBD for SHRD
You might want to post this on the DB2 list. If you have not joined, you can do so at IDUG.ORG - it is free. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Arie Kremer Sent: Sunday, June 07, 2015 3:17 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: DB2 IFI locks a DBD for SHRD Hi ALL, We have a product that uses IFI 306 request to read DB2 Log content. We have a number of Sysplex installations that the customers reported some DBD SHRD lock caused by our process that could be unlocked only stopping the process: Time of Lock02:53:43.82 Lock State.. SHRD Plan Name...DSNACLI Lock Elapsed Time...00:20:08.50 The process uses DSNACLI plan to access DB2 including IFI itself. We checked that all the DB2 statements had been closed, and from the time analyzing of the Database lock and the product log we may have seen clear that the lock is caused by IFI request: the product called IFI about 4 seconds before the lock time, and IFI returned milliseconds after the time of the lock without any problem indication. IFI documentation explains that IFI may have locked DBD for a short interval, but here we see the lock that cannot be unlocked but stopping the task. Does somebody have any idea how to manage the problem? Best Regards Arie Kremer -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
How many different record lengths do you expect to see? If it's a few then maybe doing a bunch of IFTHEN clauses on the length in the RDW helps move these fields into place. By a few I once ran with 100 IFTHEN clauses and didn't notice the difference. Other than that I don't see how to do it. Cheers, Martin Martin Packer, zChampion, Principal Systems Investigator, Worldwide Banking Center of Excellence, IBM +44-7802-245-584 email: martin_pac...@uk.ibm.com Twitter / Facebook IDs: MartinPacker Blog: https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker From: Minoru Massaki mmass...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 07/06/2015 14:28 Subject:DFSORT - How to select last 8 bytes in variable length records Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. Input file: RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B Output File I want to have: RECORD01X11 RECORD02Y2 ZCCC RECORD03ZCCC RECORD044A444 RECORD0555B Record data before the last 8 bytes may contain x'00' thru x'FF', there is no specific delimiter character for parsing the last 8 bytes. The last 8 bytes is also binary. I'd like to hear any ideas how this to be done by DFSORT WITHOUT using E15/E35. Your help would be highly appreciated. Minoru Massaki - M*M -- 全先 実 - Minoru Massaki (M*M) E-mail: mmass...@gmail.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
On Sun, 7 Jun 2015 22:28:01 +0900, Minoru Massaki wrote: Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. ... Must it be DFSORT? For example: 508 $ cat last8; sh last8 #! /bin/sh -x echo \ RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B | sed 's/\(.*\)\(\)/\2 \1/' RECORD01X11 RECORD02Y2 ZCCC RECORD03 RECORD044A444 RECORD0555B 509 $ Is it then possible to pipe the output of sed into SORTIN? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DB2 IFI locks a DBD for SHRD
Hi ALL, We have a product that uses IFI 306 request to read DB2 Log content. We have a number of Sysplex installations that the customers reported some DBD SHRD lock caused by our process that could be unlocked only stopping the process: Time of Lock02:53:43.82 Lock State.. SHRD Plan Name...DSNACLI Lock Elapsed Time...00:20:08.50 The process uses DSNACLI plan to access DB2 including IFI itself. We checked that all the DB2 statements had been closed, and from the time analyzing of the Database lock and the product log we may have seen clear that the lock is caused by IFI request: the product called IFI about 4 seconds before the lock time, and IFI returned milliseconds after the time of the lock without any problem indication. IFI documentation explains that IFI may have locked DBD for a short interval, but here we see the lock that cannot be unlocked but stopping the task. Does somebody have any idea how to manage the problem? Best Regards Arie Kremer -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re IEB841I IEBUPDTE puzzle
Hi Paul I am late with this response because I have been away but as far as I can see there are two issues with the sample JCL which contains the //HAMDLE DD statement. That particular DD statement does not contain any DCB information and hence unless a DATACLAS is being automatically allocated via SMS the system will only know what SPACE to allocate, not what the attributes are. This is turn means that even though the SYSUT2 allocation assimilates to the same data set the SYSUT2 OPEN within IEBUPDTE will not know what attributes apply. (Remember that HANDLE is an arbitrary name and that there is no OPEN for it in either IEFBR14 or IEBUPDTE so the system cannot scan control blocks.) As regards the ADD statements. These have no bearing on DISPosition. It does not matter whether the data set is new or already exists, to create a new member the ./ ADD statement is used and to replace an existing member the ./ REPLACE statement is used. There is a functional split here between system responsibility (OPEN/CLOSE) and program logic (ADD/REPLACE). Kind Regards - Terry Director KMS-IT Limited 228 Abbeydale Road South Dore Sheffield S17 3LA UK Reg : 3767263 Outgoing e-mails have been scanned, but it is the recipients responsibility to ensure their anti-virus software is up to date. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
Hello Gilmartin-san, Thank you for your idea. At this point, they (the customer) want to use only DFSORT without E15/E35. I'll tell them your ideas. Minoru Massaki - (M*M) 2015-06-07 23:46 GMT+09:00 Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu: On Sun, 7 Jun 2015 22:28:01 +0900, Minoru Massaki wrote: Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. ... Must it be DFSORT? For example: 508 $ cat last8; sh last8 #! /bin/sh -x echo \ RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B | sed 's/\(.*\)\(\)/\2 \1/' RECORD01X11 RECORD02Y2 ZCCC RECORD03 RECORD044A444 RECORD0555B 509 $ Is it then possible to pipe the output of sed into SORTIN? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- 全先 実 - Minoru Massaki (M*M) E-mail: mmass...@gmail.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
Minoru Massaki, It is quite simple to get the last 8 bytes from a variable length file without an exit. You simply need to use JFY to push the contents to the right and then pick the last 8 bytes and then use another JFY to push the contents to the left and there by achieving the desired results. I assumed that your Input VB file has an LRECL=80. You can adjust the length if your input file has a different length. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DISP=SHR,Your Input VB 80 byte file. //SORTOUT DD SYSOUT=* //SYSINDD * OPTION COPY INREC IFTHEN=(WHEN=INIT, BUILD=(1,04, $ RDW 5,76,JFY=(SHIFT=RIGHT))), $ SHIFT DATA TO RIGHT IFTHEN=(WHEN=INIT, BUILD=(01,04, $ RDW 73,08, $ LAST 8 BYTES 05,76,JFY=(SHIFT=LEFT))) $ SHIFT DATA TO LEFT OUTFIL VLTRIM=C' ' $ REMOVE TRAIL SPACES //* Sri Hari Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 06/07/2015 06:28:01 AM: From: Minoru Massaki mmass...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 06/07/2015 06:28 AM Subject: DFSORT - How to select last 8 bytes in variable length records Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. Input file: RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B Output File I want to have: RECORD01X11 RECORD02Y2 ZCCC RECORD03ZCCC RECORD044A444 RECORD0555B Record data before the last 8 bytes may contain x'00' thru x'FF', there is no specific delimiter character for parsing the last 8 bytes. The last 8 bytes is also binary. I'd like to hear any ideas how this to be done by DFSORT WITHOUT using E15/E35. Your help would be highly appreciated. Minoru Massaki - M*M -- 全先 実 - Minoru Massaki (M*M) E-mail: mmass...@gmail.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: DFSORT - How to select last 8 bytes in variable length records
On Sun, 7 Jun 2015 14:11:30 -0500, Bill Godfrey wrote: That would mean there could be end-of-line characters and hex 00 characters in a record, which would mean sed would not work. sed won't (shouldn't) care about the nulls, but won't like newlines (yes, I noted your careful language given the recent other thread re this) in the midst of records. How does ocopy deal with this ? - I'm unable to test on z at present. Shane ... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Re IEB841I IEBUPDTE puzzle
On Jun 7, 2015, at 10:50 PM, Paul Gilmartin wrote: As regards the ADD statements. These have no bearing on DISPosition. It does not matter whether the data set is new or already exists, to create a new member the ./ ADD statement is used and to replace an existing member the ./ REPLACE statement is used. There is a functional split here between system responsibility (OPEN/CLOSE) and program logic (ADD/REPLACE). Mostly true. It's documented that STOW of a duplicate member name will fail if DISP=MOD but succeed if DISP=OLD. But that does not seem relevant to what I observe. SNIP--- Gil, I used to play around quite a bit with iebupdte. I always used to use PARM=NEW with massive updates. You might want to try that as well. I don't think this will get around your lrecl issue but I think if you try and apar you will get WAD . I *think* PDSE's are slightly different flavor. Ed -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
Other than that I don't see how to do it. Martin, Frank would be disappointed with you that you forgot the JFY feature. It is quite simple to do it without IFTHEN negotiating the RDW length. :) Thanks, Sri Hari IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 06/07/2015 07:34:08 AM: From: Martin Packer martin_pac...@uk.ibm.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 06/07/2015 07:34 AM Subject: Re: DFSORT - How to select last 8 bytes in variable length records Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU How many different record lengths do you expect to see? If it's a few then maybe doing a bunch of IFTHEN clauses on the length in the RDW helps move these fields into place. By a few I once ran with 100 IFTHEN clauses and didn't notice the difference. Other than that I don't see how to do it. Cheers, Martin Martin Packer, zChampion, Principal Systems Investigator, Worldwide Banking Center of Excellence, IBM +44-7802-245-584 email: martin_pac...@uk.ibm.com Twitter / Facebook IDs: MartinPacker Blog: https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker From: Minoru Massaki mmass...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 07/06/2015 14:28 Subject:DFSORT - How to select last 8 bytes in variable length records Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hello There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. Input file: RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B Output File I want to have: RECORD01X11 RECORD02Y2 ZCCC RECORD03ZCCC RECORD044A444 RECORD0555B Record data before the last 8 bytes may contain x'00' thru x'FF', there is no specific delimiter character for parsing the last 8 bytes. The last 8 bytes is also binary. I'd like to hear any ideas how this to be done by DFSORT WITHOUT using E15/E35. Your help would be highly appreciated. Minoru Massaki - M*M -- 全先 実 - Minoru Massaki (M*M) E-mail: mmass...@gmail.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU -- 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: z/OS V2.1 and SETLOAD
Lizette, works as advertised. update your parmlib IEASYMxx members to make your symbol change permanent. run the SETLOAD command. similar to creating a new dynamic LINKLIST, your system gets a new SYMBOL table based on your updated IEASYMxx members. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Question on 3270 Devices
OK, what I wrote was: ...could either support four 3279 sessions at once, or one 3279 session that took the whole screen (you could switch modes; in single-session mode, you'd then cycle through the sessions). Which is admittedly not 100% clear, but doesn't make sense as can only display one session at a time, because then there wouldn't be a single-session mode, eh? RIF. On Thu, Jun 4, 2015 at 1:15 PM, Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net wrote: In cafo-8tqp_kd-4auvtnqylmgwlpkm5618dau1atcpb2sa8iy...@mail.gmail.com, on 06/02/2015 at 03:17 PM, zMan zedgarhoo...@gmail.com said: Which is what I said it did. No, you alsoid that it *couldn't* display more than one session at a time and didn't mention explicit partitions at all. They say that the memory is the second thing to go. Perhaps you could clarify what you meant by you could switch modes; in single-session mode, you'd then cycle through the sessions. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- zMan -- I've got a mainframe and I'm not afraid to use it -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN