IBMMAINFRAMES.com - IBM Mainframe Support Forums

JCL :: RE: need details on return code

CICS Guy — Wed, 14 May 2008 23:20:30 GMT

Author: CICS Guy
Posted: Thu May 15, 2008 4:50 am (GMT 5.5)

gcicchet wrote:

why have a job submit another 2 jobs ? Why not submit the real job and if rc of 0 then submit the next job.

That sounds like "there is no solution apart from scheduler".......

TSO/ISPF :: RE: VPUT of Lower Case data in REXX going to Upper Case in Panel

gcicchet — Wed, 14 May 2008 23:17:31 GMT

Author: gcicchet
Posted: Thu May 15, 2008 4:47 am (GMT 5.5)

Hi Pedro,

can you please explain :-

Quote:

2. If you want your users to be able the jump from your panel (for example, typing '=3.4' and pressing Enter), I think the input field needs to be preceded by two equal sign and a greater than sign: '==>_field'.

Why does it need two equal sign and greater than sign, isn't this just TEXT ?

Gerry

JCL :: RE: need details on return code

gcicchet — Wed, 14 May 2008 23:02:15 GMT

Author: gcicchet
Posted: Thu May 15, 2008 4:32 am (GMT 5.5)

Hi,
why have a job submit another 2 jobs ? Why not submit the real job and if rc of 0 then submit the next job.

Gerry

