---
title: "Easytrieve Key Statements (2 of 3)"
description: "This post tells key statements being used in Easytrive."
url: https://srinimf.com/2011/11/16/easytrieve2/
date: 2011-11-16
modified: 2026-10-05
author: "Srini"
image: https://i0.wp.com/srinimf.com/wp-content/uploads/2011/11/pexels-photo-1892512.jpeg?fit=1880%2C1253&ssl=1
categories: ["Easytrieve"]
tags: ["Easytrieve tips and tricks"]
type: post
lang: en
---

# Easytrieve Key Statements (2 of 3)

Refer my [installment #1](http://srinimf.com/2011/11/09/easytrieve-keystate-1) if you miss.

**SYSDATE- **LONG is a 10-byte alphabetic field that contains the system date, including the century. Format is **MM/DD/CCYY.**

**Usage: **FIELD-ONE= SYSDATE

** ****SYSTIME **is an eight-byte alphabetic field that contains the system time. Format is **HH.MM.SS.**

**Usage: **FIELD-TWO  = SYSTIME

**PARM-REGISTER** PARM-REGISTER is a four-byte binary field which contains the contents of register 1 upon entry to CA-Easytrieve/Plus. Register 1 contains the address of a passed parameter list. This address is accessed by  the subprogram EZTPX01 when passing [EXEC statement](https://srinimf.com/2016/02/01/you-never-miss-different-jcl-steps-in-a-dfsort-job/) PARM parameters.

EZTPX01 is a called subprogram used to interrogate a PARM coded on a JCL EXEC statement. It is distributed with CA-Easytrieve/Plus.

EZTPX01 requires two parameters, the system defined PARM-REGISTER, and a user defined input/output field. The input/output field must consist of a 2-byte binary field immediately followed by a character portion to contain the actual PARM information.

You are responsible for placing the maximum length you expect for the PARM information (the character portion) into the 2-byte binary field before calling EZTPX01. EZTPX01 moves your PARM data from your JCL EXEC statement into the character portion of your input/output field and updates the length in the 2-byte binary portion.

**RETURN-CODE** is a four-byte binary field whose contents are returned to the operating system in register 15. RETURN-CODE is initialized to zero, but you can set it to any value.

**Usage:** RETURN-CODE  = 4

**Data Format:**

```
A - EBCDIC Alpha
N - Zoned Numeric
U - Unsigned Packed
P - Packed
B - Binary
M - MIXED
K - DBCS / Kanji
```

**Logical stuff: **

i) Nested IF (as we use in cobol we can use)

ii) DO  WHILE NOT EOF *file1*

---

END-DO

iii) PERFORM statements ==> we use to call procs

Ex: Perform *First-proc** *

**Recommended posts for you:**

- [Easytrieve Guide Part-1](http://srinimf.com/2015/06/18/eazytrive-material-for-mainframe-programmers-1of-20/)
- [Easytrieve Guide Part-2](http://srinimf.com/2015/06/20/easytrieve-guide-for-mainframe-programmers-2-of-20/)
- [Easytrieve Guide Part-3](http://srinimf.com/2015/06/24/easytrieve-guide-for-mainframe-programmers3-of-20/)

### Share this:

-
- [Tweet](https://twitter.com/share)
- [![](https://i0.wp.com/assets.pinterest.com/images/pidgets/pinit_fg_en_rect_gray_20.png)](https://www.pinterest.com/pin/create/link/?url=https%3A%2F%2Fsrinimf.com%2F2011%2F11%2F16%2Feasytrieve2%2F&media=https%3A%2F%2Fi0.wp.com%2Fsrinimf.com%2Fwp-content%2Fuploads%2F2011%2F11%2Fpexels-photo-1892512.jpeg%3Ffit%3D1200%252C800%26ssl%3D1&description=Easytrieve%20Key%20Statements%20%282%20of%203%29)
-
- [Share on Tumblr](https://www.tumblr.com/share)
- [Share on WhatsApp (Opens in new window) WhatsApp](https://srinimf.com/2011/11/16/easytrieve2/?share=jetpack-whatsapp)
- [More](#)
-

- [Print (Opens in new window) Print](https://srinimf.com/2011/11/16/easytrieve2/?share=print)
- [Share on Reddit (Opens in new window) Reddit](https://srinimf.com/2011/11/16/easytrieve2/?share=reddit)
- [Share on Telegram (Opens in new window) Telegram](https://srinimf.com/2011/11/16/easytrieve2/?share=telegram)
- [Email a link to a friend (Opens in new window) Email](mailto:?subject=%5BShared%20Post%5D%20Easytrieve%20Key%20Statements%20%282%20of%203%29&body=https%3A%2F%2Fsrinimf.com%2F2011%2F11%2F16%2Feasytrieve2%2F&share=email)
-

### Like this:

Like Loading…