|
View previous topic :: View next topic
|
| Author |
Message |
madlui56
New User
Joined: 08 Aug 2006
Posts: 61
Location: Philippines
|
|
|
|
I would like an assisstance on how to create an eztrieve program and know the basic and advanced commands on it.
I would gladly appreciate you on this guys.
Thanks. |
|
| Back to top |
|
 |
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| Easytrieve Plus Training has pointers to an "Online User Reference" and an "Online Programmer's Reference". You might start there. |
|
| Back to top |
|
|
a027412
New User
Joined: 05 Jul 2007
Posts: 40
Location: Minneapolis, MN
|
|
|
|
here is a sample code, please let me kow if you need further info
| Code: |
PARM LINK (PgmName R) +
DEBUG (CLIST XREF SHORT DMAP) +
ABEXIT (SNAP)
**--------------------------------------------------------------------**
** PROGRAM ID :PgmName. **
**--------------------------------------------------------------------**
FILE INFIL
**--------------------------------------------------------------------**
INPUT-REC 1 100 A
IN-ATTR1 1 02 A
IN-ATTR2 3 02 B
**--------------------------------------------------------------------**
FILE OUTFIL
**--------------------------------------------------------------------**
OUTPUT-REC 1 100 A
OUT-ATTR1 1 02 A
OUT-ATTR2 3 02 B
**--------------------------------------------------------------------**
** WORKING STORAGE SECTION BEGINS HERE **
**--------------------------------------------------------------------**
WS-INPUT-READ-CT W 4 B VALUE 0
WS-OUTPUT-WRITE-CT W 4 B VALUE 0
**--------------------------------------------------------------------**
** MAIN PROCESSING STARTS HERE **
**--------------------------------------------------------------------**
JOB INPUT (INFIL) FINISH 5000-DISPLAY
PERFORM 1100-READ-COUNT
CASE IN-ATTR1
WHEN '01'
PERFORM 1200-PROCESS-01
WHEN '02'
PERFORM 1300-PROCESS-02
OTHERWISE
PERFORM 1400-PROCESS-ERROR
END-CASE
**--------------------------------------------------------------------**
** READ INCREMENT
**--------------------------------------------------------------------**
1100-READ-COUNT. PROC
WS-INPUT-READ-CT = WS-INPUT-READ-CT + 1
END-PROC
**--------------------------------------------------------------------**
** PROCESS 01
**--------------------------------------------------------------------**
1200-PROCESS-01. PROC
OUT-ATTR1 = Something
OUT-ATTR2 = Something
.
.
WS-OUTPUT-WRITE-CT = WS-OUTPUT-WRITE-CT + 1
PUT OUTFIL
END-PROC
**--------------------------------------------------------------------**
** PROCESS 02
**--------------------------------------------------------------------**
1300-PROCESS-02. PROC
OUT-ATTR1 = Something
OUT-ATTR2 = Something
.
.
.
WS-OUTPUT-WRITE-CT = WS-OUTPUT-WRITE-CT + 1
PUT OUTFIL
END-PROC
**--------------------------------------------------------------------**
** DISPLAY COUNTS
**--------------------------------------------------------------------**
5000-DISPLAY. PROC
DISPLAY 'TOTAL INPUT RECORDS :' WS-INPUT-READ-CT
DISPLAY 'TOTAL OUTPUT RECORDS :' WS-OUTPUT-WRITE-CT
END-PROC
|
|
|
| Back to top |
|
|
|
|
