ezytrieve.com

Introduction to REXX - Some examples

2010-07-17T09:56:00.000-07:00

- A Rexx program should have a comment "/*rexx*/" in the first line
- Rexx statements are Case insensitive
- A rexx program can be executed by giving "EX" to the rexx member containing the rexx program
Hello World program

/************rexx***********/
 say "hello world"
 exit

IF-ELSE in Rexx

/******rexx******/                                        
/* execute some instructions conditionally */             
 say 'enter number less then 10 '                                  
 pull a                                                    
 if a<10 then                                                  
    do                                                                                
       say "correct number!!"            
    end                                                    
 else say "wrong!" 
 exit

DO-Loops in Rexx

/*******rexx***********/  
  /* say "hi" 5 times */
  do 5                    
     say "hi"          
  end                     
  /**/                    
  do c=1 to 5             
     say "hi"          
  end                     
  /**/                    
  do m=0.3 to 1.5 by .3   
     say "hi"          
  end                     
  /* infinite loop*/      
 /*                       
 do forever               
     say "hi"          
 end                      
 */   
 exit

DO WHILE and DO UNTIL
DO WHILE runs the loop all the times if the condition given validates to TRUE
DO UNTIL runs the loop all the times if the condition given validates to FALSE

/************rexx***********/
 do while a = 5
   say 'hi'
   /* something that modifies a */
 end

 do until a = 5
   say 'hi'
   /* something that modifies a */
 end
 exit

SELECT statement in REXX

/******rexx******/                       
/* decide what range a number is in */    
 say 'enter a number'                     
 pull a                                   
 select                                   
    when a>0 & a<100 then say "1-99"        
    when a\<100 & a<500 then say "100-499"    
    when \ (a<500 | a>=1000) then say "500-29"
    otherwise say "out of range"          
 end                        
 exit

Dividing one Number by another
PULL gets the value from the user.

/******rexx****************************************************/ 
 /* dividing one number by another number */                            
 /**************************************************************/ 
 say 'dividing one number by another number'                      
 say 'enter numerator:'                                           
 pull z                                                           
 say 'enter denominator:'                                         
 pull n                                                           
 if n=0 then 
   say 'division by zero'                               
 else do                                                          
   say 'num / denom is' z/n
   say 'rest is' z//n                           
 end      
 exit

DO WHILE clause in Easytrieve

2009-11-07T21:29:00.001-08:00

The syntax for a DO WHILE clause in Easytrieve is

 DO WHILE CONDITION1 [ AND CONDITION2 | OR CONDITION3 ]
   STATEMENTS TO EXECUTE
 END-DO

Please refer the below sample of code to use a do-while clause in Easytrieve.

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON
 FILE INFILE 
*
 WS-COUNT W 4 N VALUE 0
*
 JOB INPUT NULL
 WS-COUNT = 1
 DO WHILE WS-COUNT LE 15 
   DISPLAY ' COUNT IS ' WS-COUNT
   WS-COUNT = WS-COUNT + 1
 END-DO
 STOP.

Using Files as Lookup tables in Easytrieve

2009-11-06T20:34:00.000-08:00

Let us say, I have a lookup table file for Name of the Months. (DD name LOOKUP1 in our example program)

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
01 JANUARY
02 FEBRUARY
03 MARCH
04 APRIL
05 MAY
06 JUNE
07 JULY
08 AUGUST
09 SEPTEMBER
10 OCTOBER
11 NOVEMBER
12 DECEMBER

and I have another file (DD name ACTUAL) for which the month names have to be read from the above file.

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
05
12
33
03

Output File should have the month numbers from the ACTUAL file and should have fetched the month name from LOOKUP1 file and put in the output file.
Ie,
OUTFILE

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
05 MAY
12 DECEMBER
33 INVALID MON
03 MARCH

This Can be achieved by the following program which uses the LOOKUP1 file as a table.
The field names ARG and DESC should not be changed (because those are keywords).
And also the TABLE file should not have high level group variable for the full record.

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON
 FILE LOOKUP1 TABLE
      ARG              1    2    A
      DESC             4   15    A
 FILE ACTUAL
      ACTUAL-REC        1    80   A
        MONTH-LIST      1     2   A
 FILE OUTFILE
      OUT-REC          1   80  A
      OUT-MONTH-NUM    1    2  A
      OUT-MONTH-NAME   4   15  A
 JOB INPUT NULL
 GET ACTUAL
     DO WHILE NOT EOF ACTUAL
        MOVE MONTH-LIST TO OUT-MONTH-NUM
        SEARCH LOOKUP1 WITH MONTH-LIST , GIVING OUT-MONTH-NAME
        IF NOT LOOKUP1
           MOVE 'INVALID MON' TO OUT-MONTH-NAME
        END-IF
        PUT OUTFILE
        GET ACTUAL
     END-DO
 STOP.

Using MAXASSIGNEDVAL from SYSIBM.SYSSEQUENCES (IBM DB2 for Z OS)

2009-11-03T08:19:00.001-08:00

SYSIBM.SYSSEQUENCES has a column called MAXASSIGNEDVAL, that gets assigned whenever the values for IDENTITY/SEQUENCE columns are getting generated (at least for the cache).

SELECT MAXASSIGNEDVAL 
FROM SYSIBM.SYSSEQUENCES
WHERE SEQUENCEID = 
(SELECT BSEQUENCEID FROM SYSIBM.SYSSEQUENCESDEP
WHERE DCREATOR = 'USER1'
AND DNAME = 'EMP_TABLE'
AND DCOLNAME = 'EMP_ID');

Creating (Declaring), Inserting data into DB2 temporary tables

2009-11-03T08:18:00.000-08:00

Declaring (Creating)

DECLARE GLOBAL TEMPORARY TABLE
SESSION.EMP_TABLE
(EMPID INTEGER NOT NULL,
EMPNAME CHAR(20))
[ON COMMIT DELETE ROWS  | ON COMMIT PRESERVE ROWS]

Even if you do not give the qualifier SESSION, the table will be created as SESSION.EMP_TABLE.Temporary tables cannot be created with our own qualifier.

Inserting

INSERT INTO SESSION.EMP_TABLE VALUES(1,'KARTHIK')

Fetching

SELECT * FROM SESSION.EMP_TABLE

Sort Card examples (IBM Mainframes)

2009-11-03T08:15:00.000-08:00

Avoid duplicates in a particular field (say first 8 characters)

SORT FIELDS=(1,8,CH,A)
SUM FIELDS=NONE

Sort first 8 characters, and omit few values

SORT FIELDS=(1,8,CH,A)
OMIT COND=(1,8,CH,EQ,C'AAAAAAAA')

Sort first 8 characters, and include only few values

SORT FIELDS=(1,8,CH,A)
INCLUDE COND=(1,8,CH,EQ,C'AAAAAAAA',OR, 1,8,CH,EQ,C'BBBBBBBB')

Sort card to select only 15 characters from 36th position of my input file.

//SORTSTEP  EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=SHR,
//            DSN=MYDSN.NAME
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,2000)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,2000)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,2000)
//SYSIN    DD *
 SORT FIELDS=COPY
 OUTFIL CONVERT,
 OUTREC=(1:36,15,65X)
