IBMMAINFRAMES.com - IBM Mainframe Support Forums

CICS :: can Rexx run in TSO issue CICS command?

fungyufa — Fri, 19 Mar 2010 03:03:54 GMT

Author: fungyufa
Subject: can Rexx run in TSO issue CICS command?
Posted: Fri Mar 19, 2010 8:33 am (GMT 5.5)

does it possible to do so?
for example, I want to close specific online dataset in 20 different cics region by running a rexx, instead of logon 20 times.
_________________
fa....

DB2 :: DB2 SQL doubt - Sorting by non group by field

himanshupant — Fri, 19 Mar 2010 02:59:47 GMT

Author: himanshupant
Subject: DB2 SQL doubt - Sorting by non group by field
Posted: Fri Mar 19, 2010 8:29 am (GMT 5.5)

Hi

Below is the DCLGEN of a table :-

PAR SMALLINT NOT NULL,
BR INTEGER NOT NULL,
ACC INTEGER NOT NULL,
RUN_DATE DATE NOT NULL,
A_U_IND CHAR(1) NOT NULL,
DRATE CHAR(4) NOT NULL,
START_DA DATE NOT NULL,
ITYPE CHAR(1) NOT NULL,
BLIMIT DECIMAL(13, 2) NOT NULL,
THOLD DECIMAL(15, 0) NOT NULL,
AIT DECIMAL(15, 0) NOT NULL

In the above table the keys are the column 1 - 6 ( i.e. from PAR till DRATE both inclusive).

Below is a query to return some rows from the table

SELECT
A_U_IND
, MIN(RUN_DATE)
, DRATE
, THOLD
FROM
TABLE1
WHERE
PAR = :TABLE1.PAR
AND BR = :TABLE1.BR
AND ACC = :TABLE1.ACC
AND RUN_DATE BETWEEN :WS-START-DATE AND :WS-END-DATE
AND ITYPE IN ('A' 'B' 'T')
GROUP BY A_U_IND,DRATE,THOLD
ORDER BY THOLD ASC

In the above query I want to keep everything unchanged but just ensure that the results come in the sorted ascending order of RUN_DATE as well ( in addition to THOLD) . I am trying to put in ORDER by RUN_DATE as well but I am getting a SQL code of -122 . Is there any way this query can be redisgned to provide the same result set with the additional condition of being sorted by RUN_DATE as well.

Any help would be greatly appreciated.

2) Can any one tell me what is the SORT criterial in the above query? I see a trend of the result set being sorted on the basisi of A_U_IND ( when the THOLD are same). Is DB2 engine doing some other sort criteria on its own ? Can we play around with that SORT criteria to get our desired criteria of SORT on basis of RUN_DATE.?

JCL :: help in sort

NobinBehanan — Fri, 19 Mar 2010 02:52:07 GMT

Author: NobinBehanan
Subject: help in sort
Posted: Fri Mar 19, 2010 8:22 am (GMT 5.5)

I want to replace a value in a file for one particular record.
The requirement is:
File has length of 355 and the field want to replace is at position 72, length= 5 , packed decimal

if the field at position 2,length=4 is of value 'XXXX', the field at 72 has to be replaced with a date 'CCYYMMDD'
Please help me in this

Mainframe COBOL :: RE: Number of duplicates for alternate key

NobinBehanan — Fri, 19 Mar 2010 02:50:28 GMT

Author: NobinBehanan
Subject: Help in assigning numeric value
Posted: Fri Mar 19, 2010 8:20 am (GMT 5.5)

I want to replace a value in a file for one particular record.
The requirement is:
File has length of 355 and the field want to replace is at position 72, length= 5 , packed decimal

if the field at position 2,length=4 is of value 'XXXX', the field at 72 has to be replaced with a date 'CCYYMMDD'
Please help me in this

JCL :: RE: Parsing %%variables from a member

gcicchet — Fri, 19 Mar 2010 02:36:53 GMT

Author: gcicchet
Posted: Fri Mar 19, 2010 8:06 am (GMT 5.5)

Hi,

the member should be set up in this manner

Code:

%%SET %%HOBBIES=IT%%BLANK%%.programming

Gerry

Mainframe COBOL :: RE: Need to move SORT statements from main procedure to subrouti

Robert Sample — Fri, 19 Mar 2010 00:00:03 GMT

Author: Robert Sample
Posted: Fri Mar 19, 2010 5:30 am (GMT 5.5)

