how to DYNAMICALLY write sort cond to o/p file using cobol

mohamedmubee · New User Joined: 17 Oct 2012 Posts: 2 Location: India

Hi Everyone,

I am new to this forum, so if there is any mistake teach me...

I would like to know how can we able to write a cobol program or logic to read a record from input file and write to a output file of length 80 bytes.
the input file has many records each 4 bytes of data.

input file:

ADAM
BASU
DAVE
JOHN
MARY
NICK
RAJA
SARA
......
.......

the output file should look like below...

INCLUDE COND=(1,4,EQ,C'ADAM,BASU,DAVE',
OR,1,4,EQ,C'JOHN,MARY,NICK',
OR,1,4,EQ,C'RAJA,SARA'),FORMAT=SS
SORT FIELDS=(1,4,CH,A)
SUM FIELDS=NONE

Akatsukami · Posted: Sat Aug 27, 2016 12:13 am

Create an internal table with 16 entries. Let the last byte of each entry be set to comma. As records are read, let them be placed in the four-byte portion of the entry. When the table is full, write it out. Be sure to include logic to handle the case where the input data set does not contain a multiple of sixteen records.

pramitdas · New User Joined: 27 Aug 2016 Posts: 3 Location: India

Okay. Thanks for asking.

Please follow the below steps.

1. First define one control card or PDS member ABC or a PS file: ABC.XYZ.XYZ of 80 LRECL having the job card and below input.

ABC.XYZ.XYZ or ABC
__________________________________________________
Your job card
---------------------------------------------------
//STEPNAME --------------
//INCLUDE COND=(1,4,EQ,C'XXX1,YYY2,ZZZ1',
OR,1,4,EQ,C'XXX2,YYY2,ZZZ2',
OR,1,4,EQ,C'XXX3,YYY3'),FORMAT=SS
SORT FIELDS=(1,4,CH,A)
SUM FIELDS=NONE
/*
__________________________________________________

2. Now read this static control card or PS file into an array IN-JCL[18] assuming that total no of lines in the control card ABC is 18.

3. Now Read the original input file of yours with an internal array of max 100 records. Say your file can contain max of 100 records. and note your array ARR [I] value.

3. Now in your logic of Cobol program , replace the value of XXX1, YYY2 etc with exact ARR [I] value. for that you need to put the column no and starting position and length.
For e.g. XXX1 resides at your control card or PS file at column 20 and row 16 , then logic should be:
MOVE ARR(1) to IN-JCL(16) (20:04 ) ------> 4 is the length of the name ( ADAM, BASU etc).
MOVE ARR(2) to IN-JCL(16) (26:04 )
and So on

4. Then write the value of IN-JCL(I) to OUT-JCL(I) which you are looking for.

This way you can dynamically prepare the exact job. Any doubt please let me know.

Thanks,
Pramit

sergeyken · Posted: Sun Aug 28, 2016 8:10 am

I guess it makes no sense to convert this to neither COBOL nor anything else.

Since you have your selection list in the file, and finally you need to use SORT facility based on this selection, the better way is to do it straightforward:

pramitdas · New User Joined: 27 Aug 2016 Posts: 3 Location: India

It is all based on the requirements as agreed.

It apparently needs a Cobol program due to the below reason.

A dynamic JCL should be populated which can be submitted automatically by CLIST from the same job. Means SAY job A has two steps. First step to prepare the desired output thru Cobol program and 2nd step to submit the output ( in this case SORT JCL ) JCL thru some CLIST. Means, if I have submitted JCL A, it will submit JCL B as well. I believe that is the requirement.

Thanks!!

Nic Clouston · Posted: Sun Aug 28, 2016 3:52 pm

sergeyken · Posted: Sun Aug 28, 2016 7:37 pm

Note 1
SORT statement semantics is wrong for SS (SubString) format/function. The syntax is correct, but it doesn't work as expected by author.
The correct statement would be either (using SS,EQ):

Rohit Umarjikar · Posted: Mon Aug 29, 2016 8:38 pm

mohamedmubee · New User Joined: 17 Oct 2012 Posts: 2 Location: India

these are the things i missed to include in the requirement...

first, the input file will get the records based on some other files that will be written to the file.

second, the record may be 5 records, or 10 or 13 it will be varying....

third, the ouput sort card then will be taken as a control card and to be used in further steps to begin processing of other files based on the sort card selection of data.

so

@ Akatsukami, the count will vary so its hard to code how many table entries needed.

@ pramitdas,

yes it is a cobol program i am trying to write these output. i think i can't put these in ps file as i didn't know how many records will come from the input file ??

ABC.XYZ.XYZ or ABC
__________________________________________________
Your job card
---------------------------------------------------
//STEPNAME --------------
//INCLUDE COND=(1,4,EQ,C'XXX1,YYY2,ZZZ1',
OR,1,4,EQ,C'XXX2,YYY2,ZZZ2',
OR,1,4,EQ,C'XXX3,YYY3'),FORMAT=SS
SORT FIELDS=(1,4,CH,A)
SUM FIELDS=NONE
/*

@ sergeyken

i need to use the output file record as a control card and need to process the further steps in the JCL. and I am using MicroFocus COBOL not sure whether REXX can be used. also I didn't know REXX I will check this one on how your code works for this requirement.....

let me know if any quesitons....

Nic Clouston · Posted: Tue Aug 30, 2016 6:09 pm

If you are on a mainframe then you do not have files - you have data sets and if you are not on a mainframe then you are in the wrong forum.

RahulG31 · Active User Joined: 20 Dec 2014 Posts: 446 Location: USA

I don't understand what is stopping you to achieve this.

1. Do a perform 3 times or end of file
2. Inside this perform, read file and string the values as ADAM,BASU,DAVE
3. If it is the first time you are performing this loop then string the values you got (i.e. ADAM,BASU,DAVE) to 'INCLUDE COND=(1.4,EQ,C' and Write to output
4. If it is Not the first time you are doing this perform then string the values with OR,1,4,EQ,C' and write to output
5. When it is end of file condition then add OR condition accordingly to close the bracket and add FORMAT=SS and write to output
6. Other statements can be added after this

Is this what you want ?

.

P.S. you made me laugh with this:

Akatsukami · Posted: Tue Aug 30, 2016 10:04 pm

sergeyken · Posted: Sun Sep 04, 2016 4:16 am

In my humble opinion, the Team Leader who suggested to create SORT statements from sequential file instead of doing JOIN in SORT step - he or she must be fired immediately.
The TL who insisted to create those SORT statements via COBOL code additionally must be sentenced to death.

Rohit Umarjikar · Posted: Sun Sep 04, 2016 4:41 am

Haha.. 😊That's what I thought about the approach.