This appendix describes Top-Secret CFILE processing.
This release supports a new function. The function is a full Recon. The input for the Recon is the Top-Secret CFILE.
Below is typical JCL used to create the CFILE.
//TSSCFILE JOB ,SYSTEMS,CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID //STEP1 EXEC PGM=TSSCFILE,PARM='PRINTDATA',REGION=0M //PRINT DD SYSOUT=* //OUT DD DSN=yourhlq.CFILE.FILE,DISP=SHR //IN DD * TSS LIST(ACIDS) TYPE(USER) DATA(PROF,PASS,ALL) /*
After creating a CFILE the following job reformats the data from 300 bytes to 320 bytes.
*** Fixed record file format – RECFM=FB ***
//CFILECPY JOB ,SYSTEMS,CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID //STEP1 EXEC PGM=CFILECPY //CFILEIF DD DSN=yourhlq.CFILE.FILE,DISP=SHR //CFILEOUT DD DSN=yourhlq.CFILE.OUT,DISP=SHR /* *** Variable record file format – RECFM=VB *** //CFILECPY JOB ,SYSTEMS,CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID //STEP1 EXEC PGM=CFILECPY //CFILEIV DD DSN=yourhlq.CFILE.FILE,DISP=SHR, // DCB=(RECFM=VB,LRECL=304) //CFILEOUT DD DSN=yourhlq.CFILE.OUT,DISP=SHR /*
Then the last job converts the reformatted data into XML format.
//CFILECPY JOB ,SYSTEMS,CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID //STEP1 EXEC PGM=CONV2XML //LINEOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //CFILEIN DD DSN=yourhlq.CFILE.OUT,DISP=SHR //CFILEXOT DD DSN=yourhlq.CFILE.XML,DISP=SHR /*
The CFILEXOT ddname is the same filename as the Pioneer EXPORTIN ddname. They must match. After the file is created the LDAP will request the file and pick it up. Upon successful reading of the file and transporting of the data to the LDAP the file is closed and cleared. The following are the only CFILE record types that these utilities will process, any other record types will be rejected.
* 100,200,300,400,500,501,502,600,650, *
* 700,800,900,1200,2100,2200,2300,2400, *
* 2500,2600,2700,2901,2902,2903,2904, *
* 2905,2906,2907,2908,2909,2910,2911, *
* 2912,2913,2914,3000,3500,3501,3502, *
* 3503,3504,3505,3506,3507,3508,3509, *
* 3510,3511,3512,3513,4010,4011,4012, *
* 4401,4402,4403,4404,4405,4406,4407, *
* 4408,4409,4410,4411,2002,2005,2021, *
* 2301,3700 *