JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

April 18, 2018, 3:29 am

≫ Next: JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

≪ Previous: All Other Mainframe Topics :: Advanced Assembler Language and MVS Interfaces - 2nd Edition

$

0

0

Author: enrico-sorichetti
Subject: Reply to: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX
Posted: Wed Apr 18, 2018 3:59 pm (GMT 5.5)

You did not use my suggestion
You just invented something
_________________
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

---

JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

April 18, 2018, 3:41 am

≫ Next: JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

≪ Previous: JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

$

0

0

Author: upendrasri
Posted: Wed Apr 18, 2018 4:11 pm (GMT 5.5)

Hi Enrico,

What do you want me to mention here.

Code:

RENAMEU( <thenewhighlevelqualifier>.* )

Like if I want to rename my cluster as below

Form :
IGCF.TEST.KSDS
IGCF.TEST.AIX
IGCF.TEST.PATH

To
IGCF.TEST.KSDS .NEW ( Along with .NEW , DATA AND INDEX Files)
IGCF.TEST.AIX .NEW
IGCF.TEST.PATH .NEW


Ex :

Code:

RENAMEU(IGCF.TEST.KSDS.NEW.*)

Thanks!
Upendra.
_________________
Upen

JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

April 18, 2018, 3:49 am

≫ Next: JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

≪ Previous: JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

$

0

0

Author: enrico-sorichetti
Posted: Wed Apr 18, 2018 4:19 pm (GMT 5.5)

looks like You did not care to try to understand my post.

the spirit of a forum is not to diaper people asking fo help
but to give enough hints so that they will be able WITH THE HELP OF THE MANUAL to find a solution by themselves

there is no reason for anybody to rewrite the manual,
the explanation of the renameu clause is clear enough
_________________
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

JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

April 18, 2018, 4:01 am

≫ Next: JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

≪ Previous: JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

$

0

0

Author: Nic Clouston
Subject: Reply to: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX
Posted: Wed Apr 18, 2018 4:31 pm (GMT 5.5)

Going nowhere. I will lock this later today - if it has not already been locked by someone else.
_________________
Regards
Nic

JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

April 18, 2018, 4:06 am

≫ Next: CLIST & REXX :: GDG gen check using REXX

≪ Previous: JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

$

0

0

Author: upendrasri
Posted: Wed Apr 18, 2018 4:36 pm (GMT 5.5)

Hi, Sorry.. I will work on it.

Thanks all for your suggestions..
_________________
Upen

CLIST & REXX :: GDG gen check using REXX

April 18, 2018, 8:48 am

≫ Next: CLIST & REXX :: RE: GDG gen check using REXX

≪ Previous: JCL & VSAM :: RE: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX

$

0

0

Author: raghuraman123
Subject: GDG gen check using REXX
Posted: Wed Apr 18, 2018 9:18 pm (GMT 5.5)

is it possible to check GDG current version empty or not? if its empty return the gdg base name as output, I have some 100 different gdg bases which we check manually whether the current gen is empty, I wish to automate this using REXX, any suggestion welcome.
_________________
Thanks,
Raghuraman

CLIST & REXX :: RE: GDG gen check using REXX

April 18, 2018, 9:10 am

≫ Next: COBOL Programming :: Difference between EQUAL and EQUAL TO in COBOL

≪ Previous: CLIST & REXX :: GDG gen check using REXX

$

0

0

Author: Robert Sample
Posted: Wed Apr 18, 2018 9:40 pm (GMT 5.5)

Quote:

is it possible to check GDG current version empty or not?

First, you need to get the terminology right. A GDG can have generations and versions, and they are different. So the question becomes, do you mean "current version" the way you said, or do you mean "current generation"? Are the generations on disk or tape?
_________________
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

COBOL Programming :: Difference between EQUAL and EQUAL TO in COBOL

April 18, 2018, 1:52 pm

≫ Next: CLIST & REXX :: RE: GDG gen check using REXX

≪ Previous: CLIST & REXX :: RE: GDG gen check using REXX

$

0

0

