and google with ibm redbooks ziip db2 usage _________________ 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 Image may be NSFW. Clik here to view.
I need to rename by DS as SYS1.ABCD.** as the DUMP DS contains my HLQ.
But I got the below error.
Code:
ADR141E (001)-RI03 (02), ERROR IN DATA SET NAME SYS1.ABCD.**
ADR017E (001)-CLTSK(01), 2016.288 10:52:16 TASK NOT SCHEDULED DUE TO ERROR. TASK RETURN CODE 0008
Author: Bill Woodger
Subject: Reply to: cobol embedded sql
Posted: Fri Oct 14, 2016 4:07 pm (GMT 5.5)
This has nothing to do with Mainframes, I suspect.
Your biiiiiggg column can contain 500k of data?
I'm not sure what you mean by "read out". If you wanted to put that 500k in the "host variable" somewhere else, you could just MOVE W-Daten TO somewhere-else (assuming you define it).
If you want to do something else with it, psychic day was Wednesday this week. Which also applies to your "doesn't work" SQL statement.
At a wild guess I'd say you've forgotten to press the power button on the little box containing your server, but that is a completely wild guess and almost certainly wrong.
Author: enrico-sorichetti
Subject: Reply to: Error during restore rename
Posted: Fri Oct 14, 2016 4:19 pm (GMT 5.5)
if You had cared to look at the RENAMEUNC clause in the dfdss manuals
You would have found the error Yourself without asking on a forum
or even better... looked at the manual before submitting the JOB _________________ 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 Image may be NSFW. Clik here to view.
Author: Robert Sample
Posted: Fri Oct 14, 2016 5:35 pm (GMT 5.5)
Quote:
What ist :W-Daten ? Is it an array or is it a string variable ??
Be aware that COBOL dates back to 1959 and hence there is no such thing as a "string" in COBOL like in Java or Perl or C or ... And as your code snippet has it defined, W-Daten is an alphanumeric group level variable of 524,288 bytes. It contains an array but it is not an array. _________________ TANSTAAFL
The first rule of code reuse is that the code needs to be worth re-using.
"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth
Author: Gunapala CN
Subject: How can we have the varying lenth of key filed in join key!
Posted: Fri Oct 14, 2016 7:31 pm (GMT 5.5)
Hi Folks,
I've come across once scenario while using Join keys :
problem statement :Compare two different length of files(length of 10 & 18), write all key matched records from dataset-2 against dataset-1 into the one output data set.
Key Filed, would get vary from 1 to till 5 length from two data sets records.
Problem here is duplicates and incorrect mapping for example : dataset records is G1AJJ provided, basicaly it find first letter match from second file but its exact match would be G1.
what exactly i want is that is there any way to put varying key size while matching since this key filed expected to be varry from 1 to 5 length
Thanks for all in advance !!
Note - anyway im writing COBOL pgm to handle this but i just curios to know if any other way of doing it Image may be NSFW. Clik here to view.
CODE' D help people who spend their time on Your issues _________________ Gunapala
Author: Arun Raj
Subject: Reply to: How to use 2 input files in control control card
Posted: Fri Oct 14, 2016 7:54 pm (GMT 5.5)
My apologies for posting on a locked one. Just thought of sharing something that came to me.
Code:
//STEP01 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN= Input control data set (FB/80) : (ON/OFF/TRIAL)
//SORTOUT DD DSN=&C1,DISP=(NEW,PASS),SPACE=(TRK,(1,1))
//SYSIN DD * OPTION COPY INREC FINDREP=(INOUT=(C'OFF',C'FROM(IN1)-', C'ON',C'FROM(IN2)-', C'TRIAL',C'FROM(IN3)-'),ENDPOS=5)
/*
//STEP02 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN= Input data set1
//IN2 DD DSN= Input data set2
//IN3 DD DSN= Input data set3
//OUT DD DSN= Output data set
//TOOLIN DD * COPY -
// DD DSN=&C1,DISP=SHR
// DD * TO(OUT)
//*
_________________ Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
Author: enrico-sorichetti
Subject: Reply to: How to use 2 input files in control control card
Posted: Fri Oct 14, 2016 8:03 pm (GMT 5.5)
nothing to worry about that,
it' s one of the privileges of the moderators Image may be NSFW. Clik here to view. _________________ 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 Image may be NSFW. Clik here to view.
Welcome!!
DATEN (German- lang) -- > Data (English- Lang)
1. You cannot be able to do this because DB2 wants one ROW at a time, so you would need to have some kind of loop where WS-DATEN is moved to another variable of 1024 size and then use that <another variable> in the same insert query and perform this until 500 times or WS-DATEN=SPACES
2. Look for MULTI INSERT where you can provide # of rows that you are inserting.
So next time, provide us the error messages along with the SQL and there is something called "BB Codes" which you can use representing the data. _________________ Regards,
Rohit Umarjikar "Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."Image may be NSFW. Clik here to view.
If you could export the data to dataset , LOAD utility could be considered as well. _________________ To understand recursion, You must understand recursion
Pandora Image may be NSFW. Clik here to view.
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
IBM don't charge for zIIP engines to compete with others. _________________ Regards,
Rohit Umarjikar "Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."Image may be NSFW. Clik here to view.
Author: Robert Sample
Posted: Fri Oct 14, 2016 9:59 pm (GMT 5.5)
Quote:
IBM don't charge for zIIP engines to compete with others.
What is your source for this information? I've seen price quotes from $40,000 to $100,000 (depending on the machine -- more for z13 and less for z9) per zIIP engine. This is significantly less than the cost of a standard engine, but certainly zIIP engines are not free. From http://www-03.ibm.com/systems/z/hardware/features/ziip/pricing.html
Quote:
The zIIPs are attractively priced delivering a lower total cost of acquisition.
The maintenance price for the zIIP is significantly lower than that of general purpose CPs. Also, the z13 provides symmetric multithreading (SMT) support for zIIP specialty engines. The use of SMT can provide significantly more throughput for zIIPs.
_________________ TANSTAAFL
The first rule of code reuse is that the code needs to be worth re-using.
"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth
You are right, I double checked with another DBA and the link by you , it is at discounted price with finite capacity.
some bmc options for simple (non-sql) unload & load, such as DIRECT YES that cut CPU significantly. _________________ Regards,
Rohit Umarjikar "Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."Image may be NSFW. Clik here to view.
Author: Robert Sample
Posted: Fri Oct 14, 2016 10:16 pm (GMT 5.5)
There are advantages to using zIIP engines (you can have 2, or in some limited cases 4, per general processor; they run at the full machine speed no matter what the general processor(s) speed is; if they're installed the operating system will use them automatically; no software charges on zIIP processors; can lower 4-hour rolling average MSUs for sub-capacity sites) but they do have a cost. _________________ TANSTAAFL
The first rule of code reuse is that the code needs to be worth re-using.
"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth
Author: balaji81_k
Subject: Get correct date and time when current time is over 12 hrs
Posted: Fri Oct 14, 2016 10:40 pm (GMT 5.5)
Hi ,
I have written a SQL query to create a date file which is used by job to fetch sales data for every past 1 hour . Problem is when current time is pass 12 hours y (i,e) by 12 AM it is fetching CURRENT DATE which is wrong , for that we are hardcoding date for the query input .
Code:
SELECT CAST(VARCHAR_FORMAT(GREGORIAN_DATE,'MM/DD/YYYY') AS CHAR(10)),
CAST('|' AS CHAR(1)),
CAST(VARCHAR_FORMAT(GREGORIAN_DATE,'YYYY.MM.DD') AS CHAR(10)),
SUBSTR(DIGITS(COL2),9,2),
CAST('|' AS CHAR(1)),
CASE WHEN GREGORIAN_DATE = DATE(CURRENT_TIMESTAMP - 1 HOUR) AND COL2 = HOUR(CURRENT_TIME - 1 HOUR) THEN CAST ('CURRHOUR' AS CHAR(8))
WHEN GREGORIAN_DATE = DATE(CURRENT_TIMESTAMP - 2 HOUR) AND COL2 = HOUR(CURRENT_TIME - 2 HOUR) THEN CAST ('PREVHOUR' AS CHAR(8))
WHEN GREGORIAN_DATE = CURRENT_DATE AND COL2 >= HOUR(CURRENT_TIME) THEN CAST('OPENHOUR' AS CHAR(8))
ELSE CAST('CLSDHOUR' AS CHAR(8)) END,
CAST('|' AS CHAR(1)),
SUBSTR(DIGITS(HOUR(CURRENT_TIME - 2 HOUR)),9,2)
CAST('|' AS CHAR(1)),
SUBSTR(DIGITS(HOUR(CURRENT_TIME - 1 HOUR)),9,2)
CAST('|' AS CHAR(1))
FROM TEST.CALENDER_TABLE , (SELECT 00 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 01 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 02 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 03 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 04 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 05 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 06 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 07 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 08 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 09 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 10 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 11 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 12 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 13 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 14 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 15 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 16 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 17 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 18 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 19 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 20 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 21 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 22 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL SELECT 23 AS COL2 FROM SYSIBM.SYSDUMMY1 UNION ALL) AS A
WHERE GREGORIAN_DATE = CURRENT_DATE <- hardcoded everytime with current date on each day .
ORDER BY GREGORIAN_DATE,COL2
WITH UR;
Output file looks like
10/14/2016|2016.10.14|00|CLSDHOUR|09|10|
....
....,
WHEN IT RUNS at 12:30 in Night it represents as
10/15/2016|2016.10.15|23|CURRHOUR|22|23|
but expected is
10/14/2016|2016.10.14|23|CURRHOUR|22|23|
I should check for time by adding another case while populating when time crosses 12 hrs. Can any one help me in checking this case and also i need to feed the current date as input . _________________ dear peoples,
i want to join these this group in order to
enrich my knowledge in mainframe.
