The following is the IGYWCL procedure which calls the cobol compiler IGYCRCTL (In line 04 ) . Now let us see
how we can modify it to make the CALL statement work with this procedure

————————————————-IGYWCL—————————————————–
01 //IGYWCL PROC LNGPRFX=’IGY310′,SYSLBLK=3200,
02 // LIBPRFX=’CEE’,
03 // PGMLIB=’&&GOSET’,GOPGM=GO
04 //COBOL EXEC PGM=IGYCRCTL,REGION=2048K
05 //STEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,
06 // DISP=SHR
07 //SYSPRINT DD SYSOUT=*
08 //SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSDA,
09 // DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
10 // DCB=(BLKSIZE=&SYSLBLK)
11 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
12 //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
13 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
14 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
15 //SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
16 //SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
17 //SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
18 //LKED EXEC PGM=HEWL,COND=(4,LE),REGION=1024K
19 //SYSLIB DD DSNAME=&LIBPRFX..SCEELKED,
20 // DISP=SHR
21 //SYSPRINT DD SYSOUT=*
22 //SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE)
23 // DD DDNAME=SYSIN
24 //SYSLMOD DD DSNAME=&PGMLIB(&GOPGM),
25 // SPACE=(TRK,(10,10,1)),
26 // UNIT=SYSDA,DISP=(MOD,PASS)
27 //SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10))
——————————————————————————————————————-

In this procedure line 01 to 17 is compiler procedure and line 18 to 27 is used for link edit. The line 19 is to identify syslib
syslib is the system library here it is CEE.SCEELKED where the cobol compiler link edit files reside .

Ok now we will see how The CALL statement will impliment

First create a main cobol file let the content in main be

01 ID DIVISION.
02 PROGRAM-ID. MAIN.
03 DATA DIVISION.
04 PROCEDURE DIVISION.
05 MAIN.
06 DISPLAY ‘THIS IS FROM MAIN PROG’.
07 CALL ‘SUB’.
08 STOP RUN.

Create a sub program let it be

01 ID DIVISION.
02 PROGRAM-ID. SUB.
03 PROCEDURE DIVISION.
04 MAIN.
05 DISPLAY ‘I AM FROM SUB’.
06 EXIT PROGRAM.

Compile sub program first and put the load module in say ESCUB12.UNNI.LOAD then compile main but you
will get an error saying that Module sub unresolvable it is because the module sub is not in SYSLIB
to remove this error create a jcl to compile main as like below

1 //COMPIL JOB NOTIFY=&SYSUID,CLASS=A,
2 // MSGCLASS=H,MSGLEVEL=(1,1),LINES=(1,CANCEL)
3 //JOBPROC JCLLIB ORDER=SYS2.SAMPLE.PROCLIB ** DO NOT CHANGE **
4 //COBC EXEC IGYWCL,
5 // PGMLIB=ESCUB22.UNNI.LOAD,
6 // GOPGM=MAIN
7 //COBOL.SYSIN DD DSN=ESCUB12.UNNI.PDS(MAIN),DISP=SHR
8 //LKED.SYSLIB DD DSN=ESCUB12.UNNI.LOAD,DISP=SHR
9 // DD DSN=CEE.SCEELKED,DISP=SHR

See line 8 and 9 we are overriding the SYSLIB in IGYWCL and creating a new syslib That is concatenated PDS of
the load library of SUB and the SYSTEM LIBRARY
Now compile MAIN hope your Main program resides in ESCUB12.UNNI.PDS
After compiling main run the load module main hope you will get the following result
—————————————————–
THIS IS FROM MAIN PROG
I AM FROM SUB
——————————————————

The following is the IGYWCL procedure which calls the cobol compiler IGYCRCTL (In line 04 ) . Now let us see
how we can modify it to make the CALL statement work with this procedure

————————————————-IGYWCL—————————————————–
01 //IGYWCL PROC LNGPRFX=’IGY310′,SYSLBLK=3200,
02 // LIBPRFX=’CEE’,
03 // PGMLIB=’&&GOSET’,GOPGM=GO
04 //COBOL EXEC PGM=IGYCRCTL,REGION=2048K
05 //STEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,
06 // DISP=SHR
07 //SYSPRINT DD SYSOUT=*
08 //SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSDA,
09 // DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
10 // DCB=(BLKSIZE=&SYSLBLK)
11 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
12 //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
13 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
14 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
15 //SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
16 //SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
17 //SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
18 //LKED EXEC PGM=HEWL,COND=(4,LE),REGION=1024K
19 //SYSLIB DD DSNAME=&LIBPRFX..SCEELKED,
20 // DISP=SHR
21 //SYSPRINT DD SYSOUT=*
22 //SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE)
23 // DD DDNAME=SYSIN
24 //SYSLMOD DD DSNAME=&PGMLIB(&GOPGM),
25 // SPACE=(TRK,(10,10,1)),
26 // UNIT=SYSDA,DISP=(MOD,PASS)
27 //SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10))
——————————————————————————————————————-

