September 1, 2016, 9:34 am
Author:
amitc23
Subject: Reply to: Problem with GETMAIN command
Posted: Thu Sep 01, 2016 10:04 pm (GMT 5.5)
Thanks Rohit. Will talk to cics support tomorrow.
↧
September 1, 2016, 10:02 am
Author:
Robert Sample
Posted: Thu Sep 01, 2016 10:32 pm (GMT 5.5)
I echo the others in saying you do not provide nearly enough information -- when you tell us something isn't working, you need to tell us what message(s) you get or the CICS response code value (at least).
If the source code is COBOL, are you compiling DATA(24) or DATA(31)? If you are compiling with DATA(24), then your GETMAIN requests come out of DSA and since you've asked for 4.7 million bytes when the GETMAIN requests stop working, I wouldn't be surprised to find SHORT-ON-STORAGE conditions occurring. DATA(31) would indicate the GETMAIN requests are coming from EDSA, but then the question is what size is your EDSA -- a question only your site support group can answer for you.
As otherwise stated, you REALLY need to talk to your site support group -- they are the only ones that will be able to help you. We can guess, but since we don't work at your site we cannot provide you with much help with this problem.
_________________
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
↧
↧
September 1, 2016, 10:35 am
Author:
Pedro
Subject: Reply to: reorder screeNS using SWAP LIST?
Posted: Thu Sep 01, 2016 11:05 pm (GMT 5.5)
Newer levels of ISPF allow you to define a ZSTART variable in your profile. ZSTART is used to automatically start your applications in a consistent order. See the Developers Guide and Reference.
But there is no way to reorder the SWAP LIST afterwards.
_________________
Pedro Vera
↧
September 1, 2016, 10:48 am
Author:
Pedro
Subject: Reply to: I am unable to use SWAPBAR ON command on my ISPF.
Posted: Thu Sep 01, 2016 11:18 pm (GMT 5.5)
| Quote: |
| Is there any solution for it? |
It sounds like your site uses a modified ISPF command table. And therefore you miss when ISPF makes changes to its command table.
The solution is for your site to delete it's copy of ISPCMDS and instead use the SITECMDS table, which should only contain your local changes.
Search your ISPTLIB concatenation to see if the actual ISPCMDS is farther down in the list. Perhaps you can change the order of concatenation so that you use the product default table, rather than the site's modified table.
You can 'fix' it for yourself by using USERCMDS table with the correct entries. Use ISPF option 3.9 to add entries. You at least need entries for SWAPBAR and SCRNAME.
ps: having a tiered system of command tables was a suggestion I made to ISPF developers in the 1990's. You are welcome.
_________________
Pedro Vera
↧
September 1, 2016, 12:26 pm
Author:
John Del
Posted: Fri Sep 02, 2016 12:56 am (GMT 5.5)
Assuming that you are using an emulator, you can record a macro as you are entering the swaplist commands in the order that you want your screens to appear on the swapbar. Further, you can then map the macro to a keyboard combination that you could enter after logging in which will set up your swaplist/bar in the same order every time.
Thus, even if your shop won't allow use of scrname, you will become familiar with where each screen is positioned on the swapbar that you want to swap to. Consider configuring your mouse right button as enter, and/or the specific screen names as hot spots lets you swap to them easily by clicking on them.
Mapping the EPDF and DSLIST commands to the keyboard will reduce using the swapbar, too. Also, the RETP and REFRESH commands come in handy when they are mapped too.
↧
↧
September 1, 2016, 11:45 pm
Author:
pshongal
Subject: HEADER1 error in JCL
Posted: Fri Sep 02, 2016 12:15 pm (GMT 5.5)
I need a report in below format
| Code: |
H|Feeder=abbb|Date=YYYYMMDD|SEQNO=1001
D|Detail records goes here
T|Counter=1
|
I am getting error at header part. It goes well if I remove header.
| Code: |
SYNCSORT FOR Z/OS 2.1.2.0R U.S. PATENTS: 4210961, 5117495 (C) 2014 SYNCSO
AMERICAN EXPRESS z/OS 2.1.0
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 1C7E7, MODEL 2964 606 LICEN
ZPSort LICENSE/PRODUCT EXPIRATION DATE: 02 DEC 2019
SYSIN :
SORT FIELDS=COPY
OUTFIL REMOVECC,
HEADER1=(1:'H|Feeder=CCCAlerts|Date=',
*
25:&DATE1,
33:'|SEQNO='),
BUILD=(1:C'D',2:C'|CardNumber=',14:17,15,29:C'|CountryId=',
40:C'XXX',43:C'|aaaaaaa=28',54:C'|vvvvvv=',62:845,6,
68:C'|sumAmt=',76:86,6,PD,EDIT=(TTTTTTTTTT),
86:C'|soName=',94:96,25,119:C'|soCity=',128:121,21,
149:C'|sumDate=',159:76,10),
TRAILER1=('T|Counter=',COUNT=(EDIT=(TTTTTTTTT)))
WER813I INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED
WER268A OUTFIL STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
|
_________________
Thanks,
PS
↧
September 1, 2016, 11:48 pm
Author:
PeterHolland
Posted: Fri Sep 02, 2016 12:18 pm (GMT 5.5)
What is the comma doing there?
↧
September 1, 2016, 11:54 pm
Author:
pshongal
Posted: Fri Sep 02, 2016 12:24 pm (GMT 5.5)
Hi Peter,
comma is required there at the end of header definition. If I remove it shows error in all the places of details and trailer records.
the error it is showing now is for the comma in first line of header.
| Code: |
(1:'H|Feeder=CCCAlerts|Date=',
*
|
_________________
Thanks,
PS
↧
September 2, 2016, 12:30 am
Author:
mistah kurtz
Posted: Fri Sep 02, 2016 1:00 pm (GMT 5.5)
DATE1 is not valid on HEADER1. I think you need to use DATENS=(4MD).
↧
↧
September 2, 2016, 12:37 am
Author:
steve-myers
Posted: Fri Sep 02, 2016 1:07 pm (GMT 5.5)
| Robert Sample wrote: |
| ... you get over 2 billion values before they start repeating. ... |
Not necessarily. RANDOM returns a floating point value between 0 and 1. It is not stated in Enterprise COBOL for z/OS V4.2 Language Reference if the number is ânormalized,â or âunnormalized,â or if it returns a 32 bit or 64 bit number. If it returns a 32 bit number, which seems most likely, it has a 1 bit sign, a 7 bit exponent, and a 24 bit value. Don't worry about this ânormalizedâ or âunnormalizedâ business â that's just computer number geek talk, though the difference might affect scaling the number to the character set. What's important is 24 bits, which means 2^24 unique values. This is a large number, but it is much less than the 2 billion Mr. Sample innocently talked about.
The next issue is the character set. Lower case, upper case, numbers, and ânational charactersâ is a fairly large set, but I think some characters should be excluded: 0 and 1 (the numbers), O (the upper case letter), o (the lower case character), I (the upper case character), and l (the lower case character) are my suggestions. It is all too easy to misread 0 and O, and l and 1. Heck, 55 years ago I learned to type on a typewriter where the typist was expected to use l, not 1!
↧
September 2, 2016, 12:43 am
Author:
pshongal
Posted: Fri Sep 02, 2016 1:13 pm (GMT 5.5)
Hello mistah kurtz
Thanks. It worked
_________________
Thanks,
PS
↧
September 2, 2016, 3:02 am
Author:
pshongal
Subject: Sequence number add in SORT
Posted: Fri Sep 02, 2016 3:32 pm (GMT 5.5)
I am using below code to increase sequence number every time job runs.
| Code: |
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,24,25:&DATE1,33:C'|SEQNO=',
40:40,6,ZD,ADD,+1,TO=ZD,LENGTH=6,46:122X)
|
My Input:
| Code: |
H|Feeder=upstreams|Date=20160902|SEQNO=000001
|
I am getting output as below.
| Code: |
H|Feeder=upstreams|Date=20160902|SEQNO=00000B
|
I am expecting
| Code: |
H|Feeder=upstreams|Date=20160902|SEQNO=000002
|
What am I missing?
_________________
Thanks,
PS
↧
September 2, 2016, 3:23 am
Author:
enrico-sorichetti
Subject: Reply to: Sequence number add in SORT
Posted: Fri Sep 02, 2016 3:53 pm (GMT 5.5)
the understanding of the ZD representation
_________________
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]()
↧
↧
September 2, 2016, 3:35 am
Author:
pshongal
Posted: Fri Sep 02, 2016 4:05 pm (GMT 5.5)
Thanks Enrico. You are right.
Changed as below and it worked.
_________________
Thanks,
PS
↧
September 2, 2016, 5:57 am
Author:
Robert Sample
Posted: Fri Sep 02, 2016 6:27 pm (GMT 5.5)
| Quote: |
| If it returns a 32 bit number, which seems most likely, it has a 1 bit sign, a 7 bit exponent, and a 24 bit value. Don't worry about this ânormalizedâ or âunnormalizedâ business â that's just computer number geek talk, though the difference might affect scaling the number to the character set. What's important is 24 bits, which means 2^24 unique values. This is a large number, but it is much less than the 2 billion Mr. Sample innocently talked about. |
From ther Enterprise COBOL Language Reference version 6.1 manual:| Quote: |
argument-1
If argument-1is specified, it must be zero or a positive integer. However, only values in the range from zero up to and including 2,147,483,645 yield
a distinct sequence of pseudorandom numbers.
If a subsequent reference specifies argument-1, a new sequence of pseudorandom numbers is started. |
You can use over 2 billion starting seeds -- hence you can have over 2 billion random values.
And the 31 bits all matter -- unless you consider 1.234567 times 10 to the 30th power to be the same value as 1.234567 times 10 to the minus 63rd power. Yes, the mantissa's 24 bits will be the same but the exponent's 7 bits will give you a different value for the number.
_________________
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
↧
September 2, 2016, 6:09 am
Author:
mistah kurtz
Subject: Increase the screen size after split
Posted: Fri Sep 02, 2016 6:39 pm (GMT 5.5)
When we press F2(SPLIT), we can see the two screens in the same window.
Is there any command to adjust the size so that I can see say 5 lines of both the screens.
Thanks
K.
↧
September 2, 2016, 6:40 am
Author:
Robert Sample
Posted: Fri Sep 02, 2016 7:10 pm (GMT 5.5)
Use the arrow keys to move the cursor to where you want the split, then hit the F2 key again.
_________________
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
↧
↧
September 2, 2016, 7:10 am
Author:
steve-myers
Posted: Fri Sep 02, 2016 7:40 pm (GMT 5.5)
Unfortunately, I only have access to Enterprise COBOL for z/OS V4.2 Language Reference. The first sentence for RANDOM says, | Quote: |
| The RANDOM function returns a numeric value that is a pseudorandom number from a rectangular distribution. |
It says nothing about how the 2^31 values in the integer sequence are mapped to the 2^24 values in the 32 bit floating point number. By definition, there will be repeats. If the 31 bits are not mapped properly, IBM's claim of a ârectanglar distributionâ is pure horse s***. I can state with confidence that unless the floating point value is normalized the exponent will always be X'40'.
Since I don't do Cobol, I have no way to test anything, both to test claims about the distribution or to determine if the returned value is normalized.
Unfortunately, fine details about number theory are out of my league, so I better quit.
↧
September 2, 2016, 8:53 am
Author:
kishpra
Subject: Masking Db2 data
Posted: Fri Sep 02, 2016 9:23 pm (GMT 5.5)
Hello Team,
I am working on a requirement where I have an accountNo col in 3-5 Production DB2 tables. I need to unload productions tables into test environment by masking accountNo col in all the tables.
accountNo col is CHAR(19) and I want to mask digits from position 7-18 in a way that this col is masked in a consistent way for all the records and for all the tables where it is referenced to maintain integrity.
Thank you.
_________________
COBOL,JCL,VSAM,CICS,DB2
↧
September 2, 2016, 9:00 am
Author:
enrico-sorichetti
Subject: Reply to: Masking Db2 data
Posted: Fri Sep 02, 2016 9:30 pm (GMT 5.5)
| Quote: |
| consistent way for all the records and for all the tables where it is referenced to maintain integrity. |
then a RYO approach is not the best way.
and if the environment is a financial institution the data masking stuff must go thru Your audit and be certified for compliancy
_________________
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]()
↧