Author: jithinraghavan
Subject: Difference between EQUAL and EQUAL TO in COBOL
Posted: Thu Apr 19, 2018 2:22 am (GMT 5.5)

I've declared the below 2 fields in my cobol program

Code:

01  CLM-DETAIL1.                                              05  LINE-ITEM1                                                          OCCURS 0050 TIMES                                                  INDEXED BY LINE-ITEM1X.                          10  LINE-ITEM-CODE1                                                  COMP-3       PIC 9(03).                                  10  FIRST-DATE-OF-SVC1                                            COMP-3       PIC S9(5).                                  10  LAST-DATE-OF-SVC1                                              COMP-3       PIC S9(5).                                  10  CLM-PRIOR-AUTH-IND1                                     PIC X(1).            01  CLM-DETAIL2.                                              05  LINE-ITEM2                                                          OCCURS 0050 TIMES                                                  INDEXED BY LINE-ITEM2X.                          10  LINE-ITEM-CODE2                                                  COMP-3       PIC 9(03).                                  10  FIRST-DATE-OF-SVC2                                            COMP-3       PIC S9(5).                                  10  LAST-DATE-OF-SVC2                                              COMP-3       PIC S9(5).                                  10  CLM-PRIOR-AUTH-IND2                                     PIC X(1).

When I do a compare between these fields with the below 2 if statements, I 'm getting different results. It's compiling successfully with both statements but the results are different.
Is there any difference in these statements really?

1. IF CLM-DETAIL1 NOT EQUAL CLM-DETAIL2
DISPLAY 'X'
END-IF

2. IF CLM-DETAIL1 NOT EQUAL TO CLM-DETAIL2
DISPLAY 'X'
END-IF

---

CLIST & REXX :: RE: GDG gen check using REXX

April 18, 2018, 2:49 pm

≫ Next: COBOL Programming :: RE: Difference between EQUAL and EQUAL TO in COBOL

≪ Previous: COBOL Programming :: Difference between EQUAL and EQUAL TO in COBOL

$

0

0

Author: steve-myers
Posted: Thu Apr 19, 2018 3:19 am (GMT 5.5)

As Mr. Sample correctly says, terminology is critically important, and there is a critical difference between a "generation" in GDGs and a "version" in a GDG generation.

Fortunately, there is no such thing as an "empty" version in a GDG generation. I presume you really mean a GDG index with no generations.

I will assume you understand how to use the Rexx OUTTRAP capability. You need to "trap" the output from the TSO commands I will discuss later, but you should be able to discard most of this output for some of these commands.

Now then, your first task is to determine if the GDG index exists. You run the command LISTCAT ENTRIES('GDG index'). You can trap and discard the output from this command. If the return code from the command is not 0, the index does not exist.

If the index exists, the run LISTCAT LEVEL('GDG index') If the return code is 0, you want to review this output. You want to trap and examine the output from this command. You want to find at least one line that starts with 'NONVSAM ------- ' If you find at least one NONVSAM line, then the GDG is not empty.

Now that's not so hard, is it?

COBOL Programming :: RE: Difference between EQUAL and EQUAL TO in COBOL

April 18, 2018, 5:28 pm

≫ Next: CLIST & REXX :: RE: GDG gen check using REXX

≪ Previous: CLIST & REXX :: RE: GDG gen check using REXX

$

0

0

Author: Robert Sample
Subject: Reply to: Difference between EQUAL and EQUAL TO in COBOL
Posted: Thu Apr 19, 2018 5:58 am (GMT 5.5)

In the version 5.1 Enterprise COBOL Language Reference manual, on page 260, the syntax diagram for the conditional statement is provided. It explicitly states that NOT EQUAL and NOT EQUAL TO are treated by the compiler as identical conditions. Just as IS NOT EQUAL TO is equivalent to NOT EQUAL -- COBOL allows some words to be inserted for readability.

If you're getting different results, then something is not the same. Are the different results in the same program or different programs? For testing purposes, you should code the two statements one after the other in the same program, compile it (do not use the optimization option!), and show us the results.
_________________
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

CLIST & REXX :: RE: GDG gen check using REXX

April 18, 2018, 11:49 pm

≫ Next: CLIST & REXX :: RE: GDG gen check using REXX

≪ Previous: COBOL Programming :: RE: Difference between EQUAL and EQUAL TO in COBOL

$

0

0

Author: expat
Posted: Thu Apr 19, 2018 12:19 pm (GMT 5.5)

Take a look at a utility I put on here some years ago, CSIUTIL - it may help you
_________________
Some people are like Slinkies. They have no real value,
but it sure is fun to see them pushed down the stairs.

CLIST & REXX :: RE: GDG gen check using REXX

April 19, 2018, 3:49 am

≫ Next: CLIST & REXX :: RE: GDG gen check using REXX

≪ Previous: CLIST & REXX :: RE: GDG gen check using REXX

$

0

0

Author: raghuraman123
Posted: Thu Apr 19, 2018 4:19 pm (GMT 5.5)

thanks Robert, I learned the diff b/w version and generation, I will ask the question again with a scenario.

A**.XF.BMGX.XF76001 (GDG base)
A**.XF.BMGX.XF76001.G0279V00
A**.XF.BMGX.XF76001.G0280V00 (Current Generation)

Like above I have 100 different GDG's which I should check whether current generation is empty or not for all. Hope I am not confusing this time.

Expat, i will check on it.

And,Thanks for the responses.
_________________
Thanks,
Raghuraman

CLIST & REXX :: RE: GDG gen check using REXX

April 19, 2018, 3:55 am

≫ Next: CLIST & REXX :: RE: GDG gen check using REXX

≪ Previous: CLIST & REXX :: RE: GDG gen check using REXX

$

0

0

Author: raghuraman123
Posted: Thu Apr 19, 2018 4:25 pm (GMT 5.5)

Robert, the generation are in DISK(DASD)
_________________
Thanks,
Raghuraman

CLIST & REXX :: RE: GDG gen check using REXX

April 19, 2018, 4:16 am

≫ Next: COBOL Programming :: RE: Difference between EQUAL and EQUAL TO in COBOL

≪ Previous: CLIST & REXX :: RE: GDG gen check using REXX

$

0

0

Author: enrico-sorichetti
Subject: Reply to: GDG gen check using REXX
Posted: Thu Apr 19, 2018 4:46 pm (GMT 5.5)

topic locked
it belongs to the [in]famous category of
http://ibmmainframes.com/viewtopic.php?t=20820
_________________
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

COBOL Programming :: RE: Difference between EQUAL and EQUAL TO in COBOL

April 19, 2018, 9:34 am

≫ Next: COBOL Programming :: RE: Difference between EQUAL and EQUAL TO in COBOL

≪ Previous: CLIST & REXX :: RE: GDG gen check using REXX

$

0

0

Author: jithinraghavan
Posted: Thu Apr 19, 2018 10:04 pm (GMT 5.5)

I've declared 2 fields CLM-DETAIL1 and CLM-DETAIL2 with exactly same data except difference in CLM-PRIOR-AUTH-IND(1) field.

CLM-DETAIL1 -> CLM-PRIOR-AUTH-IND1(1) = 'Y'
CLM-DETAIL2 -> CLM-PRIOR-AUTH-IND2 (1) = SPACES

In my cobol program

Code:

IF CLM-DETAIL1 NOT EQUAL CLM-DETAIL2     DISPLAY 'X' END-IF

shows no display in sysout
and when I changed if statement in the same COBOL program as below, I got X in my SYSOUT which is correct and I don't know why it is not showing any sysout while using the first IF statement.

Code:

IF CLM-DETAIL1 NOT EQUAL TO CLM-DETAIL2     DISPLAY 'X' END-IF

---

COBOL Programming :: RE: Difference between EQUAL and EQUAL TO in COBOL

April 19, 2018, 9:41 am

≫ Next: Suggestions & Feedback :: BAD GATEWAY...

