Author |
Message |
Topic: OCOPY JCL to copy PDS to unix folder |
Magesh_J
Replies: 3
Views: 5793
|
Forum: Other Technical Topics Posted: Wed Feb 24, 2021 3:22 pm Subject: OCOPY JCL to copy PDS to unix folder |
Hi Kolusu,
Thanks for the response.
I am getting the following error.
IEF344I USERIDA COPYSTEP OUT - ALLOCATION FAILED DUE TO DATA FACILITY SYSTEM ERROR
IGD17501I ATTEMPT TO OPEN A HFS FIL ... |
Topic: OCOPY JCL to copy PDS to unix folder |
Magesh_J
Replies: 3
Views: 5793
|
Forum: Other Technical Topics Posted: Sun Feb 21, 2021 10:56 pm Subject: OCOPY JCL to copy PDS to unix folder |
Hi,
Could someone help me with the jcl
//COPYSTEP EXEC PGM=IKJEFT01
//IN DD DSN=YOUR.PDS(MEM1),DISP=SHR
//OUT DD PATH='/u/userid/cobol/', ... |
Topic: IFTHEN WHEN hit=next with else condition |
Magesh_J
Replies: 2
Views: 2186
|
Forum: Utilities Posted: Mon Dec 07, 2020 9:22 pm Subject: IFTHEN WHEN hit=next with else condition |
Hi Kolusu,
Thanks for the advice,
Yes, it's a typo.
IFTHEN=(WHEN=(POSTED,EQ,NUM),
OVERLAY=(12:12,12,ZD,ADD,
... |
Topic: IFTHEN WHEN hit=next with else condition |
Magesh_J
Replies: 2
Views: 2186
|
Forum: Utilities Posted: Mon Dec 07, 2020 3:38 pm Subject: IFTHEN WHEN hit=next with else condition |
Hi,
i have a scenario
if posted is numeric
add POSTED to total
end-if
if clear-flag = 'y'
add susp to total
else
add asusp to total
end-if
Please advise if the following s ... |
Topic: SORT to remove specific duplicate record |
Magesh_J
Replies: 4
Views: 2801
|
Forum: Utilities Posted: Wed Jul 29, 2020 6:37 pm Subject: SORT to remove specific duplicate record |
I missed this trick, make 'TEEE' to zero, and sort the record to make the TEEE record first in order.
INREC OVERLAY=(81:26,4,CHANGE=(1,C'TEEE',C'0'),
... |
Topic: SORT to remove specific duplicate record |
Magesh_J
Replies: 4
Views: 2801
|
Forum: Utilities Posted: Wed Jul 29, 2020 5:08 pm Subject: SORT to remove specific duplicate record |
Hi Kolusu,
Thanks for looking.
If we have a unique record alone, then it is valid, it should be copied and RC should be 0, even if it doesn't have TEEE.
if we have a duplicate record, it may ... |
Topic: SORT to remove specific duplicate record |
Magesh_J
Replies: 4
Views: 2801
|
Forum: Utilities Posted: Wed Jul 29, 2020 3:07 pm Subject: SORT to remove specific duplicate record |
Is this possible in sort.
case 1
AAABBBCCCDDDEEEFF TEEE
AAABBBCCCDDDEEEFF TAAA
AAABBBCCCDDDEEE12 TEEE
AAABBBCCCDDDEEE13 BCCC
Case 2
AAABBBCCCDDDEEEFF ... |
Topic: Dynamically pass Cobol variable |
Magesh_J
Replies: 3
Views: 2106
|
Forum: Application Programming Posted: Tue Mar 24, 2020 5:15 pm Subject: Dynamically pass Cobol variable |
Thanks, Robert. Good idea.
Regards,
Magesh |
Topic: Dynamically pass Cobol variable |
Magesh_J
Replies: 3
Views: 2106
|
Forum: Application Programming Posted: Tue Mar 24, 2020 12:38 pm Subject: Dynamically pass Cobol variable |
I have a file of 600 fields, the requirement is to handle 50 to 60 fields with the simple conditions and skips the record from being written into the output file.
I have to create a program to dyna ... |
Topic: How to get Line of code for each application |
Magesh_J
Replies: 10
Views: 3651
|
Forum: Utilities Posted: Fri Feb 28, 2020 12:08 pm Subject: How to get Line of code for each application |
Magesh_J,
Just so you know, you can use the SAVE command in ISPF to save the member names and stats to a file.
Open the PDS and at command prompt issue the command
SAVE any8-character-name
... |
Topic: How to get Line of code for each application |
Magesh_J
Replies: 10
Views: 3651
|
Forum: Utilities Posted: Mon Feb 24, 2020 5:55 pm Subject: How to get Line of code for each application |
IMHO, the counting lines of code is a futile exercise. You don't exclude the comments in the program and if you count the comments as lines of code, then it is misleading
And how about blank lines ... |
Topic: How to get Line of code for each application |
Magesh_J
Replies: 10
Views: 3651
|
Forum: Utilities Posted: Mon Feb 24, 2020 1:32 pm Subject: How to get Line of code for each application |
File aid utility is much faster, found it mvsforum itself.
//STEP0100 EXEC PGM=FILEAID
//*
//SYSLIST DD SYSOUT=*
//SY ... |
Topic: How to get Line of code for each application |
Magesh_J
Replies: 10
Views: 3651
|
Forum: Utilities Posted: Mon Feb 24, 2020 1:08 pm Subject: How to get Line of code for each application |
Hi,
I am trying to fetch LOC(lines of code) for each application.
I have programs in PDS, the goal is to identify LOC.
//IEBPTPCH EXEC PGM=IEBPTPCH
//S ... |
Topic: DB2 query to fetch last known value. |
Magesh_J
Replies: 7
Views: 3730
|
Forum: Database Posted: Wed Feb 19, 2020 3:18 pm Subject: DB2 query to fetch last known value. |
Hi Kolusu,
will correct it from next time
Regards,
Magesh |
Topic: DB2 query to fetch last known value. |
Magesh_J
Replies: 7
Views: 3730
|
Forum: Database Posted: Tue Feb 18, 2020 8:15 pm Subject: DB2 query to fetch last known value. |
Hi Kolusu,
Thank you very much for your suggestion.
instead of updating, I am thinking to insert and delete the old record.
Please advise.
INSERT INTO TABLE(ACCOUNT,CURED,CODE1,FIELD ... |
|