/*
//SORTOUT  DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(250,100),RLSE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),
//            DSN=MYDSN.OUTPUT.NAME

The 65X is given to fill the remaining 65 bytes of the output file with spaces.

Using IKJEFT01 for Binding a normal batch DB2 program

2009-11-03T08:12:00.000-08:00


//BINDSTEP EXEC PGM=IKJEFT01
//DBRMLIB  DD  DSN=my.dbrm.library,DISP=SHR
//STEPLIB  DD DISP=SHR,
//            DSN='SSID.SDSNLOAD'
//SYSTERM  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
DSN SYSTEM(SSID) RETRY(2) TEST(0)
  BIND PACKAGE   (PKGNAME)  -
       MEMBER    (PGMNAME) -
       OWNER     (USER1)  -
       QUALIFIER (USER1)  -
       ACTION    (REPLACE)  -
       VALIDATE  (BIND)     -
       ISOLATION (CS)       -
       EXPLAIN   (YES)      -
       RELEASE   (COMMIT)
  END
/*

Using IKJEFT01 for running a normal batch DB2 program

2009-11-03T08:11:00.000-08:00


//STEP001  EXEC PGM=IKJEFT01
//*
//STEPLIB  DD DISP=SHR,DSN=SSID.SDSNLOAD
//*
//DISPLAY  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN  DD *
    DSN SYSTEM(SSID)
    RUN PROGRAM(PGMNAME) PLAN(PLANNAME) PARM('ANY PARM TO THE PGM') -
    LIB('MYPGM.LOADLIB')
    END
/*

Running DSNTIAUL using IKJEFT01 for batch unload

2009-11-03T08:08:00.000-08:00

DSNTIAUL (an assembler program used to process select statements dynamically) is used to unload the tables, or to get the results of an SQL select in the unload format.

No details about the query will be displayed, just the resultset will be in the SYSPRINT.

Unloading the whole table.

//STEP0001 EXEC PGM=IKJEFT01
//STEPLIB  DD DISP=SHR,
//            DSN='SSID.SDSNLOAD'
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(250,100),RLSE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),
//            DSN=TEST.MYDSN
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD SYSOUT=*
//SYSTSOUT DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(SSID)
  RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) 
  LIB ('SSID.SDSNLOAD')
/*
//SYSIN    DD *
SYSIBM.SYSDUMMY1 
/*

Unloading a specific SQL select.

//STEP0001 EXEC PGM=IKJEFT01
//STEPLIB  DD DISP=SHR,
//            DSN='SSID.SDSNLOAD'
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(250,100),RLSE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),
//            DSN=TEST.MYDSN
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD SYSOUT=*
//SYSTSOUT DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(SSID)
  RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) PARMS('SQL,1') –
  LIB ('SSID.SDSNLOAD')
/*
//SYSIN    DD *
SELECT * FROM SYSIBM.SYSDUMMY1 
/*

The Parm 'SQL,1' says that I am giving an SQL statement and fetch only one record from the resultset into SYSPRINT.

Running DSNTEP2 / DSNTEP4 using IKJEFT01 for batch SQL(DB2) processing

2009-11-03T08:04:00.000-08:00

DSNTEP2 / DSNTEP4: These programs are used to execute the SQL queries in batch.
The output (SYSPRINT) will have complete details of the query execution.DSNTEP2 is a PL/I program used to process SELECT and NON SELECT statements dynamically.

//STEP0001 EXEC PGM=IKJEFT01 ,DYNAMNBR=20
//STEPLIB  DD DISP=SHR,
//            DSN='SSID.SDSNLOAD'
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(250,100),RLSE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=133,BLKSIZE=0),
//            DSN=TEST.MYDSN
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD SYSOUT=*
//SYSTSOUT DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(SSID)
  RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2) PARM('ALIGN(LHS)')
  LIB ('SSID.SDSNLOAD')
/*
//SYSIN    DD *
 SELECT * FROM SYSIBM.SYSDUMMY1 
/*

The Parm for this program is optional.
Valid values are,
ALIGN(MID) – center alignment
ALIGN(LHS) – left alignment
MAXSEL(n) - to limit the number of rows returned from a SELECT statement to n (n = 0 -> 32768)NOMIXED - ??
MIXED - ??
SQLTERM(termchar) – termchar is the character that you use to end each SQL| statement.

Keywords

2009-10-10T05:35:00.001-07:00

Easytrieve
IF ELSE DO FILE REPORT OR AND EQ NE GT GE NE LT LE LIST ON JOB INPUT NULL EOF GET PUT FROM RECORD-LENGTH END-IF END-DO WHILE NOT STOP A N P B KEY STATUS NODATE NOPAGE NOADJUST NOSPREAD NOHEADING LINE TITLE COL W PAGESIZE LINESIZE PRINT VB FB VS VALUE MASK PRINTER MOVE ADD TO DISPLAY READ WRITE OCCURS INDEX

DB2

SELECT FROM CREATE DELETE UPDATE TABLE DECLARE DEFAULT WHERE AND OR IN NOT ORDER GROUP BY CURSOR CURRENT TIME TIMESTAMP CURRENT_TIME CURRENT_TIMESTAMP GLOBAL TEMPORARY INTO FETCH INTEGER CHAR VARCHAR SMALLINT DECIMAL NUMERIC DATE CURRENT_DATE INSERT COMMIT FETCH VALUES ALTER ROWS

JCL

JOB EXEC DD PGM STEPLIB JOBLIB JCLLIB DSN DISP SYSOUT PROGRAM PARM PLAN LIB SYSTEM SHR NEW CATLG DELETE OLD OMIT INCLUDE

Easytrieve - Synchronized Files

2009-10-08T09:40:00.001-07:00

File1

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
A1
B1
D1

File2

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
XXX A1 YYYY ZZZZ
CCC A1 DDDDDDDDD 
DDD A2 UUUUUUUUU
RRR B1 TTTTTTTTT
XXX B1 YYYY ZZZZ
CCC C1 DDDDDDDDD 
DDD C2 UUUUUUUUU
RRR D1 TTTTTTTTT

Output File Should have only the records from file2, with second column values which are present in File1.
File1 has unique records
File2 should be in sorted order (Second column)
Ie,
OUTFILE

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
XXX A1 YYYY ZZZZ
CCC A1 DDDDDDDDD 
RRR B1 TTTTTTTTT
XXX B1 YYYY ZZZZ
RRR D1 TTTTTTTTT

This Can be achieved in two ways. The first way is,

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON
 FILE FILE1 
   F1-REC 1 50 A
   F1-KEY 1 2 A
 FILE FILE2
   F1-REC 1 50 A
   F1-KEY 7 2 A
 FILE OUTFILE
     OUT-REC 1 50 A
 JOB INPUT NULL
 GET FILE1
 GET FILE2
 DO WHILE NOT EOF FILE1 AND NOT EOF FILE2
   DO WHILE F2-KEY LE F1-KEY
      IF F1-KEY EQ F2-KEY
         PUT OUTFILE FROM FILE2
      END-IF
      GET FILE2
      IF EOF FILE2
         STOP
      END-IF
   END-DO
   GET FILE1
 END-DO
 STOP.

and the second way is,
Using JOB INPUT (FILENAME KEY(KEYNAME) FILENAME KEY(KEYNAME))

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON
 FILE FILE1 
          F1-REC           1    50   A
          F1-KEY           1     2   A
 FILE FILE2
          F2-REC           1    50   A
          F2-KEY           7     2   A
 FILE OUTFILE
 OUT-REC     1  50 A
 JOB INPUT (FILE1 KEY(F1-KEY)  FILE2 KEY(F2-KEY))
 IF MATCHED
     PUT OUTFILE FROM FILE2
 END-IF
 GO TO JOB

Matching the files in another way

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON
 FILE FILE1 
          F1-REC           1    50   A
          F1-KEY           1     2   A
 FILE FILE2
          F2-REC           1    50   A
          F2-KEY           7     2   A
 FILE OUTFILE
 OUT-REC     1  50 A
 JOB INPUT (FILE1 KEY(F1-KEY)  FILE2 KEY(F2-KEY))
 IF FILE1
   IF FILE2
     PUT OUTFILE FROM FILE2
  END-IF
 END-IF
 GO TO JOB

Matching Multiple keys (FILENAME KEY(KEY1,KEY2) FILENAME KEY(KEY1,KEY2))

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON
 FILE FILE1 
          F1-REC           1    50   A
          F1-KEY1          1     2   A
          F1-KEY2          3     2   A
 FILE FILE2
          F2-REC           1    50   A
          F2-KEY1           7     2   A
          F2-KEY2           9     2   A
 FILE OUTFILE
 OUT-REC     1  50 A
 JOB INPUT (FILE1 KEY(F1-KEY1F1-KEY2)  +
 FILE2 KEY(F2-KEY1,F2-KEY2))
 IF FILE1
   IF FILE2
     PUT OUTFILE FROM FILE2
  END-IF
 END-IF
 GO TO JOB

Easytrieve - Report creation sample

2009-10-08T09:28:00.001-07:00

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON
 FILE OUTFILE1 PRINTER
*
 WS-VAL1 W 2 A VALUE 'V1'
 WS-VAL2 W 2 A VALUE 'V2'
 WS-VAL3 W 2 A VALUE 'V3'
*
 JOB INPUT NULL
 PRINT SAMPLE1
 STOP
 REPORT SAMPLE1 PRINTER OUTFILE1 PAGESIZE 55 LINESIZE 80 -
 NODATE NOPAGE NOADJUST NOSPREAD NOHEADING
 TITLE 01 COL 01 'HEADING ' -
          COL 30 'VALUES '
 LINE 01 COL 10 'VAL 1 IS ' -
         COL 30 WS-VAL1
 LINE 02 COL 10 'VAL 2 IS ' -
         COL 30 WS-VAL2
 LINE 03 COL 10 'VAL 2 IS ' -
         COL 30 WS-VAL3

Easytrieve – File Handling

2009-10-08T09:24:00.001-07:00

File declaration examples

 FILE FILE1

Fixed block files

 FILE FILE1 FB(80 200)
* 80 is LRECL and 200 is blocksize

Variable block Files

 FILE FILE1 VB(80 200)

VSAM files

 FILE FILE1 VS

File record definition

 FILE FILE1 FB(80 200)
   IN-REC 1 80 A
   IN-FIELD1 IN-REC 40 A
   IN-FIELD2 IN-REC +40 20 A
   IN-FIELD3 IN-REC +60 20 A

(OR)

 FILE FILE1 FB(80 200)
   IN-REC 1 80 A
   IN-FIELD1 1 40 A
   IN-FIELD2 41 20 A
   IN-FIELD3 61 20 A

If field1 and Field2 are not used, then just Field3 can be defined

 FILE FILE1 FB(80 200)
   IN-REC 1 80 A
   IN-FIELD3 61 20 A

Reading File record by record and copy it to another file

EOF <FILE DD NAME> checks the End of File, and returns true when there are no more records to fetch.
GET <FILE DD NAME> statement is used to read one record from the file
PUT <FILE DD NAME> statement is used to write one record to the file

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON
 FILE INFILE
 FILE OUTFILE
 JOB INPUT NULL
 GET INFILE
 DO WHILE NOT EOF INFILE
   PUT OUTFILE FROM INFILE
   GET INFILE
 END-DO
 STOP

(Or)

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON
 FILE INFILE FB(80 200)
   IN-REC 1 80 A
 FILE OUTFILE FB(80 200)
   OUT-REC 1 80 A
*
 WS-COUNT W 4 N VALUE 0
*
 JOB INPUT NULL
 GET INFILE
 DO WHILE NOT EOF INFILE
   MOVE IN-REC TO OUT-REC
   PUT OUTFILE
   WS-COUNT = WS-COUNT + 1
   GET INFILE
 END-DO
 DISPLAY WS-COUNT ' RECORDS WRITTEN'
 STOP

Writing to Variable block files

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON 
 FILE INFILE VB(80 200)
   IN-REC 1 80 A
 FILE OUTFILE VB(80 200)
   OUT-REC 1 80 A  
 JOB INPUT NULL 
 GET INFILE 
 DO WHILE NOT EOF INFILE
   MOVE IN-REC TO OUT-REC
   OUTFILE : RECORD-LENGTH = INFILE : RECORD-LENGTH
   PUT OUTFILE
   GET INFILE 
 END-DO 
 STOP

Reading VSAM file by Key

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON
 FILE FILE1 FB(80 200)
   IN-REC 1 80 A
   IN-KEY 1 8 A  
 FILE FILE2 VS
   F2-REC 1 80 A
   F2-KEY 1 8 A
   F2-VALUE 15 30 A  
 FILE OUTFILE FB(80 200)
   OUT-REC 1 80 A
   OUT-KEY 1 8 A
   OUT-VALUE 10 30 A  
 JOB INPUT NULL 
 GET FILE1 
 DO WHILE NOT EOF INFILE
   READ FILE2 KEY IN-KEY STATUS
   IF FILE2 : STATUS EQ 0      
      MOVE IN-KEY TO OUT-KEY     
      MOVE F2-VALUE TO OUT-VALUE     
      PUT OUTFILE  
   ELSE     
      DISPLAY IN-KEY ' NOT PRESENT IN VSAM FILE'   
   END-IF 
   GET INFILE
 END-DO 
 STOP

Easytrieve – Variable declaration

2009-10-07T11:07:00.001-07:00

Datatypes

Alphanumeric	A
Numeric	N	Maximum length 18
Binary (Comp)	B	Maximum length 9. i e upto 18 digits
Packed (COMP-3)	Define as P 0	Maximum length 9. i e upto 18 digits

Declaring a working storage variable

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 WS-VAR1 W 8 A 
 WS-VAR2 W 8 A VALUE 'KARTHIK ' 
 WS-VAR2 W 9 N VALUE ZEROES 
 WS-VAR3 W 7 N 2 
 WS-VAR4 W 9 P 0 
 WS-VAR5 W 9 P 2

Declaring Group variables

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 WS-GROUP W 15 A 
 WS-GR1 WS-GROUP 5 A 
 WS-GR2 WS-GROUP +5 10 A

Using indexed variables

 
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON 
 FILE INFILE 
 WS-ALPHA W 26 A VALUE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 
 WS-ALP-ARR WS-ALPHA 1 A OCCURS 26 INDEX ALPHA-NDX 
* 
 JOB INPUT NULL 
* PRINT 16TH ALPHABET 
 ALPHA-NDX = 15 
 DISPLAY '16TH ALPHABET IS ' WS-ALP-ARR 
 STOP.

Using arrays/tables

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LIST ON 
 FILE INFILE 
 WS-DAYS-OF-WEEK W 10 A OCCURS 7 
* 
 JOB INPUT NULL 
 MOVE 'SUNDAY' TO WS-DAYS-OF-WEEK(1) 
 MOVE 'MONDAY' TO WS-DAYS-OF-WEEK(2) 
 MOVE 'TUESDAY' TO WS-DAYS-OF-WEEK(3) 
 MOVE 'WEDNESDAY' TO WS-DAYS-OF-WEEK(4) 
 MOVE 'THURSDAY' TO WS-DAYS-OF-WEEK(5) 
 MOVE 'FRIDAY' TO WS-DAYS-OF-WEEK(6) 
 MOVE 'SATURDAY' TO WS-DAYS-OF-WEEK(7) 
 DISPLAY '4 TH DAY IS ' WS-DAYS-OF-WEEK(4) 
 STOP

Google Code Prettify

2008-01-09T01:47:00.000-08:00

Google Code prettify can be used to highlight a piece of code that may be of the language C,Java,Html,Javascript,xml,CSS, etc in your webpage.
i.e If you want to publish your piece of code through Internet (as I do), this tool is going to be very much useful.
You can download it freely from here. How to use it

Input fields in Java Swing

2008-01-09T01:21:00.000-08:00

Including a JButton:

// Name of this file should be simplejbutton.java
import java.awt.*;
import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;
import javax.swing.*;

public class simplejbutton extends JApplet
{
JButton B = new JButton("Click");

public void init()
{
Container cp = getContentPane();
cp.setLayout(null);

cp.add(B);
B.setBounds(10,10,100,20);
B.setActionCommand("B");
B.addActionListener(mylistener);
}
// ActionListener for Button
private ActionListener mylistener = new ActionListener()
{
public void actionPerformed(ActionEvent e)
{
if (e.getActionCommand() == "B")
B.setText("Clicked");
}
};// End of ActionListener
} // End of the Class

Including a JLabel:

// This file should have name simplejlabel.java
import java.awt.*;
import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;
import javax.swing.*;

public class simplejlabel extends JApplet
{
JLabel L = new JLabel("Label");
JButton B = new JButton("Click");

public void init()
{
Container cp = getContentPane();
cp.setLayout(null);

cp.add(L);
L.setBounds(10,10,100,20);

cp.add(B);
B.setBounds(120,10,100,20);
B.setActionCommand("B");
B.addActionListener(mylistener);
}
// ActionListener for Button
private ActionListener mylistener = new ActionListener()
{
public void actionPerformed(ActionEvent e)
{
if (e.getActionCommand() == "B")
L.setText("Clicked");
}
};// End of ActionListener
} // End of the Class

Including a JTextField

// This file should have name simplejtext.java
// Type something in Text Box and press Enter
import java.awt.*;
import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;
import javax.swing.*;

public class simplejtext extends JApplet
{
JTextField T = new JTextField("");
JLabel L = new JLabel("Label");

public void init()
{
Container cp = getContentPane();
cp.setLayout(null);

cp.add(T);
T.setBounds(10,10,100,20);
T.setActionCommand("T");
T.addActionListener(mylistener);

cp.add(L);
L.setBounds(120,10,100,20);

}
// ActionListener for Button
private ActionListener mylistener = new ActionListener()
{
public void actionPerformed(ActionEvent e)
{
if(e.getActionCommand()=="T")
L.setText(T.getText());
}
};// End of ActionListener
} // End of the Class

Including a JCheckBox:

// This file should have name simplejcheckbox.java
import java.awt.*;
import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;
import javax.swing.*;

public class simplejcheckbox extends JApplet {

JCheckBox C = new JCheckBox("Click");
JLabel L = new JLabel("Label");

public void init()
{
Container cp = getContentPane();
cp.setLayout(null);

cp.add(C);
C.setBounds(10,10,100,20);
C.setActionCommand("C");
C.addActionListener(mylistener);

cp.add(L);
L.setBounds(120,10,100,20);

}
// ActionListener for Button
private ActionListener mylistener = new ActionListener()
{
public void actionPerformed(ActionEvent e)
{
if (e.getActionCommand()=="C")
{
if (C.isSelected() == true)
L.setText("True");
else
L.setText("False");
}
}
};// End of ActionListener
} // End of the Class

The above code is highlighted using Google Code Prettify.

Files in a Folder (VBA)

2008-01-04T18:58:00.000-08:00

This Excel sheet can be used to get a list of files in a folder into a column of the Excel sheet.

Preview:

You just need to give the path of the folder in the text box and press enter. This works as simple as a browser.

Download:

Code for getting the file and folder names into excel cells is below:

Dim fs, f, f1, ffiles, ffolds
Set fs = CreateObject("Scripting.FileSystemObject")

If fs.folderexists(TextBox1.Text) Then
Else

a = MsgBox("Folder Does not Exist", , "Give Valid Path")
GoTo ending

End If

Set f = fs.GetFolder(TextBox1.Text)
Set ffiles = f.Files
Set ffolds = f.subfolders

‘ Adding files to the column
For Each f1 In ffiles

Sheet1.Cells(i, 4).Value = f1.Name
Sheet1.Cells(i, 5).Value = "Go"

With Sheet1

.Hyperlinks.Add .Range(Sheet1.Cells(i, 5).Address()), TextBox1.Text + "\" + f1.Name

End With
i = i + 1

Next
j = 6

‘ Adding folders to the column
For Each f1 In ffolds

Sheet1.Cells(j, 7).Value = f1.Name
Sheet1.Cells(j, 8).Value = "Go"
With Sheet1

.Hyperlinks.Add .Range(Sheet1.Cells(j, 8).Address()), TextBox1.Text + "\" + f1.Name
End With
j = j + 1

Creating a File System object:

Dim fs

Set fs = CreateObject("Scripting.FileSystemObject")

Operations with the file system object:

Opening an existing file:

Dim a, ForAppending=8

a = fs.OpenTextFile("c:\\testfile.txt", ForAppending, false);

This will open the file c:\\testfile.txt (Which is already existing) into the object "a" for Appending.

The second parameter to OpenTextFile method can be 1(ForReading), 2(ForWriting) or 8(ForAppending)