You cannot use WRITE to an SD.

Although you are using COBOL, these questions are more SORT oriented. Which SORT package are you using so we can move this topic to the appropriate forum?
_________________
TANSTAAFL

"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth

Mainframe COBOL :: RE: Monitoring table (Array) growth in COBOL program

smaru — Thu, 18 Mar 2010 23:11:44 GMT

Author: smaru
Subject: Reply to: Monitoring table (Array) growth in COBOL program
Posted: Fri Mar 19, 2010 4:41 am (GMT 5.5)

Bill,
Thanks a lot for the reply. Although I'm not familier with the options you specified, I will learn, try to implement and post my queries.
_________________
Srikanth

TSO/ISPF :: RE: ISPF FILEXFER Problem

MBabu — Thu, 18 Mar 2010 22:31:49 GMT

Author: MBabu
Posted: Fri Mar 19, 2010 4:01 am (GMT 5.5)

FILEXFER does not use FTP. It uses an ISPF specific client that can be installed on the workstation to talk only to ISPF (usually downloaded from ISP.SISPGUI or similar, member ISPGUINX for the Windows version). That client can be set up to accept connections only from a specific host and user id. As with all situations, be sure to check with your security group before installing servers on your workstation. As usual, Gilbert has a good write up: http://gsf-soft.com/Documents/ISPF-CS.shtml

JCL :: RE: NEW,CATLG,DELETE run for the first time and then rerun

MBabu — Thu, 18 Mar 2010 22:20:31 GMT

Author: MBabu
Posted: Fri Mar 19, 2010 3:50 am (GMT 5.5)

Just a matter of symantics. Say... 000-FFF and we'll all be happy For what it is worth, the reason that hex is useful is that system abends XYY usually (well, at least often) mean that YY was an SVC number, eg 806 is a problem with SVC x'06' (LOAD, if I recall). Using decimal hides that fact so that is why no one does it. I suspect that the only time you'd ever see a system abend listed as decimal is when a programmer who traps it is too lazy to do the conversion in a message. User abends are often in decimal (like LE user abends) because, by definition, there are no established standards for the meanings of user abends.

Mainframe COBOL :: Need to move SORT statements from main procedure to subrouti

John G Carter — Thu, 18 Mar 2010 22:16:13 GMT

Author: John G Carter
Subject: Need to move SORT statements from main procedure to subrouti
Posted: Fri Mar 19, 2010 3:46 am (GMT 5.5)

I need to move SORT statements from the main procedure of my code into one or more separate subroutines. I also need to remove the use of RETURN and RELEASE statements from the main procedure as well. How do I go about doing this? Should I create temporary files that contain the data that would have been RELEASED to the sort work file? Can I pass an SD in the linkage section? Can I write to an SD just as I would to an FD? If so, I wouldn't need a USING clause, would I? Even better, would it be possible to create a generic SORT subroutine that I could use to replace all of my specific SORT statements?

The SORT statements I'm currently working with are of the variety of SORT ... INPUT / OUTPUT PROCEDURE ...

The platform is IBM z/OS COBOL 3.2.

Thanx for any help that anyone can provide.

Mainframe COBOL :: RE: Monitoring table (Array) growth in COBOL program

Bill O'Boyle — Thu, 18 Mar 2010 21:24:43 GMT

Author: Bill O'Boyle
Subject: Reply to: Monitoring table (Array) growth in COBOL program
Posted: Fri Mar 19, 2010 2:54 am (GMT 5.5)

Are you populating the array from a Flat-File or a VSAM-File? I've erroneously suggested in the past that a REXX LISTDSI command would return the number of records on a Flat-File, but that's incorrect.

As far as VSAM, you can obtain the number of records associated with a given file via a SHOWCB Macro in a small Assembler sub-program, called from COBOL.

If you do have a Flat-File, you can REPRO it into a temporary (predefined) EDS file and then use the sub-program which invokes the SHOWCB to obtain the number of records.

Once you know the number of records and LRECL of each, you could acquire the correct amount of dynamic-storage, via the LE Callable Service routine "CEEGTST".

With that, your array definition can be placed in LINKAGE, with a true OCCURS DEPENDING ON maximum.

Using this approach, array-spillover will become almost non-existent.

If you can wait until the program (job/step) has completed, the dynamic-storage will be implicitly freed by the operating system.

