About these ads

Get ready for zOS Version 2 release 1   1 comment


The next zOS update (Version 2 release 1) is coming in 2013 September. There are many new cool features added to zOS 2.1. The new zOS requires IBM System z9 or higher hardware to run.

Read more about zOS 2.1 at IBM page.

http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?subtype=ca&infotype=an&appname=iSource&supplier=877&letternum=ENUSZP13-0013

 

About these ads

Submit or Retrieve Jobs with FTP / Alternative For Remote Job entry (RJE)   1 comment


This post is about an alternative for remote job entry, you can use the TCP/IP FTP service in zOS and a Shell/command prompt to retrieve, List, and submit Jobs to Mainframe.

Basic Commands used in this article

FTP                   – To start FTP
Open remore_system_ip – To connect to host via FTP
QUOTE site filetype=JES     – Connect to JESPLEX, (conect to JES in layman terms)
DIR                   – List Jobs
Get filename          – Get Job dataset from remote system
PUT filename          – Submit Job

Make Sure that the FTP is up and running in your mainframe system.

You can do this by find the “TCPIP” job in your spool.

Connect to Mainframe via FTP

Open the command prompt/Shell and Enter FTP.
Enter Open your mainframe_host_ip
Enter your user ID followed by password

C:\>ftp
ftp> open demomvs.demopkg.ibm.com

Connected to demomvs.demopkg.ibm.com.
220-FTPD1 IBM FTP CS V1R13 at demomvs.demopkg.IBM.COM, 05:53:23 on 2012-11-30.
220 Connection will close if idle for more than 5 minutes.
User (demomvs.demopkg.ibm.com:(none)): dds1764
331 Send password please.
Password:
230 DDS1764 is logged on.  Working directory is “DDS1764.”.
ftp>

At this point you are connected to MVS subsystem,  if you issue a DIR you can see your MVS datasets, issue SITE FILETYPE=JES to get connected to JESPLEX

ftp> quote site filetype=jes
200 SITE command was accepted

Issue a DIR command to see the jobs.

Unlike SDSF, the dir command display the last ran job, first in the list

ftp> dir
200 Port request OK.
125 List started OK for JESJOBNAME=DDS1764*, JESSTATUS=ALL and JESOWNER=DDS
JOBNAME  JOBID    OWNER    STATUS CLASS
DDS1764J JOB01982 DDS1764  OUTPUT A        RC=0000 6 spool files
DDS1764J JOB01683 DDS1764  OUTPUT A        RC=0000 6 spool files
DDS1764J JOB01682 DDS1764  OUTPUT A        RC=0016 6 spool files
DDS1764J JOB01681 DDS1764  OUTPUT A        RC=0016 6 spool files
DDS1764J JOB01680 DDS1764  OUTPUT A        RC=0016 6 spool files
DDS1764J JOB01678 DDS1764  OUTPUT A        RC=0016 6 spool files
DDS1764J JOB01676 DDS1764  OUTPUT A        RC=0016 6 spool files
DDS1764J JOB01675 DDS1764  OUTPUT A        RC=0016 6 spool files
DDS1764J JOB01673 DDS1764  OUTPUT A        RC=0016 4 spool files
DDS1764J JOB01672 DDS1764  OUTPUT A        RC=0016 4 spool files
DDS1764J JOB01667 DDS1764  OUTPUT A        RC=0016 5 spool files
DDS1764J JOB01665 DDS1764  OUTPUT A        RC=0012 4 spool files
DDS1764J JOB01662 DDS1764  OUTPUT A        (JCL error) 3 spool files
DDS1764C JOB00417 DDS1764  OUTPUT A        RC=0000 6 spool files
DDS17641 JOB00414 DDS1764  OUTPUT A        RC=0012 4 spool files
DDS1764E JOB05786 DDS1764  OUTPUT A        RC=0000 4 spool files
DDS17641 JOB04559 DDS1764  OUTPUT A        RC=0000 5 spool files
DDS17641 JOB04557 DDS1764  OUTPUT A        RC=0012 4 spool files
DDS17641 JOB04555 DDS1764  OUTPUT A        RC=0012 4 spool files
DDS17641 JOB04498 DDS1764  OUTPUT A        RC=0012 4 spool files
DDS1764  TSU01992 DDS1764  ACTIVE TSU
250 List completed successfully.
ftp: 1430 bytes received in 0.70Seconds 2.03Kbytes/sec.
ftp>

Issue DIR JOBID to see the files associated with the JOB