≪ Previous: COBOL Programming :: RE: Difference between EQUAL and EQUAL TO in COBOL

$

0

0

Author: Robert Sample
Subject: Reply to: Difference between EQUAL and EQUAL TO in COBOL
Posted: Thu Apr 19, 2018 10:11 pm (GMT 5.5)

You seem to think the TO is making a difference to your program. It is not -- period. The COBOL compiler treats the TO as optional. To show this, look at the pseudo-assembler output generated by the LIST option and you will see the code is the same with or without the TO.

Topic locked as a waste of time; COBOL will not treat NOT EQUAL TO any differently than NOT EQUAL.
_________________
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

Suggestions & Feedback :: BAD GATEWAY...

April 19, 2018, 10:17 am

≫ Next: Suggestions & Feedback :: BAD GATEWAY...

≪ Previous: COBOL Programming :: RE: Difference between EQUAL and EQUAL TO in COBOL

$

0

0

Author: sergeyken
Subject: BAD GATEWAY...
Posted: Thu Apr 19, 2018 10:47 pm (GMT 5.5)

Все чаще стало появляться при попытке чтения новых топиков:

Quote:

502 Bad Gateway nginx

Давненько я не брал в руки сети... Без понятия, откуда это берется, к тому же только в НЕКОТОРЫХ, и НОВЫХ топиках - ???
_________________
Tyrannosaurus-REXX

Suggestions & Feedback :: BAD GATEWAY...

April 19, 2018, 10:17 am

≫ Next: COBOL Programming :: Linkage editor is part of COBOL, z/OS or something else?

≪ Previous: Suggestions & Feedback :: BAD GATEWAY...

$

0

0

Author: sergeyken
Subject: BAD GATEWAY...
Posted: Thu Apr 19, 2018 10:47 pm (GMT 5.5)

Все чаще стало появляться при попытке чтения новых топиков:

Quote:

502 Bad Gateway nginx

Давненько я не брал в руки сети... Без понятия, откуда это берется, к тому же только в НЕКОТОРЫХ, и НОВЫХ топиках - ???
_________________
Tyrannosaurus-REXX

COBOL Programming :: Linkage editor is part of COBOL, z/OS or something else?

April 20, 2018, 3:47 am

≫ Next: COBOL Programming :: RE: Linkage editor is part of COBOL, z/OS or something else?

≪ Previous: Suggestions & Feedback :: BAD GATEWAY...

$

0

0

Author: ankit.jain
Subject: Linkage editor is part of COBOL, z/OS or something else?
Posted: Fri Apr 20, 2018 4:17 pm (GMT 5.5)

Hi,

We are upgrading version of COBOL at our installation from 4.2 to 5.1. The upgrade involves updates to the compiler options, which are definitely the options that we specify in our compile jobs with IGYCRCTL.

Similar options are used in the link-edit jobs with IEWL - for instance LIST, MAP, AMODE, etc.. I believe that these options work similar to how the compiler options work but are these options really impacted with the COBOL upgrade? So is the linkage editor part of COBOL or z/OS or something else? Is there a place where I can find the complete list of these link-edit options?

Thanks in advance.

Ankit

COBOL Programming :: RE: Linkage editor is part of COBOL, z/OS or something else?

April 20, 2018, 4:18 am

≫ Next: COBOL Programming :: RE: Linkage editor is part of COBOL, z/OS or something else?

≪ Previous: COBOL Programming :: Linkage editor is part of COBOL, z/OS or something else?

$

0

0

Author: Nic Clouston
Subject: Reply to: Linkage editor is part of COBOL, z/OS or something else?
Posted: Fri Apr 20, 2018 4:48 pm (GMT 5.5)

Quote:

Is there a place where I can find the complete list of these link-edit options?

The link-edit, now called Binder, manual.

Quote:

is the linkage editor part of COBOL or z/OS or something else

It is just another program that takes the output of a compiler - not just the COBOL compiler - links/binds system routines with the object module to create a load module (or whatever it is called nowadays). This is a simplistic description but should be enough to get you on your way.
_________________
Regards
Nic