MVSFORUMS.com :: View topic - Cobol logic

MVSFORUMS.com
A Community of and for MVS Professionals

FAQ

Quick Manuals

Profile

Cobol logic - write o/p from 3 inputs

MVSFORUMS.com Forum Index -> Application Programming

View previous topic :: View next topic

Author

Message

sanjayr321
Beginner

Joined: 25 Sep 2006
Posts: 28
Topics: 15

Posted: Wed Oct 04, 2006 8:24 pm Post subject: Cobol logic - write o/p from 3 inputs

Hai all,

I have 3 WS-tables like

Table -1

Code:

A1, A , AA, 001
A2, A , AB, 001
A3, A , AC, 001

Table-2

Code:

xx
yy

Table-3

Code:

AD
AE
AG

Now i want to write in the o/p file as follows

Code:

AA, XX, 001, AD
AA, XX, 001, AE
AA, XX, 001, AG
AA, YY, 001, AD
AA, YY, 001, AE
AA, YY, 001, AG

AB, XX, 001, AD
AB, XX, 001, AE
AB, XX, 001, AG
AB, YY, 001, AD
AB, YY, 001, AE
AB, YY, 001, AG

AC, XX, 001, AD
AC, XX, 001, AE
AC, XX, 001, AG
AC, YY, 001, AD
AC, YY, 001, AE
AC, YY, 001, AG

Please help me out on how to write in the o/p file...

Thanks in advance.

kolusu
Site Admin

Joined: 26 Nov 2002
Posts: 12370
Topics: 75
Location: San Jose

Posted: Wed Oct 04, 2006 9:16 pm Post subject:

sanjayr321,

Try this

Code:

01 WS-TABLE-1.
05 WS-ARRAY-1 OCCURS 50 TIMES INDEXED BY WS-IDX1.
10 TAB1-COL1 PIC X(02).
10 TAB1-COL2 PIC X(01).
10 TAB1-COL3 PIC X(02).
10 TAB1-COL4 PIC X(03).

01 WS-TABLE-2.
05 WS-ARRAY-2 OCCURS 50 TIMES INDEXED BY WS-IDX2.
10 TAB2-COL1 PIC X(02).

01 WS-TABLE-3.
05 WS-ARRAY-3 OCCURS 50 TIMES INDEXED BY WS-IDX3.
10 TAB3-COL1 PIC X(02).

01 WS-MAX-TAB1 PIC S9(04) COMP.
01 WS-MAX-TAB2 PIC S9(04) COMP.
01 WS-MAX-TAB3 PIC S9(04) COMP.

PROCEDURE DIVISION.

MOVE 'A1' TO TAB1-COL1(1)
MOVE 'A' TO TAB1-COL2(1)
MOVE 'AA' TO TAB1-COL3(1)
MOVE '001' TO TAB1-COL4(1)

MOVE 'A2' TO TAB1-COL1(2)
MOVE 'A' TO TAB1-COL2(2)
MOVE 'AB' TO TAB1-COL3(2)
MOVE '001' TO TAB1-COL4(2)

MOVE 'A3' TO TAB1-COL1(3)
MOVE 'A' TO TAB1-COL2(3)
MOVE 'AC' TO TAB1-COL3(3)
MOVE '001' TO TAB1-COL4(3)
MOVE +3 TO WS-MAX-TAB1

MOVE 'XX' TO TAB2-COL1(1)
MOVE 'YY' TO TAB2-COL1(2)
MOVE +2 TO WS-MAX-TAB2

MOVE 'AD' TO TAB3-COL1(1)
MOVE 'AE' TO TAB3-COL1(2)
MOVE 'AG' TO TAB3-COL1(3)
MOVE +3 TO WS-MAX-TAB3

PERFORM VARYING WS-IDX1 FROM 1 BY 1
UNTIL WS-IDX1 > WS-MAX-TAB1
SET WS-IDX2 TO 1
PERFORM VARYING WS-IDX2 FROM 1 BY 1
UNTIL WS-IDX2 > WS-MAX-TAB2
SET WS-IDX3 TO 1
PERFORM VARYING WS-IDX3 FROM 1 BY 1
UNTIL WS-IDX3 > WS-MAX-TAB3
DISPLAY ' ' TAB1-COL3(WS-IDX1)
- ' ' TAB2-COL1(WS-IDX2)
- ' ' TAB1-COL4(WS-IDX1)
- ' ' TAB3-COL1(WS-IDX3)
END-PERFORM
END-PERFORM
END-PERFORM

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

sanjayr321
Beginner

Joined: 25 Sep 2006
Posts: 28
Topics: 15

Posted: Thu Oct 05, 2006 11:25 am Post subject:

Thanks Kolusu..it helps me a lot...

Display posts from previous:

	MVSFORUMS.com Forum Index -> Application Programming	All times are GMT - 5 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum