IMS DL/I Codes

Dli-Function Code’s : 4 byte function code describing the type of requested service.
GU ----------à Get Unique
GN ----------à Get Next
GNP ----------à Get Next Within Parent
GHU ----------à Get Hold Unique
GHN ----------à Get Hold Next
GHNP ----------à Get Hold Next Within Parent
ISRT ----------à Insert
DLET ----------à Delete
REPL ----------à Replace
CHKP ----------à Check point
XRST ----------à Restart

IMS Command Detailes

C ----------à Concatenated Key
D ----------à Path call
F ----------à First occurrence
L ----------à Last occurrence
N ----------à Path call ignore
P ----------à set parentage
Q ----------à Enqueue segment
U ----------à Maintain position at this level
V ----------à Maintain position at this and all superior levels
__ ----------à Null command code

To copy an entire PDS to a sequential tape data set (Unloading)

//RQRIJOJB JOB (RQRIJOJ,SAMPLE),'RIJO JOSEPH',
// CLASS=J,MSGCLASS=Z,REGION=0M,NOTIFY=&SYSUID
//*
//STEP1 EXEC PGM=IEBCOPY
//*********************************************************
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=XXXX.JCLTEST.RIJO.JCLS,DISP=SHR
//SYSUT2 DD DSN=XXXX.JCLTEST.RIJO.JCLS.UNLOAD,
// DISP=(NEW,CATLG),
// UNIT=CART,
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)
//SYSIN DD *
COPY INDD=SYSUT1,OUTDD=SYSUT2
/*

To copy an entire PDS to another PDS

//RQRIJOJB JOB (RQRIJOJ,SAMPLE),'RIJO JOSEPH',
// CLASS=A,MSGCLASS=Z,REGION=0M,NOTIFY=&SYSUID
//*
//STEP1 EXEC PGM=IEBCOPY
//**********************************************************
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=XXXX.JCLTEST.RIJO.JCLS,DISP=SHR
//SYSUT2 DD DSN=XXXX.JCLTEST.RIJO.JCLS.BKUP,
// DISP=(NEW,CATLG,DELETE),
// UNIT=TESTDA,
// SPACE=(CYL,(10,10,40)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSIN DD *
COPY INDD=SYSUT1,OUTDD=SYSUT2
/*