Otherwise, you can explicitly free this storage via the LE Callable Service routine "CEEFRST".

Bill

Mainframe COBOL :: RE: Monitoring table (Array) growth in COBOL program

dick scherrer — Thu, 18 Mar 2010 21:15:24 GMT

Author: dick scherrer
Posted: Fri Mar 19, 2010 2:45 am (GMT 5.5)

Hello,

Quote:

from the log

What are you calling "the log"?

Quote:

I can change my programs to display the index value and monitor the growth but I would want to check if the same can be captured by any other options.

Sure, implement code to keep track of usage and at the end of each run put this info in a database table or vsam file. . .
_________________
Hope this helps,

d.sch.

DFSORT/ICETOOL :: RE: Modifying MODS routine names

Frank Yaeger — Thu, 18 Mar 2010 21:11:11 GMT

Author: Frank Yaeger
Posted: Fri Mar 19, 2010 2:41 am (GMT 5.5)

You're welcome. That was fun!
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/

Mainframe COBOL :: Monitoring table (Array) growth in COBOL program

smaru — Thu, 18 Mar 2010 21:09:39 GMT

Author: smaru
Subject: Monitoring table (Array) growth in COBOL program
Posted: Fri Mar 19, 2010 2:39 am (GMT 5.5)

Many of my programs are facing overflow issues in table i.e. exceeding the specified array limit. Is there a way to identify the number of trasactions loaded in an array in a particular execution of the program from the log. So that I can monitor the size and increase it, before they actually fail.

I can change my programs to display the index value and monitor the growth but I would want to check if the same can be captured by any other options.
_________________
Srikanth

DFSORT/ICETOOL :: RE: Modifying MODS routine names

David Eisenberg — Thu, 18 Mar 2010 20:51:57 GMT

Author: David Eisenberg
Subject: Reply to: Modifying MODS routine names
Posted: Fri Mar 19, 2010 2:21 am (GMT 5.5)

Frank,

Fantastic! Thank you!

David

DFSORT/ICETOOL :: RE: Modifying MODS routine names

Frank Yaeger — Thu, 18 Mar 2010 20:42:21 GMT

Author: Frank Yaeger
Posted: Fri Mar 19, 2010 2:12 am (GMT 5.5)

And here's a more general version that will work with MODS statements in the form:

Code:

MODS Exx=(x,a)
MODS Exx=(x,a),Exx=(y,b)
MODS Exx=(x,a),Exx=(y,b),Exx=(z,c)

where x, y and z can be 1-7 character exit names and a, b and c can be 1-5 digit values.

Code:

OPTION COPY
INREC IFTHEN=(WHEN=(1,6,CH,EQ,C' MODS'),
PARSE=(%01=(ABSPOS=7,FIXLEN=3),
%02=(STARTAFT=C'(',ENDBEFR=C',',FIXLEN=7),
%03=(ENDBEFR=C')',FIXLEN=5),
%04=(STARTAFT=C',',FIXLEN=3),
%05=(STARTAFT=C'(',ENDBEFR=C',',FIXLEN=7),
%06=(ENDBEFR=C')',FIXLEN=5),
%07=(STARTAFT=C',',FIXLEN=3),
%08=(STARTAFT=C'(',ENDBEFR=C',',FIXLEN=7),
%09=(ENDBEFR=C')',FIXLEN=5)),
BUILD=(C' MODS ',
%01,C'=(',%02,C'A,',%03,C'),',
%04,C'=(',%05,C'A,',%06,C'),',
%07,C'=(',%08,C'A,',%09,C')'))
OUTFIL IFOUTLEN=80,
IFTHEN=(WHEN=(28,1,CH,EQ,C' '),
BUILD=(1,6,7,20,SQZ=(SHIFT=LEFT))),
IFTHEN=(WHEN=(49,1,CH,EQ,C' '),
BUILD=(1,6,7,41,SQZ=(SHIFT=LEFT))),
IFTHEN=(WHEN=NONE,
BUILD=(1,6,7,63,SQZ=(SHIFT=LEFT)))

So for example, if your input was:

Code:

* example
SORT FIELDS=COPY
MODS E15=(DF,750),E35=(DF5XIT1,5000)
OUTFIL <etc>
* some other stuff
SORT FIELDS=(7,15,A)
INCLUDE ...
MODS E35=(E35XT,900)
* more stuff
MODS E35=(DF51,8100),E35=(DF5XIT,800),E11=(XY,82000)