Mainframe COBOL :: RE: Cobol XML-PARSE (') Problem

stodolas — Wed, 14 May 2008 22:15:17 GMT

Author: stodolas
Posted: Thu May 15, 2008 3:45 am (GMT 5.5)

What does your parse code look like?
_________________
-Steve

CLIST & REXX :: RE: Finding source of REXX code

rohitsir — Wed, 14 May 2008 21:48:05 GMT

Author: rohitsir
Posted: Thu May 15, 2008 3:18 am (GMT 5.5)

Quote:

it could be a load module as previously mentioned, try typing LPA in ISRDDN before searching for the member.

I tried looking into LPALIB libraries. I don't have access to all the libraries. That utility might be in one of these libraries.

Quote:

If this is the module/code that allows you to edit vsam files directly, i suspect that the code may be assembler. . .

Utility opens up vsam in browse mode only.
_________________
Rohit

IMS DB/DC :: Can I be accessing IMS database with VSAM commands?

Pankaj Gupta — Wed, 14 May 2008 21:36:51 GMT

Author: Pankaj Gupta
Subject: Can I be accessing IMS database with VSAM commands?
Posted: Thu May 15, 2008 3:06 am (GMT 5.5)

Hello, I am IMS Cobol programmer. I am not understanding exactly CBLTDLI but why do I need using this? IMS database I am thinking is vsam files so can I be using cobol vsam file access instead? It is not working when I am trying. I thanking you all.
_________________
Confident coding is being excellent

CLIST & REXX :: RE: Finding source of REXX code

rohitsir — Wed, 14 May 2008 21:31:33 GMT

Author: rohitsir
Posted: Thu May 15, 2008 3:01 am (GMT 5.5)

Utility: BR

To browse files by pointing cursor to the dataset name and typing BR at command line and pressing enter.
_________________
Rohit

CLIST & REXX :: RE: Parse a folder path, seperating by each folder

Ramya Arun — Wed, 14 May 2008 20:44:33 GMT

Author: Ramya Arun
Subject: Reply to: Parse a folder path, seperating by each folder
Posted: Thu May 15, 2008 2:14 am (GMT 5.5)

Hi Patrick,

I just tried your code and it worked fine for me:

Code:

/* REXX */

say "Enter path name"
pull path
slash = '\'
parse value path with (slash) fname0 (slash) fname1 (slash) fname2,
(slash) fname3 (slash) fname4 (slash) fname5 (slash) fname6,
(slash) fname7 (slash) fname8 (slash) fname9 (slash)

say fname0
say fname1
say fname2
say fname3
say fname4
say fname5

When I executed the above code, I got:

Code:

Enter path name
\\ROOT\WRKGRP\IT DEVELOPMENT\_INDIVIDUAL FOLDERS

ROOT
WRKGRP
IT DEVELOPMENT
_INDIVIDUAL FOLDERS

***

_________________
Regards,
Ramya

CLIST & REXX :: RE: Parse a folder path, seperating by each folder

Pedro — Wed, 14 May 2008 20:41:27 GMT

Author: Pedro
Subject: Reply to: Parse a folder path, seperating by each folder
Posted: Thu May 15, 2008 2:11 am (GMT 5.5)

also, I question the use of UPPER in the parse statement. I think it is case sensitive.

CLIST & REXX :: RE: Parse a folder path, seperating by each folder

dick scherrer — Wed, 14 May 2008 20:40:31 GMT

Author: dick scherrer
Posted: Thu May 15, 2008 2:10 am (GMT 5.5)

Hello Patrick and welcome to the forums,

You might try something i'd call a pseudo-blank - a keyboard character that would not ever appear in the string, and would be replaced by an x'40' after the string was broken into the component fields. Things like ~ | ! come to mind as they aren't as likely to be used in designed folder names (seen a few of these that were system generated, but not admin-designed).
_________________
Hope this helps,

d.sch.

CLIST & REXX :: RE: Parse a folder path, seperating by each folder

Pedro — Wed, 14 May 2008 20:39:23 GMT

Author: Pedro
Subject: Reply to: Parse a folder path, seperating by each folder
Posted: Thu May 15, 2008 2:09 am (GMT 5.5)

Remove the dot at the end of

Parse Upper Arg path .

CLIST & REXX :: RE: Parse a folder path, seperating by each folder

Patrick McGhee — Wed, 14 May 2008 20:18:20 GMT

Author: Patrick McGhee
Posted: Thu May 15, 2008 1:48 am (GMT 5.5)

Thank you for the quick reply!

Although I didn't recognize it a first I understand what you are saying. However, even if I put the string in quotes it resolves to the same thing. I am invoking REXX through batch JCL passing in the path name. I would like to pass it in through the JCL to keep from hard-coding it in the REXX.

I understand the complexities with spaces in folder path names but this is something that cannot change. There are spaces in the folder names on our production servers so we have to code for it.

Thanks again,
Patrick

Mainframe COBOL :: RE: how to convert character to numeric data type in cobol

dick scherrer — Wed, 14 May 2008 18:02:27 GMT

Author: dick scherrer
Posted: Wed May 14, 2008 11:32 pm (GMT 5.5)

Hello,

If you have already verified that the data field has a valid value, a simple REDEFINES will give you the 9(8) you want.
_________________
Hope this helps,

d.sch.

DFSORT/ICETOOL :: RE: Do we have conditional sorting in DFSORT

Frank Yaeger — Wed, 14 May 2008 17:58:27 GMT

Author: Frank Yaeger
Posted: Wed May 14, 2008 11:28 pm (GMT 5.5)

Amar,

The INCLUDE and OMIT statements can be used with SORT, MERGE and COPY.

This Figure may be helpful - it gives an overview of the DFSORT functions available with SORT, MERGE and COPY and the order in which they are processed:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA20/1.5.4?DT=20060615185603#FIGSTMTSEQ
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/

Mainframe COBOL :: RE: how to convert character to numeric data type in cobol

krishnasaikiah — Wed, 14 May 2008 17:55:56 GMT

Author: krishnasaikiah
Subject: Reply to: how to convert character to numeric data type in c
Posted: Wed May 14, 2008 11:25 pm (GMT 5.5)

Hi all,
I have typed my column name as time..it is not time it is date column...
i need to convert my date field which is x(8)...CCYYMMDD..to 9(8) CCYYMMDD....
I hope now it is clear to alll
Thanks in advance
krishna
_________________
Krishna Saikiah

JCL :: RE: How to get a future date with Syncsort

dick scherrer — Wed, 14 May 2008 17:53:13 GMT

Author: dick scherrer
Subject: Reply to: How to get a future date with Syncsort
Posted: Wed May 14, 2008 11:23 pm (GMT 5.5)

Quote:

Sorry, its my mistake.

Not to worry - we all do that from time to time

Thank you for posting that it is now working for you.

d

DFSORT/ICETOOL :: RE: Do we have conditional sorting in DFSORT

enrico-sorichetti — Wed, 14 May 2008 17:09:35 GMT

Author: enrico-sorichetti
Subject: Reply to: Do we have conditional sorting in DFSORT
Posted: Wed May 14, 2008 10:39 pm (GMT 5.5)

Yes,
search the forum for the samples where only the detail record are sorted
_________________
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 :-)

