Use this code

GOTO statement in Easytrieve

Karthik — Tue, 07 Feb 2012 15:06:47 +0000

As you would expect, GOTO statement just transfers control directly to the label specified. Below example explains that.

 LIST ON
 JOB INPUT NULL
  DISPLAY 'ONE'
  GOTO LINE-FOUR
  DISPLAY 'TWO'
  DISPLAY 'THREE'
  LINE-FOUR
   DISPLAY 'FOUR'
 STOP

Output from this will be

 ONE
 FOUR

Site statistics–where the visitors came from

Karthik — Wed, 01 Feb 2012 14:47:22 +0000

Top 25 internet providers through which users came from (last 1 month)

SORT in Easytrieve

Karthik — Sun, 29 Jan 2012 05:19:37 +0000

You can Sort a file into another file in Easytrieve. The Syntax is

 SORT file-name-1 +
 TO file-name-2 +
 USING (field-name [D]...) +
 [BEFORE proc-name]

file-name-1 is the input file DD Name
file-name-2 is the Sorted output file
field-name is the field defined in file-name-1, based on which the file has to be sorted
If you want the sort to be on Descending order, pass the parameter ‘D’ after the field name (by Default, it will be Ascending)
If you have any select criteria to filter what records to be written in the output file, have it in a Proc and give the proc name with BEFORE parameter (optional)

Let us see a couple of sample programs to explain.

Simple Sort on a key

The below program will simply

 FILE INFILE FB(80 960)
   ACCOUNT-NO  1 8 N
*
 FILE OUTFILE
*
 SORT INFILE TO OUTFILE USING ACCOUNT-NO

being updated..

EDIT MASKS – Masking variables in Easytrieve

Karthik — Sat, 28 Jan 2012 07:49:24 +0000

have you already read Easytrieve Variable declaration?

For creating reports, or printing (displaying) numeric variables, we will always need masking. It can be used to print the decimal character for the variables that have implied decimal

 WS-SSN W 9 N MASK '999-99-9999'
 ...
 MOVE 123456789 TO WS-SSN
 DISPLAY ' WS-SSN : ' WS-SSN

This will be printed as

 WS-SSN : 123-45-6789

Edit mask pattern is created by using combinations of the following characters:

9 — causes a digit to print. (including leading zeros)

Z — causes a digit to print (except for leading zeros)

$ — causes a currency symbol to print prior to the first non-zero digit

more examples to come..

DISPLAY statement in Easytrieve

Karthik — Sat, 28 Jan 2012 07:09:06 +0000

DISPLAY statement in Easytrieve is exactly the same as in COBOL.

 WS-VAR1 W 20 A VALUE 'I AM INITIALIZED HERE'
 ...
 DISPLAY 'value of WS-VAR1 is: ' WS-VAR1

This will be printed as

 value of WS-VAR1 is: I AM INITIALIZED HERE

If you want to continue the DISPLAY statement in multiple lines, use ‘+’ symbol as continuation character

 WS-VAR1 W 20 A VALUE 'I AM INITIALIZED HERE'
 ...
 DISPLAY 'value of WS-VAR1 is: ' +
         WS-VAR1

Easytrieve – Variable initialization (VALUE clause)

Karthik — Sat, 28 Jan 2012 06:54:26 +0000

have you already read Easytrieve Variable declaration?

Initialising a variable in Easytrieve, can be done using VALUE Clause.

 WS-VAR1 W 20 A VALUE 'I AM INITIALIZED HERE'

CA11-U11RMS Restart utility parameters

Karthik — Thu, 26 Jan 2012 12:00:16 +0000

CA11 is a utility from Computer Associates that helps to re-run a job multiple times and also to restart from abended steps, taking care of what files to be used when we rerun.

We need to specify a restart parameter that tells CA11 – how we want the job to be run. Valid parameters are nP, nR, nN and more (n = 0,1,2,3,..)

P for Production run (0P, 1P, 2P, .. nP)

The job will execute from the first step.
if any file with DISP=(NEW,*,*) already exist in catalogue, it will be deleted and re-created as defined in the current JCL job.

When we submit a job for first time, a parameter of ‘0P’ will be passed.
Due to any failure, if we need to run the job for a second time, and start from first step, pass a parameter ‘1P’.
If that fails again, and you need to run again from the beginning, use ‘2P’. (and so on…)
R for Restart/Rerun (1R, 2R, .. nR)

the job will start from last abended step
all the files, GDG file versions used in the last run of the job will be used
After the failure of first ‘0P’ run, if we want to restart from the failed step, pass ‘1R’ as the parameter. Consecutive restart runs should have ‘2R’ ,’3R’, and so on..

N for Null (1N, 2N,.. nN)

CA11 utility will not perform anything, and just allow your job to run.
but for every consecutive run, you need to change the number like 0N, 1N, 2N,.. etc

Note: if you do not change the number n in the parameter you will be getting a user abend U0060 saying that the parameter was not changes since the last run. However if your job has been completed successfully and you are rerunning the job, you do not need to change the number n.

DIRECT YES and DIRECT NO options in BMC unload plus

Karthik — Mon, 09 Jan 2012 16:25:40 +0000

DIRECT YES:

When we use DIRECT YES option, BMC Unload Plus utility (ADUUMAIN) reads data directly from the table space data set or image copy data set and uses a SELECT-like syntax for data selection.

We can unload all data from a table-space without requiring written SELECT statements.

The data can be sorted by clustering key or partitioning key.

DIRECT NO:

When we use DIRECT NO option, BMC Unload Plus utility uses DB2 dynamic SQL to process the SELECT statement.

Data type conversions can be performed using DIRECT NO (which is not available with DIRECT YES).

STRING and UNSTRING verbs in COBOL

Karthik — Tue, 13 Dec 2011 13:15:10 +0000

STRING WS-VAR1 ',' WS-VAR2 DELIMITED BY SIZE INTO WS-STRING

UNSTRING ws-comma-separated
  DELIMITED BY ','
    INTO  WS-parm1
        , WS-parm2
        , WS-parm3
        , WS-parm4
        , WS-parm5
 END-UNSTRING

DB2 commands : TERM, START, STOP, DIS

Karthik — Mon, 14 Nov 2011 14:35:43 +0000

- DIS or -Display : Display a status of tablespace (ie READ-WRITE / COPY-PENDING / CHECK-PENDING / READ ONLY)

-DIS  DATABASE(dbname) SPACENAM(tbspace)