St Joseph’s Academy – Dehradun Alumni Site Launched – http://alumni.stjosephacademy.net/

Well,

A very good initiative by 3 josephites. The St Joseph’s Academy Alumni Site has been launched.

The link to the site is St Joseph’s Academy Alumni Site .

Thanks a lot to the creators of the site.

Hindi Movie Reviews/Bollywood Movie Reviews

One of my friends is a movie freak and his knowledge about hindi movies is really very commendable; he just started his own hindi movie review blog on blogspot.

link :- http://gaushi.blogspot.com/

his review on mohandas is really a very good one .

link :- http://gaushi.blogspot.com/2009/09/movie-review-mohandas-2009.html

KUDOS to you GAURAV…..u ROCK man..one day you will become a movie critic and host your own show on a news channel or maybe write for some leading nespaper…ALL THE BEST BUDDY.

ONLINE FOOD BOOKING IN NCR – makemythali.com

Recently, I was surfing the web and came across this site makemythali.com

It is a very good concept and I think it’s the first site to do so in NCR.
It allows you to order food from a variety of resturants from your PC.
The site has been recently lauched as there are not many resturants
with which they have linked up, but none the less good for starting up.

The idea is very popular in Bangalore and other cities but not as popular in
North India, but a good initiative none the less.

 

MakeMyThali.com has become all in one eating resource featuring interactive menus, online ordering for lunch and dinner, and exclusive discounts from your favorite restaurants.

MakeMyThali offers fast and easy online food ordering from hundreds of local restaurants & merchants.

The top ordering site for delivery. We make ordering fast & easy. Plus you earn free chilly points with every order.

No Need to go anywhere just place your request to MakeMyThali and enjoy the meal.

MakeMyThali.com has become all in one dining resource with interactive menus, online ordering for lunch and dinner, and exclusive discounts from your favorite restaurants.

Now enjoy hot fresh food delivered straight to your doorstep.

MakeMyThali offers fast and easy online food ordering from hundreds of local restaurants with special discounts for corporate employees.

The top ordering site for food delivery has made food ordering fun & easy because you earn free chilly points with every order which can be redeemed for gifts.

No Need to go anywhere just place your request to MakeMyThali and enjoy the meal.

Started servicing in Delhi NCR(Noida, Ghaziabad, Faridabad, Gurgaon)….coming soon to other metros.
Hottest food delivery website MakeMyThali.com is becoming necessity of Delhi NCR people. Website is offering online ordering for multiple cuisine food, and exclusive discounts from your favorite restaurants.
Now enjoy fresh hot food delivered straight to your doorstep.
MakeMyThali offers fast and easy online food ordering from hundreds of local restaurants with special discounts.
There is no need to search for restaurant menu in your drawer just log on to MakeMyThali.com and order the food of your choice.
Started servicing in Delhi NCR(Noida, Ghaziabad, Faridabad, Gurgaon)…coming soon to other metros.

Liquid Smoking!

London: A Dutch company has come up with a non-nicotine based soft drink which gives off a sensation akin to smoking cigarettes.

The drink, ‘Liquid Smoking,’ comes in a 275ml can shaped like a cigarette packet and will cost £1.50 when introduced in Britain shortly.

It is an energy drink laced with South African herbs, which gives off “a slight energising effect, followed by a euphoric sense of calming and relaxation.”

It has been on sale in the Netherlands for nearly a year now, and the Dutch company, United Drinks and Beauty Corporation, plans to launch it in Britain close to Christmas, The Telegraph has reported.

There is no lower age limit to buy it, but the manufacturer believes it should not be drunk by anyone under 15.

Company chief executive Martin Hartman told The Telegraph: “The product we have developed has got similar properties to nicotine, so we are trying to help people out who are affected by the ban on nicotine.”

People might use this instead of a cigarette or tobacco to help the cravings. “It will take the edge off of a need for nicotine for between one to four hours.”

Anti-smoking groups in Britain are concerned as such alternatives to smoking are unregulated and users have only the manufacturers’ word about what they actually contain.

Source – http://sify.com/news/fullstory.php?id=14784950

RAILWAY RESERVATION – SCHEME Programming

THANKS TO SATYA FOR THE CODE – satish.smart@rediffmail.com

;;—————————————————————————————-
;; Database
;;—————————————————————————————-
;; Data definition :
;; (define-struct train(source destination train-no no-of-seats-ac no-of-seats-nonac))
;; train is a structure: (make-train ‘kolkata ‘chennai 1234 24 89)) where source is a symbol, destination is a symbol, train-no is a number, no-of-seats-ac is a number, no-of seats-nonac is a number.

(define-struct train(source destination train-no no-of-seats-ac no-of-seats-nonac))

;; Data definition :
;;(define-struct passenger-id(name age sex class train-no seat-no))
;; passenger-id is a structure: (make-passenger-id ‘azhar 21 ‘m ‘ac 1234 50)) where name is a symbol, age is a number, sex is a symbol, class is a symbol,train-no is a number ,seat-no is a number.
(define-struct passenger-id(name age sex class train-no seat-no))

(define train1(make-train ‘kolkata ‘chennai 1234 24 89))
(define train2(make-train ‘kolkata ‘chennai 1235 24 89))

;(define passenger1(make-passenger-id ‘azhar 20 ‘m ‘ac 1234 88))
;(define passenger2(make-passenger-id ‘azhar 20 ‘m ‘ac 1234 87))

;train_list is list of structure train.
(define train_list(list train1 train2))

;passenger_list is a list of structure passenger list.
(define passenger_list (list ))
;;—————————————————————————————-

(define Userid “Enter administrator id:: “)
(define Password “Enter password:: “)
;; Data definition :
;; (define-struct administrator(admin_id admin_password))
;;where admin_id is a symbol and admin_password is a symbol
;;(define admin (make-administrator ‘mahesh ‘rahul))
(define-struct administrator(admin_id admin_password))

(define admin_list ‘())
;;Contract: me-user : string -> void
;;Purpose: To display a massage and generate a input box to take input.
;;Example: (me-user “Enter a number: “)
;; Enter a number:
(define (me-user admin)

(display admin)
(read))

;;Contract: me-admin : string -> void
;;Purpose: To display a massage and generate a input box to take input.
;;Example: (me-admin “Enter a number: “)
;; Enter a number:
(define (me-admin me)

(display me)
(read))

;;contract:check-login:symbol symbol => boolean
;;purpose:to input the username and password and check whether the user name and password matches or not
;;example (check-login ‘mahesh ‘rahul)
;;=>1
(define (check-login id password)
(set! admin_list (append (list (make-administrator 1234 ‘rahul)) admin_list))
(if (not(eqv? id (administrator-admin_id (car admin_list)))) 0
(if (not(eqv? password (administrator-admin_password(car admin_list)))) 0
1
)))

(load “database.ss”)
(load “fun.ss”)
(load “adminfunc.ss”)
;;(load “prompt.ss”)
;;(load “supportivefunctions.ss”)

;;****************************************************************************************
;; Main Menu
;;****************************************************************************************
;;Contract: main-menu : void -> void
;;Purpose: To display main menu and taking input for the options.
;;Example: (main-menu)
; ****************************************************************************************
; RESERVATION FOR RAILWAYS
; ****************************************************************************************
; MAIN MENU
; ****************************************************************************************
; 1. Admin Menu
; 2. Customer Menu
; 3. Exit
; Enter your Choice:
;;Definition:

(define (main-menu)
(newline)
(display “——————————-”)
(newline)
(display ” RESERVATION FOR RAILWAY “)
(newline)
(display “$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$”)
(newline)
(display ” MAIN MENU “)
(newline)
(display “——————————-”)
(newline)
(display ” 1. Admin Menu “)
(newline)
(display ” 2. Customer Menu “)
(newline)
(display ” 3. Exit “)
(newline)
(let ([choice (choice-read "Enter your Choice: ")])
(cond
[(number? choice)
(cond
[(= choice 1) (admin-menu)]
[(= choice 2) (customer-menu)]
[(= choice 3) (display "BYE BYE")]
[else (display "Entry is Wrong")(newline)(main-menu)]
)
]
[else (display "Enter a proper option...")(newline)(main-menu)]
)
))

;;****************************************************************************************
;; Admin Menu
;;****************************************************************************************
;;Contract: admin-menu : void -> void
;;Purpose: To display menu for the administrator and take input for it
;;Example: (admin-menu)
; ****************************************************************************************
; RESERVATION FOR RAILWAYS
; ****************************************************************************************
; ADMIN MENU
; ****************************************************************************************
; 1. Add new train
; 2. Remove train
; 3. Show updated
; 4. List of passanger in a train
; 5. exit
; Enter your Choice:
;;Definition:
(define (admin-menu)
(let ([id (me-user Userid)] [ps (me-admin Password)] )
(if (= 1 (check-login id ps))
(begin
(newline)
(display “************************************”)
(newline)
(display ” RESERVATION FOR RAILWAYS “)
(newline)
(display “***************************************”)
(newline)
(display ” ADMIN MENU “)
(newline)
(display “——————————-”)
(newline)
(display ” 1. Add new train “)
(newline)
(display ” 2. Remove train “)
(newline)
(display ” 3. Show Train list “)
(newline)
(display ” 4. Produce passenger list “)
(newline)
(display ” 5. exit “)
(newline))
(begin
(display “Enter a valid ID and password”)
(main-menu))))
(newline)
(let ([choice (choice-read "Enter your Choice: ")])
(cond
[(number? choice)
(cond
[(= choice 1) (add-train-details)]
[(= choice 2) (remove-train)]
[(= choice 3) (show-train-list)]
[(= choice 4) (show-passenger-list)]
[(= choice 5) (main-menu)]
[else (display "Wrong entry")(newline)(admin-menu)]
)
]
[else (display "Enter a proper option...")(newline)(admin-menu)]
)
))

