3727e41de1
put in 'USER.CLIST' with name jcmacro. INSTALLATION Copy the JC macro to the user SYSPROC library. You can obtain the SYSPROC library list by typing this command from the TSO command line: tso isrddn Press F8 until you find the DDname SYSPROC. On the right is the dataset name list allocated to the DDname SYSPROC. Copy the JC macro into one of these libraries (User.lib.exec). SET-UP To follow your jobcard standards you must modify the following statements: Line # 6 ->STMT2="// NOTIFY="USERID()",REGION=8M,CLASS=A" Modify the REGION and CLASS parameters appropriately: Line # 3Ø and 31 -> STMT1 = "//"USERID()||CJNUM||, © 2005. Reproduction prohibited. Please inform Xephon of any infringement. 5 " JOB (ACCNT-INFO),'"||PGMRNAME||"',MSGCLASS=R," Modify the ACCNT-INFO and the MSGCLASS parameter. USAGE The JC macro has only one parameter, the programmer name, and can be used with or without the parameter. Edit a dataset, which can be full or empty, and type JC in the TSO command line. The jobcard will be inserted automatically. JC without parameters: EDIT USER.LIB.TEST(memØ1) - Ø1.73 Columns ØØØØ1 ØØØ72 Command ===> JC Scroll ===> HALF ****** ************************** Top of Data ************************** '''''' '''''' '''''' After you have pressed the Enter key, the following screen will be shown: EDIT USER.LIB.TEST(memØ1) - Ø1.74 Columns ØØØØ1 ØØØ72 Command ===> Scroll ===> HALF ****** ************************** Top of Data ************************** ØØØØØ1 //USERIDØ1 JOB (ACCNT-INFO),'PGMRNAME',MSGCLASS=R, ØØØØØ2 // NOTIFY=USERID,REGION=8M,CLASS=A ØØØØØ3 //*** JOB CARD GENERATED AUTOMATICALLY *** JC with parameters: EDIT USER.LIB.TEST(memØ1) - Ø1.73 Columns ØØØØ1 ØØØ72 Command ===> JC MY NAME Scroll ===> HALF ****** ************************* Top of Data *************************** '''''' '''''' '''''' The parameter can have a maximum length of 18 characters. If the length exceeds 18 characters, the macro automatically selects only 18.
MVS Utilities
this repository includes some very useful utilities for people working with MVS, z/OS on real mainframes or emulated ones.
-
recv390 is a receive command for Linux or Windows. It extracts XMIT files. recv390 is by James Morrison. I made some fixes and somall enhancement to the program. compile simply with gcc -o recv90 recv390.c.
-
SYCPLK.ccdk is a 3390-3 volume (SYSCPK) which incluedes about 10 or 12 compilers for the mainframe, including:
- PLI F compiler
- Cobol compiler from the 60s
- RPG compiler
- PL/360 compiler
- Pascal compiler
- the amazing aSSIST assembler
- Simula compiler
- and many other goodies.
Simply mount the volume on your system, add it to the VTLST00 member as private, and then extend your JES2 to use the included SYS2.PROCLIB on SYSCPK. This proclib has procedures for all the included compilers. The run-time libraries, like SYSC.PLILIB are of course included in the volume.
I tested in on everything from MVS 3.8 to OS390 all the way to z/OS 1.13 and it works beautifully. There is also a version of this volume on 3350 disk image, but OS390 and up don't have support for such old disks anymore. Copying stuff over to a 3390 disk isn't trivial because of the blocking required by certain compiler libraries. In short, there is a need for this volume.
-
sort.jcl is a sort job which stresses a Tk4 MVS 3.8 by creating millions of random records and then using IBM sort to sort them.
-
the amazing standalone operating system for S/360 from Prof Madnick's seminal book on operating system. I also include the assembly output.
-
my .vimrc file for VIM. It color highlights correctly JCl and assembler for S/370.
-
my PL/I implementation of the N x N queens problem
-
Sorichetti's vpwpc output seprator for Hercules printers
-
The usefuljcl/ directory contains very useful JCL jobs which you will use on adaily basis as a MVS or z/OS SYSPROG
-
a calculator for ideal blocksize given a DASD type and a logical record length, written by me in Go language. It's called blocksize.go and I also inlude a Linux 64bit binary
-
the PC370 source code for the simply amazing S370 assembler which runs in MS-DOS.
Enjoy!
moshix