MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Search found 258 matches
MVSFORUMS.com Forum Index
Author Message
  Topic: OCOPY JCL to copy PDS to unix folder
Magesh_J

Replies: 3
Views: 5716

PostForum: 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: 5716

PostForum: 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: 2151

PostForum: 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: 2151

PostForum: 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: 2759

PostForum: 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: 2759

PostForum: 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: 2759

PostForum: 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: 2065

PostForum: 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: 2065

PostForum: 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: 3570

PostForum: 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: 3570

PostForum: 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: 3570

PostForum: 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: 3570

PostForum: 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: 3681

PostForum: Database   Posted: Wed Feb 19, 2020 3:18 pm   Subject: DB2 query to fetch last known value.
Hi Kolusu,
I Agree will correct it from next time Thank You

Regards,
Magesh
  Topic: DB2 query to fetch last known value.
Magesh_J

Replies: 7
Views: 3681

PostForum: 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 ...
 
Page 1 of 18 Goto page 1, 2, 3 ... 16, 17, 18  Next
All times are GMT - 5 Hours
Jump to:  


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group