- Design Employee Master File
MTMAPRD.SOURCE.CCPYBOOK(EMPMAST)
Cobol
******************************************************************
* Employee Master File record layout
******************************************************************
05 Employee-Id pic 9(08).
05 Full-Name pic x(79).
05 Primary-Name pic x(38).
05 Honorific pic x(08).
05 Short-Name pic x(38).
05 Job-Title pic x(38).
05 Department-Id pic 9(08).
05 Start-Date pic x(08).
05 End-Date pic x(08).
05 Appraisal-Date pic x(08).
05 Appraisal-Result pic x.
88 Exceeds-Expectations value 'E'.
88 Meets-Expectations value 'M'.
88 Uh-Oh value 'U'.
05 Delete-Flag pic x.
88 Deleted value 'D'.
88 Active value 'A'.
05 Delete-Date pic x(08).JC$CRTQS
Cobol
//JC$CRTQS JOB ,'CREATE QSAM ',CLASS=C,MSGCLASS=S,MSGLEVEL=(1,1), JOB00042
// REGION=4096K,TIME=1440,COND=((4,LT)),NOTIFY=&SYSUID
//*
//*!!! PLS DOUBLE CHECK AND REMARK THIS LINE TO SUBMIT
//*
//* DELETE OLD
//DELETE EXEC PGM=IEFBR14
//DELFILE DD DSN=PRDHKB.MM.MD.EMPMAST,
// DISP=(MOD,DELETE,DELETE),
// UNIT=SYSDA,
// VOL=SER=UAPP02
//* REPO DUMMY DATA
//DEFINE EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
00000001Ahmad Abdelhak
00000002Anne-Sophie Mueller
00000003Charles Edward Johnstone
00000004DeAndre Johnson
00000005Etienne Baillieu
00000006Eleanor Johnson
00000007Tran Le Quoc Toan
00000008Mary O'Connor
00000009Takahashi Fumiko
00000010Maria de Guadalupe Salazar Navarro
00000011Hong Jiahao
00000012Stephen P. Johnston
00000013Antonio Carelli
00000014Christina Nyfeldt
00000015Samson Kipruto
00000016Venkata Satyanarayana Rao
/*
//SORTOUT DD DSN=PRDHKB.MM.MD.EMPMAST,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// VOL=SER=UAPP02,
// SPACE=(CYL,(5,2),RLSE),
// DCB=(RECFM=FB,LRECL=251,BLKSIZE=0)
//SYSIN DD *
OPTION COPY
OUTREC FIELDS=(1,80,251:C' ')
/* PRDHKB.MM.MD.EMPMAST
Cobol
00000001Ahmad Abdelhak Abdelhak Mr. Ahmad Network Engineer 1234567820231015 20221201MA
00000002Anne-Sophie Mueller Mueller Ms. Ann Software Engineer 1234567820231115 20221201MA
00000003Charles Edward Johnstone Johnstone Dr. Charles Enterprise Architect 1234567820231215 20221201MA
00000004DeAndre Johnson Johnson Mr. De Database Administrator 1234567820231215 20221201EA
00000005Etienne Baillieu Baillieu Mr. Etienne Quality Assurance Engineer 1234567820231215 20221201MA
00000006Eleanor Johnson Johnson2 Ms. Eleanor Software Engineer 1234567820231215 20221201MA
00000007Tran Le Quoc Toan Tran Le Mr. Toan Software Engineer 1234567820231215 20221201MA
00000008Mary O'Connor O'Connor Mrs. Mary Software Engineer 1234567820230615 20221201MA
00000009Takahashi Fumiko Takahashi Ms. Fumiko Quality Assurance Engineer 1234567820230715 20221201EA
00000010Maria de Guadalupe Salazar Navarro Salazar Ms. Lupe Business Analyst 1234567820230815 20221201MA
00000011Hong Jiahao Hong Ms. Jiahao Database Administrator 1234567820230915 20221201UA
00000012Stephen P. Johnston Johnston Mr. Steve-o Software Engineer 1234567820230115 20221201MA
00000013Antonio Carelli Carelli Mr. Tony Business Analyst 1234567820230215 20221201MA
00000014Christina Nyfeldt Nyfeldt Ms. Stina Quality Assurance Engineer 1234567820230315 20221201EA
00000015Samson Kipruto Kiruto Mr. Sam Software Engineer 1234567820230415 20221201UA
00000016Venkata Satyanarayana Rao Satyanarayana Eng. Satya Solutions Architect 1234567820230515 20221201MAJC$CRTKS
Cobol
//JC$CRTKS JOB ,'CREATE KSDS ',CLASS=C,MSGCLASS=S,MSGLEVEL=(1,1), JOB00045
// REGION=4096K,TIME=1440,COND=((4,LT)),NOTIFY=&SYSUID
//*
//*!!! PLS DOUBLE CHECK AND REMARK THIS LINE TO SUBMIT
//*
//* DEFINE KSDS
//TDINTRA EXEC PGM=IDCAMS
//SEEDDATA DD DISP=SHR,DSN=PRDHKB.MM.MD.EMPMAST
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE PRDHKO.MM.MD.EMPMAST CLUSTER ERASE PURGE
SET MAXCC = 0
DEFINE CLUSTER(NAME(PRDHKO.MM.MD.EMPMAST) -
INDEXED -
CYL(10 10) -
RECORDSIZE(251 251) -
KEYS(8 0) -
FREESPACE(0 20) -
SHAREOPTIONS(2 3) -
LOG(NONE) -
VOLUME(UAPP02) -
CISZ(4096)) -
DATA (NAME(PRDHKO.MM.MD.EMPMAST.DATA)) -
INDEX (NAME(PRDHKO.MM.MD.EMPMAST.INDEX))
IF LASTCC = 0 THEN -
REPRO INFILE(SEEDDATA) OUTDATASET(PRDHKO.MM.MD.EMPMAST)
IF LASTCC = 0 THEN -
LISTCAT ENTRIES(PRDHKO.MM.MD.EMPMAST) ALL
IF LASTCC = 0 THEN -
PRINT INDATASET(PRDHKO.MM.MD.EMPMAST)
/*
//* 