| View previous topic :: View next topic |
| Author |
Message |
vallishar
Beginner
Joined: 17 Dec 2002
Posts: 53
Topics: 14
Location: BengaLuru
|
 Posted: Wed Jul 30, 2003 3:08 am Post subject: Screens and Graphs Using Easytrieve |
 |
|
Has anyone created screens and graphs using easytrieve?
I tried to execute the following code:
| Code: |
//EZTCOMPL EXEC PGM=EZTPA00
//EZTVFM DD UNIT=SYSDA,SPACE=(CYL,(25,25))
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSLIN DD DSN=&&SYSLIN,
// UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE),DISP=(,PASS)
//SYSIN DD *
DEFINE NUMBER1 W 8 N 2
DEFINE NUMBER2 W 8 N 2
DEFINE NUMBER3 W 8 N 2
SCREEN NAME ADDING-MACHINE
TITLE 'ADDING MACHINE SOLUTIONS'
ROW 5 'NUMBER 1 -----> ' NUMBER1
ROW 7 'NUMBER 2 -----> ' NUMBER2
ROW 9 'RESULT ----->>' NUMBER3
KEY ENTER NAME 'COMPUTE'
KEY F3 EXIT NAME ' EXIT'
AFTER-SCREEN. PROC
NUMBER3 = NUMBER1 + NUMBER2
END-PROC
|
It resulted in an error saying:
| Code: |
1 DEFINE NUMBER1 W 8 N 2
2 DEFINE NUMBER2 W 8 N 2
3 DEFINE NUMBER3 W 8 N 2
4 SCREEN NAME ADDING-MACHINE
4 *******B014 UNABLE TO RECOGNIZE STATEMENT
TITLE 'ADDING MACHINE SOLUTIONS'
ROW 5 'NUMBER 1 -----> ' NUMBER1
ROW 7 'NUMBER 2 -----> ' NUMBER2
ROW 9 'RESULT ----->>' NUMBER3
KEY ENTER NAME 'COMPUTE'
KEY F3 EXIT NAME ' EXIT'
AFTER-SCREEN. PROC
NUMBER3 = NUMBER1 + NUMBER2
END-PROC
*******B059 PREMATURE END OF FILE
*******A014 PREMATURE TERMINATION DUE TO PREVIOUS ERROR(S)
|
Could anyone throw some light? 
_________________
If you're not failing every now and again, it's a sign you're not doing anything very innovative. |
|
| Back to top |
|
 |
Himesh
CICS Forum Moderator
Joined: 20 Dec 2002
Posts: 80
Topics: 21
Location: Chicago
|
| Posted: Wed Jul 30, 2003 5:27 am Post subject: |
|
|
Hi Vallish,
I guess you need to code the SCREEN definition as the first statement (i.e. before your other declarations).
Please check the below link for more information and then get back.
CAEasytrieve
regards,
himesh |
|
| Back to top |
|
|
mayuresh.tendulkar
Beginner
Joined: 25 Apr 2003
Posts: 31
Topics: 6
Location: Pune
|
| Posted: Wed Jul 30, 2003 5:28 am Post subject: |
|
|
Hello Vallish,
What is the version of your Easytrieve?
Regards
Mayuresh |
|
| Back to top |
|
|
vallishar
Beginner
Joined: 17 Dec 2002
Posts: 53
Topics: 14
Location: BengaLuru
|
| Posted: Wed Jul 30, 2003 6:29 am Post subject: |
|
|
Hi Mayuresh,
This is the version of Easytrieve that we are using.
CA-EASYTRIEVE PLUS-6.2 0008
rgds,
_________________
If you're not failing every now and again, it's a sign you're not doing anything very innovative. |
|
| Back to top |
|
|
vallishar
Beginner
Joined: 17 Dec 2002
Posts: 53
Topics: 14
Location: BengaLuru
|
| Posted: Wed Jul 30, 2003 6:45 am Post subject: |
|
|
Hi Himesh,
Even without the DEFINE statements, with the code as:
| Code: |
SCREEN NAME ADDING-MACHINE
TITLE 'ADDING MACHINE SOLUTIONS'
ROW 5 'NUMBER 1 -----> '
ROW 7 'NUMBER 2 -----> '
ROW 9 'RESULT ----->>'
KEY ENTER NAME 'COMPUTE'
KEY F3 EXIT NAME ' EXIT'
|
It is giving the same error.
In the link that you have provided, in section 8.1, it says
| Quote: |
CA-Easytrieve provides all the facilities necessary to display and receive
information from an online terminal. As with other features, the
non-procedural nature of CA-Easytrieve provides relief from having to deal
with many of the complexities of transaction programming.
Note: Screen processing activities are available only in
CA-Easytrieve/Online and CA-Easytrieve/Workstation.
|
Does this mean that there are different versions of Easytrieve, separate for batch and for online ? 
_________________
If you're not failing every now and again, it's a sign you're not doing anything very innovative. |
|
| Back to top |
|
|
mayuresh.tendulkar
Beginner
Joined: 25 Apr 2003
Posts: 31
Topics: 6
Location: Pune
|
| Posted: Wed Jul 30, 2003 7:54 am Post subject: |
|
|
Hello Vallish,
The reason why I asked you is because
"Screen processing activities are available only in CA-Easytrieve/Online and CA-Easytrieve/Workstation."
Just check up if your facility has this version.
Regards
Mayuresh |
|
| Back to top |
|
|
Anand_R
Intermediate
Joined: 24 Dec 2002
Posts: 189
Topics: 60
|
| Posted: Thu Aug 07, 2003 10:15 am Post subject: |
|
|
Hi,
Does this CA-EASYTRIEVE online feature work on MVS(Mainframe) platform?
Thanks
Anand |
|
| Back to top |
|
|
hari_uss
Beginner
Joined: 19 Dec 2002
Posts: 78
Topics: 6
Location: Trivandrum, India
|
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
