Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Usage of array in EZTPA00

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
op

New User


Joined: 31 Oct 2006
Posts: 48
Location: Chennai

PostPosted: Wed Apr 04, 2007 5:35 pm    Post subject: Usage of array in EZTPA00
Reply with quote

Hi,

Can we use array in EASYTREV(EZTPA00).

If yes, can anyone given an example for declaration and its usage down the line.

Thanks a lot in advance.

Best Regards,
Om Prakash
Back to top
View user's profile Send private message

guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Wed Apr 04, 2007 6:15 pm    Post subject:
Reply with quote

Hi there,


There are two type of table
a) Instram Table:Instream tables are specified by the INSTREAM subparameter of the TABLE option on the FILE statement. Instream tables are created by coding the table data immediately following the associated library definition statements for the table file. Table data is ended by the word ENDTABLE in the first eight positions of a record. Instream data is 80 characters per record. Table size is limited only by the amount of available memory. The next exhibit illustrates an instream table definition.
FILE WEEKDAY TABLE INSTREAM
ARG 1 1 A
DESC 3 9 A
1 SUNDAY
2 MONDAY
3 TUESDAY
4 WEDNESDAY
5 THURSDAY
6 FRIDAY
7 SATURDAY
ENDTABLE

External Tables
If you specify the TABLE option with no subparameter, the file is an external table whose maximum number of entries is limited by a value in the options table established at installation. Check with your data center to determine this value. If the number of entries in your external table is larger than the default value, you can code a numeric literal as the subparameter of the TABLE option to specify the maximum number of entries.
A file that meets the following criteria can be defined as an external table:
■ An existing file that is in ascending order by the field used as a search argument
■ A file created by having its name specified as the TO parameter of a SORT statement that is sorted into ascending order by the search argument.
Back to top
View user's profile Send private message
op

New User


Joined: 31 Oct 2006
Posts: 48
Location: Chennai

PostPosted: Wed Apr 04, 2007 10:25 pm    Post subject: Re: Usage of array in EZTPA00
Reply with quote

I declared an array MONTH-TABLE as shown below. How to give values to the array. Please help.

DEFINE MONTH-TABLE W 10 A +
OCCURS(12) +
VALUE( +
'JANUARY ', +
'FEBRUARY ', +
*******B016 INVALID OR CONFLICTING KEYWORD - VALUE 'MARCH ', +
'APRIL ', +
'MAY ', +
'JUNE ', +
'JULY ', +
'AUGUST ', +
'SEPTEMBER ', +
'OCTOBER ', +
'NOVEMBER ', +
'DECEMBER ') +
INDEX(MONTH-INDEX)
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Wed Apr 04, 2007 10:53 pm    Post subject:
Reply with quote

Code:
DEFINE MONTHS W 120 A VALUE +
                   'JANUARY +
                   FEBRUARY +
...
                   NOVEMBER +
                   DECEMBER '

Code:
DEFINE MONTH    MONTHS 10 A +
  OCCURS (12) INDEX (MONTH-INDEX)
Back to top
View user's profile Send private message
op

New User


Joined: 31 Oct 2006
Posts: 48
Location: Chennai

PostPosted: Wed Apr 04, 2007 11:08 pm    Post subject: Re: Usage of array in EZTPA00
Reply with quote

Can't we pass values to the array MONTH without using an intermediate variable.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Wed Apr 04, 2007 11:46 pm    Post subject:
Reply with quote

It is just a redefinition, the first for overall size and filling the entries, the redef for the array.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Dynamic array request/response contai... Suja.Sai CICS 2 Tue Jan 24, 2017 11:37 am
No new posts Unstring list of values into an array. Roshnii COBOL Programming 8 Mon Jun 27, 2016 6:25 pm
No new posts How can amount of the Storage Usage b... esduman61 CICS 6 Wed Mar 09, 2016 1:19 pm
No new posts Controlling usage of resources by tasks raja1128 CICS 3 Fri Nov 06, 2015 9:53 am
No new posts TDQ & its usage as ATI akodakka CICS 3 Sat Oct 17, 2015 6:04 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us