ftp> dir JOB01982
200 Port request OK.
125 List started OK for JESJOBNAME=DDS1764*, JESSTATUS=ALL and JESOWNER=DDS1764
JOBNAME  JOBID    OWNER    STATUS CLASS
DDS1764J JOB01982 DDS1764  OUTPUT A        RC=0000
——–
         ID  STEPNAME PROCSTEP C DDNAME   BYTE-COUNT
         001 JES2              A JESMSGLG      1137
         002 JES2              A JESJCL         425
         003 JES2              A JESYSMSG      4303
         004 STP010            A SYSOUT        2645
         005 STP010            A JNF1JMSG      2746
         006 STP010            A JNF2JMSG      2746
6 spool files
250 List completed successfully.
ftp: 500 bytes received in 0.00Seconds 166.67Kbytes/sec.

Issue GET JOBID.n “destination_file” to ftp the job files from Mainframe to your machine. If you issue GET JOBID.n (n is a number) you will get the nth file from JOB, if it is GET JOBID.X you will get all the files belongs to that JOB

ftp> get JOB01982.x “C:\temp1\JOB01982.x.txt”
200 Port request OK.
125 Sending all spool files for requested Jobid
250 Transfer completed successfully.
ftp: 22154 bytes received in 1.53Seconds 14.47Kbytes/sec.
ftp> get JOB01982.1 “C:\temp1\JOB01982.1.txt”
200 Port request OK.
125 Sending data set DDS1764.DDS1764J.JOB01982.D0000002.JESMSGLG
250 Transfer completed successfully.
ftp: 1312 bytes received in 0.00Seconds 1312.00Kbytes/sec.
ftp>

Issue PUT “JCLL_location”  (JCLL_location is the JCL file path in your local machine). Eg. in my Machine the JCL is located at “C:\temp1\sort_jcl.txt”

image

ftp> put “C:\temp1\sort_jcl.txt”
200 Port request OK.
125 Sending Job to JES internal reader FIXrecfm 80
250-It is known to JES as JOB02315
250 Transfer completed successfully.
ftp: 754 bytes sent in 0.37Seconds 2.02Kbytes/sec.
ftp>

Issue DIR to see the latest JOB

250 Transfer completed successfully.
ftp: 754 bytes sent in 0.37Seconds 2.02Kbytes/sec.
ftp> dir
200 Port request OK.
125 List started OK for JESJOBNAME=DDS1764*, JESSTATUS=ALL and JESOWNER=DDS1764
JOBNAME  JOBID    OWNER    STATUS CLASS
DDS1764J JOB02315 DDS1764  OUTPUT A        RC=0000 6 spool files
DDS1764J JOB01982 DDS1764  OUTPUT A        RC=0000 6 spool files
DDS1764J JOB01683 DDS1764  OUTPUT A        RC=0000 6 spool files
DDS1764J JOB01682 DDS1764  OUTPUT A        RC=0016 6 spool files
DDS1764J JOB01681 DDS1764  OUTPUT A        RC=0016 6 spool files

 

Guys try this yourself, if this post helped you, don’t forget to Comment/like/share the page and of course visit the below advertisement.

Cheers- Shibu Thannikkunnath

Installing and configuring 3270 Terminal emulator in Mac   Leave a comment


Step 1. Download 3270 client for MAC OSX

Download tn3270 from here – http://www.brown.edu/cis/tn3270/index.html#latest . When I’m writing this article the latest version of tn3270 is 3.3b6 (beta). It worked perfectly in my 2012(mid) Macbook pro Retina display.

Step 2. Mount the dmg and open the disk in finder.

Screen Shot 2012-11-29 at 7.46.32 PM

Step 3. Copy tn3270x Application file to your applications folder

Step 4. Invoke tn3270x by double clicking on the application

Screen Shot 2012-11-29 at 7.50.15 PM

Fill your hostname on “Host Name” field. By default the port will be 23, but if you want you can change the port number by clicking on “Special” Button

Screen Shot 2012-11-29 at 7.52.40 PM

Once you are done with your settings, click on “open connection” Button.

Screen Shot 2012-11-29 at 7.55.50 PM