In this procedure line 01 to 17 is compiler procedure and line 18 to 27 is used for link edit. The line 19 is to identify syslib
syslib is the system library here it is CEE.SCEELKED where the cobol compiler link edit files reside .

Ok now we will see how The CALL statement will impliment

First create a main cobol file let the content in main be

01 ID DIVISION.
02 PROGRAM-ID. MAIN.
03 DATA DIVISION.
04 PROCEDURE DIVISION.
05 MAIN.
06 DISPLAY ‘THIS IS FROM MAIN PROG’.
07 CALL ‘SUB’.
08 STOP RUN.

Create a sub program let it be

01 ID DIVISION.
02 PROGRAM-ID. SUB.
03 PROCEDURE DIVISION.
04 MAIN.
05 DISPLAY ‘I AM FROM SUB’.
06 EXIT PROGRAM.

Compile sub program first and put the load module in say ESCUB12.UNNI.LOAD then compile main but you
will get an error saying that Module sub unresolvable it is because the module sub is not in SYSLIB
to remove this error create a jcl to compile main as like below

1 //COMPIL JOB NOTIFY=&SYSUID,CLASS=A,
2 // MSGCLASS=H,MSGLEVEL=(1,1),LINES=(1,CANCEL)
3 //JOBPROC JCLLIB ORDER=SYS2.SAMPLE.PROCLIB ** DO NOT CHANGE **
4 //COBC EXEC IGYWCL,
5 // PGMLIB=ESCUB22.UNNI.LOAD,
6 // GOPGM=MAIN
7 //COBOL.SYSIN DD DSN=ESCUB12.UNNI.PDS(MAIN),DISP=SHR
8 //LKED.SYSLIB DD DSN=ESCUB12.UNNI.LOAD,DISP=SHR
9 // DD DSN=CEE.SCEELKED,DISP=SHR

See line 8 and 9 we are overriding the SYSLIB in IGYWCL and creating a new syslib That is concatenated PDS of
the load library of SUB and the SYSTEM LIBRARY
Now compile MAIN hope your Main program resides in ESCUB12.UNNI.PDS
After compiling main run the load module main hope you will get the following result
—————————————————–
THIS IS FROM MAIN PROG
I AM FROM SUB
——————————————————

GOOGLE EARTH AN UPDATE

Google earth is a new project from the magic company.By which we can zoom to any part of the world.

Google earth has 3 main vertions

1. GOOGLE EARTH FREE
2. GOOGLE EARTH PLUS
3. GOOGLE EARTH PRO
4. Google Earth Enterprise Solutions

Google earth free as per site does not require any registration you can down load it from http://earth.google.com/earth.html .As per the site google earth free can be used to find driving directions , houses parks etc .

the system requirements are

Minimum configuration:
Operating system: Windows 2000, Windows XP
CPU speed: Intel® Pentium® PIII 500 MHz
System memory (RAM): 128MB
200MB hard-disk space
3D graphics card: 3D-capable video card with 16MB VRAM
1024x768, 32-bit true color screen
Network speed: 128 kbps ("Broadband/Cable Internet")

Recommended configuration:
Operating system: Windows XP
CPU speed: Intel® Pentium® P4 2.4GHz+ or AMD 2400xp+
System memory (RAM): 512MB
2GB hard-disk space
3D graphics card: 3D-capable video card with 32MB VRAM or greater
1280x1024, 32-bit true color screen
Network speed: 128 kbps ("Broadband/Cable Internet")

GOOGLE EARTH PRO HAS ADVANTAGES AS

GPS data import - read in tracks and waypoints from select GPS devices
Note 1: Verified support for Magellan and Garmin devices only
Note 2: Does not support export of tracks or waypoints to a GPS
Higher resolution printing (greater than screen resolution).
Customer support via email (not just web).
Annotation – adds draw/sketch tools for richer annotations (can be shared as KML).
Data importer – read address points from .csv files.
How to buy:
Download and install Google Earth.
In the Help menu, select "Upgrade to Plus".
Follow the online instructions to unlock the Google Earth Plus features.

Thus google earth explores world better