Search found 20 matches

by biswaranjan
Wed Aug 25, 2010 9:03 am
Forum: DFSORT , ICETOOL & Utilities
Topic: COUNT in Syncsort
Replies: 3
Views: 9314

The objective is to capture only the counts in O/P based on certain conditions. Input1(LRECL=15,RECFM=FB): 375000000102001 375000000341013 375000000431004 375000000651007 Input2(LRECL=23,RECFM=FB): Card Number(15 digits),4blanks,Indicator(Column Position 20, Values Y and N),Rest 3bytes(Not to be use...
by biswaranjan
Mon Aug 23, 2010 3:28 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: COUNT in Syncsort
Replies: 3
Views: 9314

COUNT in Syncsort

//SORT01 EXEC PGM=SORT //SORTLIB DD DSN=SYS1.SORTLIB, // DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SRTWKSP INCLUDE MEMBER=SRTWRK00 //SORTJNF1 DD DSN=INPUT1, // DISP=SHR //SORTJNF2 DD DSN=INPU2, // DISP=SHR //OSORT1 DD DSN=&&TEMP1,DISP=(NEW,PASS) //OSORT2 DD DSN=&&TEMP2,DISP=...
by biswaranjan
Thu Feb 11, 2010 9:35 am
Forum: PL/I
Topic: How to assign NULL to a veriable throgh TRANSLATE in PL/I
Replies: 1
Views: 3760

How to assign NULL to a veriable throgh TRANSLATE in PL/I

Hi, I want to replace value of a particular column with a NULL character, not space. A = 50?th Anniversary. B = TRANSLATE(A,'','?'); is converting the O/P as "50 th Anniversary". A space is being inserted. Output I want as A = 50th Anniversary No space inbetween 50 and th. Please guide me on this an...
by biswaranjan
Wed Dec 30, 2009 12:48 pm
Forum: JCL
Topic: Converting file of RECFM=U to RECFM=FB
Replies: 8
Views: 14044

The aim was to edit the Unformated I/P file as it can't be edited directly.
The approch was to put it in FB format, edit it and put it back to the initial format.
by biswaranjan
Wed Dec 30, 2009 11:01 am
Forum: DB2 SQL - DB2 PROGRAMMING
Topic: DB2 Run JCL
Replies: 5
Views: 7521

I just browsed the link provided and got the below information. LIBRARY(library-name) Specifies the name of the data set containing the program to be run. If library-name is not specified, normal MVS library searching is used. The data sets specified in the STEPLIB DD statements are first searched f...
by biswaranjan
Tue Dec 29, 2009 6:59 pm
Forum: JCL
Topic: Converting file of RECFM=U to RECFM=FB
Replies: 8
Views: 14044

//STEPA EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=A //OLD DD DSN=I/P file,DISP=SHR //NEW DD DSN=O/P file, // DISP=(NEW,CATLG,DELETE), // DCB=(LRECL=0,RECFM=FB,BLKSIZE=4096), <-- Same as I/P file DCB except RECFM // SPACE=(CYL,(280,100),RLSE) //SYSIN DD * REPRO - INFILE(OLD) - OUTFILE(NEW) - SKIP(100) - C...
by biswaranjan
Tue Dec 29, 2009 6:35 pm
Forum: DB2 SQL - DB2 PROGRAMMING
Topic: DB2 Run JCL
Replies: 5
Views: 7521

DB2 Run JCL

Hi, I have come across differnt Loadlibs in a COBOL DB2 run JCL. But I'm confused on the same. //STEP010 EXEC PGM=IKJEFT01,DYNAMNBR=20 //STEPLIB DD DSN=PROD.COBOLDB2.LOAD,DISP=SHR // DD DSN=SYS1.DSNDSNH.SDSNEXIT,DISP=SHR // DD DSN=SYS1.DSNDSNH.SDSNLOAD,DISP=SHR //SYSTSIN DD * DSN SYSTEM(DSNH) RUN PR...
by biswaranjan
Tue Dec 29, 2009 6:29 pm
Forum: DB2 SQL - DB2 PROGRAMMING
Topic: When to go for BIND PLAN and BIND PACKAGE?
Replies: 2
Views: 5791

When to go for BIND PLAN and BIND PACKAGE?

Hi,

Can someone guide me on the query on When to go for BIND PLAN and When to go for BIND PACKAGE?

Regards,
Biswa.
by biswaranjan
Tue Sep 22, 2009 10:15 am
Forum: DB2 SQL - DB2 PROGRAMMING
Topic: OCCURS clause in DCLGEN ???
Replies: 1
Views: 3337

OCCURS clause in DCLGEN ???

Hi,

I have never seen OCCURS clause in DCLGEN in DB2?

But is it possible that DCLGEN in DB2 can have OCCURS clause in it?
I think it'll lead to data conflict.

Can anyone please explain more on this to me?

Thanks,
Biswa.
by biswaranjan
Mon Aug 24, 2009 3:36 pm
Forum: DB2 SQL - DB2 PROGRAMMING
Topic: DB2 - ALIAS use in Production
Replies: 2
Views: 3519

DB2 - ALIAS use in Production

Hi, Where exactly is alias used in our day to day life and its advantages. Why to use ALIAS in Production or during implementation? Also...if suppose there is a table EMP, i create two alias for it based on authorization id..... 1.A.TEXAS.EMP 2.A.NEWJERSY.EMP Both point to EMP....now if TEXAS delete...
by biswaranjan
Mon Aug 24, 2009 3:31 pm
Forum: DB2 SQL - DB2 PROGRAMMING
Topic: DB2 Failure - CURSOR
Replies: 0
Views: 1695

DB2 Failure - CURSOR

Hi, There is a DB2 program. Which performs commit after 1000 Records are processed. Suppose the JCL is submitted for running this DB2 Program for consider 2500 records. In between processing it fails at 2200th record. How will you Rollback the last 200 records or how will you restart the processing ...
by biswaranjan
Mon Aug 24, 2009 3:25 pm
Forum: COBOL
Topic: COBOL Link Edit in Standalone Code
Replies: 2
Views: 3647

COBOL Link Edit in Standalone Code

Hi, Is it necessary to have Link/Edit Step (during compilation process) for single program. For. Ex. Program A is being compiled (its having no called or calling program linked to it) During compilation is it require Link/Edit step to be present. We do have Link Card while compiling such stand-alone...
by biswaranjan
Wed Jul 29, 2009 3:50 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: On Syncsort
Replies: 2
Views: 5142

On Syncsort

Hi, In My input file I'm hving some $ segments. While trying to extract it using sort I'm getting the below error message. INCLUDE/OMIT FIELD BEYOND RECORD $ --> Column is 28 and the I/P is a VB file. $05:ABC $165:MNO $11:PQR I used SORT FIELDS=COPY INCLUDE COND=(32,3,CH,EQ,C'$05') Could anyone help...
by biswaranjan
Tue Jul 14, 2009 7:37 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Capturing Unique Records in a file
Replies: 1
Views: 2594

Capturing Unique Records in a file

Hi, I'm having a file which contains. c-1-2 c-1-2 c-1-9 c-1-9 c-1-9 c-1-9 c-1-10 830.830 836.005 836.005 836.025 836.045 836.600 837.015 837.040 837.045 I want the O/P as: c-1-2 c-1-9 c-1-10 830.830 836.005 836.025 836.045 836.600 837.015 837.040 837.045 Meaning Unique records needs to be captured i...
by biswaranjan
Tue May 12, 2009 4:36 pm
Forum: JCL
Topic: SORTING Input file
Replies: 5
Views: 5352

Hi Mahesh,

The key length is 13.


My I/P file contains:

137-28-430
16-101
16-101-001
16-101-010
504-36
504-36-020
504-36-020
504-36-020918
504-36-020910

Thanks,
biswa.