;;****************************************************************************************
;; CUSTOMER MENU
;;****************************************************************************************
;;Contract: custome-menu : void -> void
;;Purpose: To display menu for the customer and taking input for the options.
;;Example: (customer-menu)
; ****************************************************************************************
; RESERVATION FOR RAILWAYS
; ****************************************************************************************
; Customer Menu
; ****************************************************************************************
; 1. Check Train Availability
; 2. Check Seat Availibility
; 3. Reservation
; 4. main menu
; Enter your Choice:
;;Definition:
(define (customer-menu)
(newline)
(display “————————————–”)
(newline)
(display ” RESERVATION FOR RAILWAYS “)
(newline)
(display “————————————–”)
(newline)
(display ” CUSTOMER MENU “)
(newline)
(display “————————————–”)
(newline)
(display ” 1. Check Train Availability “)
(newline)
(display ” 2. Check Seat Availibility “)
(newline)
(display ” 3. Reservation “)
(newline)
(display ” 4. Main menu” )
(newline)
(let ([choice (choice-read "Enter your Choice: ")])
(cond
[(number? choice)
(cond
[(= choice 1) (check-train-availability)]
[(= choice 2) (check-seat-availability)]
[(= choice 3) (reservation)]
[(= choice 4) (main-menu)]
[else (display "Wrong Entry..")(newline)(customer-menu)]
)
]
[else (display "Enter a proper option...")(newline)(customer-menu)]
)
))
;;****************************************************************************************
;; Accepting Input Values
;;****************************************************************************************
;;Contract: choice-read : string -> void
;;Purpose: To display a massage and generate a input box to take input.
;;Example: (choice-read “Enter a number: “)
;; Enter a number:
(define (choice-read msg)
(display msg)
(read))

(main-menu)

iPhone 3g UNLOCKED – HELL YEAH!

It’s been only a few days since the release of the new iPhone 3g , to be precise only 5 days and it has been unlocked. Apple must be ruing the fact that they did not change the hardware of the 3g so as to prevent it from getting unlocked so soon.

Here are the links which will provide you more information about the unlock.

http://gizmodo.com/5025249/iphone-3g-unlocked-with-sim-card-adapter

http://www.theiphoneblog.com/2008/07/15/iphone-3g-unlocked/

http://www.amitbhawani.com/blog/unlock-hack-apple-iphone-3g/

There is one hack which fakes the IMSI number and another one(which is not yet publicly available) which will hack it through the boot loader.

Regards to all the people who have worked hard for this.

Hell YEAH!!!!

COBOL CODE – Reading from a Sequential File

WRITE A COBOL PROGRAM WHICH READS THE LIBRARY FILE CONTAINING THE FOLLOWING INFORMATION -

NAME OF BOOK    AUTHOR    COST    OTHER INFORMATION
20 CHAR        20 CHAR

NOTE:-

1-THE FILE IS A SEQUENTIAL FILE OF LENGTH 80
2-THE FIELD LENGTHS ARE
BOOK NAME – 20 CHAR
AUTHOR – 20 CHAR
COST – 5 CHAR
OTHER INFO – 35

PROGRAM

IDENTIFICATION DIVISION.
PROGRAM-ID NETCOPY.
AUTHOR ROHIT.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT BOOKFILE ASSIGN TO BOOKDAT.
DATA DIVISION.
FILE SECTION.
FD BOOKFILE RECORD CONTAINS 80 CHARACTERS.
01 BOOKDETAILS.
88 ENDOFBOOKFILE VALUE HIGH-VALUES.
02 BOOKNAME PIC X(20).
02 BOOKAUTHOR PIC X(20).
02 BOOKCOST PIC 9(5).
02 BOOKOTHER PIC X(35).
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
BEGIN.
OPEN INPUT BOOKFILE
READ BOOKFILE
AT END SET ENDOFBOOKFILE TO TRUE
END-READ
PERFORM UNTIL ENDOFBOOKFILE
DISPLAY BOOKNAME SPACE BOOKAUTHOR SPACE
DISPLAY BOOKCOST SPACE BOOKOTHER
READ BOOKFILE
AT END SET ENDOFBOOKFILE TO TRUE
END-READ
END-PERFORM
CLOSE BOOKFILE
STOP RUN.

EXECUTE JCL FOR COBOL + Mainframe

000001 //RUNCOB JOB ‘LEM01′,’MAC’,CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=COBOL <= OBJ PRM NAME
000003 //STEPLIB DD DISP=SHR,DSN=IBMMFS.MAC.LOAD <= LOAD MODULE PDS
000004 //JCLFILE DD DISP=SHR,DSN=IBMMFS.MAC.PSFILE <=COBOL QSAM FILE-ID
000005 //SYSPRINT DD SYSOUT=* <= OUTPUT STREAM ( * = X )
000006 //SYSIN DD * <= INPUT STREAM
000007 25
000008 /*
000009 //

COMPILE AND RUN JCL FOR COBOL

****** ***************************** Top of Data **************************************
000001 //COBCOMP JOB ‘IBMMFS’,'MAC’,CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID

000002 //PROCLIB JCLLIB ORDER=IBMMFS.PROC.COBOL   <= CONTAINS IGYWCL
000003 //STEP1 EXEC IGYWCL,
000004 // PARM.COBOL=’LIB,APOST,XREF,MAP,OFFSET’    <= COMPILER OPTIONS
000005 //COBOL.SYSIN DD DISP=SHR,DSN=IBMMFS.MAC.SOURCE(COBOL) <= I\P PGM
000006 //LKED.SYSLIB DD DISP=SHR,DSN=IBMMFS.MAC.COPY(SUBCOB) <= COPYLIB
000007 //LKED.SYSLMOD DD DISP=SHR,DSN=IBMMFS.MAC.LOAD(COBOL) <= O\P PGM
000008 //SYSPRINT DD SYSOUT=*
000009 //
****** **************************** Bottom of Data ************************************

MAINFRAME CODE – JCL

//OZA195Z JOB OZA,’ROHIT’,MSGCLASS=A,MSGLEVEL=(1,1),CLASS=A,
copy ps

// NOTIFY=&SYSUID,PRTY=10,TIME=(1,1),REGION=0M
//STEP20 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//SYSUT1 DD DSN=OZA195.TEST1.DATASET,DISP=SHR
//SYSUT2 DD DSN=OZA195.TEST.COPY.HYD,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=0,DSORG=PS)
//SYSIN DD DUMMY
//

COPY PDS
//OZA195Y JOB OZA,’ROHIT’,MSGCLASS=A,MSGLEVEL=(1,1),CLASS=A,
// NOTIFY=&SYSUID,PRTY=10,TIME=(1,1),REGION=0M
//STEP20 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//SYSUT1 DD DSN=OZA195.TEST.PDS,DISP=SHR
//SYSUT2 DD DSN=OZA195.TEST.C.PDS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1,18),RLSE),UNIT=SYSDA,
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=0,DSORG=PO)
//SYSIN DD *
COPY INDD=SYSUT1,OUTDD=SYSUT2
/*
//

SORT PS
//OZA195S JOB OZA,OZA,MSGLEVEL=(1,1),TIME=(5,5),
// CLASS=A,MSGCLASS=A,NOTIFY=OZA195
//***************************************************
//*KEEP USERID IN PLACE OF OZAXXX IN JOBNAME OZAXXXRP
//*SAMPLE JCL REPRO/COPY DATA FROM PS TO VSAM
//***************************************************
//STEP01 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=OZA195.TEST1.DATASET,DISP=SHR
//SORTOUT DD DSN=OZA195.TER9.DATASET.NEW2,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// DCB=(LRECL=10,BLKSIZE=8000,RECFM=FB),
// SPACE=(CYL,(10,20),RLSE)
//SYSIN DD *
SORT FIELDS=(1,5,CH,A)
SUM FIELDS=NONE
/*

copy ps using IDCAMS
//OZA195Y JOB OZA,’ROHIT’,MSGCLASS=A,MSGLEVEL=(1,1),CLASS=A,
// NOTIFY=&SYSUID,PRTY=10,TIME=(1,1),REGION=0M
//STEP20 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO -
INDATASET(OZA195.SORT.DATASET)-
OUTDATASET(OZA195.SORT.DATASET.COPY)
/*
//