Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...

i have a sequencial file contains multiple records, i want
to extract one row which contains various fields like order
number,date,warehouse,.ect.. in to the another file by
accepting the order number from jcl. how can i do it. pls
help me..

Answer Posted / abhijit18in2002

Input file: ABCD.UTIL.SAMP has following records

Order Warehouse Place Date
10012,COMPUTER,INDIA,20090805
10013,COMPUTER,INDIA,20090805
10014,COMPUTER,INDIA,20090805
10015,COMPUTER,INDIA,20090805
10016,COMPUTER,INDIA,20090805
10017,COMPUTER,INDIA,20090805

//COUNTREC JOB ,'COUNT RECORDS',
// MSGCLASS=Q,CLASS=D,
// NOTIFY=&SYSUID
//STEP010 EXEC PGM=SORT,REGION=4096K
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=ABCD.UTIL.SAMP,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(1,5,CH,EQ,C'10015')
/*


SORTOUT :- Ouput in SPool

10015,COMPUTER,INDIA,20090805

Is This Answer Correct ?    12 Yes 2 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Why is it necessary that file needs to be opened in I-O mode for REWRITE?

1318


) how do u code after getting data?

2148


What happens when we move a comp-3 field to an edited (say z (9). Zz-)?

1401


what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.

9102


How do you reference the following file formats from cobol programs?

1156


What is the Purpose of Pointer in the string?

1075


Mention the guidelines to write a structured cobol program?

1088


how can i see junk values in dclgen or in hostvariable of comp ?

2994


What are literals?

1127


Write a cobol program making use of the redefine clause.

1175


How many sections are there in data division in COBOL?

1128


What is rmode(any) ?

1257


Explain how to differentiate call by context by comparing it to other calls?

1180


How can we find that module can be called – whether DYNAMICALLY or STATICALLY?

1226


how do you reference the fixed unblock file formats from cobol programs

1232