Search found 48 matches

by dhiraj
Fri Feb 27, 2015 10:59 pm
Forum: DB2 SQL - DB2 PROGRAMMING
Topic: Optimizing a DISTINCT query
Replies: 2
Views: 3789

Re: Optimizing a DISTINCT query

goldyroshan wrote: ......

AND A.Field5_1 = B.Field5_2

.....
AND A.Field8 IN ('11','12','13','14','15)' WITH UR;
Typo AND A.Field8 IN ('11','12','13','14','15') WITH UR;

Try to JOIN on the basis of A.Field5_1 = B.Field5_2 ..
by dhiraj
Tue Dec 16, 2014 3:42 pm
Forum: JCL
Topic: count the records in jcl
Replies: 2
Views: 4548

Your example is not clear, please explain more.
by dhiraj
Tue Dec 16, 2014 3:18 pm
Forum: COBOL
Topic: How to check if a field contains thai char
Replies: 2
Views: 4427

Define in CONFIGURATION SECTION as SPECIAL-NAMES and use CLASS

Example:

CONFIGURATION SECTION.
SPECIAL-NAMES.
__________CLASS THICHARS IS 'THAI CHARACTER########'.

and do compare with your file variable to THICHARS.

May be this can help you in what you are searching... :)
by dhiraj
Mon Oct 13, 2014 3:51 pm
Forum: DB2 SQL - DB2 PROGRAMMING
Topic: create a table in such a way that Delete cannot be used?
Replies: 1
Views: 3677

Don't provide GRANT option for DELETE to any one...
by dhiraj
Mon Oct 13, 2014 3:48 pm
Forum: DB2 SQL - DB2 PROGRAMMING
Topic: Need to update only the year in DATE format
Replies: 2
Views: 4505

Not sure it is possible in DB2. It will not allow you to update only YEAR.
If you have DB2 table
Any-Name as DATE format...
by dhiraj
Thu Jul 24, 2014 3:16 pm
Forum: JCL
Topic: Compare two PS files
Replies: 2
Views: 5088

First You need to Sort both files using same key.
Then You can use FileAid Tool with "COMPARE file" option. there You can define different files(Inserted , Udated,deleted,match etc..)
by dhiraj
Thu Jul 24, 2014 2:41 pm
Forum: COBOL
Topic: HOW TO FIND LINKAGE LENGTH
Replies: 4
Views: 7427

If you can not calculate then you can Use FileAid to know the layout length and each variable length.
by dhiraj
Wed Jun 25, 2014 8:21 pm
Forum: COBOL
Topic: splitting of records using cobol
Replies: 6
Views: 9883

Will, I got your point....so we need exact INPUT data because I thought after 3d there is one | .

|aaa|bbbb|
ccccc|ddd
dd|ee|


gkrish- You need to paste Exact INPUT and desired OUTPUT.
by dhiraj
Wed Jun 25, 2014 3:58 pm
Forum: CICS
Topic: CICS-COBOL-VSAM
Replies: 1
Views: 4059

this is logic problem and this would not be display during compilation. can you paste your code when you do WRITE & REWRITE, DELETE(accepting data from MAP).??

You need to RECEIVE data from MAP and do logic to write,delete etc.
by dhiraj
Wed Jun 25, 2014 3:45 pm
Forum: COBOL
Topic: Bubble Sort help!
Replies: 8
Views: 12756

Can you give outfile(type of) what you got?

and you have OCCURS clause 1000 times.
by dhiraj
Wed Jun 25, 2014 3:40 pm
Forum: COBOL
Topic: splitting of records using cobol
Replies: 6
Views: 9883

Inspect the UNSTRING data(only for first character). if matches then STRING those data. Example: UNSTRING Record delimited by '|' into WS-var1 WS-var2 WS-var3 WS-var4...... End-Unstring If WS-var2(1:1) = WS-var3(1:1) String WS-var2 DELIMITED BY SIZE WS-var2DELIMITED BY SIZE INTO WS-var5.
by dhiraj
Wed Jun 25, 2014 3:27 pm
Forum: COBOL
Topic: Cobol - I want to copy only even number records out of 50 i
Replies: 2
Views: 4126

Try it..

8000-Read-In-File
8000-exit.

1000-Perform-copy
1000-exit until End-of-file.

1000-Perform-Copy

8000-Read-In-File
8000-exit.

9000-write-out-file
9000-write-exit.

8000-Read-In-File
8000-exit.

1000-exit.
by dhiraj
Fri Jun 20, 2014 3:16 pm
Forum: JCL
Topic: Replace input file automatically
Replies: 2
Views: 4237

I'm not clear what you want with your question but if you use (0) of GDG base,that will be most recent.

Example.: if GDG base is MAINFRAME.NEW.DATASET so use MAINFRAME.NEW.DATASET(0) for recent file.
for just previous one MAINFRAME.NEW.DATASET(-1)
and other MAINFRAME.NEW.DATASET(-2).
by dhiraj
Fri Jun 20, 2014 2:49 pm
Forum: JCL
Topic: Record Count in JCL
Replies: 5
Views: 7907

After looking at your Input file & Sysin.it looks like you are copying only Header and trailer in all your outfile. this will give you Count= 0000000 . also William suggested you well for your error. use this-- OUTFIL FILES=09,INCLUDE=(63,4,ZD,EQ,9,OR,1,1,CH,EQ,C'A', OR,1,1,CH,EQ,C'Z'), IFTRAIL=(HD=...