Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all 8500 articles
Browse latest View live

DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: magesh23586
Subject: Reply to: How to use 2 input files in control control card
Posted: Thu Oct 13, 2016 9:36 pm (GMT 5.5)

Assuming

Your Header or FILE1 has

Code:

----+----1----+----2
ON                 


OR

Code:

----+----1----+----2
OFF


OR

Code:

----+----1----+----2
TRAIL


And assuming LRECL=80

you may try below code.

Code:

//STEP01  EXEC PGM=SORT                                     
//SORTIN  DD DSN=FILE1,DISP=SHR                             
//        DD *                                               
FILE2                                                       
//        DD DSN=FILE2,DISP=SHR                             
//        DD *                                               
FILE3                                                       
//        DD DSN=FILE3,DISP=SHR                             
//        DD *                                               
FILE4                                                       
//        DD DSN=FILE4,DISP=SHR                             
//SORTOUT DD DSN=FILE5,DISP=(,CATLG,DELETE),SPACE=(CYL,(10,10),RLSE)
//SYSOUT  DD SYSOUT=*                                       
//SYSIN   DD *                                               
  OPTION COPY
                                               
  INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,3,CH,EQ,C'OFF',OR,       
                            1,2,CH,EQ,C'ON',OR,             
                            1,5,CH,EQ,C'TRAIL'),             
                           PUSH=(81:1,5)),
                   
        IFTHEN=(WHEN=GROUP,BEGIN=(1,5,CH,EQ,C'FILE2'),       
                           PUSH=(86:1,5)), 

        IFTHEN=(WHEN=GROUP,BEGIN=(1,5,CH,EQ,C'FILE3'),       
                           PUSH=(86:1,5)),   
               
        IFTHEN=(WHEN=GROUP,BEGIN=(1,5,CH,EQ,C'FILE4'),       
                           PUSH=(86:1,5)) 
                 
  OUTFIL INCLUDE=(1,5,SS,NE,C'FILE2,FILE3,FILE4',AND,       
                  1,3,CH,NE,C'OFF',AND,                     
                  1,2,CH,NE,C'ON',AND,                       
                  1,5,CH,NE,C'TRAIL',AND,                   
         (81,10,SS,EQ,C'OFF  FILE2,ON   FILE3,TRAILFILE4')),

         BUILD=(1,80)                                       
                                                             

_________________
Regards,
Magesh


DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: magesh23586
Subject: Reply to: How to use 2 input files in control control card
Posted: Thu Oct 13, 2016 9:48 pm (GMT 5.5)

Note: I have used FILE2, FILE3, FILE4 as instream data, because I don't know whether you have a unique identifier for each file.

If you have the unique identifier for each file, then you may use that in IFTHEN=(WHEN=GROUP,BEGIN/KEYBEGIN=.. and remove FILE1,FILE2,FILE3 instream data
_________________
Regards,
Magesh

DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: enrico-sorichetti
Subject: Reply to: How to use 2 input files in control control card
Posted: Thu Oct 13, 2016 10:03 pm (GMT 5.5)

what a shameful waste of resources !
_________________
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort icon_cool.gif

JCL & VSAM :: RE: Error IEC161I 052(009,XXXRS00)-084 while trying to write

$
0
0
Author: Rohit Umarjikar
Posted: Thu Oct 13, 2016 10:11 pm (GMT 5.5)

Quote:
Seniors please correct me, we do not place explicit open/close commands in CICS modules. Instead of having control section, we let FCT entry and CICS to manage it.
That is just right.

IEC161I (return code 052)
If you don't find it from manuals or here ,what to do then I would suggest you sending an email to your site: storage Admin group about the err.
_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."icon_razz.gif

DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: Gunapala CN
Subject: Re: Reply to: How to use 2 input files in control control card
Posted: Thu Oct 13, 2016 10:36 pm (GMT 5.5)

magesh23586 wrote:
Assuming

Your Header or FILE1 has

Code:

----+----1----+----2
ON                 


OR

Code:

----+----1----+----2
OFF


OR

Code:

----+----1----+----2
TRAIL


And assuming LRECL=80

you may try below code.

Code:

//STEP01  EXEC PGM=SORT                                     
//SORTIN  DD DSN=FILE1,DISP=SHR                             
//        DD *                                               
FILE2                                                       
//        DD DSN=FILE2,DISP=SHR                             
//        DD *                                               
FILE3                                                       
//        DD DSN=FILE3,DISP=SHR                             
//        DD *                                               
FILE4                                                       
//        DD DSN=FILE4,DISP=SHR                             
//SORTOUT DD DSN=FILE5,DISP=(,CATLG,DELETE),SPACE=(CYL,(10,10),RLSE)
//SYSOUT  DD SYSOUT=*                                       
//SYSIN   DD *                                               
  OPTION COPY
                                               
  INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,3,CH,EQ,C'OFF',OR,       
                            1,2,CH,EQ,C'ON',OR,             
                            1,5,CH,EQ,C'TRAIL'),             
                           PUSH=(81:1,5)),
                   
        IFTHEN=(WHEN=GROUP,BEGIN=(1,5,CH,EQ,C'FILE2'),       
                           PUSH=(86:1,5)), 

        IFTHEN=(WHEN=GROUP,BEGIN=(1,5,CH,EQ,C'FILE3'),       
                           PUSH=(86:1,5)),   
               
        IFTHEN=(WHEN=GROUP,BEGIN=(1,5,CH,EQ,C'FILE4'),       
                           PUSH=(86:1,5)) 
                 
  OUTFIL INCLUDE=(1,5,SS,NE,C'FILE2,FILE3,FILE4',AND,       
                  1,3,CH,NE,C'OFF',AND,                     
                  1,2,CH,NE,C'ON',AND,                       
                  1,5,CH,NE,C'TRAIL',AND,                   
         (81,10,SS,EQ,C'OFF  FILE2,ON   FILE3,TRAILFILE4')),

         BUILD=(1,80)                                       
                                                             


