Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all 8500 articles
Browse latest View live

CICS :: RE: 3270 Data stream error


COBOL Programming :: RE: Comparing two sequential files

$
0
0
Author: Robert Sample
Posted: Tue Apr 17, 2018 9:30 pm (GMT 5.5)

Mohan Kothakota, I concur with sergeyken -- you need to stop posting on this forum and visit Beginners and Students Forum instead. The types of questions you are posting, and the responses you provide to questions, indicate that you have no place on an Experts Forum such as this one. You would be far better off switching, no matter how much "experience" you claim to have.
_________________
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

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

$
0
0
Author: upendrasri
Subject: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX
Posted: Tue Apr 17, 2018 10:42 pm (GMT 5.5)

Hi,

Is there any way to rename Vsam cluster along with Alternate index and Path dataset without mentioning their names in JCL ?

We can do it using the below JCL
Code:

//MOVEREN  EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
 COPY ALLE ALLD(*) SPHERE NMC NSC ADMIN OPT(3) TGTA(SRC) -
    CATALOG DELETE PURGE -
    DS(INC( -
    IGCF.TEST.KSDS     -
    IGCF.TEST.AIX      -
    IGCF.TEST.PATH     -
     )) -
    RENAMEU( -
   (IGCF.TEST.KSDS,   -
    IGCF.TEST.KSDS.NEW) -
   (IGCF.TEST.AIX,   -
    IGCF.TEST.AIX.NEW) -
   (IGCF.TEST.PATH,  -
    IGCF.TEST.PATH.NEW) -
     )
