This forum provides the support of Dezhi Mainframe systems. Please post your questions about logon, usage of our mainframe environment.
Moderators: sysprog, prino, sfan, steve-myers, Tim001
by kevin1 » Sat 30 Jan 2010, 14:02
Hi Everyone,
I am thankful for the people of this forum and efglobe, for providing a fantastic mainframe terminal connection.
- Code: Select all
Please, can someone tell me how to pass values to a cobol programme which uses OCCURS CLAUSE... here is example
77 I PIC 9(2).
01 REC1
02 A-TAB OCCURS 5 TIMES INDEXED BY A1
03 ACNO PIC X(6).
03 PERNAME PIC A(10).
03 AMOUNT PIC 9(8).
PROCEDURE DIVISION.
MOVE1 TO I.
PERFORM UNTIL I>5
ACCEPT ACNO(I)
ACCEPT PERNAME(I)
ACCEPT AMOUNT(i)
ADD 1 TO I.
END-PERFORM.
-
kevin1
-
- Posts: 4
- Joined: Wed 20 Jan 2010, 04:56
by prino » Sat 30 Jan 2010, 18:02
Please post such non-FanDeZhi specific questions in one of the fora mentioned in
this post. You are far more likely to get a reply there than here... (I don't know nothing about C*B*L
)
-
prino
-
- Posts: 479
- Joined: Sat 06 Jun 2009, 21:41
- Location: Vilnius, Lithuania
-
Return to Dezhi systems: Mainframe
Who is online
Users browsing this forum: No registered users and 0 guests