the output would be:

Code:

* example
SORT FIELDS=COPY
MODS E15=(DFA,750),E35=(DF5XIT1A,5000)
OUTFIL<etc>
* someotherstuff
SORT FIELDS=(7,15,A)
INCLUDE...
MODS E35=(E35XTA,900)
* morestuff
MODS E35=(DF51A,8100),E35=(DF5XITA,800),E11=(XYA,82000)

_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/

DFSORT/ICETOOL :: RE: Modifying MODS routine names

Frank Yaeger — Thu, 18 Mar 2010 20:19:25 GMT

Author: Frank Yaeger
Posted: Fri Mar 19, 2010 1:49 am (GMT 5.5)

If you just ensured that each name was 7 characters and the form of the MODS statement was always one of these:

Code:

MODS Exx=(exitnam,a)
MODS Exx=(exitnam,a),Exx=(exitnam,b)
MODS Exx=(exitnam,a),Exx=(exitnam,b),Exx=(exitname,c)

where a, b and c are 1-5 digit values, you could use the following DFSORT control statements to do what you want:

Code:

OPTION COPY
INREC IFTHEN=(WHEN=(1,6,CH,EQ,C' MODS'),
PARSE=(%01=(ABSPOS=7,FIXLEN=3),
%02=(STARTAFT=C'(',FIXLEN=7),
%03=(STARTAFT=C',',ENDBEFR=C')',FIXLEN=5),
%04=(STARTAFT=C',',FIXLEN=3),
%05=(STARTAFT=C'(',FIXLEN=7),
%06=(STARTAFT=C',',ENDBEFR=C')',FIXLEN=5),
%07=(STARTAFT=C',',FIXLEN=3),
%08=(STARTAFT=C'(',FIXLEN=7),
%09=(STARTAFT=C',',ENDBEFR=C')',FIXLEN=5)),
BUILD=(C' MODS ',
%01,C'=(',%02,C'A,',%03,UFF,EDIT=(TTTTT),C'),',
%04,C'=(',%05,C'A,',%06,UFF,EDIT=(TTTTT),C'),',
%07,C'=(',%08,C'A,',%09,UFF,EDIT=(TTTTT),C')'))
OUTFIL IFOUTLEN=80,
IFTHEN=(WHEN=(28,1,CH,EQ,C' '),
BUILD=(1,26)),
IFTHEN=(WHEN=(49,1,CH,EQ,C' '),
BUILD=(1,47))

So for example, if your input was:

Code:

* example
SORT FIELDS=COPY
MODS E15=(DF5XIT1,750),E35=(DF5XIT1,5000)
OUTFIL <etc>
* some other stuff
SORT FIELDS=(7,15,A)
INCLUDE ...
MODS E35=(E35XT02,900)
* more stuff
MODS E35=(DF5XIT1,81000),E35=(DF5XIT2,5000),E11=(XYZABCD,82000)

the output would be:

Code:

* example
SORT FIELDS=COPY
MODS E15=(DF5XIT1A,00750),E35=(DF5XIT1A,05000)
OUTFIL <etc>
* some other stuff
SORT FIELDS=(7,15,A)
INCLUDE ...
MODS E35=(E35XT02A,00900)
* more stuff
MODS E35=(DF5XIT1A,81000),E35=(DF5XIT2A,05000),E11=(XYZABCDA,82000)

DB2 :: RE: Determine Unique Index column name

dick scherrer — Thu, 18 Mar 2010 20:17:18 GMT

Author: dick scherrer
Subject: Reply to: Determine Unique Index column name
Posted: Fri Mar 19, 2010 1:47 am (GMT 5.5)

It is surely less dangerous. . .

Oooopps - i thought it was dead. . .

DB2 :: RE: DB2 DBA Next Level

dick scherrer — Thu, 18 Mar 2010 20:16:17 GMT

Author: dick scherrer
Posted: Fri Mar 19, 2010 1:46 am (GMT 5.5)

Hello,

None of the DB2 "System Expert"s i know have any certification. . .

They do have lots and lots of experience.
_________________
Hope this helps,

d.sch.

Mainframe COBOL :: RE: File comparison in cobol

dick scherrer — Thu, 18 Mar 2010 20:12:43 GMT

Author: dick scherrer
Posted: Fri Mar 19, 2010 1:42 am (GMT 5.5)

Hello,

I suspect it is for many-to-many. . . Instead of 1:N or N:1, ta daa N:N. . .
_________________
Hope this helps,

d.sch.

Mainframe COBOL :: RE: File comparison in cobol

enrico-sorichetti — Thu, 18 Mar 2010 20:11:17 GMT

Author: enrico-sorichetti
Subject: Reply to: File comparison in cobol
Posted: Fri Mar 19, 2010 1:41 am (GMT 5.5)

I guess a typo for M:N logic
_________________
Regards
enrico sorichetti
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 :-)

DB2 :: RE: Determine Unique Index column name

Terry Heinze — Thu, 18 Mar 2010 19:58:50 GMT

Author: Terry Heinze
Posted: Fri Mar 19, 2010 1:28 am (GMT 5.5)

I love killing dead snakes.
_________________
.... Terry

Mainframe COBOL :: RE: COBOl value clause for decimal- causing problem

Craq Giegerich — Thu, 18 Mar 2010 19:51:23 GMT

Author: Craq Giegerich
Posted: Fri Mar 19, 2010 1:21 am (GMT 5.5)

I can create the same error by adding

Code:

SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.

to the configuration section.

Code:

05 TEST7 PIC V999 VALUE 0.5.
A blank was missing before character "5" in column 44. A blank was
assumed.
A "PICTURE" clause was not found for elementary item "FILLER". "PICTURE
X(1)" was assumed.

but this works fine

Code:

05 TEST7 PIC V999 VALUE 0,5.

DB2 :: DB2 DBA Next Level

boo_sri — Thu, 18 Mar 2010 19:51:10 GMT

Author: boo_sri
Subject: DB2 DBA Next Level
Posted: Fri Mar 19, 2010 1:21 am (GMT 5.5)

I've completed my DBA certification (Exam 702) last year. I'd like to know the best available option or next steps after the 702 exam. I would like pursue my career as DB2 solution expert and I want to know the best available path to reach there.

700--> 702 ---> ? < Next Steps> = System Expert

Please don't disappoint me by giving links to IBM sites. I need some experts' advice.

Thanks,
Boopathy
_________________
Boopathy
Charlotte

Mainframe COBOL :: RE: File comparison in cobol

Terry Heinze — Thu, 18 Mar 2010 19:48:30 GMT

Author: Terry Heinze
Posted: Fri Mar 19, 2010 1:18 am (GMT 5.5)

What is "N:N"?
_________________
.... Terry

Mainframe COBOL :: RE: COBOl value clause for decimal- causing problem

dick scherrer — Thu, 18 Mar 2010 19:33:40 GMT

Author: dick scherrer
Posted: Fri Mar 19, 2010 1:03 am (GMT 5.5)

Hello,

Quote:

But outside ChangeMan, the same code is compiling clean!!

Quote:

The compiler does not like a decimal in the value.

I suspect there is some "bad magic" in ChangeMan rather than the compiler. . . Note that neither variable generated an error in this compile:

Code:

PP 5655-S71 IBM Enterprise COBOL for z/OS 4.1.0

01 V1 PIC V9(01) VALUE 0.5.
01 V2 PIC V9(01) VALUE .5.

End of compilation 1, program DSCHTEST, no statements flagged.
Return code 0

_________________
Hope this helps,

d.sch.

DFSORT/ICETOOL :: RE: 2 input file ==> 2 output file

Skolusu — Thu, 18 Mar 2010 19:11:22 GMT

Author: Skolusu
Subject: Reply to: 2 input file ==> 2 output file
Posted: Fri Mar 19, 2010 12:41 am (GMT 5.5)

thenone1987,

Well try this DFSORT JOB and let me know if it gives you the desired results

Code:

//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
//SORTOUT DD DSN=&&HEADR,DISP=(,PASS),SPACE=(TRK,(1,0),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,BUILD=(290X),HEADER1=(3C'$')
//*
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&HEADR,DISP=SHR,VOL=REF=*.STEP0100.SORTOUT
// DD DSN=Your input FB 290 byte file2,DISP=SHR
// DD DSN=&&HEADR,DISP=SHR,VOL=REF=*.STEP0100.SORTOUT
// DD DSN=Your input FB 290 byte file1,DISP=SHR
//ONLYF1 DD SYSOUT=*
//OTHER DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,3,CH,EQ,C'$$$'),PUSH=(291:ID=1))
SORT FIELDS=(14,08,PD,A,
38,10,CH,A,
58,10,CH,A),EQUALS
SUM FIELDS=(291,1,ZD)