CLIST & REXX :: RE: Parse a folder path, seperating by each folder

enrico-sorichetti — Wed, 14 May 2008 17:07:09 GMT

Author: enrico-sorichetti
Subject: Reply to: Parse a folder path, seperating by each folder
Posted: Wed May 14, 2008 10:37 pm (GMT 5.5)

it' s not the rexx that is not working,
it' s the invocation format that' s wrong
the tokn You are trying to pass is being resolved as two parameters

IIRC try quoting the invocation parameter

but as a general consideration it is not a safe practice to have path names with embedded blanks
_________________
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 :: Do we have conditional sorting in DFSORT

V S Amarendra Reddy — Wed, 14 May 2008 16:54:37 GMT

Author: V S Amarendra Reddy
Subject: Do we have conditional sorting in DFSORT
Posted: Wed May 14, 2008 10:24 pm (GMT 5.5)

Hi

We have coniditional copying like INCLUDE and OMIT which will copy a set of records based on that condition. In the same way can we have the same option for SORT too like sort only those records when they meet certain criteria.Means the same INCLUDE and OMIT.

Does this makes meaningful??

Regrds
Amar

CLIST & REXX :: Parse a folder path, seperating by each folder

Patrick McGhee — Wed, 14 May 2008 16:50:25 GMT

Author: Patrick McGhee
Subject: Parse a folder path, seperating by each folder
Posted: Wed May 14, 2008 10:20 pm (GMT 5.5)

Hello everybody! Thanks for all the help and insight that I have taken from this site to date.

I'm having a difficult time trying to parse a server path string into variables for each folder. I am running into problems where there is a space in the folder name.

For instance: I would like to take \\root\name 1\name 2\name 3 and store each folder name into a variable like this:

fname1 = root
fname2 = name 1
fname3 = name 2
fname4 = name 3

Here is the code that I am working with:

Code:

/* REXX */

Parse Upper Arg path .
slash = '\'
parse value path with (slash) fname0 (slash) fname1 (slash) fname2,
(slash) fname3 (slash) fname4 (slash) fname5 (slash) fname6,
(slash) fname7 (slash) fname8 (slash) fname9 (slash)

say fname0
say fname1
say fname2
say fname3
say fname4
say fname5

With input as:

Code:

\\ROOT\WRKGRP\IT DEVELOPMENT\_INDIVIDUAL FOLDERS

Here is my Ouput:

Code:

READY
%TESTREXX \\ROOT\WRKGRP\IT DEVELOPMENT\_INDIVIDUAL FOLDERS

ROOT
WRKGRP
IT

Any help would be greatly appreciated.
Man I hope I didn't break any forums rules on my first post!

Thanks,
Patrick

JCL :: RE: How to get a future date with Syncsort

Shanthi Jayaraman — Wed, 14 May 2008 16:47:28 GMT

Author: Shanthi Jayaraman
Posted: Wed May 14, 2008 10:17 pm (GMT 5.5)

dick scherrer wrote:

Hello,

Re-run your test with the input data in the correct columns. The code tests beginning in col1, but you put the data beginning in col3.

Sorry, its my mistake.
This works as well.

Code:

//SORTIN DD *
20080510
20080511
20080512
20080515
20080516
/*
//SORTOUT DD SYSOUT=*
/*
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(1,8,CH,LE,&DATE1-3)
/*

Code:

********************************* TOP OF DATA **********************************
20080510
20080511
20080512
******************************** BOTTOM OF DATA ********************************

CLIST & REXX :: RE: How do i close and reopen a file in the same rexx

enrico-sorichetti — Wed, 14 May 2008 16:43:00 GMT

Author: enrico-sorichetti
Subject: Reply to: How do i close and reopen a file in the same rexx
Posted: Wed May 14, 2008 10:13 pm (GMT 5.5)

what about looking at the manual ??
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ3A320/10.3?SHELF=IKJOSE20&DT=20000113164209
_________________
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: Compare VSAM and GDG file and create new file.

Skolusu — Wed, 14 May 2008 16:40:53 GMT

Author: Skolusu
Subject: Reply to: Compare VSAM and GDG file and create new file.
Posted: Wed May 14, 2008 10:10 pm (GMT 5.5)

Nath,

I still need some clarification.

1. what is the cobol definitions for keyfild1,keyfiled2,keyfield3 in vsam file and what are postions of these fields in the vsam file.

2. Can the combo of keyfild1,keyfiled2,keyfield3 in the VSAM file have dups? If it has then from which dup record do we need to be pick the required fields data?

3. what is the cobol definitions for keyfild1,keyfiled2,keyfield3 in GDG file and what are postions of these fields in the GDG file?

4. Can the combo of keyfild1,keyfiled2,keyfield3 in the GDG file have dups? if so do you need the duplicates to be retained?

5. Do you want the output file to be a VB file or FB file?

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

CLIST & REXX :: RE: How do i close and reopen a file in the same rexx

Pedro — Wed, 14 May 2008 16:34:54 GMT

Author: Pedro
Subject: Reply to: How do i close and reopen a file in the same rexx
Posted: Wed May 14, 2008 10:04 pm (GMT 5.5)

In:

Code:

"ALLOC F(TEMP2) DA('TEST.MASRS.REXX.TEMP1') "
SAY 'RC' RC
"EXECIO * DISKR TEMP1 (STEM JOBDET. FINIS"
SAY 'RC' RC

You are allocating TEMP2 but trying to read TEMP1. I think you should use the same file name in both cases. What are the return codes?

But if I understand what you are doing, I do not think you need to write to TEMP1 at all. It looks like you are combining a bunch of lines into one big stem variable by writing to the file then reading them back in. I think you can just gather them into a stem

Code:

drop jobdet.
jobdet.0 = 0 /* set to zero early in the program*/

Code:

DO J= 1 TO OUT.0
STR = SUBSTR(OUT.J,171,2)
IF STR = "CC" THEN
DO
jobdet.0 = jobdet.0 +1
line_count = jobdet.0
jobdet.line_count = OUT.J
END
END

JCL :: RE: How to get a future date with Syncsort

Shanthi Jayaraman — Wed, 14 May 2008 16:29:55 GMT

Author: Shanthi Jayaraman
Posted: Wed May 14, 2008 9:59 pm (GMT 5.5)

arcvns wrote:

Hi all,

My earlier post was to compare a date field with an offset of current date. If you are trying to create a future date (say current date+1 ), try out this synctool job.

Code:

//STEP1 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//*
//INFILE DD *
ABC
//*
//TEMP DD DSN=&&T1,DISP=(,PASS),SPACE=(TRK,(5,5)),UNIT=SYSDA
//OUTFILE DD SYSOUT=*
//TOOLIN DD *
COPY FROM(INFILE) TO(TEMP) USING(CTL1)
COPY FROM(TEMP) TO(OUTFILE) USING(CTL2)
//*
//CTL1CNTL DD *
INREC FIELDS=(1,3,&DATE3)
SORT FIELDS=COPY
/*
//CTL2CNTL DD *
INREC FIELDS=(1,3,6,5,ZD,ADD,+100001,TO=PD,LENGTH=4)
SORT FIELDS=COPY
OUTREC FIELDS=(1,3,4,4,DT1)
/*

You can increment the value '+100001' in order to get different offsets.
e.g., '+100002' to get current date + 2.

Thanks,
Arun

Dear Arun,

I've tried this code and it works for me. I am very sorry I was not able to get back on this earlier.

Actually, I have created a COBOL pgm as a solution last week.
But I am still eager to find out solution using SORT utilities and your code has helped me much, in case in future there is similar requirement, I can use utilities instead of creating programs.

Once again, thank you very much for the knowledge...

DFSORT/ICETOOL :: RE: Finding whether file is empty or not - with few restrictions

Frank Yaeger — Wed, 14 May 2008 16:28:28 GMT

Author: Frank Yaeger
Posted: Wed May 14, 2008 9:58 pm (GMT 5.5)

Yes, the INCLUDE for 'DAT' takes care of that. It only includes data records, not the header and trailer records, so the test for EMPTY is done against just the data records.
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/

DFSORT/ICETOOL :: RE: Finding whether file is empty or not - with few restrictions

dick scherrer — Wed, 14 May 2008 16:22:42 GMT

Author: dick scherrer
Posted: Wed May 14, 2008 9:52 pm (GMT 5.5)

Hello,

I believe the issue is when there are header and/or trailer records, but no data records.

The file is "logically" empty even though it has hdr/trlr records.
_________________
Hope this helps,

d.sch.

JCL :: RE: How to get a future date with Syncsort

dick scherrer — Wed, 14 May 2008 16:19:17 GMT

Author: dick scherrer
Posted: Wed May 14, 2008 9:49 pm (GMT 5.5)

Hello,

Re-run your test with the input data in the correct columns. The code tests beginning in col1, but you put the data beginning in col3.
_________________
Hope this helps,

d.sch.

CLIST & REXX :: RE: reading sequential file...using tso command

Pedro — Wed, 14 May 2008 16:12:13 GMT

Author: Pedro
Subject: Reply to: reading sequential file...using tso command
Posted: Wed May 14, 2008 9:42 pm (GMT 5.5)

To read a file, use ALLOC and EXECIO:

Code:

Address TSO
"ALLOC F(INFILE) DSN('my.seq.dsn') SHR REU"
"EXECIO * DISKR INFILE ( FINIS STEM LINES."
"FREE F(INFILE)"

In the example, a stem variable, lines., will contain the records.

Put your program in SYSPROC or SYSEXEC concatenation.

JCL :: RE: How to get a future date with Syncsort

Shanthi Jayaraman — Wed, 14 May 2008 16:11:42 GMT

Author: Shanthi Jayaraman
Posted: Wed May 14, 2008 9:41 pm (GMT 5.5)

Dear Dick & Arun,

I've tried the below code and it looks like it didn't work in my system.

Code:

//S020 EXEC PGM=ICEMAN
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD *
20080510
20080511
20080512
20080515
20080516
/*
//SORTOUT DD SYSOUT=*
/*
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(1,8,CH,LE,&DATE1-3)
/*
//*

Output :

Code:

********************************* TOP OF DATA **********************************
20080510
20080511
20080512
20080515
20080516
******************************** BOTTOM OF DATA ********************************

DFSORT/ICETOOL :: RE: find those records having both -ve & +value in binary fi

Ajay Baghel — Wed, 14 May 2008 16:10:49 GMT

Author: Ajay Baghel
Subject: Reply to: find those records having both -ve & +value in
Posted: Wed May 14, 2008 9:40 pm (GMT 5.5)

Thanks CICS guy and Frank. I tested it and i am getting it.

-Ajay

TSO/ISPF :: RE: VPUT of Lower Case data in REXX going to Upper Case in Panel

Pedro — Wed, 14 May 2008 16:05:21 GMT

Author: Pedro
Subject: Reply to: VPUT of Lower Case data in REXX going to Upper Cas
Posted: Wed May 14, 2008 9:35 pm (GMT 5.5)

I am glad you were able to fix your problem.

A quick comment about your panel:
1. you seem to have two attribute characters '%_' next to each other... I think you can remove the '%' that appears before your input fields.

2. If you want your users to be able the jump from your panel (for example, typing '=3.4' and pressing Enter), I think the input field needs to be preceded by two equal sign and a greater than sign: '==>_field'.

DFSORT/ICETOOL :: RE: Finding whether file is empty or not - with few restrictions

Frank Yaeger — Wed, 14 May 2008 15:55:25 GMT

Author: Frank Yaeger
Posted: Wed May 14, 2008 9:25 pm (GMT 5.5)

Quote:

i have to report the file as empty file.

What to you mean by "report the file as empty file"?

If you want a RC=12 when the file is empty or RC=0 when it isn't empty, you can use this DFSORT/ICETOOL job:

Code:

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=.... input file
//TOOLIN DD *
COUNT FROM(IN) EMPTY USING(CTL1)
//CTL1CNTL DD *
INCLUDE COND=(1,3,CH,EQ,C'DAT')
/*

If you want a RC=4 instead of a RC=12, add RC4 to the COUNT operator.
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/

Mainframe COBOL :: RE: how to convert character to numeric data type in cobol

CICS Guy — Wed, 14 May 2008 15:53:32 GMT

Author: CICS Guy
Posted: Wed May 14, 2008 9:23 pm (GMT 5.5)

Good catch, I didn't even think of the dataname 'time' as anything other than a dataname.....Even NUMVAL won't work......
I guess we just have to wait & see......

DFSORT/ICETOOL :: RE: Combine two files of different Lrecls

Frank Yaeger — Wed, 14 May 2008 15:47:53 GMT

Author: Frank Yaeger
Posted: Wed May 14, 2008 9:17 pm (GMT 5.5)

skhorizon,

Here's a DFSORT/ICETOOL job that will do what you asked for. If you have DFSORT, then you have DFSORT's ICETOOL (it has been available with DFSORT since 1991).

Code:

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=... input file1 (FB)
//IN2 DD DSN=... input file2 (FB)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT DD DSN=... output file (FB/24)
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(1,3,CH) WITH(21,4) KEEPNODUPS
/*
//CTL1CNTL DD *
INREC BUILD=(1,19,24:X)
/*
//CTL2CNTL DD *
INREC BUILD=(1,3,21:6,4)
/*

_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/

Mainframe COBOL :: RE: how to convert character to numeric data type in cobol

dick scherrer — Wed, 14 May 2008 15:46:01 GMT

Author: dick scherrer
Posted: Wed May 14, 2008 9:16 pm (GMT 5.5)

Hello,

Quote:

Time pic x(8) to time pic 9(8)
this is my requirement....

Time is often HH:MM:SS. What is in your x(8) field?

How will you use a time field defined as 9(8)? As an 8-digit value, time is not very useful
_________________
Hope this helps,

d.sch.

CLIST & REXX :: RE: How do i close and reopen a file in the same rexx

rajantsr — Wed, 14 May 2008 15:43:36 GMT

Author: rajantsr
Posted: Wed May 14, 2008 9:13 pm (GMT 5.5)

This is my code.

I am reading the spool writting into a temp1 file. and later I read that temp1 file from top and proceed for further processing.

This is failing with file already open even if i free it.

Code:

/* REXX */
ADDRESS TSO
"ALLOC F(TEMP1) DA('TEST.MASRS.REXX.TEMP1') NEW",
"TRACKS SPACE(100,100) LRECL(250) RECFM(F,B) DSORG(PS)"
"ALLOC F(INPUTF) DA('TEST.MASRS.REXX.JOBNAME') SHR"
"EXECIO * DISKR INPUTF (STEM JOBNAME. FINIS"
DO I = 1 TO JOBNAME.0
"ALLOC F(ISFIN) TRACKS SPACE(1) REU" /* USED BY SDSF */
"ALLOC F(ISFOUT) NEW DELETE REU " /* USED BY SDSF */

