IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

girl vs mainframe (just a joke)


IBM Mainframe Forums -> General Talk & Fun Stuff
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
chenxuehua

New User


Joined: 28 Nov 2005
Posts: 14
Location: Shanghai China

PostPosted: Sat Dec 31, 2005 7:13 pm
Reply with quote

IDENTIFICATION DIVISION.
PROGRAM-ID.chenxuehua.
DATA-WRITEN.31/12/05.
DATA-COMPILED.31/12/05.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUTFILE ASSIGN TO OUTFILE ORGANIZAION IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD GIRLFILE.
FD COMPUTERFILE.
WORKING-STORAGE SECTION.
01 ROL PIC X(????).
01 PROBLEM.
04 ANSEWER PIC X(?).
01 DOING.
04 YOURWORD PIC X(?).
04 YOURWORK PIC X(?).
01 mood.
04 yourmood pic x(?).
04 girlmood pic x(?).
PROCEDURE DIVISION.
love-BEGIN.
IF ROL = 'GIRL' THEN
YOURMOOD = 'HAPPY'
IF ROL = 'COMPUTER' THEN
YOUMOOD = 'DULL'
END-IF .
love-WORK.
IF YOURWORD = '好听' THEN
GIRLMOOD = 'HAPPY'
IF YOURWORD = 'DULL' THEN
GIRLMOOD = 'UNHAPPY'
IF YOURWORD AND YOURWORK = 'WRONG'
THEN
GO TO END
//love will be ended,you never have the second chance.


IF ROL = 'COMPUTER'
IF YOURWORD = 'TRUE' THEN
COMPUTER WILL RUN
IF YOURWORD = 'WRONG' THEN
SYSTEM OUT (' ERROR COMMAND')
GOTO BEGIN.
//the system will tell you where is wrong, and you can try again
END-IF.
love-END.
just a joke happy newer everyone! from Shanghai China
Back to top
View user's profile Send private message
chenxuehua

New User


Joined: 28 Nov 2005
Posts: 14
Location: Shanghai China

PostPosted: Sat Dec 31, 2005 7:20 pm
Reply with quote

oh i forgot that:

girl will give you son or daughter ,but computer will help you make money.
which is better?
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL

PostPosted: Sun Jan 01, 2006 10:29 am
Reply with quote

chen...

Wonderful attemp to synchronize two biggest mysteries on the earth. icon_lol.gif

Priyesh.
Back to top
View user's profile Send private message
chenxuehua

New User


Joined: 28 Nov 2005
Posts: 14
Location: Shanghai China

PostPosted: Sun Jan 01, 2006 12:44 pm
Reply with quote

i really don't know what's the girl thinking for?
especially Chinese girl.
Back to top
View user's profile Send private message
khamarutheen

Active Member


Joined: 23 Aug 2005
Posts: 677
Location: NJ

PostPosted: Mon Jan 02, 2006 12:03 pm
Reply with quote

Hi chen,

Quote:
i really don't know what's the girl thinking for?
especially Chinese girl.


Not only the Chinese gal,,,, All the gals are difficult to judge... Any way a good try icon_smile.gif
Back to top
View user's profile Send private message
chenxuehua

New User


Joined: 28 Nov 2005
Posts: 14
Location: Shanghai China

PostPosted: Thu Jan 05, 2006 6:46 pm
Reply with quote

Yes,every girl gives you only on chance.
If you do something wrong......
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> General Talk & Fun Stuff

 


Similar Topics
Topic Forum Replies
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Mainframe openings in Techmahnidra fo... Mainframe Jobs 0
No new posts Mainframe Programmer with CICS Skill... Mainframe Jobs 0
No new posts How to Reformat a file using File Man... All Other Mainframe Topics 14
No new posts NDM getting stuck - mainframe/JCL All Other Mainframe Topics 13
Search our Forums:

Back to Top