submitting a jcl using cobol

submitting a jcl using cobol can be done through a facility called internal reader
here is the example
cobol program

000100 ID DIVISION.
000200 PROGRAM-ID. JCLCOB.
000300 ENVIRONMENT DIVISION.
000400 INPUT-OUTPUT SECTION.
000500 FILE-CONTROL.
000600 SELECT INFILE ASSIGN TO DD1
000610 ORGANIZATION IS SEQUENTIAL
000620 ACCESS MODE IS SEQUENTIAL
000700 FILE STATUS IS FST.
000800 DATA DIVISION.
000900 FILE SECTION.
001000 FD INFILE.
001100 01 INREC PIC X(80).
001200 WORKING-STORAGE SECTION.
001300 01 FST PIC X(2).
001400 PROCEDURE DIVISION.
001500 OPEN OUTPUT INFILE.
001600 DISPLAY FST.
001700 MOVE '//UNNI JOB NOTIFY=&SYSUID' TO INREC.
001800 WRITE INREC.
001900 MOVE '//STEP1 EXEC PGM=IEFBR14' TO INREC.
002000 WRITE INREC.
002100 MOVE '//DD1 DD DSN=ESCUB07.UNNI.ALEX,' TO INREC.
002200 WRITE INREC.
002300 MOVE '// DISP=(NEW,CATLG,DELETE),' TO INREC.
002400 WRITE INREC.
002410 MOVE '// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB,DSORG=PO),'
002420 TO INREC.
002430 WRITE INREC.
002500 MOVE '// SPACE=(TRK,(1,2),RLSE)' TO INREC.
002600 WRITE INREC.
002700 MOVE '//SYSPRINT DD SYSOUT=*' TO INREC.
002800 WRITE INREC.
002900 MOVE '//SYSIN DD DUMMY' TO INREC.
003000 WRITE INREC.
003100 MOVE '//' TO INREC.
003200 WRITE INREC.
003300 DISPLAY FST.
003400 CLOSE INFILE.
003500 STOP RUN.

use the jcl to submit this cobol as

000100 //UNNIK JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=JCLCOB
000300 //STEPLIB DD DSN=ESCUB07.UNNI.LOAD,DISP=SHR
000400 //DD1 DD SYSOUT=(*,INTRDR)
000500 //

compiling cobol without jcl

Jcl is essential part of mvs os since it does every thing including compilation and execution of programs . But once i faced a interview question as How can you compile a cobol without jcl .I never think that there is any hope to compile cobol without jcl but after several searches i foundout that there is a ISPF option called Fore ground wich does that work for us
Also in the ibmmainframes forum one senior member told me that we can write our own REXX program to do that function ,since i am unfamilier with REXX i dont know how to do that
hope you will know that , if that is the case please inform me

UBUNTU Screen Shots

1. Desktop

2. K3b replacement for nero worth for try
3.MPlayer (the entertainment in linux)
4. Super Tux ( The Linux Mario--at its best!!!)
5. Firefox( Fox fires the linux web browsing!!!!!!)
6. GIMP ( the photoshop replacement in Linux)
7. Evolution( mail client --- Declared war against Outlook)
8.ADD & Remove ( much more user friendly)
9.VLC Player(REdefining entertainment Plays everything )

KUBUNTU Screen shots---(64 bit version)---

-----------Kubuntu screen shots on 10/10/2006-----------

1.Desktop

2. Terminal

3.IRC client

4. Web Browser(----my favourite browser!!!!!!)
5. K3bCD-DVD Creator(!!!!!! Better than Nero in Performance)

Contributed by alexhomas.m(alexthomasm@gmail.com)

ubuntu 6.10 beta edgy eft released

Ubuntu beta release of 6.10 edgy eft has lot of improovement including the bootup screen take a look at http://wiki.ubuntu.com/EdgyEft/Beta/
Here is the screenshots

here the login screen boot up screen

running shell script in ubuntu

I got a script from http://ruslug.rutgers.edu/~mcgrof/grub-images/checksplash.sh to check the splah support of my GRUB .But i dont know how to run it.I asked it at the ubuntu india mailing list then i got the respnse as to use
sudo chkmod 777 checksplash.sh
./checksplash

it worked

The search in google for 10000000000..10000000000 resulted it this

dial up modem in ubuntu

hello friends ,
In this blog i wish to share my experiance while trying to connect internet with dial up modem in ubuntu 6.06 LTS .After several searches i got scanModem tool from linodem http://linmodems.technion.ac.il/packages/scanModem.gz .Now i used gunzip scanModem.gz command to unzip .Use chmod +x scanModem to make it an executable one , now run it by command ./scanModem .It will create a directory called modem i checked out the dir and i give me slmodem as the detected modem driver for me .Also it give me a link for slmodem as http://linmodems.technion.ac.il/packages/smartlink/slmodem-2.9.11-20060727.tar.gz and ungrab winmodem as http://linmodems.technion.ac.il/packages/smartlink/ungrab-winmodem.tar.gz .I downloaded those packages and installed them using make, make install commands .Then I used
sudo modprobe ungrab-winmodem
sudo modprobe slamr
sudo slmodemd -c INDIA
then use
sudo wvdialconf /etc/wvdial.conf
then add your password at wvdialconf file in /etc/wvdial.conf
then use
sudo wvdial
it connected to internet

Grub splash image setup

hello friends i gone through several forums community page etc to get informations about how to set up the splash image in the grub boot up menu.At last i got the result here i will explain the steps that i gone through.
My operating system is ubuntu 6.06LTS and my grub version is .97
first i got the image that is to be placed at the bootup menu of grub that is in jpg format
i got the image from http://ruslug.rutgers.edu/~mcgrof/grub-images/images/
The image should be at 640 * 480 size (the image that at the above link is at this size so dont worry) .
Now i used GIMP an image editing software in linux
Open image in gimp select image-->mode-->indexed and convert colours to 14 from 256 select clour dithering as None and Then save the image in xpm format now Open a terminal and go to the directory where you saved your image and type the command
gzip file.xpm
it will convert file.xpm to file.xpm.gz
now copy file.xpm.gz to /boot/grub/
then open menu.lst in same dir
You need administrative privillage to edit this file open a terminal and go to directory /boot/grub/
and type command sudo chown user menu.lst
where user is your user name in ubuntu(i dont know how it is in other distro's)
then use sudo chown user /boot/grub/ then only you will be allowed to save menu.lst at that dir
then open menu.lst at a text editor (double click on menu.lst)
add the line splashimage /boot/grub/file.xpm.gz before the title of your first operating system in menu.lst
---------------------an example menu.lst----------
splashimage /boot/grub/file.xpm.gz
#Hope that one below is your first operating system in the menu
title Microsoft Windows XP
rootnoverify (hd0,0)
# Windows 9x, me line: chainloader+1
# WIndows XP line:chainloader = (hd0,0)+1
# Yay, viva gorditas
title Debian/X11/GNOME/GNU/etc Linux (2.4.18-bf2.4)
kernel /boot/kernels/vmlinuz-2.4.18-bf2.4 root=/dev/hda5 console=ttys0 vga=791
--------------------------------------------------------------------------------------------
save menu.lst . Restart your system Hope you will get it

Welcome

hello you are welcome to my blog