//<jobname>JOB (1,<bin>),<MVS userid>,TIME=1,CLASS=Q,REGION=4M,
// MSGLEVEL=(1,1),MSGCLASS=A
/*ROUTE PRINT <VM node>.<VM userid>
//* Submitted by xxxxxxx Samba Server
//* --- not needed --- LOGONID <MVS userid>
//* --- not needed --- PASSWORD <MVS password>
//************************
//***
//*** NOTE: most MVS userid's = VM (CMS) and/or CICS userid's
//*** NOTE: since MVS passwords are forced to be changed every
//***       60 days, or so, you must also update the MVS password
//***       used in this JCL file and others submitted through this
//***       this server, AND, you must update the MVS password
//***       field in the LDAP entry on the xxxxxxx LDAP server
//***       for your userid. This is needed for the FTP processes
//***       that this server uses to provide this service.
//***
//*** This is a test job which does nothing more than create
//*** a one-line test dataset, catalogs that output dataset,
//*** and calls MVS (xxxxxxxxxx) FTP to transfer the output
//*** to xxxxxxx (Unix) workstation. The test dataset is
//*** DELETED after the FTP "step".
//***
//*** DON'T use this jobstream with a production (or
//*** permananet) dataset without changing it!!!
//***
//*** ALL occurances of "<...>" must be replaced with the
//*** appropriate item. Note that passwords are/may be case
//*** sensitive.
//***
//*** After an initial test, it is suggested that the
//*** MSGCLASS parameter be changed to "0" (zero), to
//*** suppress ALL output that would otherwise be sent
//*** to VM.
//***
//************************
//GENFILE  EXEC PGM=IEBGENER
//SYSUT1   DD *
  This is a test line
//SYSUT2   DD DSN=USERS.$TMP$.<MVS userid>.TEMP,UNIT=SYSDA,
//  DISP=(NEW,CATLG,DELETE),SPACE=(CYL,1)
//SYSPRINT DD SYSOUT=A
//SYSIN    DD DUMMY
//************************
//FTP      EXEC PGM=FTP
//STEPLIB  DD DSN=SYSS.TCP.LINK.R52,DISP=SHR
//SYSPRINT DD SYSOUT=*,OUTLIM=10000
//SYSPUT   DD SYSOUT=*,DCB=BLKSIZE=133,OUTLIM=10000
//SYSGET   DD *,DCB=BLKSIZE=80
CONN <MVS IP hostname>
A:LOG <MVS userid> <MVS password>
A:TYPE a c
CONN <Samba server IP hostname>
B:LOG <MVS userid> <Samba password - to be assigned>
B:CWD output
PUT 'USERS.$TMP$.<MVS userid>.TEMP' temp.txt
B:QUIT
A:QUIT
END
/*
//***********************
//DELTEMP  EXEC PGM=IDCAMS,COND=(0,LT,FTP)
//SYSPRINT DD SYSOUT=*,OUTLIM=1000
//SYSIN    DD *
   DELETE USERS.$TMP$.<MVS userid>.TEMP PURGE
//