Calling the DEDB Reload Segment Data Set Create utility (from your program)

FABCUR6 can be called from programs written in any language conforming to the z/OS® register linkage conventions.

Example

When calling, code the JCL as shown in the following figure.

Figure 1. Sample JCL for FABCUR6

//UR6      EXEC PGM=appl-name,REGION=rrrrM
//         DD dd statements necessary for an application
//ACBLIB   DD DSN=IMSVS.ACBLIB,DISP=SHR
//RMODLIB  DD DSN=IMSVS.PGMLIB,DISP=SHR
//EXITLIB  DD DSN=USER.PGMLIB,DISP=SHR
//UR6DBDFN DD DSN=HPFP.UR.DURDBDFN,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,SPACE=(TRK,(1,1))
//DURDzzzO DD DSN=HPFP.UR.FILEzzz.SEGDATA,
//            DISP=(NEW,CATLG,DELETE),UNIT=TAPE
//DURDzzzE DD DSN=HPFP.UR.FILEzzz.SEGDATAE,
//            DISP=(NEW,CATLG,DELETE),UNIT=TAPE
//DURSzzzO DD DSN=HPFP.UR.FILEzzz.SORTCARD,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,SPACE=(TRK,(1,1))
//UR6PRINT DD SYSOUT=A
//UR6AUDIT DD SYSOUT=A
//UR6CTL   DD *
... control statements ...
/*