I have used Fandezhi/efglobe mainframe, it is a free mainframe and can be used for your skills development. If you want to know more about creating an id, visit my post about getting a free mainframe id (http://mainframegeek.me/2012/11/23/free-mainframe-id-to-practice/)

That’s it; you know how to go from here J Hey guys, if this post helped you, subscribe for my posts, share it or like my Facebook page.

Cheers –Shibu-

          

 

Declare numeric field with More than 18 Digits in Cobol   2 comments


Have you ever wondered about the 18digits maximum limit of Numerical variable declaration (PIC 9(18) ) in Cobol?

Well you can override it in Enterprise Cool, or in other words if Language environment (a.k.a LE) is available at your shop. The Language environment is introduced back in 2000 by IBM, which is a common application layer for many Programming languages. The LE has a lot of cool features which I’ll be covering future posts. So keep coming back.

Here is a sample program for Numeric field declaration with more than 18 digits. The Compiler directive (CBL) is that really turning the ship around.

This compiler-directing statement selectively suppresses output or causes output to be produced. The keywords *CONTROL and *CBL are synonymous.

The Program logic is simple its just move a 31 digit number to the number 1 variable, then add it with itself and display it.

If you Don’t have mainframe access to try it out, visit my post on getting a free mainframe id, it really helps.  http://mainframegeek.me/2012/11/23/free-mainframe-id-to-practice/ . It’s a raw mainframe so you won’t be getting handy compile JCL on this mainframe, let me know if you need one, I can help you.

 CBL ARITH(EXTEND)
IDENTIFICATION DIVISION.
PROGRAM-ID. COB18DIG.
AUTHOR.     SHIBU.T.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
77  WS-NUM1                      PIC 9(31).
*
PROCEDURE DIVISION.
A0000100-MAIN-PARA.
MOVE 1234567890123456789012345678901
TO WS-NUM1.
DISPLAY ‘WS-NUM1 BEFORE ADDITION: ‘ WS-NUM1.
ADD WS-NUM1                 TO WS-NUM1.
DISPLAY ‘WS-NUM1 AFTER ADDITION: ‘ WS-NUM1.
STOP RUN.

 

The compile and run JCL will complete with return-code 000, here is the output I got in my machine.

image

Does my Program, post helped you? Comment, rate or like my facebook page (top right corner of this page) and click on the adds listed below. It really help me to make this website alive.

-Cheers, Shibu

Free Mainframe ID to practice.   75 comments

Setup FTP from Mainframe to Non-Mainframe Method III   2 comments


Using Microsoft IIS –FTP (Internet Information Services

As I Promised beginning of this series, here is the third method to transfer files from Mainframe to non Mainframe (Windows) . I have used Windows 7 X64 professional Operating system on my laptop and Internet Information Server 7.5.

You could also read other methods I’ve written about FTP’ing files from IBM Mainframe to Windows. These methods are easy to use and utilizes the free resources available in IBM Mainframe as well as Windows/free wares.

1. Simple FTP with Windows Bat file – http://mainframegeek.me/2012/11/20/setup-ftp-from-mainframe-to-non-mainframe-method-ii-using-bat-file/

2. Setup FTP with Filezilla server.

http://mainframegeek.me/2012/09/12/setup-ftp-from-mainframe-to-personal-computermethod-i-using-filezilla-server-on-windows/

3. Setup FTP with IIS (Internet Information Service) FTP server.

http://http://mainframegeek.me/2012/11/23/setup-ftp-from-mainframe-to-non-mainframe-method-iii/

By default Windows comes with Internet Information services. You just need to turn them on.

1. Turn On FTP server in Internet Information Services.

Navigate to Control Panel>Programs and features/Add or remove programs, and click on Turn windows features on or off. It will take  a while to turn on the service.

clip_image002_thumb[2]

2. Add a directory to our FTP server service

Navigate to Control Panel>Administrative tools and open Internet Information services

image

Right click on the FTP area and select View sites,

image

Now right click on the workspace and select add FTP site

Enter a FTP site name and choose directory where you want your incoming (From Mainframe) files stored to.

 clip_image008_thumb[2]

Click on next, select an IP Address (Copy to a text file for using in JCL) make sure you selected No SSL (you won’t be able to transfer files otherwise) and click on next. remember I said in the first method, FTP always uses port 21, so leave it as it is.

image

Click on Next and Enable anonymous authentication (or you can use a user id and password) and hit finish

clip_image012_thumb[2]

On the sites window, right click the FTP site you just created and select Basic Settings

3. Enable windows security

Click on connect as , then select specific user and click on set and enter your windows user id and password

image

Hit Ok for all the dialog boxes and go back to mainframe and edit your JCL as below

4. Submit FTP job from Mainframe

Copy paste the below JCL to your ISPF editor, make the changes as I mentioned below·

  • //STEP001 EXEC PGM=FTP,PARM=’255.255.255.0 —- Change IP address to the one you copied to text file during FTP server setup  (Step 2)
  • update windows (Same credentials you entered on Basic settings window) userid/pasword and file list on //INPUT DD*
  • Update your Data set names followed by the filename on windows on PUT statement

Complete JCL

//DDS1764J JOB NOTIFY=DDS1764
//STEP001 EXEC PGM=FTP,PARM=’255.255.255.0 (EXIT’
//SYSPRINT DD SYSOUT=*
//OUTPUT DD SYSOUT=*
//INPUT DD *
Windows_user_id
Windows_user_password
DIR
PUT ‘DDS1764.PGMG.CBL(FLEPGM)’ ToIIS.txt
QUIT

Now Submit the JCL (it will complete with MAXCC 000). Due to security issues (I don’t want some spammer to submit random FTP jobs to my PC Winking smile ) I have blurred my ip address.

image 

Then check your shared folder (On your PC) for received file. Did you forget your shared folder? refer back to step 2 to see the folder.

· image

and That’s it now you are familiar with the 3 FTP methods which I know, FTP with IIS as well as Filezilla are same in a way, just the server software on the windows system is changing.

Try these three methods, let me know if you know any other methods (leave a comment on this page or email me @ shibubalakrishnan@live.com). 

If this tutorial helped you, please share the page on facebook, like it and please support me by clicking on the below ads.

Setup FTP from Mainframe to Non-Mainframe –Method II using Bat file   2 comments


Here is another method with which you can transfer files from Mainframe to a windows Machine. To use this method you need to have a .Bat file and a file with list of files need to be transferred and valid Mainframe credentials.

You could also read other methods I’ve written about FTP’ing files from IBM Mainframe to Windows. These methods are easy to use and utilizes the free resources available in IBM Mainframe as well as Windows/free wares.

1. Simple FTP with Windows Bat file – http://mainframegeek.me/2012/11/20/setup-ftp-from-mainframe-to-non-mainframe-method-ii-using-bat-file/

2. Setup FTP with Filezilla server.

http://mainframegeek.me/2012/09/12/setup-ftp-from-mainframe-to-personal-computermethod-i-using-filezilla-server-on-windows/

3. Setup FTP with IIS (Internet Information Service) FTP server.

http://http://mainframegeek.me/2012/11/23/setup-ftp-from-mainframe-to-non-mainframe-method-iii/

Copy the contents of below table and save it as script.txt. You can save anywhere you want, I saved it on C:\temp1 folder. Change my_mainframe_userid and my_mainframe_password to your mainframe user id and password. By default the your HLQ (High level qualifier) will be your mainframe id, so whatever DD names you mention in the script file will have HLQ (High level Qualifier) padded, e.g HLQ.DDS1764.PGMG.CBL(ASCEBCB1) ,

To avoid this, we issue  cd ..    . Update the DD names with your list of data set names, you can either use PDS member names, a PS or Compressed (xmited) PDS or everything. there is no limit for the number of files, but keep in mind that this could eat a lot of bandwidth, followed by the destination file. Save this file as script.txt in your windows machine.

my_mainframe_userid
my_mainframe_password
cd ..
get “DDS1764.PGMG.CBL(ASCEBCB1)”  “C:\temp101.txt”
get “DDS1764.PGMG.CBL(ASCED)”  “C:\temp102.txt”
get “DDS1764.PGMG.CBL(ASMLNK1)”  “C:\temp103.txt”
get “DDS1764.PGMG.CBL(COB18DIG)”  “C:\temp104.txt”
get “DDS1764.PGMG.CBL(DIVZERO)”  “C:\temp105.txt”
quit

Copy the contents of below table and save it as batchftp.bat .   Before oyu save the file, change my_mainframe_ip  to your mainframe host ip for name. when you save the file from Microsoft notepad, make sure you choose file name: batchftp.bat and Save as type: All Files (*.*) .

echo off
cls
echo Batch FTP From Mainframe to Windows
echo   ***** Created by Shibu Thannikkunnath
echo   ***** mainframegeek@hotmail.com
echo   ***** http://mainframegeek.me
pause
ftp -s:script.txt my_mainframe_ip
exit
pause

 

Make sure you keep both the script.txt as well as the batchftp.bat file in the same folder. Now double click on the batchftp.bat to start download.  Once the script finished you can see all the transferred files in the folder mentioned in script.txt.

image

 

Try the script, let me know if you have any questions. If you think this tutorial helped you, don’t forget to like my facebook page, rate or share.  and support me by watching the below video (Ad)

-Cheers

Shibu

%d bloggers like this: