IBMMAINFRAMES.com - IBM Mainframe Support Forums

JCL :: RE: Table reference characters

Anuj Dhawan — Thu, 18 Mar 2010 14:59:42 GMT

Author: Anuj Dhawan
Posted: Thu Mar 18, 2010 8:29 pm (GMT 5.5)

Check the second link here, page 48 (Varying Fonts on a Page) should give you a hint ...
_________________
Success is a science; if you have the conditions, you get the result.

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

ramanindya55 — Thu, 18 Mar 2010 14:57:17 GMT

Author: ramanindya55
Subject: Copybook Scope Terminator within IF/Evaluate Conditions
Posted: Thu Mar 18, 2010 8:27 pm (GMT 5.5)

Hi,
I have following code.

Code:

IF AGE > 20 AND AGE < 60 THEN
Move 'Valid Data' TO WS-OUT-TEXT
ELSE
Move 'Invalid Data' TO WS-OUT-TEXT
COPY PRINTEMP.
DISPLAY 'STILL IN THE ELSE LOOP'
END-IF.

And in the Copybook, I have following piece of Code. I have not used any Scope terminator in the copybook.

Code:

DISPLAY 'In PRINTEMP copybook'

My Question is whether the display 'STILL IN THE ELSE LOOP' statement will get executed.
If so, How the compiler is interpreting the Scope terminator which I have given after COPYBOOK ?
Please help me if you have any idea.

Thanks in Advance !!!
_________________
Thanks & regards
Venky,

JCL :: Regarding COND Parameter

mkk157 — Thu, 18 Mar 2010 14:52:11 GMT

Author: mkk157
Subject: Regarding COND Parameter
Posted: Thu Mar 18, 2010 8:22 pm (GMT 5.5)

Hi,

I have 10 steps in a Job.

Requirement is
1) Every Odd step should execute irrespective of the return code from any of the previous steps.
i.e. STEP1, STEP3, STEP5, STEP7, STEP9

2) Every Even step should execute only if its preceeding step executes successfully. (Return code = 0)
i.e. STEP2 should run only if STEP1 executes successfully.
STEP4 should run only if STEP3 executes successfully.
STEP6 should run only if STEP5 executes successfully.
STEP8 should run only if STEP7 executes successfully.
STEP10 should run only if STE9 executes successfully.

Please help me in writing the COND parameters at each step.
_________________
Thanks & Regards,
M K K

JCL :: RE: Table reference characters

Squeak6 — Thu, 18 Mar 2010 14:46:40 GMT

Author: Squeak6
Posted: Thu Mar 18, 2010 8:16 pm (GMT 5.5)

yes... AFP... but more so with the PPFA using "TRCREF"

JCL :: RE: Table reference characters

Anuj Dhawan — Thu, 18 Mar 2010 14:41:55 GMT

Author: Anuj Dhawan
Posted: Thu Mar 18, 2010 8:11 pm (GMT 5.5)

or is it something to do with AFP?

Thrusday was never a guess day before this...
_________________
Success is a science; if you have the conditions, you get the result.

JCL :: RE: Table reference characters

Squeak6 — Thu, 18 Mar 2010 14:40:47 GMT

Author: Squeak6
Posted: Thu Mar 18, 2010 8:10 pm (GMT 5.5)

Sorry for the lack of information... I'm been reading the PPFA manuals and I'm still unable to get the informaion I need... I'll keep looking..

JCL :: RE: Table reference characters

PeterHolland — Thu, 18 Mar 2010 14:33:19 GMT

Author: PeterHolland
Posted: Thu Mar 18, 2010 8:03 pm (GMT 5.5)

I gues it is this : Page Printer Formatting Aid

If yes try the following manual :

IBM Page Printer Formatting Aid: User�s Guide S544-5284

JCL :: RE: Table reference characters

Bill O'Boyle — Thu, 18 Mar 2010 14:31:52 GMT

Author: Bill O'Boyle
Subject: Reply to: Table reference characters
Posted: Thu Mar 18, 2010 8:01 pm (GMT 5.5)

JCL :: RE: Table reference characters

Robert Sample — Thu, 18 Mar 2010 14:30:23 GMT

Author: Robert Sample
Posted: Thu Mar 18, 2010 8:00 pm (GMT 5.5)