QUEUE "SET CONFIRM OFF"
QUEUE "OWNER *"
QUEUE "PREFIX "JOBNAME.I
QUEUE "ST"
QUEUE "AFD REFRESH"
QUEUE "END"
QUEUE ""

"EXECIO * DISKW ISFIN (FINIS"
PARM = "/ ++20,400"
ADDRESS LINKPGM "SDSF PARM"
X=OUTTRAP("OUT.")
"EXECIO * DISKR ISFOUT (STEM OUT. FINIS"
X=OUTTRAP("OFF")
DO J= 1 TO OUT.0
STR = SUBSTR(OUT.J,171,2)
IF STR = "CC" THEN
DO
PUSH OUT.J
"EXECIO 1 DISKW TEMP1 "
END
END
"FREE DD(ISFIN,ISFOUT)"
END
"EXECIO 0 DISKW TEMP1 (FINIS"
"FREE DD(TEMP1)"
/*****************************/
/* FOR GETTING THE CPU TIME */
/*****************************/
"ALLOC F(OUTPUTF) DA ('TEST.MASRS.REXX.CPU') NEW " ,
"TRACKS SPACE(100,100) LRECL(80) RECFM(F,B,A) DSORG(PS)"
"ALLOC F(TEMP2) DA('TEST.MASRS.REXX.TEMP1') "
SAY 'RC' RC
"EXECIO * DISKR TEMP1 (STEM JOBDET. FINIS"
SAY 'RC' RC
DO K = 1 TO JOBDET.0
"ALLOC F(ISFIN) TRACKS SPACE(1) REU" /* USED BY SDSF */
"ALLOC F(ISFOUT) NEW DELETE REU " , /* USED BY SDSF */
"TRACKS SPACE(100,100) LRECL(133) RECFM(F,B,A) DSORG(PS)"
"ALLOC F(TEMPPRT) DA('TEST.MASRS.REXX.TEMP2') NEW"
P_JOBNAME = SUBSTR(JOBDET.K,8,8)
P_JOBID = SUBSTR(JOBDET.K,17,8)
P_OWNER = SUBSTR(JOBDET.K,26,8)
P_MAXCC = SUBSTR(JOBDET.K,174,4)
IF P_MAXCC = '0000' THEN
DO
QUEUE "SET CONFIRM OFF"
QUEUE "OWNER " P_OWNER
QUEUE "PREFIX " P_JOBNAME
QUEUE "ST"
QUEUE "SELECT " P_JOBID
QUEUE "AFD REFRESH"
QUEUE "FIND "P_JOBNAME
QUEUE "++?"
QUEUE "FIND JESYSMSG"
QUEUE "++S"
QUEUE "PRINT FILE TEMPPRT"
QUEUE "PRINT"
QUEUE "PRINT CLOSE"
QUEUE "END"
QUEUE " "
"EXECIO" QUEUED()" DISKW ISFIN (FINIS" /* INPUT TO SDSF BATCH */
ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('++25,80')" /*INVOKE SDSF */
ADDRESS TSO "FREE F(ISFIN,ISFOUT,TEMPPRT)"
"ALLOC F(INPDD) DA('TEST.MASRS.REXX.TEMP') SHR"
X=OUTTRAP("SUB.")
"EXECIO * DISKR INPDD (STEM SUB. FINIS"
X=OUTTRAP("OFF")
P=SUB.0
P1 = POS('CPU',SUB.P)
CPU_TIME = SUBSTR(SUB.P,P1,20)
PUSH P_JOBNAME ',' P_JOBID ',' P_OWNER ',' P_MAXCC ',' CPU_TIME
"EXECIO 1 DISKW OUTFIL "
END
"FREE DD(INPDD)"
END

