MVSFORUMS.com

Application Programming :: program debugging called from macro

Author: MFdigger
Subject: program debugging called from macro
Posted: Wed Aug 27, 2008 10:48 pm (GMT -5)
Topic Replies: 0

Hi All,

We have a macro in net.data, and its calling a cobol program thru wich its LINKing the CICS transaction.

we are facing with an error , might be due to the data issue. I'm not sure whether the error is with the macro or is due to the program(s)

I want to expedite the program but I'm not sure how I can debug the program in xpeditor while the program is getting called from the macro.

could some one please let me know if there is any way I can debug the program in xped ?

Thank you
_________________
Tx
Digger

Database :: RE: DB2 Data locking problem

Author: rajen
Posted: Wed Aug 27, 2008 5:26 pm (GMT -5)
Topic Replies: 2

Kolusu,
I did try that earlier.

Unload query is

SELECT Col1,Col2
from table
where condition
for fetch only with ur;

Actually that's the first option I tried but still it is not retrieving record being hold for update.

Thanks,

Database :: RE: S04E Abend during load - After using ACCESS(FORCE) command

Author: satyenderd
Posted: Wed Aug 27, 2008 4:42 pm (GMT -5)
Topic Replies: 7

Hi sinduja,

The following messages may occurs sometimes when the datasets are migrated.
Check the dataset or GDG which is migrated.
Before doing Load do check the datasets whether they got migrated, if so.
give HRECALL and then load the desired table.

IEF450I ADCF88GL UTILITY LOADDB04 - ABEND=S04E U0000 REASON=00E40009

DSNT500I DSNUGBAC - RESOURCE UNAVAILABLE
REASON 00C90080
TYPE 00000100
NAME BKD2BPAC
_________________
Satya

Database :: RE: Scheduling UNLOAD and LOAD jobs

Author: satyenderd
Posted: Wed Aug 27, 2008 4:25 pm (GMT -5)
Topic Replies: 2

Thanks Craig.
_________________
Satya

Problem Determination :: RE: Excel to Text file

Author: kolusu
Posted: Wed Aug 27, 2008 4:02 pm (GMT -5)
Topic Replies: 1

arvibala,

Try saving the EXCEL file as TEXT (MS-DOS) (.txt) file from the save file drop down list

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

Problem Determination :: Excel to Text file

Author: arvibala
Subject: Excel to Text file
Posted: Wed Aug 27, 2008 3:25 pm (GMT -5)
Topic Replies: 1

Hi,

I have a data in excel. I need to copy that in a notepad and upload that in MF. If I save that as ".txt", the fields are delimited with space. But I dont want that way. I want it continously.

For example

NUM - 3 length Field
NAME- 5 length Field
DESIG - 20 length Field

Contents of my Excel File

NUM NAME DESIG
--- ---- -----
100 Ramon PROGRAMMER
200 BOB MANAGER

Notepad Output shud be

100RamonPROGRAMMER
200BOB MANAGER

I want to do this manually without writing any macro.

Pls help

Thanks
_________________
Arvind
"You can make a difference with your smile. Have that with you always"

TSO and ISPF :: RE: GDG Base More Than 30 Version

Author: Vinodch
Posted: Wed Aug 27, 2008 3:06 pm (GMT -5)
Topic Replies: 2

I need the list of GDG name available in a system that has more than 30 versions.
_________________
Thanks,
Vinod.

Database :: RE: DB2 Data locking problem

Author: kolusu
Posted: Wed Aug 27, 2008 3:04 pm (GMT -5)
Topic Replies: 2

rajen,

Code the SQL the clause WITH UR in the unload sysin and you will get the initial state record.

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

TSO and ISPF :: RE: GDG Base More Than 30 Version

Author: Nic Clouston
Posted: Wed Aug 27, 2008 2:19 pm (GMT -5)
Topic Replies: 2

Define 'version' Do you mean the dataset name ends V01 throught to V30?
or do you mean 30 generations (G001V00 - G0030V00) are kept?

Why rexx? There are catalog utilities around of which the best is probably IDCAMS.
_________________
JCL is a means by which the programmer makes known to the computer the resources required by the program to be executed and certain characteristics of these resources.

Database :: DB2 Data locking problem

Author: rajen
Subject: DB2 Data locking problem
Posted: Wed Aug 27, 2008 1:49 pm (GMT -5)
Topic Replies: 2

I have a situation where in an operator is currently updating a record from CICS/Web screen and while this update is going on, Batch job tries to unload Table.

Now, Currently we don't retrieve the record being updated since it is locked and we want to retrieve the being updated.

