Mainframe Tips: 2008

Saturday, December 20, 2008

Thursday, December 11, 2008

Cooking tips and recipies

A new blog for cooking tips, breakfast, lunch, dinner, snacks and other recipes launched.

Monday, December 1, 2008

Banana Pudding recipe and Mangolian Banana Pudding

My new article about Banana Pudding recipe and Mangolian Banana Pudding is published.

Two-Exotic-and-Healthy-Banana-Puddings

My new article about Two-Exotic-and-Healthy-Banana-Puddings has been published.

Sunday, November 30, 2008

Universal Fast and furious Tokyo drift fight scene

10 Sureshot Ways to Retain or Regain Youthful Look

Eating natural food close to its natural state helps ensure maximum exposure to youth enhancing nutrients, many of which are lost during storage, processing, and cooking. It also reduces your exposure to artificial additives used to enhance the flavor, texture, color, and shelf-life of processed foods, from pre-prepared meals to diet dishes.

10 Life Changing Websites and Best RSS Feeds

10 extremely useful websites which you should never miss out. Hook them to your RSS reader and you will never be behind the race.

Tuesday, November 25, 2008

Cylinder to GB space calculation

1 Cylinder = 55,996 * 15 = 839,940 bytes.

so 1000 cylinders = 839,940 * 1000

1 Megabyte = 1,048,576 (2 to the 20th power) bytes.

1000 cylinders = (839,940 * 1000 ) / 1,048,576 = 801.029 MB

1 terabyte = 2 to the 40th power or approximately a thousand billion bytes (that is, a thousand gigabytes).

1000 cylinders = (839,940 * 1000 ) / (1,048,576 * 1,048,576 ) = .000763 Terabytes

Saturday, September 20, 2008

Batch JCL to FTP

//FTP00001 EXEC PGM=IKJEFT01,DYNAMNBR=50
//OUT DD SYSOUT=*
//AMSDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//OUTPUT DD SYSOUT=*
//INPUT DD *
IP Address
Userid
password
pwd
ascii
Your Pc Path
pwd
GET 'YOUR.MAINFRAM.FILE' YOUR_PC_FILE.TXT
QUIT
/*
//SYSTSIN DD *
FTP (EXIT
/*

JCL TO FTP FROM TEST SITE TO PRODUCTION

//STEP0100 EXEC PGM=FTP
//SYSPRINT DD SYSOUT=*
//INPUT DD *
ip addr of prod datacenter
userid
password
LOCSITE LRECL=nnn
LOCSITE BLKSIZE=nnnnn
LOCSITE RECFM=FB
PUT 'your test ftp file' 'your prod ftp file'
//OUTUT DD SYSOUT=*
//*

Here is a simple rexx exec to find the ip address

Code:

/* REXX */
PARSE VALUE SOCKET('INITIALIZE', 'TEST') WITH RC . . SERVER
PARSE VALUE SOCKET('GETHOSTID') WITH RC IP
SAY IP
EXIT

How to transfer a dataset from mainframe to PC thru FTP ?

How to transfer a dataset from mainframe to PC thru FTP ?

1) Find the IP address of the mainframe system you are transmitting from.
Go ot ISPF option 6(command)
- type PING DIPN then hit ENTER
- Look for a message like the one below to find the IP address
148.171.100.2

2) Go to a DOS Prompt (COMMAND PROMPT in WINDOWS 2000) on your PC
- Type FTP then hit ENTER
- Type OPEN 148.171.100.2(i.e ip_address)
- Hit ENTER
- Enter your TSO ID and PASSWORD
- Enter the RECV command to receive the mainframe file down to your PC
RECV 'WXX262.SE.SED103.SE585.NEW' c:\temp\yourfile.txt
- Type CLOSE and hit ENTER
- Type BYE then hit ENTER to exit

Mainframe Tips