Add existing file

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. 
+
+

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