Thank you Magesh icon_smile.gif I will try out with my Test data.. Thanks for your time.
_________________
Gunapala

DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: Rohit Umarjikar
Posted: Thu Oct 13, 2016 10:49 pm (GMT 5.5)

Welcome!!
1.You could have finished coding + testing in 1 hour, if you have done through COBOL or any other known language to you and whoever forcing you to do through DFSORT should be asked for justifications else should quit the job.
2.Now coming to your original post, (Value1/Value2/value3) are they mutually exclusive? if so then you can set the RC accordingly (which you already know/told) in previous step and in next step you can pick dataset based on RC.
3.Abid Hasan has a nice suggestion too but why make things complex when you know COBOL is easiest and simple to code and maintain.
_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."icon_razz.gif

JCL & VSAM :: RE: Error IEC161I 052(009,XXXRS00)-084 while trying to write

$
0
0
Author: amitc23
Posted: Thu Oct 13, 2016 10:50 pm (GMT 5.5)

That's correct Rohit. I removed handle condition from the command and I got a AFDK abend which means some problem in the file definition related to LSR pool or with isolate option in transaction definition. Sent it to CICS support team.

JCL & VSAM :: RE: Error IEC161I 052(009,XXXRS00)-084 while trying to write

$
0
0
Author: Rohit Umarjikar
Posted: Thu Oct 13, 2016 10:56 pm (GMT 5.5)

Quote:
Sent it to CICS support team
,That's the right step you took.
CICS abend - AFDK
_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."icon_razz.gif


DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: Gunapala CN
Posted: Thu Oct 13, 2016 11:05 pm (GMT 5.5)

Hello Rohit sir,

Fantastic!!

I agree with you, this is not forced do it from some one! Just I am curious to know any other way of doing it.

As you told we can do it by having RC code set in previous step since those three values are constant always. Actually those I'm fetching from table in previous step by passing key and these are expect to be same all time.

Comming to have cobol module for this problem statement is not suggestable, if we can achieve using sort utilities which are in hand. And as you know, maintaining or implementing cobol changes to live is not easy as compare to jcls changes.

Anyway thanks for your time and suggestions.

Regards
Gunapal
_________________
Gunapala

DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: Arun Raj
Posted: Thu Oct 13, 2016 11:23 pm (GMT 5.5)

Gunapala CN wrote:
Comming to have cobol module for this problem statement is not suggestable, if we can achieve using sort utilities which are in hand. And as you know, maintaining or implementing cobol changes to live is not easy as compare to jcls changes.
I don't know how you arrived at such a 'conclusion'. Reading a one record data set and issuing a return-code/copying other files is so difficult to maintain and implement in COBOL? May be the definition of 'easy' for you might be different from the vast majority. Did you realize that the DFSORT 'solution' is processing through all the 3 input data sets, where your original requirement was to copy only one of these? And you '#ignore' waste of resources. Good luck. icon_smile.gif

"When all you have is a hammer, everything looks like a nail"
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard

DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: Gunapala CN
Posted: Thu Oct 13, 2016 11:44 pm (GMT 5.5)

Arun Raj wrote:
Gunapala CN wrote:
Comming to have cobol module for this problem statement is not suggestable, if we can achieve using sort utilities which are in hand. And as you know, maintaining or implementing cobol changes to live is not easy as compare to jcls changes.
I don't know how you arrived at such a 'conclusion'. Reading a one record data set and issuing a return-code/copying other files is so difficult to maintain and implement in COBOL? May be the definition of 'easy' for you might be different from the vast majority. Did you realize that the DFSORT 'solution' is processing through all the 3 input data sets, where your original requirement was to copy only one of these? And you '#ignore' waste of resources. Good luck. icon_smile.gif


Yup Agreed!! Regarding 'conclusion' process which follow to new amendments to existing modules and jcls are likely to be different and it's different across project to project... Anyway the topic is not that here...

But few ppl responses to the request is seems to be not fine because you can't decide someone capability just like that and none of our job here.. Ppl can ignore such request which incomplete or may ask for repost it rather than talking in bad manner. Also I understand other ppl time so I alway gfeatful for that!
_________________
Gunapala

DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: Rohit Umarjikar
Posted: Thu Oct 13, 2016 11:51 pm (GMT 5.5)

Don't take it personally Gunapala but people here have tremendous knowledge and hands on and based on that they comment and advise so if we are at the receiving end of the HELP then one should be submissive and obliged by accepting the way they advise us and most importantly take that in positive way. Btw, COBOL is easy for maintenance than anything. I see this topic is getting locked soon.
_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."icon_razz.gif

DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: Gunapala CN
Posted: Fri Oct 14, 2016 12:11 am (GMT 5.5)

Rohit Umarjikar wrote:
Don't take it personally Gunapala but people here have tremendous knowledge and hands on and based on that they comment and advise so if we are at the receiving end of the HELP then one should be submissive and obliged by accepting the way they advise us and most importantly take that in positive way. Btw, COBOL is easy for maintenance than anything. I see this topic is getting locked soon.


Hi Sir

You are right, Yes i've got many approaches to do my tasks now. I'm sure at least one of those will work out esle I will go with cobol which is completely easy to me as well.

Thanks a lot.. Soon will be comming with new doubts with complete information icon_razz.gif
_________________
Gunapala

DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: Rohit Umarjikar
Posted: Fri Oct 14, 2016 12:18 am (GMT 5.5)

Quote:
Soon will be comming with new doubts with complete information
Thanks and always Welcome!!
_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."icon_razz.gif

CICS :: RE: Single COPY CICS TS datasets and when to make upgrade effect


CLIST & REXX :: RE: Replace repeated JCL with looping REXX

$
0
0
Author: prino
Subject: Re: Reply to: Replace repeated JCL with looping REXX
Posted: Fri Oct 14, 2016 1:55 am (GMT 5.5)

enrico-sorichetti wrote:
You know the logic better than anybody else, so I' ll just stick to the SET stuff.

what liberty do You have in installing free software on the system.

Rhetorical question, I presume? icon_cool.gif

enrico-sorichetti wrote:

I have tested both on MVS 3.8 an on zOS 10
the Control Card subsystem in file 364 of the cbt tape

that would solve in a simple and elegant fashion
the problem of reading as a dataset the SET stuff

if You are interested It should take just couple of hours to test it again

for a proc the jcl would look like

Code:

//CCSSTEST JOB (CCSS),
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1),
//             REGION=4096K
//*********************************************************************
//*
//ZTEST   PROC               
//CCSS    EXEC PGM=IEBGENER               
//SYSPRINT  DD SYSOUT=*                       
//SYSIN     DD DUMMY                           
//SYSUT1    DD SUBSYS=(CCSS,
//             'START OF FILE',
//             ' X &PAR1. X',
//             ' Y &PAR2. Y',
//             &PAR3.,'+',
//             &PAR4.,
//             &PAR5.,
//             &PARZ.,
//             'END   OF FILE'),
//             DCB=(LRECL=80)
//SYSUT2   DD SYSOUT=*                         
//       PEND                                       
//TEST   EXEC ZTEST,
//            PAR1=A,
//            PAR2=BB,
//            PAR3=CCC,
//            PAR4=DDDD,
//            PAR5=EEEEE,
//            PARZ=ZZZZZZ


the only bother would to write the ddname with the SET vars

You could always test it on that icon_wink.gif system

if You want it I will send You my streamlined version


I'm interested, but I will probably use a somewhat easier route and add a

Code:
//PARMDD DD DSN=&SYSUID.$SET1..&SET2..&SETn,
//          DISP=(MOD,DELETE),
//          SPACE=(TRK,0)

and parse the DSN obtained via LISTDSI() and with REXX it's obviously far easier to allocate different SYSIN members for ISRSUPC for those n+1 versus n compares where I need to mask "irrelevant" changes.

I find thatI'm using "that" system a lot less than the same 1.10 system you also seem to be using. icon_lol.gif
_________________
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
No programming here (yet) icon_smile.gif

DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: Rohit Umarjikar
Posted: Fri Oct 14, 2016 2:05 am (GMT 5.5)

Magesh has realized the wasting of resources and came up with this solution as per point#2 from my post.
Code:
//CPYJK EXEC PGM=ICETOOL                   
//TOOLMSG DD SYSOUT=*                       
//SYSOUT DD SYSOUT=*                       
//DFSMSG DD SYSOUT=*                       
//IN1 DD DISP=FILE1,DISP=SHR               
//OUT2 DD SYSOUT=*                         
//TOOLIN DD *                               
  COUNT FROM(IN1) NOTEMPTY RC4 USING(CTL1) 
  COUNT FROM(IN1) NOTEMPTY RC8 USING(CTL2) 
/*                                         
//CTL1CNTL DD *                             
  INCLUDE COND=(1,3,CH,EQ,C'OFF')           
//CTL2CNTL DD *                             
  INCLUDE COND=(1,2,CH,EQ,C'ON')           
//COND1  IF RC = 04 THEN                   
//SORT01  EXEC PGM=SORT                     
//SORTIN  DD DISP=FILE2,DISP=SHR           
//SORTOUT DD DISP=(,CATLG,DELETE),         
//           SPACE=(CYL,(10,10),RLSE),     
//           DSN=FILE5       
//SYSOUT  DD SYSOUT=*                   
//SYSIN   DD *                           
  OPTION COPY                           
//     ENDIF                             
//COND2  IF RC = 08 THEN                 
//SORT02  EXEC PGM=SORT                 
//SORTIN  DD DISP=FILE3,DISP=SHR         
//SORTOUT DD DISP=(,CATLG,DELETE),       
//           SPACE=(CYL,(10,10),RLSE),   
//           DSN=FILE5                   
//SYSOUT  DD SYSOUT=*                   
//SYSIN   DD *                           
  OPTION COPY                           
//     ENDIF                             
//COND3  IF RC = 00 THEN                 
//SORT03  EXEC PGM=SORT                 
//SORTIN  DD DISP=FILE4,DISP=SHR         
//SORTOUT DD DISP=(,CATLG,DELETE),       
//           SPACE=(CYL,(10,10),RLSE),   
//           DSN=FILE5     
//SYSOUT  DD SYSOUT=*     
//SYSIN   DD *           
  OPTION COPY             
//     ENDIF           

_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."icon_razz.gif

DFSORT/ICETOOL :: RE: How to use 2 input files in control control card

$
0
0
Author: enrico-sorichetti
Subject: Reply to: How to use 2 input files in control control card
Posted: Fri Oct 14, 2016 2:30 am (GMT 5.5)

thanks &deity

sometime it is necessary to use borderline methods - locking a topic -
to make people understand that they are on the wrong path

by the way
Quote:
one should be submissive and obliged by accepting the way they advise us


I do not pretend submission, just consideration for the experience we share icon_wink.gif
_________________
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort icon_cool.gif

COBOL Programming :: Run stats processing on zIIP Engine

$
0
0
Author: Virendra Shambharkar
Subject: Run stats processing on zIIP Engine
Posted: Fri Oct 14, 2016 10:24 am (GMT 5.5)

Hi,

With DB2 V11 RUNSTATS processing like COLCARD, FREQVAL, HISTOGRAM statistics, including inline stats are zIIP eligible . As we understand that DBA does not have control where DB2 utilities will run . DB2 decides that.
Are there any pointers how we can move DB2 utilities to run on zIIP engine?

FYI -IBM's System z Integrated Information Processor (zIIP) is a specialty offload engine that helps improve
computing performance for a subset of mainframe workloads

Thanks,
Virendra
_________________
Virendra Shambharkar

COBOL Programming :: cobol embedded sql

$
0
0
Author: MS_Developer
Subject: cobol embedded sql
Posted: Fri Oct 14, 2016 2:39 pm (GMT 5.5)

Hi any body's
I'm a developer in Microsoft World, exactly MS-SQL-Server ;-)
My question ist:
How can I export W-Daten into an SQL-Server in one step and also from SQL-Server back into W-Daten?

What ist :W-Daten ? Is it an array or is it a string variable ??
How can I read this values out from :W-Daten? maybe with a Loop constructor ? in Visual Basich is it a For i=0 to x .... Next

for your information, I'm not COBOL expert only Expert in Microsoft World, exactly MS-SQL-Server ;-)

Her are a COBOL snippet :

01 W-DATEN.
05 FILLER PIC X(1024) OCCURS 500 TIMES.

EXEC SQL
insert into Tabelle (GROOOOSSSE_SPALTE)
values (:W-DATEN)
END-EXEC

This sql statement not works :-(

brgds
Frank

Viewing all 8500 articles
Browse latest View live