We are fine even if the we get record in old state before it was updated. i.e. record in its initial state before updation.

Code:

SHRLEVEL CHANGE
LOAD-CONTROL Load lib name
SQL-ACCESS ONLY
PRINT-OPTIONS PTIMSG
OUTPUT-FORMAT DSNTIAUL
DISPLAY-STATUS 500000,I

Is there any way to retrieve the record being updated?

Thanks,

Database :: RE: DB2 Data locking problem

Author: rajen
Subject: DB2 Data locking problem
Posted: Wed Aug 27, 2008 1:48 pm (GMT -5)
Topic Replies: 0

I have a situation where in an operator is currently updating a record from CICS/Web screen and while this update is going on, Batch job tries to unload Table.

Now, Currently we don't retrieve the record being updated since it is locked and we want to retrieve the being updated.

We are fine even if the we get record in old state before it was updated. i.e. record in its initial state before updation.

Code:

SHRLEVEL CHANGE
LOAD-CONTROL Load lib name
SQL-ACCESS ONLY
PRINT-OPTIONS PTIMSG
OUTPUT-FORMAT DSNTIAUL
DISPLAY-STATUS 500000,I

Is there any way to retrieve the record being updated?

Thanks,

Utilities :: RE: Alternate for splice

Author: Frank Yaeger
Posted: Wed Aug 27, 2008 10:23 am (GMT -5)
Topic Replies: 1

Given that "both are in sorted" means both files are already in sorted order by the 1,22,CH field, you could try this DFSORT/ICETOOL job ... it will use a MERGE for the SPLICE instead of a SORT, so it won't use sort work data sets.

Code:

//STEP01 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DISP=SHR,DSN=file1
//IN2 DD DISP=SHR,DSN=file2
//CTL3IN01 DD DSN=&&T1,DISP=(,PASS),
// DATACLAS=PRDCNORM
//CTL3IN02 DD DSN=&&T2,DISP=(,PASS),
// DATACLAS=PRDCNORM
//DUMMY DD DUMMY
//OUT DD DSN=outfile,
// DISP=(NEW,CATLG),
// DCB=file2,
// DATACLAS=PRDCNORM
//TOOLIN DD *
COPY FROM(IN1) TO(CTL3IN01) USING(CTL1)
COPY FROM(IN2) TO(CTL3IN02) USING(CTL2)
SPLICE FROM(DUMMY) TO(OUT) ON(1,22,CH) -
WITH(1,9200) USING(CTL3) WITHALL
/*
//CTL1CNTL DD *
INREC BUILD=(1:1,22,9201:C'X')
/*
//CTL2CNTL DD *
INREC OVERLAY=(9201:C'Y')
/*
//CTL3CNTL DD *
MERGE FIELDS=(1,22,CH,A)
OUTFIL FNAMES=OUT,
INCLUDE=(9201,1,CH,EQ,C'X'),
BUILD=(1,9200)
/*

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

Utilities :: RE: How to increase the Space allocated for a PDS

Author: expat
Posted: Wed Aug 27, 2008 10:12 am (GMT -5)
Topic Replies: 2

It does rather depend on the current state of the PDS, if it is already in 16 extents then this can not be done without a complete rebuild.

A sneaky little trick .......
Assume PDS is FB 80 with 200 directory blocks, Prim CYL 1 Sec CYL 1

Writing in batch to a PDS can be used to make one off in flight space alterations. But, the dummy member must be quite big to force a secondary space allocation to occur.

Code:

//SYSUT2 DD DSN=pds.name(dummy),DISP=OLD,
// SPACE=(CYL,(1,200,200)),RECFM=FB,LRECL=80

_________________
If it's true that we are here to help others,
then what exactly are the others here for ?

TSO and ISPF :: GDG Base More Than 30 Version

Author: Vinodch
Subject: GDG Base More Than 30 Version
Posted: Wed Aug 27, 2008 10:07 am (GMT -5)
Topic Replies: 2

Is there any REXX Utility available on hand to list down the GDG base in a system which has more than 30 versions. Please help !
_________________
Thanks,
Vinod.

Problem Determination :: RE: COBOL or EASYTRIEVE

Author: dbzTHEdinosauer
Posted: Wed Aug 27, 2008 9:47 am (GMT -5)
Topic Replies: 1

if the report could easily be built with easytrieve I would always use easytrieve.

vsam is not problem with easytrieve. if you have a packed-decimal field as a key and you are doing random/dynamic access, redefine your PD field as x-type and use that as your key.
_________________
Dick Brenholtz
American living in Varel, Germany