/*


My query is , Can we mention only Base cluster name and that will consider Alternate index and Path dataset(Without mentioning them in JCL)?

Thanks!
_________________
Upen

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

$
0
0
Author: Benchwarmer
Posted: Wed Apr 18, 2018 12:24 am (GMT 5.5)

I do not know there is such functionality exists. But am curious to know the reason behind to look for such function?
_________________
Thanks,
Kratos

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

$
0
0
Author: Robert Sample
Subject: Reply to: IDCAMS RENAMING VSAM FILE ALONG WITH ALTERNATE INDEX
Posted: Wed Apr 18, 2018 1:08 am (GMT 5.5)

Quote:
Is there any way to rename Vsam cluster along with Alternate index and Path dataset without mentioning their names in JCL ?
It is not at all clear what you are asking, since the JCL you posted does not have any names in the JCL -- they are parameters to ADRDSSU, which is not JCL (just as SORT commands are not JCL).

From the manual (emphasis added by me):
Quote:
z/OS DFSMSdss Storage Administration
SC23-6868-01

>>-+--------+--------------------------------------------------><
'-SPHERE-'

SPHERE specifies that, for any VSAM cluster copied, all associated AIX® clusters and paths are to be copied. Individual names of sphere components do not need to be specified. Only the base cluster name is required. If output volumes are specified, the volumes on which the AIX clusters reside do not need to be specified.
So assuming you are asking about the ADRDSSU parameters, the answer is that with SPHERE only the base cluster name is required.
_________________
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 :: RE: Comparing two sequential files

$
0
0
Author: Phrzby Phil
Posted: Wed Apr 18, 2018 1:13 am (GMT 5.5)

Note that Robert has correctly written your abend as S0C7 (with a zero), not SOC7 (with an oh) as you have it.

Picky, picky, picky, right? Well, that's the nature of this kind of work.

We DO pronounce it sock7, but it's a zero in the code.
_________________
World Peace Through Frisbee.

COBOL Programming :: RE: Comparing two sequential files

$
0
0
Author: Robert Sample
Posted: Wed Apr 18, 2018 1:19 am (GMT 5.5)

As another example of why you belong on the Beginners Forum, if the input data is truly as you have it listed (with decimal points), then that explains why you got the S0C7 -- decimal points are not numeric and will cause S0C7 abends when encountered in numeric MOVE statements and arithmetic operations. The V in a COBOL PICTURE clause is an IMPLIED decimal point -- as in, it does not really exist in the data. Furthermore, 14.39 being read into a PIC S9(05)V99 should be coming in as 000143I (which is 1439 with an overpunched plus sign on the last byte, as is normal and proper for zoned decimal signed values). It could be read in as 0001439 (without a sign) -- but in any case, it needs to be read with leading zeros and no decimal point.
_________________
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

DB2 :: How do you attach a DB2 plan to a CICS web service program?

$
0
0
Author: John Poulakos
Subject: How do you attach a DB2 plan to a CICS web service program?
Posted: Wed Apr 18, 2018 1:49 am (GMT 5.5)

I have asked this question in the CICS forum with no luck. Normally, you assign a DB2 plan to a CICS transaction via the DB2ENTRY and DB2TRAN functions. But A CICS web service does not have a CICS transaction, so DB2ENTRY and DB2TRAN won't work.

You would think this would be easy to find, it's pretty basic. But, I have found no mention of this anywhere (manual or Google).


CICS :: RE: How do I define a DB2 plan for a web servcie in CICS?

$
0
0
Author: John Poulakos
Posted: Wed Apr 18, 2018 1:55 am (GMT 5.5)

I have looked in every manual I could find and every redbook as well. I found no mention of DB2 with regard to web services. So, if you have any more specific clues I'd be glad to follow them. I have been writing CICS web service providers for years. I just never had to define the connection to DB2 before. Somebody else had already done that. But, there is no "somebody else" where I'm at now.

CICS :: RE: VSAM file NOT Found error while processing in a CICS Program

$
0
0
Author: John Poulakos
Posted: Wed Apr 18, 2018 2:06 am (GMT 5.5)

If the VSAM file was created in batch, you may need to close and reopen the file in CICS. CICS dies not refresh VSAM buffers unless forced to do so.

CICS :: RE: How do I define a DB2 plan for a web servcie in CICS?

$
0
0
Author: John Poulakos
Posted: Wed Apr 18, 2018 2:41 am (GMT 5.5)

Hey Robert, I think I found something. Tell me if I'm right (or wrong). There is a default transaction ID (CPIH) in the web service URImap. I should be able to specify a unique transaction ID and add the DB2 Entry and DB2 Tran definitions to it.

CICS :: RE: How do I define a DB2 plan for a web servcie in CICS?

$
0
0
Author: Robert Sample
Posted: Wed Apr 18, 2018 2:51 am (GMT 5.5)

It sounds like you're right but I've never dealt with DB2 combined with Web Services so I'm not sure.
_________________
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 :: RE: Comparing two sequential files

$
0
0
Author: sergeyken
Posted: Wed Apr 18, 2018 3:51 am (GMT 5.5)

Robert Sample wrote:
As another example of why you belong on the Beginners Forum, if the input data is truly as you have it listed (with decimal points), then that explains why you got the S0C7 -- decimal points are not numeric and will cause S0C7 abends when encountered in numeric MOVE statements and arithmetic operations. The V in a COBOL PICTURE clause is an IMPLIED decimal point -- as in, it does not really exist in the data. Furthermore, 14.39 being read into a PIC S9(05)V99 should be coming in as 000143I (which is 1439 with an overpunched plus sign on the last byte, as is normal and proper for zoned decimal signed values). It could be read in as 0001439 (without a sign) -- but in any case, it needs to be read with leading zeros and no decimal point.


Just answering that 2 + 2 = 4 wouldn't help in similar cases.
Tomorrow you'll get seriously a question like this: "Sorry, I'm new to COBOL; how can I calculate 3 + 3 ?"


_________________
Tyrannosaurus-REXX

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

$
0
0
Author: upendrasri
Posted: Wed Apr 18, 2018 8:57 am (GMT 5.5)

Hi,

Using the below code am deleting base cluster and Copying to new cluster
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

Code:

//MOVEREN  EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
 COPY ALLE ALLD(*) SPHERE NMC NSC ADMIN OPT(3) TGTA(SRC) -
    CATALOG DELETE PURGE -
    DS(INC( -
    IGCF.TEST.KSDS     -
    IGCF.TEST.AIX      -
    IGCF.TEST.PATH     -
     )) -
    RENAMEU( -
   (IGCF.TEST.KSDS,   -
    IGCF.TEST.KSDS.NEW) -
   (IGCF.TEST.AIX,   -
    IGCF.TEST.AIX.NEW) -
   (IGCF.TEST.PATH,  -
    IGCF.TEST.PATH.NEW) -
     )
/*


In our environment we will receive a request to rename Vsam clusters .Sometimes they will be in thousands. But they wont provide Alternate index and Path information. So we need to identify Alternate index and Path details and manually copy them to JCL. To avoid this am looking for some options where if we mention Base cluster name without Alternate index and Path. It should rename Base cluster,Alternate Index and Path. Want a JCL something like below

Code:


//MOVEREN  EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
 COPY ALLE ALLD(*) SPHERE NMC NSC ADMIN OPT(3) TGTA(SRC) -
    CATALOG DELETE PURGE -
    DS(INC( -
    IGCF.TEST.KSDS     -
        )) -
    RENAMEU( -
   (IGCF.TEST.KSDS,   -
    IGCF.TEST.KSDS.NEW) -
       )
/*


Expected Result as below :-

IGCF.TEST.KSDS .NEW
IGCF.TEST.AIX .NEW
IGCF.TEST.PATH .NEW

Is there anyway to do that?

Thanks!
_________________
Upen

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

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

IIRC
if You had chosen a different name pattern You could have used something along the lines of ...

Code:
 COPY ALLE ALLD(*) SPHERE NMC NSC ADMIN OPT(3) TGTA(SRC) -
    CATALOG DELETE PURGE -
    DS(INC( -
    IGCF.TEST.KSDS     -
        )) -
    RENAMEU( <thenewhighlevelqualifier>.* )

_________________
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


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

$
0
0
Author: Willy Jensen
Posted: Wed Apr 18, 2018 12:56 pm (GMT 5.5)

Off hand I would say no as alternate index datasets are created seperately from the base cluster.
Why don't you just go ahead and try (with a test cluster of course)?
_________________
WJ

DB2 :: RE: Need inputs on DB2 tablespace/table reoveries

$
0
0
Author: guptae
Posted: Wed Apr 18, 2018 1:50 pm (GMT 5.5)

Hello Ashek,

How you are planning to recover them?

Do you have single quiesce point for all RI related table? Or image copy?
Or do you want to recover on specific time?
_________________
Cheers
Ekta

DB2 :: RE: COBOL declaration for table

$
0
0
Author: guptae
Posted: Wed Apr 18, 2018 1:54 pm (GMT 5.5)

Yes why Not but instead of using that a copyboook , you need to define them all the packages/code which uses this table so lot of redundant stuff right ?
_________________
Cheers
Ekta

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

$
0
0
Author: upendrasri
Posted: Wed Apr 18, 2018 2:11 pm (GMT 5.5)

Hi Enrico,

I have tried the below Job but failed.
Code:

//MOVEREN  EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
 COPY ALLE ALLD(*) SPHERE NMC NSC ADMIN OPT(3) TGTA(SRC) -
    CATALOG DELETE PURGE -
    DS(INC( -
    IGCF.TEST.KSDS -
     )) -
    RENAMEU( -
   (IGCF.TEST.*    , -
    IGCF.TEST.*.NEW) -
     )
/*


OUTPUT :

Code:

ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'COPY '
ADR109I (R/I)-RI01 (01), 2018.108 09:34:09 INITIAL SCAN OF USER CONTROL STATEMENT FOR THIS TASK
ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK
ADR006I (001)-STEND(01), 2018.108 09:34:09 EXECUTION BEGINS
ADR468E (001)-DDFLT(05), VSAM DATA SET IGCF.TEST.KSDS IN CATALOG USER.S1TT001.CATALOG IS NOT PROCESSABLE
ADR801I (001)-DDDS (01), 2018.108 09:34:09 DATA SET FILTERING IS COMPLETE. 1 OF 1 DATA SETS WERE SELECTED: 0 FAILED SERIALIZATION
                         AND 0 FAILED FOR OTHER REASONS
ADR455W (001)-DDDS (01), THE FOLLOWING DATA SETS WERE NOT SUCCESSFULLY PROCESSED
                          IGCF.TEST.KSDS
                            AIX: IGCF.TEST.AIX
                              PATH: IGCF.TEST.PATH
ADR006I (001)-STEND(02), 2018.108 09:34:09 EXECUTION ENDS
ADR013I (001)-CLTSK(01), 2018.108 09:34:09 TASK COMPLETED WITH RETURN CODE 0008
ADR012I (SCH)-DSSU (01), 2018.108 09:34:09 DFSMSDSS PROCESSING COMPLETE. HIGHEST RETURN CODE IS 0008 FROM:
                         TASK    001



Thanks!
_________________
Upen

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

$
0
0
Author: Paul Voyner
Subject: Advanced Assembler Language and MVS Interfaces - 2nd Edition
Posted: Wed Apr 18, 2018 3:49 pm (GMT 5.5)

At the risk of incurring the ire of the hardliners, this is an unashamed attempt to generate some interest in the book I put on eBay. It's a fine book and still excellent for anyone trying to improve their MVS and Assembler skills.https://www.ebay.co.uk/itm/232734864300?ssPageName=STRK:MESELX:IT&_trksid=p3984.m1558.l2649

or search on Assembler Cannatello

Viewing all 8500 articles
Browse latest View live