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
 

 

What these declaration means in EASYTRIVE program

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

New User


Joined: 24 Oct 2006
Posts: 32
Location: India

PostPosted: Mon Feb 19, 2007 2:47 pm    Post subject: What these declaration means in EASYTRIVE program
Reply with quote

i have easytrive program: which uses a copybook with folowing structure can any one explain what these declaration means?


GNRLSCTN 00001155A
GROUP*NO 00017005N0
GROUP*TYPE00039003N0
GRPNCHKDGT00024001N
GRPNMBR 00017007A
HD*INT 00100004P0
HD*INT*X 00100004A
............
Back to top
View user's profile Send private message

guptae

Moderator


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

PostPosted: Mon Feb 19, 2007 3:15 pm    Post subject:
Reply with quote

Hi There,

Would u please use tab or spaces in ur code rather than putting them as a continuous string so that we can understand this
Back to top
View user's profile Send private message
Baskaran
Warnings : 1

New User


Joined: 24 Oct 2006
Posts: 32
Location: India

PostPosted: Mon Feb 19, 2007 3:42 pm    Post subject: Re: EASYTRIVE help needed
Reply with quote

hI Ekta,

I belive this is a sort of varible declaration,I wanted to know what is 00001155A? and 00017005N0? and so on , can you explain me?

GNRLSCTN 00001155A
GROUP*NO 00017005N0
GROUP*TYPE00039003N0
GRPNCHKDGT00024001N
GRPNMBR 00017007A
HD*INT 00100004P0
HD*INT*X 00100004A
Back to top
View user's profile Send private message
guptae

Moderator


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

PostPosted: Mon Feb 19, 2007 3:50 pm    Post subject:
Reply with quote

Hi there,

Is there is no space in between 00001155A?
Back to top
View user's profile Send private message
Baskaran
Warnings : 1

New User


Joined: 24 Oct 2006
Posts: 32
Location: India

PostPosted: Mon Feb 19, 2007 4:07 pm    Post subject: Re: EASYTRIVE help needed
Reply with quote

Ektha,
You can read those declaration as below

GNRLSCTN 00001155A
GROUP*NO 00017005N0
GROUP*TYPE 00039003N0
GRPNCHKDGT 00024001N
GRPNMBR 00017007A
HD*INT 00100004P0
HD*INT*X 00100004A

i think now you can read it..
Back to top
View user's profile Send private message
guptae

Moderator


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

PostPosted: Mon Feb 19, 2007 4:11 pm    Post subject:
Reply with quote

Hi There,

It says that GNRLSCTN field start with first byte & it is alphabatic
GROUP*NO fields start with 17 byte & 5byte long & it is numeric like
decimal(5,0)

Hope it is clear now
Back to top
View user's profile Send private message
William Thompson

Global Moderator


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

PostPosted: Mon Feb 19, 2007 4:13 pm    Post subject:
Reply with quote

I should look like this
Code:
GNRLSCTN       00001 155 A
GROUP*NO       00017 005 N 0
GROUP*TYPE     00039 003 N 0
GRPNCHKDGT     00024 001 N
GRPNMBR        00017 007 A
HD*INT         00100 004 P 0
HD*INT*X       00100 004 A
Back to top
View user's profile Send private message
Baskaran
Warnings : 1

New User


Joined: 24 Oct 2006
Posts: 32
Location: India

PostPosted: Mon Feb 19, 2007 4:24 pm    Post subject: Re: EASYTRIVE help needed
Reply with quote

Hi Thomson,

Thanks a lot,I need more help from you,i could see an increment for variables 1 to 3 in bytes but for the 4 th item i again decreased. from 39 to 24.

more over for the first item it starts frm 1st byte for 155 A how he arrived at 17 for second item.

1.GNRLSCTN 00001 155A
2.GROUP*NO 000170 05N0
3.GROUP*TYPE 0 00390 03N0
4.GRPNCHKDGT 00024 001N
5.GRPNMBR 00017007A
6.HD*INT 00100004P0
7.HD*INT*X 00100004A
Back to top
View user's profile Send private message
guptae

Moderator


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

PostPosted: Mon Feb 19, 2007 4:32 pm    Post subject:
Reply with quote

Hi there,

Quote:

Thanks a lot,I need more help from you,i could see an increment for variables 1 to 3 in bytes but for the 4 th item i again decreased. from 39 to 24.


Order soes not mandatory but u can take it as GNRLSCTN is group item & in ur program u want to access field which start from 17 byte & offset is 5 then u can use GROUP*NO
Back to top
View user's profile Send private message
William Thompson

Global Moderator


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

PostPosted: Mon Feb 19, 2007 4:39 pm    Post subject:
Reply with quote

I have no idea where you got these numbers, but the first is the displacement from the front of the record.
The second it the field length.
The third is the field type and the fourth is the number of digits behind the decimal.
Having them out of order is not good and could result in a compile error.
Quote:
more over for the first item it starts frm 1st byte for 155 A how he arrived at 17 for second item.
With EZT, you do not have to specify all the fields, the field at 17 was the first of interest.
Back to top
View user's profile Send private message
guptae

Moderator


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

PostPosted: Mon Feb 19, 2007 4:41 pm    Post subject:
Reply with quote

Hi Bill,

Quote:
Having them out of order is not good and could result in a compile error.


Why we will get compilation error
Back to top
View user's profile Send private message
William Thompson

Global Moderator


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

PostPosted: Mon Feb 19, 2007 4:54 pm    Post subject:
Reply with quote

guptae wrote:
Quote:
Having them out of order is not good and could result in a compile error.
Why we will get compilation error
I just recalled an error I got when I miss-ordered some defines.
Back to top
View user's profile Send private message
guptae

Moderator


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

PostPosted: Mon Feb 19, 2007 5:43 pm    Post subject:
Reply with quote

Hi Bill,

i think we should not get compilation error for this but i cant test it as we dont have easytrieve in our shop
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 Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm
No new posts Need Suggestion on COBOL program vickey_dw COBOL Programming 5 Thu Jan 05, 2017 10:55 pm
No new posts I can not compile my program PL1 V3.R... Miguel Fernandez PL/I & Assembler 13 Tue Dec 06, 2016 8:30 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts A sample of exit program for exit XMN... lind sh CICS 2 Mon Oct 03, 2016 5:07 pm


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