You posted in the JCL forum, but you're talking about COBOL and something called "TRCREF" (whatever that may be). I think this should be somewhere else, but I'm not sure yet where.

What do you mean by "create an overlay"? Is TRCREF is vendor product -- and if so, from which vendor? What are "table reference characters"? I'm not sure I understand the term as you're using it. Is this Enterprise COBOL and if so, which release? If not, which COBOL are you using?
_________________
TANSTAAFL

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

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

Akatsukami — Thu, 18 Mar 2010 14:25:29 GMT

Author: Akatsukami
Posted: Thu Mar 18, 2010 7:55 pm (GMT 5.5)

gcicchet wrote:

Hi Akatsukami,

you have return codes and abends confused.

If the job abends it will not complete with a completion code of 1 to 4095,

it will be an abend code such as S*** or U***.

I respectfully disagree.

If you look at z/OS V1R10.0 MVS System Codes you will see that IBM does indeed refer to abend codes as "system completion codes". There are other features (bits set in the TCB, I think) that distinguish between a non-abending return code, a user abend, and a system abend; the range of the code turned is not one of them (hex FFF = decimal 4095).
_________________
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.

JCL :: Table reference characters

Squeak6 — Thu, 18 Mar 2010 14:19:34 GMT

Author: Squeak6
Subject: Table reference characters
Posted: Thu Mar 18, 2010 7:49 pm (GMT 5.5)

Hello everyone� I�m trying to create an overlay. In my PPFA code I want to bold a header line (every time it�s written). I was reading about the �TRCREF� that should handle this. For some reason when I try to add a Table reference characters in my COBOL (the 2nd byte after the CC) the 2nd position is showing up on my report. It�s not it�s supposed to be my Table reference characters.

Squeak....

DB2 :: RE: CASE statement within WHERE clause

GuyC — Thu, 18 Mar 2010 14:18:44 GMT

Author: GuyC
Posted: Thu Mar 18, 2010 7:48 pm (GMT 5.5)

a criteria
REGNA_SZ = xxxxxxxxxxxxxxxxx
with xxxxxxxx being something that can be evaluated/calculated once
is Stage 1 and indexable.
most criteria with ORs are stage 2 and not indexable

So maybe the SA has a reason to ask for this.
a possiblilty is
REGNA_SZ between :hvmin and :hvmax
with (hvmin,hvmax) being (0,0), (1,999999) or (0,999999) depending on :type-flag

CLIST & REXX :: RE: Rexx passing mixed case

valyk — Thu, 18 Mar 2010 14:17:54 GMT

Author: valyk
Subject: Re: Rexx passing mixed case
Posted: Thu Mar 18, 2010 7:47 pm (GMT 5.5)

superk wrote:

valyk wrote:

It appears that it is only the ARG function that converts the case. I would understand if I specified 'PARSE UPPER ARG', but I am not.

ARG is equivelent to PARSE UPPER ARG

3.2 ARG

Quote:

ARG retrieves the argument strings provided to a program or internal routine and assigns them to variables. It is a short form of the instruction:

Code:

>>__PARSE UPPER ARG_ _______________ _;__><
|_template_list_|

Ah, that's the problem. I change 'ARG PARMS' to 'PARSE ARG PARMS' and it fixed the issue. I wonder why IBM defaults that function to behave like that?

CLIST & REXX :: RE: Rexx passing mixed case

valyk — Thu, 18 Mar 2010 14:14:55 GMT

Author: valyk
Posted: Thu Mar 18, 2010 7:44 pm (GMT 5.5)

Well, I understand that. But, I want to keep my passed variables in the the single variable PARMS. Then parse the variable into many variables (PARM). As soon as I perform the 'ARG PARMS' statement, the contents are immediately converted to uppercase.

Here is a trace example:

First the call statement of the calling program:

Code:

803 *-* CALL SCRNDSPL PARMS
>V> " BMS_PDS=BC.TS00.ENVUNIT.OMAP CPY_PDS=BC.TS00.ENVUNIT.COP
YLIB SCREEN=DFH0MDEL MAPATTS=CHPV FLD_CNT=79 FLD_CHAR=X ATTR_CNT=14 FLD_CD=1 FL
D_TYP=2 FLD_POS=3 FLD_LEN=4 FLD_LLEN=5 FLD_VAL=6 FLD_NAME=7 FLD_PROT=8 FLD_INTS
=9 FLD_HILT=10 FLD_COLR=11 FLD_PICI=12 FLD_PICO=13 FLD_DFLT=14 RPT.0=3 RPT.1=0
RPT.2=1 RPT.3=1 MAX_ROW=24 MAX_COL=80 INIT_CSR=R8C21 PNL_PREF=SCRN PNL_SUFF=MOD
2 FLD.1=R1C3 R1C3.1=DFH0001 R1C3.2=FD R1C3.3=1,3 R1C3.4=5 R1C3.5=5 R1C3.6=XXXXX
R1C3.7=DELFFLD R1C3.8=UNPROT R1C3.9=BRT R1C3.10=OFF R1C3.11=NEUTRAL R1C3.12=X(
5) R1C3.13=X(5) R1C3.14=:File FLD.2=R1C9 R1C9.1=DFH0002 R1C9.2=FD R1C9.3=1,9 R1
C9.4=5 R1C9.5=5 R1C9.6=XXXXX R1C9.7=DELHFLD R1C9.8=UNPROT R1C9.9=BRT R1C9.10=OF
F R1C9.11=NEUTRAL R1C9.12=X(5) R1C9.13=X(5) R1C9.14=:Help FLD.3=R2C1 R2C1.1=DFH
0002 R2C1.2=TX R2C1.3=2,1 R2C1.4=78 R2C1.5=78 R2C1.6=--------------------------
---------------------------------------------------- R2C1.7=-------------------
----------------------------------------------------------- R2C1.8=ASKIP R2C1.9
=NORM R2C1.10=OFF R2C1.11=BLUE R2C1.12=X(5) R2C1.13=X(5) R2C1.14=--------------
---------------------------------------------------------------- FLD.4=R3C2 R3C
2.1=DFH0003 R3C2.2=FD R3C2.3=3,2 R3C2.4=4 R3C2.5=4 R3C2.6=XXXX R3C2.7=DELID R3C
2.8=PROT R3C2.9=NORM R3C2.10=OFF R3C2.11=BLUE R3C2.12=X(4) R3C2.13=X(4) R3C2.14
=DEL0 FLD.5=R3C30 R3C30.1=DFH0004 R3C30.2=FD R3C30.3=3,30 R3C30.4=23 R3C30.5=23
R3C30.6=XXXXXXXXXXXXXXXXXXXXXXX R3C30.7=DELTITL R3C30.8=ASKIP R3C30.9=NORM R3C
30.10=OFF R3C30.11=BLUE R3C30.12=X(23) R3C30.13=X(23) R3C30.14=Delete:Customer
FLD.6=R6C2 R6C2.1=DFH0004 R6C2.2=TX R6C2.3=6,2 R6C2.4=4 R6C2.5=4 R6C2.6=Type R6
C2.7=Type R6C2.8=ASKIP R6C2.9=BRT R6C2.10=OFF R6C2.11=GREEN R6C2.12= R6C2.13= R

Now the first instruction in the called program, ARG PARMS:

Code:

22 *-* ARG PARMS
>>> " BMS_PDS=BC.TS00.ENVUNIT.OMAP CPY_PDS=BC.TS00.ENVUNIT.COPYLIB SCR
EEN=DFH0MDEL MAPATTS=CHPV FLD_CNT=79 FLD_CHAR=X ATTR_CNT=14 FLD_CD=1 FLD_TYP=2
FLD_POS=3 FLD_LEN=4 FLD_LLEN=5 FLD_VAL=6 FLD_NAME=7 FLD_PROT=8 FLD_INTS=9 FLD_H
ILT=10 FLD_COLR=11 FLD_PICI=12 FLD_PICO=13 FLD_DFLT=14 RPT.0=3 RPT.1=0 RPT.2=1
RPT.3=1 MAX_ROW=24 MAX_COL=80 INIT_CSR=R8C21 PNL_PREF=SCRN PNL_SUFF=MOD2 FLD.1=
R1C3 R1C3.1=DFH0001 R1C3.2=FD R1C3.3=1,3 R1C3.4=5 R1C3.5=5 R1C3.6=XXXXX R1C3.7=
DELFFLD R1C3.8=UNPROT R1C3.9=BRT R1C3.10=OFF R1C3.11=NEUTRAL R1C3.12=X(5) R1C3.
13=X(5) R1C3.14=:FILE FLD.2=R1C9 R1C9.1=DFH0002 R1C9.2=FD R1C9.3=1,9 R1C9.4=5 R
1C9.5=5 R1C9.6=XXXXX R1C9.7=DELHFLD R1C9.8=UNPROT R1C9.9=BRT R1C9.10=OFF R1C9.1
1=NEUTRAL R1C9.12=X(5) R1C9.13=X(5) R1C9.14=:HELP FLD.3=R2C1 R2C1.1=DFH0002 R2C
1.2=TX R2C1.3=2,1 R2C1.4=78 R2C1.5=78 R2C1.6=----------------------------------
-------------------------------------------- R2C1.7=---------------------------
--------------------------------------------------- R2C1.8=ASKIP R2C1.9=NORM R2
C1.10=OFF R2C1.11=BLUE R2C1.12=X(5) R2C1.13=X(5) R2C1.14=----------------------
-------------------------------------------------------- FLD.4=R3C2 R3C2.1=DFH0
003 R3C2.2=FD R3C2.3=3,2 R3C2.4=4 R3C2.5=4 R3C2.6=XXXX R3C2.7=DELID R3C2.8=PROT
R3C2.9=NORM R3C2.10=OFF R3C2.11=BLUE R3C2.12=X(4) R3C2.13=X(4) R3C2.14=DEL0 FL
D.5=R3C30 R3C30.1=DFH0004 R3C30.2=FD R3C30.3=3,30 R3C30.4=23 R3C30.5=23 R3C30.6
=XXXXXXXXXXXXXXXXXXXXXXX R3C30.7=DELTITL R3C30.8=ASKIP R3C30.9=NORM R3C30.10=OF
F R3C30.11=BLUE R3C30.12=X(23) R3C30.13=X(23) R3C30.14=DELETE:CUSTOMER FLD.6=R6
C2 R6C2.1=DFH0004 R6C2.2=TX R6C2.3=6,2 R6C2.4=4 R6C2.5=4 R6C2.6=TYPE R6C2.7=TYP
E R6C2.8=ASKIP R6C2.9=BRT R6C2.10=OFF R6C2.11=GREEN R6C2.12= R6C2.13= R6C2.14=T

Notice the stem variable R3C30.14. The call passes 'Delete:Customer', but it is recieved as 'DELETE:CUSTOMER'

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

Anuj Dhawan — Thu, 18 Mar 2010 14:13:51 GMT

Author: Anuj Dhawan
Posted: Thu Mar 18, 2010 7:43 pm (GMT 5.5)

jennybrahma - Please read through the DISP parameter in the manuals.
_________________
Success is a science; if you have the conditions, you get the result.

DB2 :: RE: Way to physically move the rows from one table to another

dick scherrer — Thu, 18 Mar 2010 14:13:45 GMT

Author: dick scherrer
Posted: Thu Mar 18, 2010 7:43 pm (GMT 5.5)

Hello,

Quote:

Kindly post your requirement/problem instead of asking the possibility of a function in it.

Please read the entire topic. . .

The requirement seems to be quite clear. . .

And the way to accomplish it is clear also. . . Just not work-free enough?
_________________
Hope this helps,

d.sch.

CLIST & REXX :: RE: Rexx passing mixed case

superk — Thu, 18 Mar 2010 14:11:41 GMT

Author: superk
Subject: Re: Rexx passing mixed case
Posted: Thu Mar 18, 2010 7:41 pm (GMT 5.5)

valyk wrote:

It appears that it is only the ARG function that converts the case. I would understand if I specified 'PARSE UPPER ARG', but I am not.

ARG is equivelent to PARSE UPPER ARG

3.2 ARG

Quote:

ARG retrieves the argument strings provided to a program or internal routine and assigns them to variables. It is a short form of the instruction:

Code:

>>__PARSE UPPER ARG_ _______________ _;__><
|_template_list_|

_________________
Kevin

"Life is hard. It's even harder when you're stupid."

CLIST & REXX :: RE: Rexx passing mixed case

PeterHolland — Thu, 18 Mar 2010 14:04:33 GMT

Author: PeterHolland
Posted: Thu Mar 18, 2010 7:34 pm (GMT 5.5)

Valyk,

"lit" is the first parameter and "value" the second.

CICS :: RE: CICS Short On Storage issue

Bill O'Boyle — Thu, 18 Mar 2010 13:59:59 GMT

Author: Bill O'Boyle
Subject: Reply to: CICS Short On Storage issue
Posted: Thu Mar 18, 2010 7:29 pm (GMT 5.5)

Is the SOS occurring on below-the-line or above-the-line DSA?

Issue a CEMT INQUIRE SYSTEM (if you're authorised) and capture the values set to DSAlimit (below-the-line) and EDsalimit (above-the-line).

I have to assume that this SOS is occurring on User-DSA?

Please post the DFH message and exact verbiage associated with the SOS condition and someone may be able to assist further.

However, there's no magic bullet in determining SOS. It takes research.

If you have TMON for CICS, you may be able to find the culprit transaction/program.

Ask your CICS Sysprog and/or Tech Support folks for assistance.

Bill

CLIST & REXX :: RE: Rexx passing mixed case

valyk — Thu, 18 Mar 2010 13:57:16 GMT

Author: valyk
Posted: Thu Mar 18, 2010 7:27 pm (GMT 5.5)

Thanks Peter, but I am not sure what this is doing. What is the purpose of 'lit' and how does 'PARSE ARG VALUE VALUE' retain mixed case?

JCL :: RE: How to improve the performance of SYNCSORT

Anuj Dhawan — Thu, 18 Mar 2010 13:49:09 GMT

Author: Anuj Dhawan
Posted: Thu Mar 18, 2010 7:19 pm (GMT 5.5)

As I said earlier - Tuning SyncSort is usually application specific and to get you better replies we'll be intrested to see "B" messages, which you have not shown yet. Having said that, your best bet is to get in contact with Alissa (Margulies) with those details on her e-mail ID.
_________________
Success is a science; if you have the conditions, you get the result.

CLIST & REXX :: RE: Rexx passing mixed case

PeterHolland — Thu, 18 Mar 2010 13:35:47 GMT

Author: PeterHolland
Posted: Thu Mar 18, 2010 7:05 pm (GMT 5.5)

Yes, that happened to me too once.
I solved it in the following way :

Code:

Substitute:

Arg lit value

Parse Arg value value /* this is to keep mixed case */

CLIST & REXX :: Rexx passing mixed case

valyk — Thu, 18 Mar 2010 13:29:43 GMT

Author: valyk
Subject: Rexx passing mixed case
Posted: Thu Mar 18, 2010 6:59 pm (GMT 5.5)

I am passing variables between several external programs and my variables are being converted to upper case.

Here is the calling program:

Code:

DISPLAY_SCREEN:
CALL DRAW_PARMS
CALL SCRNDSPL PARMS
RETURN

DRAW_PARMS:
PARMS = ''

ADDRESS TSO
"ALLOC DATASET(CURR_PDS("SCRNGLBL")') FILE(PARM) SHR"
'EXECIO * DISKR PARM (FINIS STEM PARMS.'
'FREE FILE(PARM)'

DO I = 1 TO PARMS.0
PARM = SPACE(SUBSTR(PARMS.I,1,12))

IF PARM > '' THEN
INTERPRET "PARMS = PARMS PARM'='"PARM
END
RETURN

Called program:

Code:

ARG PARMS
CALL PARSE_PARMS PARMS

PARSE_PARMS:
PARMS = ARG(1)

DO FOREVER
IF PARMS > '' THEN DO
PARSE VAR PARMS PARM PARMS
PARSE VAR PARM PARM_NAME '=' PARM_VAL .
INTERPRET PARM_NAME "='"PARM_VAL"'"
END
ELSE
LEAVE
END
RETURN

If I add a trace entry at the top of the called program, I immediately see the contents of the variables converted to uppercase. I noticed when I return back to the calling program, and parse the RESULT variable, the mixed case is retained. It appears that it is only the ARG function that converts the case. I would understand if I specified 'PARSE UPPER ARG', but I am not.

DFSORT/ICETOOL :: RE: Copy two different length files

shr_amar — Thu, 18 Mar 2010 13:05:39 GMT

Author: shr_amar
Posted: Thu Mar 18, 2010 6:35 pm (GMT 5.5)

Please ignore previous post that has some errors:-

I have input1 file FB,RL=5
RECORD in input file are like this

ABCDE
SSSSS
DDDDD
NNNNN

I have second file FB,RL=10
Which have RECORD

RRRRRRRRRR
TTTTTTTTTTT

I want to copy all records of Input1 & input2 file to a variable length file of RL=14 . so the output will be

ABCDE
SSSSS
DDDDD
NNNNN
RRRRRRRRRR
TTTTTTTTTTT

JCL :: RE: Dynamic file allocation in JCL

superk — Thu, 18 Mar 2010 13:04:34 GMT

Author: superk
Subject: Reply to: Dynamic file allocation in JCL
Posted: Thu Mar 18, 2010 6:34 pm (GMT 5.5)

I don't know. I guess however your site handles these situations and what rules/standards you have to abide by.

You could use the INCLUDE statement. You could dynamically build and submit a job, either in its entirety or partially. Does your job scheduling system allow you to bring in external files to your application and then include them as part of the job stream?
_________________
Kevin

"Life is hard. It's even harder when you're stupid."

IMS DB/DC :: RE: GN without SSA

manikawnth — Thu, 18 Mar 2010 12:59:07 GMT

Author: manikawnth
Subject: @Tapas
Posted: Thu Mar 18, 2010 6:29 pm (GMT 5.5)

Hi Tapas,
For your doubt regarding my second reply, Sandy gave a clear explanation in her first post

DFSORT/ICETOOL :: Copy two different length files

shr_amar — Thu, 18 Mar 2010 12:52:15 GMT

Author: shr_amar
Subject: Copy two different length files
Posted: Thu Mar 18, 2010 6:22 pm (GMT 5.5)

I have input1 file FB,RL=5
RECORD in input file are like this

ABCDE
SSSSS
DDDDD
NNNNN

I have second file FB,RL=10
Which have RECORD

RRRRRRRRRR
TTTTTTTTTTT

I want to copy all records of Input1 & input2 file to a variable length file of RL=4 . so the output will be
ABCDE
SSSSS
DDDDD
NNNNN
ABCDE
SSSSS
DDDDD
NNNNN
RRRRRRRRRR
TTTTTTTTTTT

JCL :: RE: Dynamic file allocation in JCL

cvishu — Thu, 18 Mar 2010 12:48:11 GMT

Author: cvishu
Subject: Re: Reply to: Dynamic file allocation in JCL
Posted: Thu Mar 18, 2010 6:18 pm (GMT 5.5)

superk wrote:

They just need to be added or included to a job and then that job can be submitted.

Yes i want to know how to combine them.
How could the content of a flat file(output2) be given as the output dataset for a Sort step ?

CICS :: RE: CICS Short On Storage issue

simmimahajan — Thu, 18 Mar 2010 12:41:18 GMT

Author: simmimahajan
Subject: Reply to: CICS Short On Storage issue
Posted: Thu Mar 18, 2010 6:11 pm (GMT 5.5)

Thanks Sure, trying to gather more information on this.

IMS DB/DC :: RE: Question on Multiple DB Positioning

Sandy Zimmer — Thu, 18 Mar 2010 12:40:19 GMT

Author: Sandy Zimmer
Posted: Thu Mar 18, 2010 6:10 pm (GMT 5.5)

Take a look at this post...

http://ibmmainframes.com/viewtopic.php?p=228661#228661
_________________
SandyZ

IMS DB/DC :: RE: GN without SSA

Sandy Zimmer — Thu, 18 Mar 2010 12:39:41 GMT

Author: Sandy Zimmer
Posted: Thu Mar 18, 2010 6:09 pm (GMT 5.5)

Take a look at the structure in this post about multiple positioning:
http://ibmmainframes.com/viewtopic.php?t=47450

You are reading all segment7 - 2 levels down from the root. You are looking for a specific value in segment7. You are using a GN with 1 unqualified SSA - for segment7. You look at the field value in segment7 and it matches your agenda. Now you need to set a flag in segment1.

The first thing you do is look at your key feedback area to get the key value for your root. This is a great agenda for mulitple positioning. You use that key value to issue a qualified GU for the root - segment1 - using your second PCB. You are still positioned on your first PCB - not losing position - and you have been able to update segment1 up the chain.
_________________
SandyZ

Mainframe COBOL :: RE: File comparison in cobol

Robert Sample — Thu, 18 Mar 2010 12:36:41 GMT

Author: Robert Sample
Posted: Thu Mar 18, 2010 6:06 pm (GMT 5.5)

Quote:

Kindly give us the solution to implement N:N logic?

Unless you are willing to pay the going rates (and 1000 U.S. dollars per day is not uncommon), please do not ask for code. People who respond here are paid for their professional work product, which is what you want when you ask for code.

Besides, this is a HELP forum, not a DO-YOUR-JOB-FOR-YOU forum. What have you coded so far?
_________________
TANSTAAFL

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

CICS :: RE: Start and Start attach

Robert Sample — Thu, 18 Mar 2010 12:34:11 GMT

Author: Robert Sample
Posted: Thu Mar 18, 2010 6:04 pm (GMT 5.5)

So you see two different commands in the CICS Language Reference manual, and you believe they are the same? Exactly why would you have such a deluded concept? If you read the descriptions of the commands in the manual (link at the top of the page), you will rapidly see the differences in them.
_________________
TANSTAAFL

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

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

gcicchet — Thu, 18 Mar 2010 12:33:18 GMT

Author: gcicchet
Posted: Thu Mar 18, 2010 6:03 pm (GMT 5.5)

Hi,

ensure the member with the variables is generated correctly.

Gerry

CLIST & REXX :: RE: converting to numeric values in rexx

superk — Thu, 18 Mar 2010 12:31:03 GMT

Author: superk
Subject: Reply to: converting to numeric values in rexx
Posted: Thu Mar 18, 2010 6:01 pm (GMT 5.5)

SPACE and TRANSLATE are a few of of those key REXX functions along with PARSE. You should learn them well as you will use them a lot.
_________________
Kevin

"Life is hard. It's even harder when you're stupid."

Mainframe COBOL :: RE: Getting the physical name of a file at runtime.

Robert Sample — Thu, 18 Mar 2010 12:29:59 GMT

Author: Robert Sample
Posted: Thu Mar 18, 2010 5:59 pm (GMT 5.5)

This has been discussed a number of times. Search the 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 :: File comparison in cobol

kalyan_lc5 — Thu, 18 Mar 2010 12:29:07 GMT

Author: kalyan_lc5
Subject: File comparison in cobol
Posted: Thu Mar 18, 2010 5:59 pm (GMT 5.5)

There are two flat input files present in the program. The program is about comparison of keys of both the files. The requirement is both the files can have duplicate key values. How do I go ahead with the comparison of keys if the scenario is N:N ?

Kindly give us the solution to implement N:N logic?

Kalyan

IMS DB/DC :: RE: GN without SSA

Sandy Zimmer — Thu, 18 Mar 2010 12:28:41 GMT

Author: Sandy Zimmer
Posted: Thu Mar 18, 2010 5:58 pm (GMT 5.5)

A GN call without ANY SSA will read every single segment in the database - all levels - all occurences. Your key feedback area will contain the concatenated key values of the root down. You will never get a GE. If you do not check for GB, you will start over at the beginning of the database and read and read and read.

If you use an unqualified SSA for a specific segment type, you will read every segment until you get a GB. If there are no segments for that type, you will get a GE.

You do not need the parent of your specified segment type. If you need to see the key values of the parents up the chain, you can take a look at the key feedback area in your PCB. For instance, you are looking for something in a segment 3 levels down. Once you determine that you have a segment with that value - look at the key feedback area for the parent key values.
_________________
SandyZ

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

Xavier Miret — Thu, 18 Mar 2010 12:28:35 GMT

Author: Xavier Miret
Posted: Thu Mar 18, 2010 5:58 pm (GMT 5.5)

Hi,

Mmm... now that you mention it... I could modify the member within the JCL once it has been submitted, but I can't modify it by hand.

That is because the member with the variables is generated dinamically. We know which variables will it contain, but we don't know which values are assigned to them until we are executing the JCL.

The whole process:

1. Application takes parameters from a web page introduced by a user (variable=value)
2. Application makes a member with those parameters.
%%variable1=value1
%%variable2=value2
...
3. Application decides which JCL template needs and generates a JOB to planify.
4. Application planifies the JOB.

I don't have access to most of the application code. I can only modify the JCL template. In which I decide which steps to execute, and where to place the variables.

But when I reference any variable with a value with white spaces, for example a description, it truncs its value to the first white space, so the JCL works with a truncated value.

Thx,

Xavi

Mainframe COBOL :: RE: Getting the physical name of a file at runtime.

superk — Thu, 18 Mar 2010 12:27:47 GMT

Author: superk
Subject: Reply to: Getting the physical name of a file at runtime.
Posted: Thu Mar 18, 2010 5:57 pm (GMT 5.5)

Please search for other existing topics since this has been covered before.

Here's one to start with.
_________________
Kevin

"Life is hard. It's even harder when you're stupid."

CICS :: RE: CICS Short On Storage issue

Robert Sample — Thu, 18 Mar 2010 12:25:54 GMT

Author: Robert Sample
Posted: Thu Mar 18, 2010 5:55 pm (GMT 5.5)

Short answer (which is always true for S-O-S problems): figure out what's eating up the storage and change the program(s) to resolve it -- or add more memory to the region.

Run a STAT in the region and find out which storage pool is having the problem. If it's one of the above-the-line pools like ECSA, and you can increase the memory to that pool, that could be a quick fix. If it's one of the below-the-line pools, and the problem just recently started, you need to look at application program changes recently and identify which program(s) are using up the storage. Getting the application to run above the line is often the best way to resolve below-the-line S-O-S issues.

If someone recently made a region change (say increasing max tasks from 50 to 250, for example), without changing the memory allocation for the region appropriately, that could also cause S-O-S issues.

So it could be an application OR a system issue -- without doing investigation on site, you cannot really say which, nor how to fix it. But you definitely don't want S-O-S situations to continue as they have big impacts on response times.
_________________
TANSTAAFL

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

CICS :: Start and Start attach

d_sarlie — Thu, 18 Mar 2010 12:23:25 GMT

Author: d_sarlie
Subject: Start and Start attach
Posted: Thu Mar 18, 2010 5:53 pm (GMT 5.5)

Is there any difference between start and start attach in CICS.
_________________
jeba

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

superk — Thu, 18 Mar 2010 12:23:10 GMT

Author: superk
Subject: Reply to: V00 in GDG
Posted: Thu Mar 18, 2010 5:53 pm (GMT 5.5)

Yes, just catalog a new dataset:

Code:

//STEPXXXX EXEC PGM=ICEGENER
//SYSUT1 DD DSN=XK.LM.S010F01.G0147V00,DISP=SHR
//SYSUT2 DD DSN=XK.LM.S010F01.G0147V01,
// DISP=(,CATLG,DELETE),UNIT=....
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY

after which the existing GDS entry XK.LM.S010F01.G0147V00 will be rolled off and uncataloged and replaced with the new entry XK.LM.S010F01.G0147V01.
_________________
Kevin

"Life is hard. It's even harder when you're stupid."

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

d_sarlie — Thu, 18 Mar 2010 12:18:59 GMT

Author: d_sarlie
Subject: Increase the version of V00 in GDG
Posted: Thu Mar 18, 2010 5:48 pm (GMT 5.5)

Hi,

Is that possible for us to increase the version of V00

XK.LM.S010F01.G0147V00

Thanks for the help.
_________________
jeba

TSO/ISPF :: RE: ISPF FILEXFER Problem

superk — Thu, 18 Mar 2010 12:17:55 GMT

Author: superk
Subject: Reply to: FILEXFER service failed because there is no connec
Posted: Thu Mar 18, 2010 5:47 pm (GMT 5.5)

krishna, please post the EXACT code you're executing as well as the results of a TRACE so we all can see. Also, we would expect that you've already successfully tested the connections out manually before coding a script and posting here.
_________________
Kevin

"Life is hard. It's even harder when you're stupid."