OUTFIL FNAMES=ONLYF1,BUILD=(1,290),
INCLUDE=(291,1,ZD,EQ,1,AND,58,10,CH,LT,C'DATE COND')

OUTFIL FNAMES=OTHER,BUILD=(1,290),
INCLUDE=(291,1,ZD,GT,2,AND,38,10,CH,GT,C'DATE COND',AND,
001,3,CH,NE,C'$$$')
//*

_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort/

Mainframe COBOL :: RE: COBOl value clause for decimal- causing problem

agkshirsagar — Thu, 18 Mar 2010 18:50:23 GMT

Author: agkshirsagar
Posted: Fri Mar 19, 2010 12:20 am (GMT 5.5)

Deja Vu,
Can you tell us the first line of your compiler listing in both cases
a. when you compile using JCL and
b. using Changeman?
For ex It should look like -

Code:

1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.X.X

I am thinking there are two different compiler versions.
I assume this is a pure cobol program and no db2 preprocessor/cics precompiler steps before compiler. If this is true then the code shown in original post should compile clean using Enterprise COBOL.

Also, please paste your working storage code snippet in full. I mean the level number and all.
_________________
The trouble with the rat race is that even if you win, you're still a rat.

DFSORT/ICETOOL :: RE: Modifying MODS routine names

David Eisenberg — Thu, 18 Mar 2010 18:46:47 GMT

Author: David Eisenberg
Posted: Fri Mar 19, 2010 12:16 am (GMT 5.5)

Quote:

Are the exits always of the form:

Exx=(name,length)

Yes; we won't be using the other MODS parameters.

Quote:

Can I assume that the input and output files have RECFM=FB and LRECL=80?

Yes.

Quote:

I assume there's no pattern to the actual exit names that would allow us to use FINDREP to change 'name' to 'namea' ... right?

No, other than the fact that the names are never longer than 7 characters (so it is always safe to append the "A"). There will be several exits in each ICETOOL application, and there are many different applications.

That said, if we were to come up with a consistent naming convention, what sort of pattern would be helpful for FINDREP? We might be able to enforce a rule that each exit name begins with the characters "DF" (for DFSORT); and we might also be able to insist that each name be exactly 7 characters long. Would that help?

David

DB2 :: RE: Column length problem

enrico-sorichetti — Thu, 18 Mar 2010 18:37:43 GMT

Author: enrico-sorichetti
Subject: Reply to: Column length problem
Posted: Fri Mar 19, 2010 12:07 am (GMT 5.5)

Quote:

Now , The vendor has started sending the vendor id as 40 character instead of 24

as usual poor understanding of <almost everything>
_________________
Regards
enrico sorichetti
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 :-)

DFSORT/ICETOOL :: RE: IEBGENER and Sort

d_sarlie — Thu, 18 Mar 2010 18:34:57 GMT

Author: d_sarlie
Posted: Fri Mar 19, 2010 12:04 am (GMT 5.5)

Hi,

There is no specific requirement with regard to the question I posted.It is for my understanding .The information given in the post by Sambhaji was more than enough.Thanks for the help.
_________________
jeba

SMS & VSAM :: RE: Increase the version of V00 in GDG

d_sarlie — Thu, 18 Mar 2010 18:31:24 GMT

Author: d_sarlie
Posted: Fri Mar 19, 2010 12:01 am (GMT 5.5)

Thanks for the info.
_________________
jeba

JCL :: RE: NEW,CATLG,DELETE run for the first time and then rerun

Akatsukami — Thu, 18 Mar 2010 18:30:04 GMT

Author: Akatsukami
Posted: Fri Mar 19, 2010 12:00 am (GMT 5.5)

dick scherrer wrote:

Hello,

Quote:

I respectfully disagree.

Please reconsider. . .

I respectfully decline

Quote:

"S" abends are covered by "system completion code", but "return- codes" are not.

I entirely agree, and I hope that I did not write so unclearly that anyone could come to think so, or that I think so.

Quote:

Neither are "U" abends.

I agree; IBM refers to them as "user completion codes". Really.

Quote:

I suspect less that 1/2 of 1% of the people here ever called an s0c1 a 193 abend . . . Or an sb37 a 2871 abend. . .

Probably not. To the left, I do know SAS messages report its user abends as hexadecimal numbers, rather than as decimal numbers as is usual for user abends. I doubt if any SAS programmer has been confused by so much as a microfortnight by this, but I feel that it is illustrative of the fact that every completion(=abend) and return code is a three-nybble binary number, and that other means than range or internal representation must be used to distinguish them.
_________________
Dinosaurs dominated the Earth's ecosystem for one hundred million years. During this time, the largest mammal was the size of, and looked very much like, a rat.

Mainframe COBOL :: RE: Copybook Scope Terminator within IF/Evaluate Conditions

dick scherrer — Thu, 18 Mar 2010 18:29:02 GMT

Author: dick scherrer
Posted: Thu Mar 18, 2010 11:59 pm (GMT 5.5)

Hello,

Quote:

My Question is whether the display 'STILL IN THE ELSE LOOP' statement will get executed.

What happens when you run this?
_________________
Hope this helps,

d.sch.

JCL :: RE: Regarding COND Parameter

dick scherrer — Thu, 18 Mar 2010 18:25:33 GMT

Author: dick scherrer
Posted: Thu Mar 18, 2010 11:55 pm (GMT 5.5)

Hello,

While reviewing the reference material Enrico provided, keep in mind that steps that should always run need no COND=. The steps that depend on the prior step need to mention that step in the COND=. . .
_________________
Hope this helps,

d.sch.

DB2 :: RE: Column length problem

daveporcelan — Thu, 18 Mar 2010 18:20:44 GMT

Author: daveporcelan
Posted: Thu Mar 18, 2010 11:50 pm (GMT 5.5)

Quote:

(one of the reason being ..its primary key )

This reason alone should point to changing the table.

I think enrico was referring to:
What if two 40 byte ids are the same accross the first 24 bytes?
How will they coexist in the table?

Either tell the vendor to scrap the 40 byte id,
or realize the impact of this and take the 'best' approach, not the 'easiest'.

What type of buisness has requirements that would want you to do otherwise?

SMS & VSAM :: RE: Increase the version of V00 in GDG

dick scherrer — Thu, 18 Mar 2010 18:15:25 GMT

Author: dick scherrer
Posted: Thu Mar 18, 2010 11:45 pm (GMT 5.5)

Hello,

It is a version (rather than a generation).

It (version) is nearly never used for files created by a business application. . . .

Unless there is some pressing business reason to use this, suggest you be aware of version and then never use it. . .
_________________
Hope this helps,

d.sch.

DFSORT/ICETOOL :: RE: Modifying MODS routine names

Frank Yaeger — Thu, 18 Mar 2010 18:11:24 GMT

Author: Frank Yaeger
Posted: Thu Mar 18, 2010 11:41 pm (GMT 5.5)

David,

Are the exits always of the form:

Exx=(name,length)

or can they have different forms such as:

Exx=(name,length,lib,N)
Exx=(name,length,lib)

Can I assume that the input and output files have RECFM=FB and LRECL=80?

I assume there's no pattern to the actual exit names that would allow us to use FINDREP to change 'name' to 'namea' ... right?
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/

JCL :: RE: NEW,CATLG,DELETE run for the first time and then rerun

dick scherrer — Thu, 18 Mar 2010 18:06:03 GMT

Author: dick scherrer
Posted: Thu Mar 18, 2010 11:36 pm (GMT 5.5)

Hello,

Quote:

I respectfully disagree.

Please reconsider. . .

"S" abends are covered by "system completion code", but "return- codes" are not. Neither are "U" abends.

It really doesn't matter that

Quote:

If the problem program abended with any non-zero completion code -- 1 to 4095 -- JES will delete the data set and its catalog entry

is technically correct. . . It does matter that this is not the commonly accepted way to mention such.

I suspect less that 1/2 of 1% of the people here ever called an s0c1 a 193 abend . . . Or an sb37 a 2871 abend. . .

@jennybrahma:

Quote:

In the first case what would be the abend? S0C1 or S0C4?

In the first case, it would be any Sxxx or Unnnn ABEND (not a return code). Either the SOC1 or SOC4 would cause the file to be deleted. So would an SB37 or S806 or etc. . .
_________________
Hope this helps,

d.sch.

DB2 :: RE: Column length problem

enrico-sorichetti — Thu, 18 Mar 2010 18:04:31 GMT

Author: enrico-sorichetti
Subject: Reply to: Column length problem
Posted: Thu Mar 18, 2010 11:34 pm (GMT 5.5)

the requirement is just ... <stupid>

if the 24bytes and the 40 bytes represent the same entity ... use a bit of logic for the consequences

what difference does it make if the primary key is 40 bytes ??

now...
what will be the relation of vendor ID of 40 bytes to the vendor ID of 24 bytes ?
_________________
Regards
enrico sorichetti
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 :-)

DB2 :: RE: Column length problem

daveporcelan — Thu, 18 Mar 2010 17:58:31 GMT

Author: daveporcelan
Posted: Thu Mar 18, 2010 11:28 pm (GMT 5.5)

From what I can see, the only way to do it without changing your 100 programs is to have a sort step truncate the field at 24 bytes.

Otherwise, without changing the length of the column (the best solution) is:
1) Define a new column new_vendor_id length of 40
2) Change programs to:
Process input file with new length
Write vendor id to new column
Overlay data in old column to say 'use new_vendor_id'

I am sure I left out something (alot of things).

There is no way you can have your data change like this without having to change your programs.

Compuware Tools :: RE: File-Aid comma-Separated file to Copybook Layout

enrico-sorichetti — Thu, 18 Mar 2010 17:56:22 GMT

Author: enrico-sorichetti
Subject: Reply to: File-Aid comma-Separated file to Copybook Layout
Posted: Thu Mar 18, 2010 11:26 pm (GMT 5.5)

my preferred coding would be ...

Code:

istring = "abcd;efg;hkj;lmnopqrst"
ostring = ""
do while istring <> ""
parse var istring token ";" istring
ostring = ostring || left(token,10)
end

tested
_________________
Regards
enrico sorichetti
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 :-)

DB2 :: RE: Column length problem

milind suman — Thu, 18 Mar 2010 17:54:03 GMT

Author: milind suman
Posted: Thu Mar 18, 2010 11:24 pm (GMT 5.5)

Hi,

Due to business requirement , the existing Column length of 24 can not be modified (one of the reason being ..its primary key ) . However any new column or a new table can be added.

DB2 :: RE: Column length problem

enrico-sorichetti — Thu, 18 Mar 2010 17:50:33 GMT

Author: enrico-sorichetti
Subject: Reply to: Column length problem
Posted: Thu Mar 18, 2010 11:20 pm (GMT 5.5)

recreate the table with the proper column definition
if the programs do not make any computation/assumption based on the 24 ( old column length )
then simply a table unload/define/reload and recompiling everything should work without any program changes
but we know nothing about the processing which takes place inside Your program

storing 40 bytes in 24 bytes .... brr the nightmare of storage salesmen
_________________
Regards
enrico sorichetti
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 :-)

Compuware Tools :: RE: File-Aid comma-Separated file to Copybook Layout

Akatsukami — Thu, 18 Mar 2010 17:42:11 GMT

Author: Akatsukami
Subject: Reply to: File-Aid comma-Separated file to Copybook Layout
Posted: Thu Mar 18, 2010 11:12 pm (GMT 5.5)

Since I am in a good mood and no pain to speak of today, I will provide the Rexx. Note that there is no error checking to speak of; it assumes the length of each token is less than 10 bytes, and that the delimiter is always a semi-colon.

Code:

/* Rexx */
trace i
arg in out .
"ALLOC DA(" || in || ") FI(TOOLIN) SHR"
"ALLOC DA(" || out || ") FI(TOOLOUT) OLD"
"EXECIO 1 DISKR TOOLIN"

do while (rc=0)
outbuf = ''
pull inbuf
p = pos(';',inbuf)

do while (p�=0)
car = substr(inbuf,1,p-1)
inbuf = substr(inbuf,p+1)
outbuf = outbuf || car || repeat(10-length(car))
p = pos(';',inbuf)
end

outbuf = outbuf || inbuf
push outbuf
"EXECIO 1 DISKW TOOLOUT"
"EXECIO 1 DISKR TOOLIN"
end

exit 0
/*********************************************************************/
/* */
/* repeat */
/* */
/*********************************************************************/
repeat: procedure
trace o
arg how_many, what

if ((what="WHAT") | (what='')) then
what = ' '

result = ''

do i = 1 to how_many
result = result || what
end

trace o
return result

_________________
Dinosaurs dominated the Earth's ecosystem for one hundred million years. During this time, the largest mammal was the size of, and looked very much like, a rat.