Mainframe COBOL :: RE: Having a problem with my search all in cobol

dick scherrer — Wed, 14 May 2008 15:35:45 GMT

Author: dick scherrer
Posted: Wed May 14, 2008 9:05 pm (GMT 5.5)

Hello Rema and welcome to the forums,

Why do you need to load that many table entries? What does your process actually do (beyond search a table that may not even be needed)? Are you trying to compare an external file to the table?
_________________
Hope this helps,

d.sch.

DFSORT/ICETOOL :: RE: VSAM file empty check

Frank Yaeger — Wed, 14 May 2008 15:29:58 GMT

Author: Frank Yaeger
Posted: Wed May 14, 2008 8:59 pm (GMT 5.5)

lekshmi_ci,

If you want a DFSORT solution rather than an IDCAMS solution (after all you did post in the DFSORT Fourm), you can use the technique described in the "Set RC=12 or RC=4 if file is empty, has more than n records, etc" Smart DFSORT Trick at:

http://www.ibm.com/servers/storage/support/software/sort/mvs/tricks/

However, you'll probably need to modify the job slightly like this to allow DFSORT to accept an empty VSAM data set:

Code:

//STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... VSAM data set
//TOOLIN DD *
* SET RC=12 IF THE 'IN' DATA SET IS EMPTY, OR
* SET RC=0 IF THE 'IN' DATA SET IS NOT EMPTY
COUNT FROM(IN) EMPTY USING(CTL1)
/*
//CTL1CNTL DD *
OPTION VSAMEMT
/*

I suspect the IDCAMS job is NOT accepting the empty VSAM data set.
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/

CLIST & REXX :: RE: How do i close and reopen a file in the same rexx

ofer71 — Wed, 14 May 2008 15:28:57 GMT

Author: ofer71
Posted: Wed May 14, 2008 8:58 pm (GMT 5.5)

Can you specify what do you mean by "open" and "close"? In my TSO REXXs, I use ALLOCATE and FREE.

O.

Mainframe COBOL :: RE: how to convert character to numeric data type in cobol

CICS Guy — Wed, 14 May 2008 15:28:49 GMT

Author: CICS Guy
Posted: Wed May 14, 2008 8:58 pm (GMT 5.5)

krishnasaikiah wrote:

Time pic x(8) to time pic 9(8)

If the x(8) is valid numeric (no spaces):
05 timex pic x(8).
05 time9 redefines timex pic 9(8).
or:
move timex to time9.
If the x(8) is not valid numeric (some spaces):
Compute time9 = function numval (timex).

DFSORT/ICETOOL :: RE: Combining 2 Files vertically on Condition

dick scherrer — Wed, 14 May 2008 15:16:16 GMT

Author: dick scherrer
Posted: Wed May 14, 2008 8:46 pm (GMT 5.5)

Hello,

Quote:

Following is an example to decipate the same viz

Please clarify what this means in English.

Quote:

Hope I am clear with the requirement.

No. Your request is not clear. Please post some sample data from the 2 nput files and the desired output from processing that input. Also include the recfm, lrecl, and the positions of the relevant fields for your requirement.
_________________
Hope this helps,

d.sch.

IBMMAINFRAMES.com - IBM Mainframe Support Forums

JCL :: RE: need details on return code

TSO/ISPF :: RE: VPUT of Lower Case data in REXX going to Upper Case in Panel

JCL :: RE: need details on return code

Mainframe COBOL :: RE: Cobol XML-PARSE (') Problem

CLIST & REXX :: RE: Finding source of REXX code

IMS DB/DC :: Can I be accessing IMS database with VSAM commands?

CLIST & REXX :: RE: Finding source of REXX code

CLIST & REXX :: RE: Parse a folder path, seperating by each folder

CLIST & REXX :: RE: Parse a folder path, seperating by each folder

CLIST & REXX :: RE: Parse a folder path, seperating by each folder

CLIST & REXX :: RE: Parse a folder path, seperating by each folder

CLIST & REXX :: RE: Parse a folder path, seperating by each folder

Other Mainframe Topics :: RE: Mainframe MIPS Reduction

Mainframe COBOL :: RE: how to convert character to numeric data type in cobol

DFSORT/ICETOOL :: RE: Do we have conditional sorting in DFSORT

Mainframe COBOL :: RE: how to convert character to numeric data type in cobol

JCL :: RE: How to get a future date with Syncsort

DFSORT/ICETOOL :: RE: Do we have conditional sorting in DFSORT

CLIST & REXX :: RE: Parse a folder path, seperating by each folder

DFSORT/ICETOOL :: Do we have conditional sorting in DFSORT

CLIST & REXX :: Parse a folder path, seperating by each folder

JCL :: RE: How to get a future date with Syncsort

CLIST & REXX :: RE: How do i close and reopen a file in the same rexx

DFSORT/ICETOOL :: RE: Compare VSAM and GDG file and create new file.

CLIST & REXX :: RE: How do i close and reopen a file in the same rexx

JCL :: RE: How to get a future date with Syncsort

DFSORT/ICETOOL :: RE: Finding whether file is empty or not - with few restrictions

DFSORT/ICETOOL :: RE: Finding whether file is empty or not - with few restrictions

JCL :: RE: How to get a future date with Syncsort

CLIST & REXX :: RE: reading sequential file...using tso command

JCL :: RE: How to get a future date with Syncsort

DFSORT/ICETOOL :: RE: find those records having both -ve & +value in binary fi

TSO/ISPF :: RE: VPUT of Lower Case data in REXX going to Upper Case in Panel

DFSORT/ICETOOL :: RE: Finding whether file is empty or not - with few restrictions

Mainframe COBOL :: RE: how to convert character to numeric data type in cobol

DFSORT/ICETOOL :: RE: Combine two files of different Lrecls

Mainframe COBOL :: RE: how to convert character to numeric data type in cobol

CLIST & REXX :: RE: How do i close and reopen a file in the same rexx

Mainframe COBOL :: RE: Having a problem with my search all in cobol

DFSORT/ICETOOL :: RE: VSAM file empty check

CLIST & REXX :: RE: How do i close and reopen a file in the same rexx

Mainframe COBOL :: RE: how to convert character to numeric data type in cobol

DFSORT/ICETOOL :: RE: Combining 2 Files vertically on Condition