diff --git a/.recv390.c.swp b/.recv390.c.swp new file mode 100644 index 0000000..12b3363 Binary files /dev/null and b/.recv390.c.swp differ diff --git a/README.md b/README.md index 6496794..c4fc683 100644 --- a/README.md +++ b/README.md @@ -1 +1,25 @@ # mvs +this repository includes some very useful utilities for people working with MVS, z/OS on real mainframes or emulated ones. + +1. 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. + + +2. 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. + +3. 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. + + diff --git a/RECV390.EXE b/RECV390.EXE new file mode 100755 index 0000000..959e699 Binary files /dev/null and b/RECV390.EXE differ diff --git a/recv390 b/recv390 new file mode 100755 index 0000000..f00b63e Binary files /dev/null and b/recv390 differ diff --git a/recv390.zip b/recv390.zip new file mode 100644 index 0000000..81c50ca Binary files /dev/null and b/recv390.zip differ diff --git a/sort.jcl b/sort.jcl new file mode 100644 index 0000000..39402d9 --- /dev/null +++ b/sort.jcl @@ -0,0 +1,36 @@ +//HERC01S JOB (SETUP), +// 'TEST SORT', +// CLASS=A, +// MSGCLASS=H +//SORTDG EXEC PGM=IEBDG +//SYSPRINT DD SYSOUT=A +//SEQOUT DD UNIT=3390,DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000), +// DSN=&&SORTTEMP,DISP=(,PASS),SPACE=(CYL,(200,20)) +//SYSIN DD DATA + DSD OUTPUT=(SEQOUT) ,, + FD NAME=F1,LENGTH=2,STARTLOC=1,FORMAT=RA + FD NAME=F2,LENGTH=4,STARTLOC=3,FORMAT=RA + FD NAME=F3,LENGTH=4,STARTLOC=7,FORMAT=RA + FD NAME=F4,LENGTH=10,STARTLOC=11,FORMAT=ZD,INDEX=1 + FD NAME=F5,LENGTH=60,STARTLOC=21 + CREATE QUANTITY=3000000,NAME=(F1,F2,F3,F4,F5) + END +/* +//SORT EXEC PGM=SORT,REGION=512K,PARM='MSG=AP' +//SYSOUT DD SYSOUT=A +//SYSUDUMP DD SYSOUT=A +//SYSPRINT DD SYSOUT=A +//SORTLIB DD DSNAME=SYS1.SORTLIB,DISP=SHR +//SORTOUT DD DUMMY,DCB=(BLKSIZE=80,RECFM=F) +//SORTWK01 DD UNIT=2314,SPACE=(CYL,(185,5)),VOL=SER=SORT01 +//SORTWK02 DD UNIT=2314,SPACE=(CYL,(185,5)),VOL=SER=SORT02 +//SORTWK03 DD UNIT=2314,SPACE=(CYL,(185,5)),VOL=SER=SORT03 +//SORTWK04 DD UNIT=2314,SPACE=(CYL,(185,5)),VOL=SER=SORT04 +//SORTWK05 DD UNIT=2314,SPACE=(CYL,(185,5)),VOL=SER=SORT05 +//SORTWK06 DD UNIT=2314,SPACE=(CYL,(185,5)),VOL=SER=SORT06 +//SYSIN DD * + SORT FIELDS=(1,10,CH,A) + RECORD TYPE=F,LENGTH=(80) + END +/* +//SORTIN DD UNIT=3390,DSN=&&SORTTEMP,DISP=SHR