FILE ibmjob, Recsize = -72 Eof = 49
//KEY002 JOB (WD,G8480B-FPMI),'WHITE  234-1577',PRTY=9,
//   USER=USER000,PASSWORD=PASSWORD
//*  DATASET RETREIVAL UTILITY FROM KGPS TO HP3000
//*
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//*
//*  MAIL TO:
//*
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//*
/*JOBPARM CARDS=100000
//MYPRINT OUTPUT DEFAULT=Y,JESDS=ALL,DEST=RM250,FORMS=HOLD
//*
//JOBLIB   DD DSN=TESTLIB.CIPO.HPPRGMS,DISP=SHR
//S010   EXEC PGM=SYNCSORT,TIME=(,45)
//SYSOUT   DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SORTIN   DD DSN=DATALIB.CRPT.EMPLDATA,DISP=SHR
//SORTOUT  DD DSN=FAM002.DATA.EMPL,DISP=(NEW,PASS),
//            SPACE=(TRK,(320,10),RLSE),UNIT=SYSDA,
//            DCB=(LRECL=200,RECFM=FB,BLKSIZE=10000)
//*
//* THE INCLUDE STATEMENTS FOLLOWING THE 'SYSIN DD' RECORD MUST BE
(24/49) Continue?
//* RECORDS 28 THRU 31 OF THIS FILE.  THEY ARE WRITTEN BY KEY314.EXE
//*
//SYSIN    DD *
  INCLUDE COND=(115,2,CH,GT,C'94',OR,
  INCLUDE COND=(115,2,CH,GT,C'94',OR,
               (115,2,CH,EQ,C'94',AND,111,2,CH,GT,C'04'),OR,
               (115,2,CH,EQ,C'94',AND,111,2,CH,EQ,C'04',AND,
                113,2,CH,GT,C'03'))
  OUTFIL OUTREC=(1:1,200)
/*
/*JOBPARM SYSAFF=KGPS
//S020    EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=A
//SYSTSIN  DD *
FTP2 /FIOS
/*
//SYSPUT   DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD *,DCB=BLKSIZE=80
OPEN 134.52.245.12
mgr.sys
$hppass
PUT 'FAM002.DATA.EMPL' EMPLDATA;REC=-200,,F,ASCII;DISC=150000
CLOSE
 
 
 
 
 
 
 
(47/49) Continue?
END
/*
//