SYNCSORT Question with IFTHEN and JOINKEYS
Greetings I'm stumped with a sort using IFTHEN logic within a JOINKEYS process. I can't seem to get away from this error: BOTHFLS HAS INCOMPATIBLE LRECL NOTE: BOTHFLS is the output file for records in both files. :) F1ONLY & F2ONLY are self-explanatory. Here's are the cards: JOINKEYS F1=IN1,FIELDS=(1,12,A) JOINKEYS F2=IN2,FIELDS=(12,12,A) * JOIN UNPAIRED REFORMAT FIELDS=(F1:1,710,?,F2:1,596) * - * | CONTROL STATEMENTS AFTER RECORDS HAVE BEEN JOINED IN THE TEMP FILE| * - OPTION COPY OUTFIL FNAMES=BOTHFLS,INCLUDE=(711,1,CH,EQ,C'B'), IFTHEN=(WHEN(1,1,CH,EQ,C'1'), BUILD=(1:1,710)), IFTHEN=(WHEN(1,1,CH,NE,C'1'), BUILD=(001:711,596, 597:1,114)) OUTFIL FNAMES=FL1ONLY,INCLUDE=(711,1,CH,EQ,C'1'), BUILD=(1,710) OUTFIL FNAMES=FL2ONLY,INCLUDE=(711,1,CH,EQ,C'2'), BUILD=(712,596) /* Note: I have successfully run each BUILD individually without the IFTHEN to verify I have the lengths of each correct. We are on SYNCSORT FOR Z/OS 2.1.9. Any insights would be greatly appreciated! Thanks Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL Migration v4 to v6.1 - CONDITIONS OF INITIALIZATION
Thanks, we have moved on by identifying the groups with the issue and dealing with them. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tom Ross Sent: Friday, November 08, 2019 12:11 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: COBOL Migration v4 to v6.1 - CONDITIONS OF INITIALIZATION >Since migrating from COBOL v4 to COBOL v6.1 a few runtime abends have occur= >red which seem to have a root cause of data items not being initialized. = >These data-items seem to be under a group level where the group level >is in= itialized. >The compile's diagnostic errors listing shows al warning messages of: >IGYPS2047-W "INITIALIZE" STATEMENT OPERAND DID NOT MEET CON= >DITIONS FOR INITIALIZATION WAS NOT INITIALIZED. Sorry to be so late on this... Could you post the description of the group item and the INITIALIZE statement? It would appear that none of the items under the group were of a type that could be initialized, but I would like to take a look, if you have not already moved on frmo this problem! Also, I would be surprised if the behavior of COBOL V4 was different from COBOL V6, I do not think that have not changed this code in the compiler! Cheers, TomR >> COBOL is the Language of the Future! << -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ICETOOL - SPLICE two DSNs that match on key. Output Updated and Not Updated
I have an ICETOOL process I cannot seem to get right. I have two datasets: 1. A BASE dataset 2. A dataset with data to insert into a BASE record IF the key data match I'd like to outputs. 1. With the BASE records that were NOT updated 2. With the BASE records that WERE updated I'm able to get an output of the BASE records that were 'updated' but I also would like a separate dataset of those records that were not 'updated'. Below are my TOOLIN cards. NOTES: DD IN1 is the BASE dataset and has an INREC to insert (not overlay) 40 spaces in position 151 and shift the data after it to the right. This is where some data from IN2 will be overlayed. DD IN2 is the dataset with data to overly in the matching BASE records. IN2 has an LRECL of 100 so an INREC is used to change its length to match the BASE dataset's 520 LRECL The data to copy from IN2 is in position 32 for a length of 20 and is to be inserted into position 151 of the BASE record. DD OUT1 - is to contain those BASE records that were NOT updated. THESE FILE COMES UP EMPTY 8-( DD OUT2 - is to contain the updated records and this seems to work. //TOOLIN DD * COPY FROM(IN1) TO(T1) USING(CTL1) COPY FROM(IN2) TO(T1) USING(CTL2) SPLICE FROM(T1) TO(OUT2) ON(1,21,CH) WITH(151,20) USING(CTL3) /* //CTL1CNTL DD * INREC BUILD=(1:1,150,40X,151,330) OUTREC FIELDS=(1,520) /* //CTL2CNTL DD * OUTREC FIELDS=(1,100,151:32,20,350X) /* //CTL3CNTL DD * OUTFIL FNAMES=OUT1,INCLUDE=(151,1,CH,EQ,C' '),OUTREC=(1,520) OUTFIL FNAMES=OUT2,INCLUDE=(151,1,CH,NE,C' '),OUTREC=(1,520) Any insights would be appreciated. Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
COBOL Migration v4 to v6.1 - CONDITIONS OF INITIALIZATION
Since migrating from COBOL v4 to COBOL v6.1 a few runtime abends have occurred which seem to have a root cause of data items not being initialized. These data-items seem to be under a group level where the group level is initialized. The compile's diagnostic errors listing shows al warning messages of: IGYPS2047-W "INITIALIZE" STATEMENT OPERAND DID NOT MEET CONDITIONS FOR INITIALIZATION WAS NOT INITIALIZED. Our Quick Ref did not have info on this message but I did find one mention of it in both the v6.1 migration and customization guide. However the text of the message was completely different and referred to the ALPHA parm. IGYPS2047-W "INITIALIZE" statement receiver "ALPHA" was incompatible with the data category(s) of the "REPLACING" operand(s). "ALPHA" was not initialized. Does anyone have insights on what the term "CONDITIONS FOR INITIZATION" refers to and what these conditions are? This might help us determine why some data-items do not meet these condition under its group level. Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: REXX LISTDSI error
Sorry, here is Where to subscribe to TSO-REXX Send your subscribe request to: lists...@vm.marist.edu Syntax: SUBscribe TSO-REXX -Original Message- From: George, William@FTB Sent: Wednesday, October 02, 2019 9:33 AM To: 'IBM Mainframe Discussion List' Subject: RE: REXX LISTDSI error There is a TSO-REXX forum that is quite useful. tso-r...@vm.marist.edu __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: REXX LISTDSI error
There is a TSO-REXX forum that is quite useful. tso-r...@vm.marist.edu -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of ITschak Mugzach Sent: Wednesday, October 02, 2019 8:21 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: REXX LISTDSI error Boys, be kind with Bill. He will never learn this way. ITschak On Wed, Oct 2, 2019 at 5:48 PM Seymour J Metz wrote: > > 'CALL LISTDSI ( dataset.TXT NORECALL)' > > What gave you the idea that LISTDSI was a TSO command? > > > This keeps returning a RC of -3. > > Did you look up what that means? Ignoring other issues, a function is > not the same thing as a host command. > > > > -- > Shmuel (Seymour J.) Metz > https://urldefense.proofpoint.com/v2/url?u=http-3A__mason.gmu.edu_-7Es > metz3=DwIBaQ=OH6BQl87xST15P4a0P7x0PHDI-ViE9lGCC1zTisL9ic=HPvcl0s > AG_OLFJIWLUB0E9aO8e9MboKUP0_bmgV0C3w=tIG-Ly2UCgxF6MUbHX8aqa-QocQdY0t > 4bgcTSMt80e8=B48ELnPcJpUPTExTMUbIaUpBCsjL5Ii_iQLFTkcKjAY= > > > > From: IBM Mainframe Discussion List on > behalf of Bill Giannelli > Sent: Wednesday, October 2, 2019 5:32 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: REXX LISTDSI error > > I have the following rexx command: > > ADDRESS TSO > 'CALL LISTDSI ( dataset.TXT NORECALL)' > ADDRESS TSO > 'IF SYSREASON = 9 THEN "HDELETE dataset.TXT WAIT" > ELSE "DELETE dataset.TXT"' > > This keeps returning a RC of -3. > processes the rest of the rexx successfully But then leaves the > dataset "dataset.txt" as uncataloged. > Why would it have an uncataloged dataset? > thanks for any help. > Bill > > -- > 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 > -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for Legacy **| * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Weird thought for ISPF enhancement
If you like the benefits of many split screens then have a logon proc (Clist/REXX) create the split screens automagically for you each logon. I have 8 session created behind the scenes. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Tuesday, June 05, 2018 12:34 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Weird thought for ISPF enhancement I really like it. I have an associate who sets up some elaborate configuration of SPLITs. He is always selling me on the benefits. I see the benefits, but one of the reasons I do not follow suit is because of the need to re-do it on every logon. If I could just have ISPF automatically restore my previous setup it would be great. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John McKown Sent: Tuesday, June 5, 2018 11:51 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Weird thought for ISPF enhancement I'm short of sleep ... again. When I came to work this morning, my Chrome browser was "dead". When I restarted it, it prompted me with a message asking if I wanted to restore all the pages I had been on. So, what occurred to me was, "Wouldn't it be nice if ISPF could do something like that." Now, ISPF doesn't really die often. But I think it would be a nice feature if there were a new ISPF command, perhaps called something like "SAVELEAVE" or HIBERNATE or whatever. This facility would let you logoff for the day, optionally SAVEing any changes if you're in EDIT or one or more screens. When you come in the next day, ISPF would give you an option to restore all your screens. Yes, there are problems about restarting an ISPF application, but basically you could only issue the above command at certain times, just like you can only SWAP or SPLIT, when you're in an DISPLAY verb. What I envision for an ISPF application is that it would get a special RC from the ISPF DISPLAY verb which would indicate "user wants to leave, checkpoint or abandon your processing". The application could then only do something like ISPF CHECKPOINT which would basically return to ISPF and ISPF would terminate the application. The application would need to save its non-ISPF environment (close files, etc) before it issued the CHECKPOINT. When the user gets back into ISPF, the application is restarted at the next instruction after the CHECKPOINT. At this point, the application would be responsible to restore its internal, non-ISPF maintained, status (open files, reload important variable, etc). This would occur for each active screen which did the ISPF CHECKPOINT. Well, that's likely getting too detailed for a general, initial, discussion. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL - Question regarding a statement in the ICETOOL Guide
Thanks Sri! I'll check this out. I have saved a link to the most recent DFSORT A.P.G. and looked at JOINKEYS. At first glance it seems somewhat daunting but I'll study it and try it out. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Friday, October 27, 2017 9:09 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide Bill, Here is a DFSORT JOINKEYS job which will give you the desired results similar to splice //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD * VICKY FRANK CARRIE HOLLY PAUL //INB DD * KAREN HOLLY CARRIE VICKY MARY //OUT12DD SYSOUT=* //OUT1 DD SYSOUT=* //OUT2 DD SYSOUT=* //SYSINDD * OPTION COPY JOINKEYS F1=INA,FIELDS=(1,10,A) JOINKEYS F2=INB,FIELDS=(1,10,A) JOIN UNPAIRED REFORMAT FIELDS=(F1:1,10,?,F2:1,10) OUTFIL FNAMES=OUT12,INCLUDE=(11,1,CH,EQ,C'B'),BUILD=(1,10) OUTFIL FNAMES=OUT1,INCLUDE=(11,1,CH,EQ,C'1'),BUILD=(1,10) OUTFIL FNAMES=OUT2,INCLUDE=(11,1,CH,EQ,C'2'),BUILD=(12,10) //* Joinkeys is explained in detail here https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.2.0/com.ibm.zos.v2r2.icea100/joinkeys.htm Also here are the examples (look up example 5 ) https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_JOINKEYS_application_examples.htm Further if you have any questions please send an email to our hotline (dfs...@us.ibm.com) or you can mail me directly. Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 10/26/2017 11:41:15 PM: > From: "George, William@FTB" <bill.geo...@ftb.ca.gov> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 10/26/2017 11:41 PM > Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Thanks Sri! > JOINKEYS... that's a new one on me. I guess I have an outdated DFSORT manual. > Here's the link I have: http://publibz.boulder.ibm.com/epubs/pdf/ice1ca30.pdf > > Thanks again > Bill > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU > ] On Behalf Of Sri h Kolusu > Sent: Thursday, October 26, 2017 10:56 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide > > George, > > It was a typo in our publications, it should be 1-10 instead of 1-3. > The sorting of 1-10 bytes is done with ON statement on SPLICE. > Please look at the DFSMSG dataset and you will see the SPLICE > control cards generates the SORT statement with 1,10,CH,A > > We will update our pubs. Thanks for bringing it to our attention. > > > "We sort the records of T1 on positions 1-10 and splice the second > id byte for matching records. We use KEEPNODUPS to keep non- > duplicate records. > > > Just an fyi, SPLICE is an Older technique to find the matching records. > Ideally we suggest using JOINKEYS > > > Thanks, > Sri Hari Kolusu > DFSORT Development > IBM Corporation > > IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on > 10/26/2017 03:09:04 AM: > > > From: "George, William@FTB" <bill.geo...@ftb.ca.gov> > > To: IBM-MAIN@LISTSERV.UA.EDU > > Date: 10/26/2017 03:09 AM > > Subject: ICETOOL - Question regarding a statement in the ICETOOL Guide > > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > > > I am confused about a statement I'm seeing in the DFSORT - ICETOOL > > Chapter and its example: > > Example 3 - Create files with matching and non-matching records I've > > copied the example below and my question is regarding the last line > > below and it statement on sorting: > > We sort the records of T1 on positions 1-3 and splice the second id > > byte for matching records. > > > > Where in the JCL code does it state to sort the T1 records on > > positions > 1-3?? > > > > //S3 EXEC PGM=ICETOOL > > //TOOLMSG DD SYSOUT=* > > //DFSMSG DD SYSOUT=* > > //IN1 DD * > > Vicky > > Frank > > Carrie > > Holly > > Paul > > /* > > //IN2 DD * > > Karen > > Holly > > Carrie > > Vicky > > Mary > > /* > > //OUT12 DD SYSOUT=* > > //OUT1 DD SYSOUT=* > > //OUT2 DD SYSOUT=* > > //T1 DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(5,5)) > > //TOOLIN DD * > >COPY FROM(IN1) TO(T1) USING(CTL1) > >COPY FROM(IN2) TO(T1) USING(CTL2) > >SPLICE FROM(T1) TO(OUT12) ON
Re: ICETOOL - Question regarding a statement in the ICETOOL Guide
Well... I guess it's time to hunt out a more current release. 8-D -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of retired mainframer Sent: Thursday, October 26, 2017 1:56 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide That was copyrighted in 2008 and synchronized with z/OS 1.10, 9 years and 6 releases back. > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of George, William@FTB > Sent: Thursday, October 26, 2017 11:11 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL > Guide > > Thanks Sri! > JOINKEYS... that's a new one on me. I guess I have an outdated DFSORT manual. > Here's the link I have: http://publibz.boulder.ibm.com/epubs/pdf/ice1ca30.pdf -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL - Question regarding a statement in the ICETOOL Guide
Thanks Sri! JOINKEYS... that's a new one on me. I guess I have an outdated DFSORT manual. Here's the link I have: http://publibz.boulder.ibm.com/epubs/pdf/ice1ca30.pdf Thanks again Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Thursday, October 26, 2017 10:56 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide George, It was a typo in our publications, it should be 1-10 instead of 1-3. The sorting of 1-10 bytes is done with ON statement on SPLICE. Please look at the DFSMSG dataset and you will see the SPLICE control cards generates the SORT statement with 1,10,CH,A We will update our pubs. Thanks for bringing it to our attention. "We sort the records of T1 on positions 1-10 and splice the second id byte for matching records. We use KEEPNODUPS to keep non-duplicate records. Just an fyi, SPLICE is an Older technique to find the matching records. Ideally we suggest using JOINKEYS Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 10/26/2017 03:09:04 AM: > From: "George, William@FTB" <bill.geo...@ftb.ca.gov> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 10/26/2017 03:09 AM > Subject: ICETOOL - Question regarding a statement in the ICETOOL Guide > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > I am confused about a statement I'm seeing in the DFSORT - ICETOOL > Chapter and its example: > Example 3 - Create files with matching and non-matching records I've > copied the example below and my question is regarding the last line > below and it statement on sorting: > We sort the records of T1 on positions 1-3 and splice the second id > byte for matching records. > > Where in the JCL code does it state to sort the T1 records on > positions 1-3?? > > //S3 EXEC PGM=ICETOOL > //TOOLMSG DD SYSOUT=* > //DFSMSG DD SYSOUT=* > //IN1 DD * > Vicky > Frank > Carrie > Holly > Paul > /* > //IN2 DD * > Karen > Holly > Carrie > Vicky > Mary > /* > //OUT12 DD SYSOUT=* > //OUT1 DD SYSOUT=* > //OUT2 DD SYSOUT=* > //T1 DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(5,5)) > //TOOLIN DD * >COPY FROM(IN1) TO(T1) USING(CTL1) >COPY FROM(IN2) TO(T1) USING(CTL2) >SPLICE FROM(T1) TO(OUT12) ON(1,10,CH) WITH(13,1) USING(CTL3) KEEPNODUPS > /* > //CTL1CNTL DD * >OUTREC FIELDS=(1,10,12:C'11') > /* > //CTL2CNTL DD * >OUTREC FIELDS=(1,10,12:C'22') > /* > //CTL3CNTL DD * >OUTFIL FNAMES=OUT12,INCLUDE=(12,2,CH,EQ,C'12'),OUTREC=(1,10) >OUTFIL FNAMES=OUT1,INCLUDE=(12,2,CH,EQ,C'11'),OUTREC=(1,10) >OUTFIL FNAMES=OUT2,INCLUDE=(12,2,CH,EQ,C'22'),OUTREC=(1,10) > /* > > We copy the IN1 records to the T1 data set and add an identifier of > '11' to show they come from FILE1. > We copy the IN2 records to the end (MOD) of the T1 data set and add > an identifier of '22' to show they come from FILE2. > We sort the records of T1 on positions 1-3 and splice the second id > byte for matching records. > > > Thanks for any insights > Bill > > __ > CONFIDENTIALITY NOTICE: This email from the State of California is for > the sole use of the intended recipient and may contain confidential > and privileged information. Any unauthorized review or use, including > disclosure or distribution, is prohibited. If you are not the intended > recipient, please contact the sender and destroy all copies of this > email. > > -- > 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: ICETOOL - Question regarding a statement in the ICETOOL Guide
Thanks Steve... I tend to believe also it is a mistake (typo maybe) and should state it is sorted on the ON positions. I'll check out this 'mini' guide. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Smith Sent: Thursday, October 26, 2017 5:29 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ICETOOL - Question regarding a statement in the ICETOOL Guide Nothing in the "JCL code". It appears to me the example has a mistake: either they meant they sort on "positions 1-10", or the SPLICE statement should have "ON(1,3,CH)". This example is so trivial, it's hard to know for sure what they meant. But probably it's the former. There's a really helpful manual I found called "DFSORT: ICETOOL Mini-User Guide" (a misnomer -- full-sized users will find it valuable) by Frank L. Yaeger. My copy is dated October 2010. It came from the DFSORT Team in San Jose, so it should be available from IBM. sas On Wed, Oct 25, 2017 at 5:39 PM, George, William@FTB <bill.geo...@ftb.ca.gov> wrote: > I am confused about a statement I'm seeing in the DFSORT - ICETOOL Chapter > and its example: > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ICETOOL - Question regarding a statement in the ICETOOL Guide
I am confused about a statement I'm seeing in the DFSORT - ICETOOL Chapter and its example: Example 3 - Create files with matching and non-matching records I've copied the example below and my question is regarding the last line below and it statement on sorting: We sort the records of T1 on positions 1-3 and splice the second id byte for matching records. Where in the JCL code does it state to sort the T1 records on positions 1-3?? //S3 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD * Vicky Frank Carrie Holly Paul /* //IN2 DD * Karen Holly Carrie Vicky Mary /* //OUT12 DD SYSOUT=* //OUT1 DD SYSOUT=* //OUT2 DD SYSOUT=* //T1 DD DSN=&,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(5,5)) //TOOLIN DD * COPY FROM(IN1) TO(T1) USING(CTL1) COPY FROM(IN2) TO(T1) USING(CTL2) SPLICE FROM(T1) TO(OUT12) ON(1,10,CH) WITH(13,1) USING(CTL3) KEEPNODUPS /* //CTL1CNTL DD * OUTREC FIELDS=(1,10,12:C'11') /* //CTL2CNTL DD * OUTREC FIELDS=(1,10,12:C'22') /* //CTL3CNTL DD * OUTFIL FNAMES=OUT12,INCLUDE=(12,2,CH,EQ,C'12'),OUTREC=(1,10) OUTFIL FNAMES=OUT1,INCLUDE=(12,2,CH,EQ,C'11'),OUTREC=(1,10) OUTFIL FNAMES=OUT2,INCLUDE=(12,2,CH,EQ,C'22'),OUTREC=(1,10) /* We copy the IN1 records to the T1 data set and add an identifier of '11' to show they come from FILE1. We copy the IN2 records to the end (MOD) of the T1 data set and add an identifier of '22' to show they come from FILE2. We sort the records of T1 on positions 1-3 and splice the second id byte for matching records. Thanks for any insights Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Failed fraud detection was: Copy / Save screen text function in all TN3270 emulators?
Hm. Odd. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Wednesday, April 05, 2017 9:17 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Failed fraud detection was: Copy / Save screen text function in all TN3270 emulators? Sender: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> From: "George, William@FTB" <bill.geo...@ftb.ca.gov> The nature of LISTSERV. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Wednesday, April 5, 2017 12:11 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Failed fraud detection was: Copy / Save screen text function in all TN3270 emulators? Thanks. H. I'm not sure why that would be. I see my addy in only one place below and it looks correct. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Wednesday, April 05, 2017 9:04 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Failed fraud detection was: Copy / Save screen text function in all TN3270 emulators? Because the From address is not the same as the Sender address? Return-Path: <owner-ibm-m...@listserv.ua.edu> Delivered-To: charl...@mcn.org Received: (qmail 11656 invoked from network); 5 Apr 2017 15:42:09 - Received: from lsvmail01.ua.edu (HELO lsvmail01.ua.edu) (130.160.0.25) by mailfe.mcn.org with SMTP (6df175d0-1a16-11e7-8c25-00505681fcd5); Wed, 05 Apr 2017 08:42:09 -0700 Received: from listserv01.ua.edu (listserv01.ua.edu [10.8.81.163]) by lsvmail01.ua.edu (Postfix) with ESMTP id AE38E27B6A8; Wed, 5 Apr 2017 10:42:08 -0500 (CDT) Received: from listserv01 (localhost [127.0.0.1]) by listserv01.ua.edu (Postfix) with ESMTP id 617CE3E0350; Wed, 5 Apr 2017 10:42:08 -0500 (CDT) Received: by LISTSERV.UA.EDU (LISTSERV-TCP/IP release 16.0) with spool id 3995 for IBM-MAIN@LISTSERV.UA.EDU; Wed, 5 Apr 2017 10:42:08 -0500 Received: from mailapp-2.ua.edu (mailapp-2.ua.edu [130.160.0.39]) by listserv01.ua.edu (Postfix) with ESMTP id 158BA3E034F for <ibm-main@listserv.ua.edu>; Wed, 5 Apr 2017 10:42:08 -0500 (CDT) X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: =?us-ascii?q?A0CQAABqD+VYhxQR8KhdDg0BAQEDAQEBC?= =?us-ascii?q?QEBAYMrehCBCweDXIoSc5BJgx2SOIIECh8HhXwCGoM3PxgBAgEBAQEBAQETAQE?= =?us-ascii?q?BCgsJCCgvhRUBAQYBIREgBSwGARkEAQEDAiMDAgICRAEICQEEEwiHfYIJq2WCJ?= =?us-ascii?q?op5ASWBC4tvgSCBTBEBgyKCXwWJHogYizoBgVSFKYZRhHoJgX0ZhRWKEYsgiFY?= =?us-ascii?q?fgTUIHAs6UIRqJYENPUA1hxuBIYENAQEB?= X-IPAS-Result: =?us-ascii?q?A0CQAABqD+VYhxQR8KhdDg0BAQEDAQEBCQEBAYMrehCBCwe?= =?us-ascii?q?DXIoSc5BJgx2SOIIECh8HhXwCGoM3PxgBAgEBAQEBAQETAQEBCgsJCCgvhRUBA?= =?us-ascii?q?QYBIREgBSwGARkEAQEDAiMDAgICRAEICQEEEwiHfYIJq2WCJop5ASWBC4tvgSC?= =?us-ascii?q?BTBEBgyKCXwWJHogYizoBgVSFKYZRhHoJgX0ZhRWKEYsgiFYfgTUIHAs6UIRqJ?= =?us-ascii?q?YENPUA1hxuBIYENAQEB?= X-IronPort-AV: E=Sophos;i="5.36,279,1486447200"; d="scan'208";a="439046604" Received: from smtp.ftb.ca.gov ([168.240.17.20]) by mailapp-2.ua.edu with ESMTP/TLS/AES256-SHA; 05 Apr 2017 10:42:07 -0500 Received: from pps.filterd (mx1.ftb.ca.gov [127.0.0.1]) by mx1.ftb.ca.gov (8.16.0.20/8.16.0.20) with SMTP id v35AWtg2012091 for <IBM-MAIN@LISTSERV.UA.EDU>; Wed, 5 Apr 2017 08:42:05 -0700 Thread-Topic: Failed fraud detection was: Copy / Save screen text function in all TN3270 emulators? Thread-Index: AdKuIysQVR9QuupxQQusU65H6YxD6w== Accept-Language: en-US Content-Language: en-US X-MS-Has-Attach: X-MS-TNEF-Correlator: x-ms-exchange-transport-fromentityheader: Hosted x-originating-ip: [10.10.142.136] MIME-Version: 1.0 Content-Transfer-Encoding: base64 Content-Type: text/plain; charset="utf-8" Message-ID: <5cb099c9381b449a9e7e310b63c4f...@fg3000.ftb.ca.gov> Newsgroups: bit.listserv.ibm-main Date: Wed, 5 Apr 2017 15:42:01 + Reply-To: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> Sender: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> From: "George, William@FTB" <bill.geo...@ftb.ca.gov> Subject: Failed fraud detection was: Copy / Save screen text function in all TN3270 emulators? To: IBM-MAIN@LISTSERV.UA.EDU Precedence: list List-Help: <http://listserv.ua.edu/cgi-bin/wa?LIST=IBM-MAIN>, <mailto:lists...@listserv.ua.edu?body=INFO%20IBM-MAIN> List-Unsubscribe: <mailto:ibm-main-unsubscribe-requ...@listserv.ua.edu> List-Subscribe: <mailto:ibm-main-subscribe-requ...@listserv.ua.edu> List-Owner: <mailto:ibm-main-requ
Re: Failed fraud detection was: Copy / Save screen text function in all TN3270 emulators?
Thanks. H. I'm not sure why that would be. I see my addy in only one place below and it looks correct. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Wednesday, April 05, 2017 9:04 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Failed fraud detection was: Copy / Save screen text function in all TN3270 emulators? Because the From address is not the same as the Sender address? Return-Path: <owner-ibm-m...@listserv.ua.edu> Delivered-To: charl...@mcn.org Received: (qmail 11656 invoked from network); 5 Apr 2017 15:42:09 - Received: from lsvmail01.ua.edu (HELO lsvmail01.ua.edu) (130.160.0.25) by mailfe.mcn.org with SMTP (6df175d0-1a16-11e7-8c25-00505681fcd5); Wed, 05 Apr 2017 08:42:09 -0700 Received: from listserv01.ua.edu (listserv01.ua.edu [10.8.81.163]) by lsvmail01.ua.edu (Postfix) with ESMTP id AE38E27B6A8; Wed, 5 Apr 2017 10:42:08 -0500 (CDT) Received: from listserv01 (localhost [127.0.0.1]) by listserv01.ua.edu (Postfix) with ESMTP id 617CE3E0350; Wed, 5 Apr 2017 10:42:08 -0500 (CDT) Received: by LISTSERV.UA.EDU (LISTSERV-TCP/IP release 16.0) with spool id 3995 for IBM-MAIN@LISTSERV.UA.EDU; Wed, 5 Apr 2017 10:42:08 -0500 Received: from mailapp-2.ua.edu (mailapp-2.ua.edu [130.160.0.39]) by listserv01.ua.edu (Postfix) with ESMTP id 158BA3E034F for <ibm-main@listserv.ua.edu>; Wed, 5 Apr 2017 10:42:08 -0500 (CDT) X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: =?us-ascii?q?A0CQAABqD+VYhxQR8KhdDg0BAQEDAQEBC?= =?us-ascii?q?QEBAYMrehCBCweDXIoSc5BJgx2SOIIECh8HhXwCGoM3PxgBAgEBAQEBAQETAQE?= =?us-ascii?q?BCgsJCCgvhRUBAQYBIREgBSwGARkEAQEDAiMDAgICRAEICQEEEwiHfYIJq2WCJ?= =?us-ascii?q?op5ASWBC4tvgSCBTBEBgyKCXwWJHogYizoBgVSFKYZRhHoJgX0ZhRWKEYsgiFY?= =?us-ascii?q?fgTUIHAs6UIRqJYENPUA1hxuBIYENAQEB?= X-IPAS-Result: =?us-ascii?q?A0CQAABqD+VYhxQR8KhdDg0BAQEDAQEBCQEBAYMrehCBCwe?= =?us-ascii?q?DXIoSc5BJgx2SOIIECh8HhXwCGoM3PxgBAgEBAQEBAQETAQEBCgsJCCgvhRUBA?= =?us-ascii?q?QYBIREgBSwGARkEAQEDAiMDAgICRAEICQEEEwiHfYIJq2WCJop5ASWBC4tvgSC?= =?us-ascii?q?BTBEBgyKCXwWJHogYizoBgVSFKYZRhHoJgX0ZhRWKEYsgiFYfgTUIHAs6UIRqJ?= =?us-ascii?q?YENPUA1hxuBIYENAQEB?= X-IronPort-AV: E=Sophos;i="5.36,279,1486447200"; d="scan'208";a="439046604" Received: from smtp.ftb.ca.gov ([168.240.17.20]) by mailapp-2.ua.edu with ESMTP/TLS/AES256-SHA; 05 Apr 2017 10:42:07 -0500 Received: from pps.filterd (mx1.ftb.ca.gov [127.0.0.1]) by mx1.ftb.ca.gov (8.16.0.20/8.16.0.20) with SMTP id v35AWtg2012091 for <IBM-MAIN@LISTSERV.UA.EDU>; Wed, 5 Apr 2017 08:42:05 -0700 Thread-Topic: Failed fraud detection was: Copy / Save screen text function in all TN3270 emulators? Thread-Index: AdKuIysQVR9QuupxQQusU65H6YxD6w== Accept-Language: en-US Content-Language: en-US X-MS-Has-Attach: X-MS-TNEF-Correlator: x-ms-exchange-transport-fromentityheader: Hosted x-originating-ip: [10.10.142.136] MIME-Version: 1.0 Content-Transfer-Encoding: base64 Content-Type: text/plain; charset="utf-8" Message-ID: <5cb099c9381b449a9e7e310b63c4f...@fg3000.ftb.ca.gov> Newsgroups: bit.listserv.ibm-main Date: Wed, 5 Apr 2017 15:42:01 + Reply-To: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> Sender: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> From: "George, William@FTB" <bill.geo...@ftb.ca.gov> Subject: Failed fraud detection was: Copy / Save screen text function in all TN3270 emulators? To: IBM-MAIN@LISTSERV.UA.EDU Precedence: list List-Help: <http://listserv.ua.edu/cgi-bin/wa?LIST=IBM-MAIN>, <mailto:lists...@listserv.ua.edu?body=INFO%20IBM-MAIN> List-Unsubscribe: <mailto:ibm-main-unsubscribe-requ...@listserv.ua.edu> List-Subscribe: <mailto:ibm-main-subscribe-requ...@listserv.ua.edu> List-Owner: <mailto:ibm-main-requ...@listserv.ua.edu> List-Archive: <http://listserv.ua.edu/cgi-bin/wa?LIST=IBM-MAIN> X-MagicMail-OS: Inactive X-MagicMail-UUID: 6df175d0-1a16-11e7-8c25-00505681fcd5 X-MagicMail-SourceIP: 130.160.0.25 X-MagicMail-RegexMatch: 0 X-MagicMail-EnvelopeFrom: <owner-ibm-m...@listserv.ua.edu> X-MagicMail-Original-Destination: charl...@mcn.org Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Wednesday, April 5, 2017 11:42 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Failed fraud detection was: Copy / Save screen text function in all TN3270 emulators? Does anyone know why I might be receiving the "failed our fraud detection checks" message? I've been on the list for years. Bill --
Failed fraud detection was: Copy / Save screen text function in all TN3270 emulators?
Does anyone know why I might be receiving the "failed our fraud detection checks" message? I've been on the list for years. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Wednesday, April 05, 2017 8:17 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Copy / Save screen text function in all TN3270 emulators? [This sender failed our fraud detection checks and may not be who they appear to be. Learn about spoofing at http://aka.ms/LearnAboutSpoofing] Reflection Desktop 16 has these __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Copy / Save screen text function in all TN3270 emulators?
Reflection Desktop 16 has these -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Kirk Wolf Sent: Wednesday, April 05, 2017 7:57 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Copy / Save screen text function in all TN3270 emulators? I'm begging your indulgence to help with a little poll to understand which TN3270 emulators have these two capabilities: For example, here is mine: Product: x3270 - Can select screen text and copy to clipboard: yes ( / ) - Has function to save screen as a text file: yes (File / Save screen text in file ) Your responses would be appreciated. Kirk Wolf Dovetailed Technologies http://dovetail.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens
After some frustration I finally figured it out. Thanks Paul! Not for the frustration, lol... but the method. I could not find that "Close Printer" option for the life of me. LOL. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Feller, Paul Sent: Tuesday, March 14, 2017 1:56 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens Well my first attempt to send a response failed. You need to get to the print setup screen. There you should see a setting about "multiple screens per page". I checked both the "auto formfeed" and "close printer manually". After you get this set up you will see a message at the bottom of the screen about closing the printer. When you close the printer it will print all the screens. This is under Reflection 2014R1 SP1 15.6.745. Thanks.. Paul Feller AGT Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Tuesday, March 14, 2017 15:43 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens Yes, that would be a workaround. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex Sent: Tuesday, March 14, 2017 1:38 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens There's also a snipping tool that comes as part of win7 that creates JPGs of portions of a screen. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Tuesday, March 14, 2017 3:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens We have Reflections. I do not know how to print multiple screens, but I know it can capture multiple screens. We have a tool from TechSmith called Snagit. I use that in place of screen capture processes. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- 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: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens
Thanks Paul. I did see those setting but could not figure how to use them. I'll go try this. Thanks for the reference! Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Feller, Paul Sent: Tuesday, March 14, 2017 1:56 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens Well my first attempt to send a response failed. You need to get to the print setup screen. There you should see a setting about "multiple screens per page". I checked both the "auto formfeed" and "close printer manually". After you get this set up you will see a message at the bottom of the screen about closing the printer. When you close the printer it will print all the screens. This is under Reflection 2014R1 SP1 15.6.745. Thanks.. Paul Feller AGT Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Tuesday, March 14, 2017 15:43 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens Yes, that would be a workaround. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex Sent: Tuesday, March 14, 2017 1:38 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens There's also a snipping tool that comes as part of win7 that creates JPGs of portions of a screen. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Tuesday, March 14, 2017 3:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens We have Reflections. I do not know how to print multiple screens, but I know it can capture multiple screens. We have a tool from TechSmith called Snagit. I use that in place of screen capture processes. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- 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: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens
Yes, that would be a workaround. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex Sent: Tuesday, March 14, 2017 1:38 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens There's also a snipping tool that comes as part of win7 that creates JPGs of portions of a screen. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Tuesday, March 14, 2017 3:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens We have Reflections. I do not know how to print multiple screens, but I know it can capture multiple screens. We have a tool from TechSmith called Snagit. I use that in place of screen capture processes. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens
I have personally used to use snagit but not here at our facility. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Tuesday, March 14, 2017 1:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens We have Reflections. I do not know how to print multiple screens, but I know it can capture multiple screens. We have a tool from TechSmith called Snagit. I use that in place of screen capture processes. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens
Not sure why I received the fraud message?? I've posted many times. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Tuesday, March 14, 2017 1:09 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens [This sender failed our fraud detection checks and may not be who they appear to be. Learn about spoofing at http://aka.ms/LearnAboutSpoofing] We will be transitioning from Extra! X-treme 9.3 to Reflection Desktop down the road and I am evaluating its functions and how our current use of Extra! will translate to Reflections. One function our group makes good use of in Extra! is the "Print Multiple Screens" functions. This allows users to queue up several screen prints and then print them on one page formatted appropriately. So far I'm unable to locate this function in Reflections. Is anyone aware if this function is available? And if so how to set this up? In my research of the support site and documents I see some subtle mention of it as a possibility but I find no concrete means to do it. Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- 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
Conversion from Extra! X-treme 9.3 to Reflection Desktop - Print Multiple Screens
We will be transitioning from Extra! X-treme 9.3 to Reflection Desktop down the road and I am evaluating its functions and how our current use of Extra! will translate to Reflections. One function our group makes good use of in Extra! is the "Print Multiple Screens" functions. This allows users to queue up several screen prints and then print them on one page formatted appropriately. So far I'm unable to locate this function in Reflections. Is anyone aware if this function is available? And if so how to set this up? In my research of the support site and documents I see some subtle mention of it as a possibility but I find no concrete means to do it. Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFHSORT - Date Display of Previous Month
Thanks Kolusu So the DATE2 cannot be used in a HEADER1 definition? -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Thursday, March 02, 2017 1:57 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFHSORT - Date Display of Previous Month Couple of clarifications 1. It is DFSORT and not DFHSORT(There is no H) 2. Your error messages start with WER which indicates you are using Syncsort and not DFSORT 3. You don't need to use INCLUDE=ALL as it is the default to include all records for DFSORT 4. The same is the case for specifying Files=OUT as SORTOUT is the default. Either way if you need last month date, you need to use date2 parm but you need to use on inrec/outrec . I assumed that your input has an lrecl of 80 bytes and we put the previous month date at position 81 and remove it using BUILD on outfil This is a working syntax for DFSORT, but i cannot comment on the other product //SYSINDD * SORT FIELDS=(1,2,CH,A) OUTREC OVERLAY=(81:DATE2-1) OUTFIL BUILD=(1,80), HEADER1=('DATE',15:81,6) //* Thanks, Kolusu DFSORT Development IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 03/02/2017 02:44:39 PM: > From: "George, William@FTB" <bill.geo...@ftb.ca.gov> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 03/02/2017 02:45 PM > Subject: DFHSORT - Date Display of Previous Month Sent by: IBM > Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > I'm having a heck of a time attempting to create a sort header to > display the previous month in MM format. > No matter what I do I get a syntax error and I've attempted many > different ways. > > Here is the most recent attempt. I do not see why there is a syntax > error where indicated. > > SYSIN statements > > SORT FIELDS=(1,2,CH,A) > OUTFIL FILES=OUT, > INCLUDE=ALL, > HEADER1=(1:C'DATE', > 15:) > > And the error > SYSIN : > SORT FIELDS=(1,2,CH,A) > OUTFIL FILES=OUT, > INCLUDE=ALL, >HEADER1=(1:C'DATE', > * >15:) > WER268A OUTFIL STATEMENT : SYNTAX ERROR > > > Any insights are appreciated > > Bill > > __ > CONFIDENTIALITY NOTICE: This email from the State of California is for > the sole use of the intended recipient and may contain confidential > and privileged information. Any unauthorized review or use, including > disclosure or distribution, is prohibited. If you are not the intended > recipient, please contact the sender and destroy all copies of this > email. > > -- > 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: DFHSORT - Date Display of Previous Month
Kolusu OK, I see what you did below to get the date in the HEADER. Thanks I believe I can make this work. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Thursday, March 02, 2017 1:57 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFHSORT - Date Display of Previous Month Couple of clarifications 1. It is DFSORT and not DFHSORT(There is no H) 2. Your error messages start with WER which indicates you are using Syncsort and not DFSORT 3. You don't need to use INCLUDE=ALL as it is the default to include all records for DFSORT 4. The same is the case for specifying Files=OUT as SORTOUT is the default. Either way if you need last month date, you need to use date2 parm but you need to use on inrec/outrec . I assumed that your input has an lrecl of 80 bytes and we put the previous month date at position 81 and remove it using BUILD on outfil This is a working syntax for DFSORT, but i cannot comment on the other product //SYSINDD * SORT FIELDS=(1,2,CH,A) OUTREC OVERLAY=(81:DATE2-1) OUTFIL BUILD=(1,80), HEADER1=('DATE',15:81,6) //* Thanks, Kolusu DFSORT Development IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 03/02/2017 02:44:39 PM: > From: "George, William@FTB" <bill.geo...@ftb.ca.gov> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 03/02/2017 02:45 PM > Subject: DFHSORT - Date Display of Previous Month Sent by: IBM > Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > I'm having a heck of a time attempting to create a sort header to > display the previous month in MM format. > No matter what I do I get a syntax error and I've attempted many > different ways. > > Here is the most recent attempt. I do not see why there is a syntax > error where indicated. > > SYSIN statements > > SORT FIELDS=(1,2,CH,A) > OUTFIL FILES=OUT, > INCLUDE=ALL, > HEADER1=(1:C'DATE', > 15:) > > And the error > SYSIN : > SORT FIELDS=(1,2,CH,A) > OUTFIL FILES=OUT, > INCLUDE=ALL, >HEADER1=(1:C'DATE', > * >15:) > WER268A OUTFIL STATEMENT : SYNTAX ERROR > > > Any insights are appreciated > > Bill > > __ > CONFIDENTIALITY NOTICE: This email from the State of California is for > the sole use of the intended recipient and may contain confidential > and privileged information. Any unauthorized review or use, including > disclosure or distribution, is prohibited. If you are not the intended > recipient, please contact the sender and destroy all copies of this > email. > > -- > 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: DFHSORT - Date Display of Previous Month
My apologizes... Syncsort -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Blaicher, Christopher Y. Sent: Thursday, March 02, 2017 1:50 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFHSORT - Date Display of Previous Month Please call 201-930-8260. A support person will be happy to assist you. If you are wondering why I don't answer the question it is because it has been several years since I worked on MFX. I currently work on our Ironstream product. Chris Blaicher Technical Architect Mainframe Development Syncsort Incorporated 2 Blue Hill Plaza #1563, Pearl River, NY 10965 P: 201-930-8234 | M: 512-627-3803 E: cblaic...@syncsort.com www.syncsort.com CONNECTING BIG IRON TO BIG DATA -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Thursday, March 2, 2017 4:45 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: DFHSORT - Date Display of Previous Month I'm having a heck of a time attempting to create a sort header to display the previous month in MM format. No matter what I do I get a syntax error and I've attempted many different ways. Here is the most recent attempt. I do not see why there is a syntax error where indicated. SYSIN statements SORT FIELDS=(1,2,CH,A) OUTFIL FILES=OUT, INCLUDE=ALL, HEADER1=(1:C'DATE', 15:) And the error SYSIN : SORT FIELDS=(1,2,CH,A) OUTFIL FILES=OUT, INCLUDE=ALL, HEADER1=(1:C'DATE', * 15:) WER268A OUTFIL STATEMENT : SYNTAX ERROR Any insights are appreciated Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ATTENTION: - The information contained in this message (including any files transmitted with this message) may contain proprietary, trade secret or other confidential and/or legally privileged information. Any pricing information contained in this message or in any files transmitted with this message is always confidential and cannot be shared with any third parties without prior written approval from Syncsort. This message is intended to be read only by the individual or entity to whom it is addressed or by their designee. If the reader of this message is not the intended recipient, you are on notice that any use, disclosure, copying or distribution of this message, in any form, is strictly prohibited. If you have received this message in error, please immediately notify the sender and/or Syncsort and destroy all copies of this message in your possession, custody or control. -- 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
DFHSORT - Date Display of Previous Month
I'm having a heck of a time attempting to create a sort header to display the previous month in MM format. No matter what I do I get a syntax error and I've attempted many different ways. Here is the most recent attempt. I do not see why there is a syntax error where indicated. SYSIN statements SORT FIELDS=(1,2,CH,A) OUTFIL FILES=OUT, INCLUDE=ALL, HEADER1=(1:C'DATE', 15:) And the error SYSIN : SORT FIELDS=(1,2,CH,A) OUTFIL FILES=OUT, INCLUDE=ALL, HEADER1=(1:C'DATE', * 15:) WER268A OUTFIL STATEMENT : SYNTAX ERROR Any insights are appreciated Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL IF Condition - I'm Missing Something
Thanks for the suggestions. Yes, I definitely, and easily, could do this with a REXX however :-( -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of scott Ford Sent: Saturday, February 18, 2017 8:15 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JCL IF Condition - I'm Missing Something Gil, Yeah, I hear you, it should be simpler to perform tasks. On Sat, Feb 18, 2017 at 11:12 AM Paul Gilmartin < 000433f07816-dmarc-requ...@listserv.ua.edu> wrote: > On Fri, 17 Feb 2017 21:44:01 -0500, scott Ford wrote: > > > > > >Heres what I did: > > > > > >//BUILDLIB JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8, > > >// NOTIFY=,REGION=4096K > > >//*--* > > >//* BUILD IDF-TSS PRODUCT LIBRARIES * > > >//*--* > > >//MYLIBS JCLLIB ORDER=IDF.PRODCTL.JCLLIB > > >//MYSETS INCLUDE MEMBER=JCLSETS > > >//*---* > > >//* REXX INITIAL STEP TO SET RC FOR IDF * > > >//*---* > > >//STEP1 EXEC PGM=IRXJCL,PARM='SETRC BUILD,COPY' > > >//SYSEXEC DD DSN=IDF.PRODCLST.LIBRARY,DISP=SHR > > >//SYSTSPRT DD SYSOUT=* > > >//REXXLOG DD SYSOUT=* > > >//SYSPRINT DD SYSOUT=* > > >//SYSTSIN DD DUMMY > > >//IF1 IF (STEP1.RC = 4) THEN > > >//MYBUILD INCLUDE MEMBER=LIBUILD > > >//ENDIF1 ENDIF > > >//IF1 IF (STEP2.RC = 0) THEN > > >//MYCPYINCLUDE MEMBER=CPYLIBS > > >//ENDIF1 ENDIF > > > > > Yes, but be aware that: > > > > o ENQues for data set names mentioned in either MYBUILD or MYCPY > > will be issued, regardless that only one of those steps will be executed. > > > > o JES3 setup adds constraints. For example if the same data set is > > mentioned with DISP=(,CATLG) in both MYBUILD and MYCPY JES3 > > setup will report a conflict because it assumes all steps will be > > executed regardless of IF or COND. > > > > I hate JCL! > > > > -- gil > > > > -- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > -- Scott Ford IDMWORKS z/OS Development -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL IF Condition - I'm Missing Something
Thanks. I guess I'll have to attack the setting of the suffix differently then. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jim Brooks Sent: Friday, February 17, 2017 11:26 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JCL IF Condition - I'm Missing Something The SET statement is not executed conditionally. For example, if the SET statement appears in an IF/THEN/ELSE/ENDIF statement construct, the value is assigned to the symbolic parameter regardless of the logic of the construct. Regards, Jim On Fri, Feb 17, 2017 at 2:03 PM, George, William@FTB <bill.geo...@ftb.ca.gov > wrote: > The JCL below > > 1. Sets symbolic = "A" > > 2. checks if a dataset exists, > > 3. if it does exist it changes the symbolic = "B" > > 4. for the dataset used in the Step3. > > However, processing ALWAYS falls into the THEN path even when the RC = 0. > What am I missing? > Note: this is just test JCL to verify the changing of the > symbolic works. > Thanks for any insights! > Bill > > //* > //SET1 SET SFX=A > //* > //CHKEXIST EXEC PGM=IDCAMS > //SYSPRINT DD SYSOUT=* > //SYSINDD * >LISTCAT ENTRIES('Q6498.BIND.ENTLISTA') > /* > //CHECKIF IF CHKEXIST.RC < 4 THEN > //SET2 SET SFX=B > //CHECKIF ENDIF > //* > //STEP3EXEC PGM=SORT > //SYSOUT DD SYSOUT=* > //SORTIN DD DISP=SHR,DSN=Q6498.BIND.ENTLIST > //SORTOUT DD DSN=DUMMY > //SYSINDD * > SORT FIELDS=COPY > // > > > __ > CONFIDENTIALITY NOTICE: This email from the State of California is for > the sole use of the intended recipient and may contain confidential > and privileged information. Any unauthorized review or use, including > disclosure or distribution, is prohibited. If you are not the intended > recipient, please contact the sender and destroy all copies of this email. > > -- > 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: JCL IF Condition - I'm Missing Something
Thanks John Actually I did see in my research of what I could be missing so one of my tests I placed another SORT step inside the THEN - ENDIF condition and it too was processed. That is, as mentioned the THEN condition always processed when the CHECKIF return code was RC=0. I probably should have shown that test without the SET inside the THEN path as the example. :( Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John McKown Sent: Friday, February 17, 2017 11:17 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JCL IF Condition - I'm Missing Something On Fri, Feb 17, 2017 at 1:03 PM, George, William@FTB <bill.geo...@ftb.ca.gov // SET statements are _always_ processed, regardless of any // IF condition. ref: https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.ieab600/iea3b6_Considerations_for_using_the_SET_statement.htm > Bill > > //* > //SET1 SET SFX=A > //* > //CHKEXIST EXEC PGM=IDCAMS > //SYSPRINT DD SYSOUT=* > //SYSINDD * >LISTCAT ENTRIES('Q6498.BIND.ENTLISTA') > /* > //CHECKIF IF CHKEXIST.RC < 4 THEN > //SET2 SET SFX=B > //CHECKIF ENDIF > //* > //STEP3EXEC PGM=SORT > //SYSOUT DD SYSOUT=* > //SORTIN DD DISP=SHR,DSN=Q6498.BIND.ENTLIST > //SORTOUT DD DSN=DUMMY > //SYSINDD * > SORT FIELDS=COPY > // > > > __ > CONFIDENTIALITY NOTICE: This email from the State of California is for > the sole use of the intended recipient and may contain confidential > and privileged information. Any unauthorized review or use, including > disclosure or distribution, is prohibited. If you are not the intended > recipient, please contact the sender and destroy all copies of this email. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- "Irrigation of the land with seawater desalinated by fusion power is ancient. It's called 'rain'." -- Michael McClary, in alt.fusion 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
JCL IF Condition - I'm Missing Something
The JCL below 1. Sets symbolic = "A" 2. checks if a dataset exists, 3. if it does exist it changes the symbolic = "B" 4. for the dataset used in the Step3. However, processing ALWAYS falls into the THEN path even when the RC = 0. What am I missing? Note: this is just test JCL to verify the changing of the symbolic works. Thanks for any insights! Bill //* //SET1 SET SFX=A //* //CHKEXIST EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSINDD * LISTCAT ENTRIES('Q6498.BIND.ENTLISTA') /* //CHECKIF IF CHKEXIST.RC < 4 THEN //SET2 SET SFX=B //CHECKIF ENDIF //* //STEP3EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DISP=SHR,DSN=Q6498.BIND.ENTLIST //SORTOUT DD DSN=DUMMY //SYSINDD * SORT FIELDS=COPY // __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A Means To RECALL Migrated GDS' Based on a Block of Relative Gens
Thanks and I've already rewritten it to use the CSI! 8-D -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Edward Gould Sent: Tuesday, December 27, 2016 1:20 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: A Means To RECALL Migrated GDS' Based on a Block of Relative Gens > On Dec 27, 2016, at 10:59 AM, George, William@FTB <bill.geo...@ftb.ca.gov> > wrote: > > I found parsing the LISTCAT output easy as I've done it many times and > much easier to understand. 8-D However. I just found the IBM REXX sample for > CSI and got it working. > I'll copy the REXX I have using the LISTCAT code and change it to use CSI and > then compare the two. > Thanks! > > Bill Bill, Be aware that the list cat output *DOES* change and there is no warning from IBM. Years ago someone bought a cheap listcat at a company I worked for (it was written in COBOL no less). Once a year (or so it seemed) the utility would break. I would look at the source (they provided) and waste 1 or 2 hours of my time trying to debug it. It was just not worth the $25. Use the way Tom M suggested and it will eliminate 3AM calls. Ed -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A Means To RECALL Migrated GDS' Based on a Block of Relative Gens
I found parsing the LISTCAT output easy as I've done it many times and much easier to understand. 8-D However. I just found the IBM REXX sample for CSI and got it working. I'll copy the REXX I have using the LISTCAT code and change it to use CSI and then compare the two. Thanks! Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tom Marchant Sent: Tuesday, December 27, 2016 8:53 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: A Means To RECALL Migrated GDS' Based on a Block of Relative Gens On Tue, 27 Dec 2016 16:30:32 +, George, William@FTB wrote about IGGCSI00: >I've never had success trying it. The one example I have I could not >get to work but it has been a couple of years since then. I've only used it once, and don't remember having any trouble with it. Certainly easier than parsing LISTCAT output. -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A Means To RECALL Migrated GDS' Based on a Block of Relative Gens
I've never had success trying it. The one example I have I could not get to work but it has been a couple of years since then. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tom Marchant Sent: Tuesday, December 27, 2016 6:43 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: A Means To RECALL Migrated GDS' Based on a Block of Relative Gens On Tue, 20 Dec 2016 12:25:30 -0700, Sri h Kolusu wrote: >Step 1 : Get Listcat information for the GDG Base Step 2 : parse the >Listcat information for the migrated generations and Why not use the Catalog Search Interface (IGGCSI00) rather than parse a LISTCAT report? It is easier and more efficient. -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A Means To RECALL Migrated GDS' Based on a Block of Relative Gens
Mick, I was hoping there might be a sub-set of that in some manner where you could indicate a block of gens. But I knew even Santa could not bring me such a nifty command. With some 500+ GDGs that soon each will have a LIMIT of 255. I don't think bringing back, let's see... 500 * 245 (-10 as they probably have not migrated as yet) = HECK of a lot of new catalog entries... would not make our storage group pleased. 8-D But it was certainly worth noting and I have used that at times. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mick Graley Sent: Tuesday, December 20, 2016 5:17 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: A Means To RECALL Migrated GDS' Based on a Block of Relative Gens It's also worth noting that you can use wild cards in the HRECALL data set name if you can be that generic, i.e. bring back ALL migrated generations with a single HRECALL command. I use it a lot to recall all my personal code libraries before I go on overnight call-out - I hate waiting for data set recalls when I'm trying to fix things in the early hours of the morning! Cheers, Mick. On 20 December 2016 at 21:13, George, William@FTB <bill.geo...@ftb.ca.gov> wrote: > Thanks all. At this point it looks like Sri's LISTCAT/SORT/RECALL or > a REXX exec to do all the similar steps in one. > The Extended GDG I believe would be overkill in terms of catalogued > datasets. > > Bill > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of George, William@FTB > Sent: Tuesday, December 20, 2016 11:04 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: A Means To RECALL Migrated GDS' Based on a Block of Relative > Gens > > Bottom Line: I am looking for a means to RECALL a block of migrated > GDS (GDG generation datasets) from the previous month via a monthly task. > > BACKGROUND > First, I'm in applications not systems. > Second, we are changing our storage management system where we must > now define (and redefine existing) GDG's with SCRATCH. Most were > unfortunately defined with NOSCRATCH so there are a boatload of > uncatalogued dataset on the system for those that fell out of the > GDG's LIMIT parm. .Plus, our current FDR storage management system > archives all the GDS' long before they would even drop off the LIMIT, > but that is beside the point here other than setting the LIMIT really didn't > have much priority because of this.. > The point is our GDS are archived and are always available even GDS > dropped off the LIMIT YEARS ago. This allowed us to go as far back a > necessary to research issues. Now times are changing and Storage > management, rightly so, wants to clean up all the uncatalogued datasets and > fix this situation.. > With the new system coming in the automatic FDR archiving of > generation datasets is going away and as mentioned above, GDGs are to > be defined with SCRATCH. Because of the SCRATCH option where GDS' are > deleted when dropped off via the LIMIT we will need to reassess the > LIMIT option on them to allow for proper data recovery and research > considerations. We frequently get requests to look back at old data for > various reasons. > > Our main concern are the GDS' allocated daily as we are required to > have seven years of data available. We will update all pertinent daily > GDGs to the max LIMIT of 255. However, this only is 'about' one > year's worth of data. We have some 500+ daily GDGs that have > generations allocated. So backup/archiving of these is a necessity. > > ISSUE: > The current plan is to run a month's end job to backup/archive all of > the previous month's daily GDS into several ADRDSSU dump datasets with > a naming convention that indicates what MM of data is contained within. > However, ADRDSSU will not pick up any dataset in a MIGRAT status. So > these must be RECALL'ed prior to the dump. > > QUESTION: > Is there a means to call in, or do a HRECALL on a block of GDS? For > example Gens -0 thru -31 without out having to code each gen separately? > Of course gens 0 thru about -7 will probably not be migrated at this > point but you get the idea... hopefully. > I can certainly do this with a REXX exec doing a HRECALL on each > needed but would like to avoid that if possible. > > Any insights would be appreciated. > > Thanks! > Bill > > __ > CONFIDENTIALITY NOTICE: This email from the State of California is for > the sole use of the intended recipient and may contain confidential > and privileged information. Any unauthorized review or use, including > disclosure or distribution, is prohibited. If you are not the inte
Re: A Means To RECALL Migrated GDS' Based on a Block of Relative Gens
Thanks all. At this point it looks like Sri's LISTCAT/SORT/RECALL or a REXX exec to do all the similar steps in one. The Extended GDG I believe would be overkill in terms of catalogued datasets. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Tuesday, December 20, 2016 11:04 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: A Means To RECALL Migrated GDS' Based on a Block of Relative Gens Bottom Line: I am looking for a means to RECALL a block of migrated GDS (GDG generation datasets) from the previous month via a monthly task. BACKGROUND First, I'm in applications not systems. Second, we are changing our storage management system where we must now define (and redefine existing) GDG's with SCRATCH. Most were unfortunately defined with NOSCRATCH so there are a boatload of uncatalogued dataset on the system for those that fell out of the GDG's LIMIT parm. .Plus, our current FDR storage management system archives all the GDS' long before they would even drop off the LIMIT, but that is beside the point here other than setting the LIMIT really didn't have much priority because of this.. The point is our GDS are archived and are always available even GDS dropped off the LIMIT YEARS ago. This allowed us to go as far back a necessary to research issues. Now times are changing and Storage management, rightly so, wants to clean up all the uncatalogued datasets and fix this situation.. With the new system coming in the automatic FDR archiving of generation datasets is going away and as mentioned above, GDGs are to be defined with SCRATCH. Because of the SCRATCH option where GDS' are deleted when dropped off via the LIMIT we will need to reassess the LIMIT option on them to allow for proper data recovery and research considerations. We frequently get requests to look back at old data for various reasons. Our main concern are the GDS' allocated daily as we are required to have seven years of data available. We will update all pertinent daily GDGs to the max LIMIT of 255. However, this only is 'about' one year's worth of data. We have some 500+ daily GDGs that have generations allocated. So backup/archiving of these is a necessity. ISSUE: The current plan is to run a month's end job to backup/archive all of the previous month's daily GDS into several ADRDSSU dump datasets with a naming convention that indicates what MM of data is contained within. However, ADRDSSU will not pick up any dataset in a MIGRAT status. So these must be RECALL'ed prior to the dump. QUESTION: Is there a means to call in, or do a HRECALL on a block of GDS? For example Gens -0 thru -31 without out having to code each gen separately? Of course gens 0 thru about -7 will probably not be migrated at this point but you get the idea... hopefully. I can certainly do this with a REXX exec doing a HRECALL on each needed but would like to avoid that if possible. Any insights would be appreciated. Thanks! Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- 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
A Means To RECALL Migrated GDS' Based on a Block of Relative Gens
Bottom Line: I am looking for a means to RECALL a block of migrated GDS (GDG generation datasets) from the previous month via a monthly task. BACKGROUND First, I'm in applications not systems. Second, we are changing our storage management system where we must now define (and redefine existing) GDG's with SCRATCH. Most were unfortunately defined with NOSCRATCH so there are a boatload of uncatalogued dataset on the system for those that fell out of the GDG's LIMIT parm. .Plus, our current FDR storage management system archives all the GDS' long before they would even drop off the LIMIT, but that is beside the point here other than setting the LIMIT really didn't have much priority because of this.. The point is our GDS are archived and are always available even GDS dropped off the LIMIT YEARS ago. This allowed us to go as far back a necessary to research issues. Now times are changing and Storage management, rightly so, wants to clean up all the uncatalogued datasets and fix this situation.. With the new system coming in the automatic FDR archiving of generation datasets is going away and as mentioned above, GDGs are to be defined with SCRATCH. Because of the SCRATCH option where GDS' are deleted when dropped off via the LIMIT we will need to reassess the LIMIT option on them to allow for proper data recovery and research considerations. We frequently get requests to look back at old data for various reasons. Our main concern are the GDS' allocated daily as we are required to have seven years of data available. We will update all pertinent daily GDGs to the max LIMIT of 255. However, this only is 'about' one year's worth of data. We have some 500+ daily GDGs that have generations allocated. So backup/archiving of these is a necessity. ISSUE: The current plan is to run a month's end job to backup/archive all of the previous month's daily GDS into several ADRDSSU dump datasets with a naming convention that indicates what MM of data is contained within. However, ADRDSSU will not pick up any dataset in a MIGRAT status. So these must be RECALL'ed prior to the dump. QUESTION: Is there a means to call in, or do a HRECALL on a block of GDS? For example Gens -0 thru -31 without out having to code each gen separately? Of course gens 0 thru about -7 will probably not be migrated at this point but you get the idea... hopefully. I can certainly do this with a REXX exec doing a HRECALL on each needed but would like to avoid that if possible. Any insights would be appreciated. Thanks! Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO LINE COMMAND - EDIT MODE
I believe the command you need is: C P'¬' ' ' 80 95 ALL The picture P'¬' finds all NON blank characters. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of willie bunter Sent: Friday, December 16, 2016 7:15 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: TSO LINE COMMAND - EDIT MODE Good Day To All, Is there a way of filling columns 80 95 with blanks? I have sequence commands (please see below for an example) which I would like to remove. 00550003 ** 0056 00570001 * 00580003 ** 0059 0061 * 00610003 ** 0062 00630001 * 00640003 ** 0065 00660001 * 00670003 ** 0068 00690001 * 0073 ** 0071 I looked at using C P'00' " " 80 95 however since this is a huge dsn I was wondering if there is a quicker way. I also considered pressing the EOF key on my keyboard on every line however since the file is quite large it would take me a while. Is there a line command I could issue to do what I want to do? I remember in ROSCOE I could issue the command FILL 80 95 and it would replace the numbers with blank spaces. Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JES2MAIL Log Output to Two SDSF Output Groups - How to Disable One
Thank you Randy... just what I was looking for! Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Randy Lists Sent: Tuesday, November 03, 2015 7:28 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JES2MAIL Log Output to Two SDSF Output Groups - How to Disable One Bill, Apologies for not responding sooner but I did not notice this email to the IBM list until this morning. The messages you are referring to are written through the SYSPRINT DD statement. Generally there is a "//SYSPRINT DD SYSOUT=*" statement in the JES2Mail JCL. You can either remove this statement or dummy it out and that should suppress these messages. The SYSPRINT messages are intended to be a summary of the activity that is reported in more detail in the LOGFILE sysout. If need any further information on this, or any other JES2Mail matter, you can email us directly at supp...@casisoft.com. Regards, Randy Benderman CASI Software -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Monday, November 02, 2015 2:23 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: JES2MAIL Log Output to Two SDSF Output Groups - How to Disable One We have several jobs that use JES2MAIL to email reports to various users. The JES2 output (in SDSF) from the step creates two entries and I'm hoping to find a means to disable one of them. The two entries are: (example SDSF entries further below) 1. The main SYSOUT from the job that includes the JES2MAIL trace log 2. And a second log that seems to contain all the "Non-ConMsg:" lines found in the main trace log Is there a means to disable the 2nd entry JES entry? Why I find this strange as there is not a DD associated to it coded in the JCL to control it. To attempt to show what I mean, as a test for the below example I ran JCL with just the JES2MAIL step. The two entries were created below within SDSF. Note: the entries are truncated but only the TOTAL-REC and O-GRP-NM are different between the two. NP JOBNAME JOBID CRDATEC DESTNAME TOTAL-REC O-GRP-NM TQ6498ML J0485602 11/02/2015 X LOCAL 1431 TQ6498ML J0485602 11/02/2015 X LOCAL4 2 LOG EXAMPLE A portion of the Main SYSOUT trace log. Note: items 0017, 0018, 0002 & 0003 below will also be found in the 2nd log :0015 Min: ZIPService available: None :0016 Min: SYSIN Command: FILE=DD:MESSAGE :0017 Min: Non-ConMsg: J2M018 JES2Mail: Message From: :0018 Min: Non-ConMsg: J2M015 JES2Mail: Message From: : Min: Message ACCEPTED by Post office: 250 Mail Delivered :0001 Min: Msg Accepted on Date: Mon, 2 Nov 2015 at 18: 52:52 - :0002 Min: Non-ConMsg: J2M017 JES2Mail: Message From: 250 Mail Delivered :0003 Min: Non-ConMsg: J2M007 JES2Mail: Message From: All 1 msgs sent ok :0004 Min: SYSIN Command: END The 2nd SDSF entry J2M018 JES2Mail: Message From: J2M015 JES2Mail: Message From: J2M017 JES2Mail: Message From: 250 Mail Delivered J2M007 JES2Mail: Message From: All 1 msgs sent ok Any insights into a means to disable this or have be part of the main SYSOUT entry would be appreciated. Thanks! Bill George __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- 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: JES2MAIL Log Output to Two SDSF Output Groups - How to Disable One
Seymour When one does not know the correct vocabulary that maybe a longtime system folk might know, one does their best to describe a situation. I did my best. And thanks to Randy Lists for the describing the situation and easy fix. All the best Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Shmuel Metz (Seymour J.) Sent: Monday, November 02, 2015 5:12 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JES2MAIL Log Output to Two SDSF Output Groups - How to Disable One In <984dfc2f94c72c4c9e9acbfd71e4feee32d...@fg1014.ftb.ca.gov>, on 11/02/2015 at 10:23 PM, "George, William@FTB" <bill.geo...@ftb.ca.gov> said: >We have several jobs that use JES2MAIL to email reports to various >users. The JES2 output (in SDSF) from the step creates two entries Are you referring to the job log and the hardcopy log? >1. The main SYSOUT from the job that includes the JES2MAIL >trace log Please don't invent your own vocabulary. There is no "main SYSOUT". >2. And a second log that seems to contain all the "Non-ConMsg:" >lines found in the main trace log See above. You control the characteristics of SYSOUT datasets with OUTPUT statments. In your case you need the JESDS keyword to identify the dataset of interest. >To attempt to show what I mean, To show what you mean you must identify the JCL and the SDSF commands that you used. In particular, what information did you specify to control JES2MAIL? >The two entries were created below within SDSF. No; SDSF is only the program that you used to view them. -- 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 __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
JES2MAIL Log Output to Two SDSF Output Groups - How to Disable One
We have several jobs that use JES2MAIL to email reports to various users. The JES2 output (in SDSF) from the step creates two entries and I'm hoping to find a means to disable one of them. The two entries are: (example SDSF entries further below) 1. The main SYSOUT from the job that includes the JES2MAIL trace log 2. And a second log that seems to contain all the "Non-ConMsg:" lines found in the main trace log Is there a means to disable the 2nd entry JES entry? Why I find this strange as there is not a DD associated to it coded in the JCL to control it. To attempt to show what I mean, as a test for the below example I ran JCL with just the JES2MAIL step. The two entries were created below within SDSF. Note: the entries are truncated but only the TOTAL-REC and O-GRP-NM are different between the two. NP JOBNAME JOBID CRDATEC DESTNAME TOTAL-REC O-GRP-NM TQ6498ML J0485602 11/02/2015 X LOCAL 1431 TQ6498ML J0485602 11/02/2015 X LOCAL4 2 LOG EXAMPLE A portion of the Main SYSOUT trace log. Note: items 0017, 0018, 0002 & 0003 below will also be found in the 2nd log :0015 Min: ZIPService available: None :0016 Min: SYSIN Command: FILE=DD:MESSAGE :0017 Min: Non-ConMsg: J2M018 JES2Mail: Message From: :0018 Min: Non-ConMsg: J2M015 JES2Mail: Message From: : Min: Message ACCEPTED by Post office: 250 Mail Delivered :0001 Min: Msg Accepted on Date: Mon, 2 Nov 2015 at 18: 52:52 - :0002 Min: Non-ConMsg: J2M017 JES2Mail: Message From: 250 Mail Delivered :0003 Min: Non-ConMsg: J2M007 JES2Mail: Message From: All 1 msgs sent ok :0004 Min: SYSIN Command: END The 2nd SDSF entry J2M018 JES2Mail: Message From: J2M015 JES2Mail: Message From: J2M017 JES2Mail: Message From: 250 Mail Delivered J2M007 JES2Mail: Message From: All 1 msgs sent ok Any insights into a means to disable this or have be part of the main SYSOUT entry would be appreciated. Thanks! Bill George __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
File-Aid/MVS - Display of Numerics and Zero
We are at File-Aid/MVS 9.3.0 When a sequential file is displayed using a Browse/Edit mode of F (Format) and the appropriate Record layout (copybook) indicated, I'm seeing two ways a numeric field is being displayed if the field is zeros. In the file a Numeric 3 field that has '000' in the record and it is being displayed as 0 for some folks and 000 for others. Does anyone have insights on what might control this? I've been through the options on Option 0 (ISPF and File-Aid parameters setup) to no avail. Thanks for any insights. Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: File-Aid/MVS - Display of Numerics and Zero
Found it. The command ZERO or ZERO OFF controls this display. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Tuesday, June 03, 2014 1:00 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: File-Aid/MVS - Display of Numerics and Zero We are at File-Aid/MVS 9.3.0 When a sequential file is displayed using a Browse/Edit mode of F (Format) and the appropriate Record layout (copybook) indicated, I'm seeing two ways a numeric field is being displayed if the field is zeros. In the file a Numeric 3 field that has '000' in the record and it is being displayed as 0 for some folks and 000 for others. Does anyone have insights on what might control this? I've been through the options on Option 0 (ISPF and File-Aid parameters setup) to no avail. Thanks for any insights. Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- 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: Emulator Screen Size with Attachmate Extra X-treme 9.3
Thanks Linda. But, where would I define the screen parameters, for example; 60 x 132? Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Linda Sent: Friday, April 11, 2014 4:07 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Emulator Screen Size with Attachmate Extra X-treme 9.3 Hey George, I have an old version myExtra! Enterprise at work. Under Settings, Display are the usual mod 2 through mod 5 and an option Any Model. Try selecting Any Model. Then logon on with the logmode (which must already be defined in ComServer). I use the format of LOG appl, logmode. As always, YMMV. HTH, Linda Sent from my iPhone On Apr 11, 2014, at 2:01 PM, George, William@FTB bill.geo...@ftb.ca.gov wrote: It's the emulator that is the wrench which I have zero pull over in the apps on our desktop... :( -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Christian Birr Sent: Friday, April 11, 2014 1:47 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: AW: Emulator Screen Size with Attachmate Extra X-treme 9.3 Hey Bill, we're sysprogs, there's surely a way?!!! But as others stated already, if a proper logmode isn't available you're out of luck. Only way: ask your VTAM lady/lad to make it available, there's no security risk at all... Christian -Ursprüngliche Nachricht- Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag von George, William@FTB Gesendet: Freitag, 11. April 2014 22:13 An: IBM-MAIN@LISTSERV.UA.EDU Betreff: Re: Emulator Screen Size with Attachmate Extra X-treme 9.3 Good idea but... our USB's are locked down too. LOL. Security is taken seriously here. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Christian Birr Sent: Friday, April 11, 2014 1:09 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: AW: Emulator Screen Size with Attachmate Extra X-treme 9.3 Bill, you are aware of the possibility to launch Vista TN3270 (my favourite as well) off an USB stick, no installation needed? Greetings from lower Bavaria Christian __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- 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 -- 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: Emulator Screen Size with Attachmate Extra X-treme 9.3
Ok, I'll contact them to see if what they have setup. Thanks -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mike Schwab Sent: Monday, April 14, 2014 10:55 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Emulator Screen Size with Attachmate Extra X-treme 9.3 The system programmer at your site defines the logmode and its parameters. On Mon, Apr 14, 2014 at 10:14 AM, George, William@FTB bill.geo...@ftb.ca.gov wrote: Thanks Linda. But, where would I define the screen parameters, for example; 60 x 132? Bill -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Emulator Screen Size with Attachmate Extra X-treme 9.3
Not real sure what you're asking so I'll go with; The emulator offers the base models of: Model 2 (24X80) Model 3 (32x80), Model 4 (43X 80) and Model 5 (27x132). As far as my site? We are on z/OS 01.13.00 (ISPF 6.3), VTAM 6.1.D so whatever these offer unless there is some system configuration member that limits modes. I understand there is a LOGMOD that allows for dynamic screen sizes but the emulator needs to be able to communicate with it. I do recall in the past successfully logging on with that mode (which escapes me at the moment) but the emulator could not set any screen size other than the base ones shown above. This is outside my knowledge base but I have seen old posts on how to do it with other emulators but it seems Attachmate's Extra! X-treme does not have this ability as far as I can find. This is why I'm asking and hoping someone has found a means to do this. Thanks Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mike Schwab Sent: Friday, April 11, 2014 9:22 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Emulator Screen Size with Attachmate Extra X-treme 9.3 What modes are available at the site you are trying to connect to? On Fri, Apr 11, 2014 at 10:32 AM, George, William@FTB bill.geo...@ftb.ca.gov wrote: Is anyone aware of a means to configure Attachmate's Extra X-treme (v9.3) emulator to display a screen size other than the base models (2,3,4,5)? Checking the help and the Attachmate site I've not found any hints on this. I was hoping there might be a config member that might allow tweaking beyond what is offered on the base Display setup screen of the four base models. Note: I'm aware of other emulators that are quite flexible is screen size configuration and would LOVE to be able to install such however we are locked into using what is given us and app installs are shut off. Thanks Bill -- 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 __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Emulator Screen Size with Attachmate Extra X-treme 9.3
Thanks Peter! -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Farley, Peter x23353 Sent: Friday, April 11, 2014 10:14 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Emulator Screen Size with Attachmate Extra X-treme 9.3 From a VTAM logon screen, this works for any screen size you can implement in your emulator, though I believe there is a limitation of maximum bytes per screen = 8192 (60 x 132 = 8184 bytes): logon applid=TSO,logmode=D4C32XX3 That logmode is supplied by IBM by default unless your VTAM network administrator has deleted it. If you have Netview Access or some other terminal distributor or interface this logmode may or may not be available to you. I only know that it works from a VTAM logon screen. Can't help with your Attachmate issue though, sorry. HTH Peter __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Emulator Screen Size with Attachmate Extra X-treme 9.3
Yes, I am aware there are other emulators that do this and I actually used Vista at a previous shop and is my favorite however... I'm stuck with Extra! X-treme. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Skeldum, William Sent: Friday, April 11, 2014 10:19 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Emulator Screen Size with Attachmate Extra X-treme 9.3 I am using 80 x 160 which is 12,800 bytes. I am using Vista Tn3270 by Tom Brennan. Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Emulator Screen Size with Attachmate Extra X-treme 9.3
I received an off list email from Attachmate who stated that after speaking with their support group , Extra doesn't have the ability to define custom screen sizes. :( __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Emulator Screen Size with Attachmate Extra X-treme 9.3
Good idea but... our USB's are locked down too. LOL. Security is taken seriously here. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Christian Birr Sent: Friday, April 11, 2014 1:09 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: AW: Emulator Screen Size with Attachmate Extra X-treme 9.3 Bill, you are aware of the possibility to launch Vista TN3270 (my favourite as well) off an USB stick, no installation needed? Greetings from lower Bavaria Christian __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rexx substr not retiring string
Without seeing your code I'll guess you don't have your single and double quotes correct. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: Tuesday, April 01, 2014 2:31 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Rexx substr not retiring string I just did that I assigned the final value to outvar.0 And get a error message positional paramter not valid Sent from my iPhone On Apr 1, 2014, at 4:24 PM, Dale R. Smith dale-sm...@columbus.rr.com wrote: On Tue, 1 Apr 2014 14:40:40 -0400, Micheal Butz michealb...@optonline.net wrote: That was it thanks Sent from my iPhone On Apr 1, 2014, at 7:26 AM, Andrew Armstrong androidarmstr...@gmail.com wrote: Missing a . after the stem name. Try: execio * DISKW outds (finis stem outvar. Just a word of caution, you should never use * for the number of records to write with DISKW when using the STEM option. By REXX definition/usage a stem of the form stemname. should have a count of the entries in the stem in variable stemname.0. So in your example, outvar.0 should contain the number of entries in the outvar. stem. If you are creating outvar. yourself, then you must keep count of the number of entries you are creating and set outvar.0 to that number when you are done. Your EXECIO command should then look like this: 'EXECIO' outvar.0 'DISKW OUTDS (FINIS STEM OUTVAR.' So why not use *? It will work most of the time and some of you are probably using it now with no problems. From the TSO REXX Reference on EXECIO: STEM var-name the stem of the list of variables from which information is to be written. To write information from compound variables, which allow for indexing, the var-name should end with a period, MYVAR., for example. When three lines are written to the data set, they are taken from MYVAR.1, MYVAR.2, MYVAR.3. When * is specified as the number of lines to write, the EXECIO command stops writing information to the data set when it finds a null line or an uninitialized compound variable. In this case, if the list contained 10 compound variables, the EXECIO command stops at MYVAR.11. The 0th variable has no effect on controlling the number of lines written from variables. . . . . Let's say you have a REXX program that reads several different files/members and writes those files/members to different outputs. You read the file/member into a stem using DISKR and write the same stem out using DISKW and *. 'EXECIO * DISKR FILEIN (FINIS STEM REC.' /* Lets say 20 records were read, rec.0 = 20 */ 'EXECIO * DISKW FILEOUT (FINIS STEM REC.' /* Writes 20 records out because rec.21 is unassigned rec.21 = 'REC.21' */ (allocate new files to FILEIN and FILEOUT) 'EXECIO * DISKR FILEIN (FINIS STEM REC.' /* Lets say 10 records were read, rec.0 = 10 */ 'EXECIO * DISKW FILEOUT (FINIS STEM REC.' /* Writes 20 records out! rec.1-rec.10 from current file, rec.11-rec.20 from previous file! */ 'EXECIO' rec.0 'DISKW FILEOUT (FINIS STEM REC.' /* Writes 10 records out */ Of course, you could do a REXX Drop rec. command between the reads and that would allow * to work, but why bother? -- Dale R. Smith -- 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 __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Test Post
Test test I've not been receiving posts so this is just a test. Bill George Senior Programmer Analyst (Specialist) FTB | Tax Systems and Applications Bureau | BETS Interface Team Office: 916.845.6459 | ms: L-210 | location: LA2B-B-5-02 email: william.geo...@ftb.ca.govmailto:william.geo...@ftb.ca.gov __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SYNCSORT or ICEMAN
No SAS -Original Message- From: IBM Mainframe Discussion List on behalf of Robert Bardos2 Sent: Fri 12/21/2012 3:56 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SYNCSORT or ICEMAN quote I have a need to check 50 datasets (50 gens of a GDG) and extract records that match my criteria. I also would like to know which dataset in the concatenation the record was extracted from by adding an indicator to the output record. Is this possible via Syncsort or ICEMAN? unquote If you have SAS that's pretty easy. Somewhat like data _null_ ; length gdgdsn $44 ; infile gdgddn filename=gdgdsn ; input ; if index(_infile_,'your_search_string_here') ; file outddn ; put gdgdsn $44. +1 _infile_ ; run ; Infile option FILENAME= identifies the respective catenands of your gdg concatentation. The IF statement in this simple form is referred to as 'subsetting if' ie. it works like a filter. Kind regards Robert -- Robert Bardos Ansys AG, Switzerland -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
SYNCSORT or ICEMAN
I have a need to check 50 datasets (50 gens of a GDG) and extract records that match my criteria. I also would like to know which dataset in the concatenation the record was extracted from by adding an indicator to the output record. Is this possible via Syncsort or ICEMAN? I've made a quick scan of the Syncsort guide but now will dig deeper but thought I'd throw this question out also to hopefully help expedite the answer. Thanks Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SYNCSORT or ICEMAN
Sorry for the lack of a more descriptive subject. I did mean to go back and put one in but plain forgot. That seems to be happening a bit more than before. Hmmm. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Thursday, December 20, 2012 8:57 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: SYNCSORT or ICEMAN I have a need to check 50 datasets (50 gens of a GDG) and extract records that match my criteria. I also would like to know which dataset in the concatenation the record was extracted from by adding an indicator to the output record. Is this possible via Syncsort or ICEMAN? I've made a quick scan of the Syncsort guide but now will dig deeper but thought I'd throw this question out also to hopefully help expedite the answer. Thanks Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- 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: SYNCSORT or ICEMAN
Thanks. A small detail I, again forgot, is these are TAPE datasets. :( Otherwise this would be a nice method. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Thursday, December 20, 2012 9:22 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SYNCSORT or ICEMAN George , Just to clarify ICEMAN is the program name for DFSORT. You can invoke DFSORT with PGM=ICEMAN. DFSORT's official three character identifier is ICE, so all of the DFSORT modules start with ICE (ICEMAN, ICETOOL, ICEGENER, etc) and all of the DFSORT messages start with ICE (ICExxxs). other sort products(Syncsort, ca-sort) use (SORT,ICEMAN) as an alias. Coming to your requirement, it is quite easy with batch version of Extended Search-For Utility (3.15). The String found indicator is mentioned by a numeric and at the bottom of the listing you will find corresponding dataset name. //SEARCH EXEC PGM=ISRSUPC,PARM=(SRCHCMP,'') //NEWDD DD DSN=Your GDG Base name, // DISP=SHR //OUTDD DD SYSOUT=* //SYSIN DD * SRCHFOR 'your search string' //* Sri Hari Kolusu IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 12/20/2012 09:06:59 AM: From: George, William@FTB william.geo...@ftb.ca.gov To: IBM-MAIN@listserv.ua.edu, Date: 12/20/2012 09:08 AM Subject: Re: SYNCSORT or ICEMAN Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu Sorry for the lack of a more descriptive subject. I did mean to go back and put one in but plain forgot. That seems to be happening a bit more than before. Hmmm. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Thursday, December 20, 2012 8:57 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: SYNCSORT or ICEMAN I have a need to check 50 datasets (50 gens of a GDG) and extract records that match my criteria. I also would like to know which dataset in the concatenation the record was extracted from by adding an indicator to the output record. Is this possible via Syncsort or ICEMAN? I've made a quick scan of the Syncsort guide but now will dig deeper but thought I'd throw this question out also to hopefully help expedite the answer. Thanks Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SYNCSORT or ICEMAN
I'm doing something similar. I have one job with 50 steps. The output dataset is the same in all (MOD'ed). Each step has an OUTREC statement that tacks on to the end of the output record the generation is was found in. Just was hoping to be able to do this in one step. Thanks Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mike Schwab Sent: Thursday, December 20, 2012 9:59 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SYNCSORT or ICEMAN How about testing with 1 GDG to 1 DSN, keeping the records. Once satisfied, do a change all and submit for the other 49 GDGs. When done, delete the empty datasets and utilize the remainder with records. On Thu, Dec 20, 2012 at 11:30 AM, George, William@FTB william.geo...@ftb.ca.gov wrote: Thanks. A small detail I, again forgot, is these are TAPE datasets. :( Otherwise this would be a nice method. Bill -- 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 __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SYNCSORT or ICEMAN
Not bad. I like it. In my previous post I show I'm doing something somewhat similar by tacking on the indicator of the file it came from BUT... in 50 steps. With the below I probably could do it in one. Bill -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Massimo Biancucci Sent: Thursday, December 20, 2012 10:02 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SYNCSORT or ICEMAN I hope I did fully understand your question. I think you could solve using different steps with quite similar include and outrec cards or something like the following (only for two files and you can extend for the needed using the correct disposition): //ST011 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //SI01 DD * A1234567890 B1234567890 C1234567890 D1234567890 /* //SI02 DD * A1234567890 B1234567890 C1234567890 D1234567890 /* //SO01 DD SYSOUT=* //SO02 DD SYSOUT=* //TOOLIN DD * COPY FROM(SI01) TO(SO01) USING(CTL1) COPY FROM(SI02) TO(SO02) USING(CTL2) /* //CTL1CNTL DD * INCLUDE COND=(1,1,CH,EQ,C'A') OUTREC FIELDS=(C'01',1,80) /* //CTL2CNTL DD * INCLUDE COND=(1,1,CH,EQ,C'A') OUTREC FIELDS=(C'02',1,80) /* If you meant something doing all the job automagically :D, then I don't know. Regards. Max Da: George, William@FTB william.geo...@ftb.ca.gov A: IBM-MAIN@LISTSERV.UA.EDU Inviato: Giovedì 20 Dicembre 2012 17:57 Oggetto: SYNCSORT or ICEMAN I have a need to check 50 datasets (50 gens of a GDG) and extract records that match my criteria. I also would like to know which dataset in the concatenation the record was extracted from by adding an indicator to the output record. Is this possible via Syncsort or ICEMAN? I've made a quick scan of the Syncsort guide but now will dig deeper but thought I'd throw this question out also to hopefully help expedite the answer. Thanks Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- 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: ISPF simple question
Couple of quick thoughts. - Make sure you are actually logging off and not just killing your session. Profile vars are NOT saved if you do not log off properly. - Also, check to see if there is not an initial macro running that sets that to PAGE. More likely something like this if others are having an issue. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex R. Sent: Friday, December 14, 2012 11:55 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: ISPF simple question Hi List, I am going to show my ISPF ignorance on this question. I have a system I'm working on that has the scroll amount set to PAGE. I can change the scroll amount to CSR and it works as advertised. However, when I log off and back onto the system, it is set back to PAGE. I had thought that if I changed it to CSR, that would be saved in my ISPPROF dataset and be there the next time I logged in. I have checked the obvious, the ISPPROF isn't being deleted/recreated when I log in, I have update access to it.Anybody care to share some words of wisdom as to what I could change here to make it save my preferences? I have checked and I'm not the only one on this system that is having this problem. Thanks. Rex The information contained in this e-mail may contain confidential and/or privileged information and is intended for the sole use of the intended recipient. If you are not the intended recipient, you are hereby notified that any unauthorized use, disclosure, distribution or copying of this communication is strictly prohibited and that you will be held responsible for any such unauthorized activity, including liability for any resulting damages. As appropriate, such incident(s) may also be reported to law enforcement. If you received this e-mail in error, please reply to sender and destroy or delete the message and any attachments. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
SARBCH - PRINT all SEQ's of a GEN= for jobs
Is there a means via a single SARBCH command to print all SEQs of a GEN= for a job. (that was hard to put words to make sense ;-) ) That is, if a job executed multiple times during a batch cycle and each time it was archived to SAR it received the same GEN= number each would receive a sequential sequence number. JOBNAME GEN=1000 SEQ=1 JOBNAME GEN=1000 SEQ=2 JOBNAME GEN=1000 SEQ=3 I would like to be able to PRINT (LOAD actually) these to a dataset via a single SARBCH command. e.g. LOAD ID=JOBNAME GEN=100 SEQ=??? DDNAME=ddname I've tried SEQ=*, SEQ=1:3, no SEQ=... The first two receiving an Invalid Sequence parameter error and the last retrieving the most current (SEQ=3) I do know a LIST on the job with GEN=1000 and no SEQ will list each time it ran within a GEN with their sequence numbers. With this info I could construct another SARBCH job with 3 individual PRINT commands, one for each SEQ number. However, due to how the process is setup, is all done in REXX, it would add a tremendous amount of overhead to LIST each job first, read in the results, then construct another SARBCH from the LIST results. There are about 70 jobs I have to extract SAR reports from and doing a single PRINT (or LOAD) would be FAR more efficient. Any insights? Bill George Senior Programmer Analyst (Specialist) FTB | Tax Systems and Applications Bureau | BETS Interface Team Office: 916.845.6459 | ms: L-210 | location: LA2B-B-5-02 email: william.geo...@ftb.ca.gov mailto:william.geo...@ftb.ca.gov __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SARBCH - PRINT all SEQ's of a GEN= for jobs
Yes, it does just toss it out as an error and keeps going. And I've considered this and I may have to resort to it. It is just that the SYSIN for my process already is darned huge and this would enlarge it tenfold if I did up to 10 SEQ for each... but... I may just have to. Thanks, good suggestion. -Original Message- From: Robert A. Rosenberg [mailto:hal9...@panix.com] Sent: Tuesday, October 23, 2012 2:34 PM To: IBM Mainframe Discussion List Cc: George, William@FTB Subject: Re: SARBCH - PRINT all SEQ's of a GEN= for jobs At 13:01 -0700 on 10/23/2012, George, William@FTB wrote about SARBCH - PRINT all SEQ's of a GEN= for jobs: I do know a LIST on the job with GEN=1000 and no SEQ will list each time it ran within a GEN with their sequence numbers. With this info I could construct another SARBCH job with 3 individual PRINT commands, one for each SEQ number. However, due to how the process is setup, is all done in REXX, it would add a tremendous amount of overhead to LIST each job first, read in the results, then construct another SARBCH from the LIST results. There are about 70 jobs I have to extract SAR reports from and doing a single PRINT (or LOAD) would be FAR more efficient. Any insights? What happens if you ask for seq=4 when there are only 3 versions? If it just tosses an error message and goes to the next commend, why not just submit 100 commands asking for seq=1 to seq=100. Once it has processed all the existent sequences, it will just ignore the requests for the non-existent ones. __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Decouple Accenture's Install-1 from CICS
-Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ed Gould Sent: Wednesday, August 08, 2012 1:31 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Decouple Accenture's Install-1 from CICS On Aug 8, 2012, at 1:56 PM, George, William@FTB wrote: - SNIP -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Scott Thanks for the info. I'm currently checking with our system's folks and management to see if there was ever any conversation's with Foundation regarding your question. There has been a tremendous amount of turnover over the years and at this point there is only a hodge podge of broken tid bits of information. Thanks again Bill Bill, Just a small opinion here. Sometimes its better to bite the bullet and do a clean install. That is now you got a good base to play with. Ed Ed Nothing really to clean install that I can think of. If we remove Design\1 and Install\1 from CiCS we'll have hundreds of programs to rework to do the navigation logic and CICS calls that Install\1 was (is) doing in its black box. Not to mention the building of the BMS map source for the hundreds of maps. Install\1 keeps the map source hidden within its box also so we would have to use DFHBMSUP to recreate them which will be a piece of work as the utility does not carry over all the field names and give them generic names. Hence, my inquiry to anyone that may have gone through this and hoping for a better way. Thanks Bill __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Test
Please ignore. A test as I've not seen any posing in a while which is quite odd __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SYNCSORT - Save a data item for use in OUTREC output
Thanks Sam. I did just this over the weekend! -Original Message- From: IBM Mainframe Discussion List on behalf of Knutson, Sam Sent: Mon 7/9/2012 5:13 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SYNCSORT - Save a data item for use in OUTREC output Another source for assistance would be joining Syncsort's user community. This community is a blog site where you can get product usage assistance from a wider community. The site to register and log on is http://community.syncsort.com/ This community consists of public and private groups of Syncsort product users from many companies and many countries. Syncsort employees participate in and host many of this community's groups. This would seem to be an ideal place to post your HOWTO type of question and get some quick targeted help. Best Regards, Sam Knutson -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Sunday, July 08, 2012 3:23 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SYNCSORT - Save a data item for use in OUTREC output Wayne It appears the E15 exit will not work for our needs. And I humbly apologize as the example I gave was far too simplistic and I left off some of the requirements that make the E15 exit 'probably' not doable. - First of all the E15 requires the creation of another program which is one thing we do not care to do. - Secondly, the data item we would like to save and utilize actually will only be used within the HEADER record for any OUTFILs that do not have records in the input file. That is, if an OUTFIL has zero records written then the HEADER and TRAILER written for it will have a count of 0. But... we would like the saved data (a date range) to be plugged into the Header title area. This date is part of the input record and works fine for OUTFIL groups with an input record but when the HEADER is written for the OUTFIL groups when there are zero input records for the group, this data is not available. Thanks Bill -Original Message- From: IBM Mainframe Discussion List on behalf of George, William@FTB Sent: Sat 7/7/2012 3:15 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SYNCSORT - Save a data item for use in OUTREC output Thanks, I'll look into this! -Original Message- From: IBM Mainframe Discussion List on behalf of Wayne Bickerdike Sent: Sat 7/7/2012 1:38 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SYNCSORT - Save a data item for use in OUTREC output Use an E15 exit to read the input file, store the value you need to preserve and on each successive record just overwrite with the saved value and pass the record to sort. I have a few examples of E15 exit code but the SYNCSORT manual should have some examples of exit code. Wayne Bickerdike On Sat, Jul 7, 2012 at 7:40 AM, George, William@FTB william.geo...@ftb.ca.gov wrote: Sorry, the formatting didn't retain how I had originally keyed it. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Friday, July 06, 2012 2:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: SYNCSORT - Save a data item for use in OUTREC output Is there a means via SYNCSORT to save a data item found on the 1st input record and then have it placed on all subsequent output records. For example. 1. Input 1 - 07/06/2012 asfasdlfjl. (save the date 07/06/2012 and not output the record) 2. Input 2 - poiutkjgfertqe Output - 07/06/2012 poiutkjgfertqe... That is, place the saved data item (date) someplace in the output record 3. Input 3 - (same as #2 and to the end of file) Thanks for any insights. ith the message: INFO IBM-MAIN This email/fax message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution of this email/fax is prohibited. If you are not the intended recipient, please destroy all paper and electronic copies of the original message. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
SYNCSORT - Save a data item for use in OUTREC output
Is there a means via SYNCSORT to save a data item found on the 1st input record and then have it placed on all subsequent output records. For example. 1. Input 1 - 07/06/2012 asfasdlfjl. (save the date 07/06/2012 and not output the record) 2. Input 2 - poiutkjgfertqe Output - 07/06/2012 poiutkjgfertqe... That is, place the saved data item (date) someplace in the output record 3. Input 3 - (same as #2 and to the end of file) Thanks for any insights. Bill George Senior Programmer Analyst (Specialist) FTB | Tax Systems and Applications Bureau | BETS Interface Team Office: 916.845.6459 | ms: L-210 | location: LA2B-B-5-02 email: william.geo...@ftb.ca.gov mailto:william.geo...@ftb.ca.gov __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SYNCSORT - Save a data item for use in OUTREC output
Sorry, the formatting didn't retain how I had originally keyed it. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George, William@FTB Sent: Friday, July 06, 2012 2:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: SYNCSORT - Save a data item for use in OUTREC output Is there a means via SYNCSORT to save a data item found on the 1st input record and then have it placed on all subsequent output records. For example. 1. Input 1 - 07/06/2012 asfasdlfjl. (save the date 07/06/2012 and not output the record) 2. Input 2 - poiutkjgfertqe Output - 07/06/2012 poiutkjgfertqe... That is, place the saved data item (date) someplace in the output record 3. Input 3 - (same as #2 and to the end of file) Thanks for any insights. __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN