gtps4m2eSystem Generation

FACE Table Generation

The primary purpose of the FACE table generator (FCTBG) is to read in the definition of the TPF database, validate it, and produce a FACE table. The FACE table generator is a C program that runs offline under MVS control.

The source of input for the FACE table generator is the SIP stage I deck. The generated FACE table supports either FARF3/4 or FARF4/5 addresses. FARF6 addresses are also supported. The generator is run before SIP stage I. It creates a FACE table from existing SIP stage I decks defining FARF3 structures as well as from new decks defining FARF3, FARF4, FARF5, or FARF6 structures. Some SIP macro variables are put in a data set and included by SIP stage I so consistency checking can be done between RAMFIL and other SIP macros, additionally validating the FACE table when a SIP stage I deck is assembled.

The FACE table produced by FCTBG is in the form of an MVS object module. The MVS linkage editor is used to convert the object module to an MVS load module, which is then loaded by the TPF system. The MVS linkage editor is also used to attach user data to the FACE table.

FACE Table Generator Input

Various statements, that follow, are included in SIP stage I decks. They are used by the generator to define the FACE table. These are the only statements and parameters read by the generator. When the stage I deck is updated with changes to any of these parameters, the generator must be run to create the corresponding FACE table. If any output from the FCTBG changes, the impact must be assessed on STCEQ, SYSEQC, DASD and format entries, and CYMZx SYCON macro elements. If any output from the FCTBG changes, the impact must be assessed on STCEQ, SYSEQC, DASD, IRCCR and format entries, and CYMZx SYCON macro elements. Because these are the only parameters affecting the FACE table if none of them change, the generator does not have to be run.

Macro Comment Reference
RAMFIL   RAMFIL
UFTFTI If coded UFTFTI
ONLFIL DEVICEx, PERMx, EXTRx, DUPTYPx, NAMEDEVx parameters only ONLFIL
SSDEF SSNAME, SSUID1-4 parameters only SSDEF
CONFIG SYSID parameter only CONFIG
RAM HASHSZ and NFBACK parameters only RAM

FACE Table Generator Output

The product of the generator is:

FCTBvv
The FACE table as an object module.

CYMZx
The module configuration table as assembler source. This table will be copied in as part of SYCON.

FMTRx
Format cards used as input to the TPF formatter (FMTR).

IRCCR
The pool RCC conversion table (used by the GRRTC macro).

STCEQ
Record type names and equate values used by STC and DFAD.

SYSEQC
The record type equates for fixed file records as assembler source.

SYFCTB
A file containing validation information to be used during stage I processing.

Standard output
The report listing file.

Building a FACE Table

The following is an outline for creating a FACE table for the first time.

  1. If necessary, initialize the disk volume where the SIP data sets will reside, using ICKDSF.
  2. Allocate the SIP output data sets.
  3. Compile and link the FACE table generator, shipped as source (C code).
  4. Code a SIP stage I deck.
  5. Run the FACE table generator.
  6. Assemble the SIP stage I deck.
  7. Run SIP stage II.
  8. Assemble CONK, CTSD, and IRCCR. Link-edit the FCTB with CONK, CTSD, IRCCR, and any user data as part of stage II.
  9. Perform a full load.

Changing an existing FACE table is more complex because there are so many dependencies based on it. In addition to dependencies inherent in the product shipped by IBM, customer changes cause dependencies that IBM cannot account for. The following steps are sufficient for changing uncustomized FACE tables and associated data.

Compiling the FACE Table Generator

The following is a sample JCL deck for compiling and link-editing the FACE table generator program. There are 4 steps:

  1. Assemble SKDASD, which builds the DASD table source.
  2. Assemble the DASD table source.
  3. Compile all the segments that make up the FACE table generator.
  4. Link-edit all the segments that make up the FACE table generator.

The TPF data set names have xx for version numbers and yyy for subsystem names; otherwise, the same data set names and specifications used during installation are used below.

Note:
The pre-linkedit (PLKED) step of this JCL will have a return code of 4 because C library references cannot be resolved until the linkedit step. This warning should be ignored; it will not affect the FACE table generator.
//*
//* This job compiles the FACE Table Generator and builds the
//* DASDTBLE object deck.  It then linkedits the FACE Table Generator
//* with the DASDTBLE object deck and then puts it into a link dsn
//*
//*
//* Assemble SKDASD which builds the DASDTBLE source
//*
//* note:
//* SKDASD source is in SIPGEN. Macros used are in MACRO
//* if your have macro hits used by SKDASD put the data set
//* containing your macros in front of .MACRO.STSIP40
//*
//*
//G1A1A  EXEC PGM=ASMA90,COND=EVEN,REGION=3M,
//            PARM='DECK,XREF(SHORT),NOESD,NORLD'
//SYSUDUMP DD SYSOUT=A
//SYSPRINT DD SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1331),
//             OUTLIM=0,
//             SPACE=(TRK,(100,200),RLSE)
//SYSPUNCH DD  DSN=&&DASDTMP;
,UNIT=VIO,DISP=(MOD,PASS),
//             SPACE=(32000,(5,5))
//SYSLIN   DD DUMMY
//SYSLIB   DD DSN=SYS1.MACLIB,DISP=SHR
//         DD DSN=ACP.SIPGEN.RELxx,DISP=SHR
//         DD DSN=ACP.MACRO.RELxx,DISP=SHR
//SYSUT1   DD DSN=&&SYSUT1;,UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSIN    DD *
               SKDASD
               END
/*
//*
//* Assemble the DASDTBLE source
//*
//G1A1B  EXEC PGM=ASMA90,REGION=3M,
//            PARM='DECK,NOOBJECT,XREF(SHORT)'
//SYSUDUMP DD SYSOUT=A
//SYSPRINT DD SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1331),
//             OUTLIM=0,
//             SPACE=(TRK,(100,200),RLSE)
//SYSPUNCH DD  DSN=ACP.OBJ.RELxx.BSS(DASDTB),DISP=(OLD,KEEP)
//SYSLIN   DD DUMMY
//SYSLIB   DD DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1   DD DSN=&&SYSUT1;,UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSIN    DD DSN=&&DASDTMP;,UNIT=VIO,DISP=(OLD,DELETE,DELETE)
//*
//*
//* Compile all the segments which make up the FACE Table Generator
//*
//CMPBD00 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD0040)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD0040',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD01 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD0140)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD0140',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD02 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD0240)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD0240',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD03 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD0340)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD0340',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD04 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD0440)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD0440',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD05 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD0540)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD0540',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD06 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD0640)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD0640',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD07 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD0740)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD0740',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD08 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD0840)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD0840',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD09 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD0940)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD0940',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD10 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD1040)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD1040',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD11 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD1140)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD1140',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD12 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD1240)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD1240',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPBD13 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTBD1340)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTBD1340',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPPS00 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTPS0040)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTPS0040',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPPS01 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTPS0140)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTPS0140',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPPS02 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTPS0240)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTPS0240',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPPS03 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTPS0340)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTPS0340',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPPS04 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTPS0440)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTPS0440',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPPS05 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTPS0540)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTPS0540',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPPS06 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTPS0640)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTPS0640',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPPS07 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTPS0740)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTPS0740',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPPS08 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTPS0840)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTPS0840',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPVA00 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTVA0040)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTVA0040',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPVA01 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTVA0140)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTVA0140',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPVA02 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTVA0240)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTVA0240',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPVA03 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTVA0340)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTVA0340',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPRG01 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTRG0140)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTRG0140',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPRG02 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTRG0240)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTRG0240',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPRG03 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTRG0340)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTRG0340',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPRG04 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTRG0440)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTRG0440',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPRG05 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTRG0540)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTRG0540',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPRG06 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTRG0640)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTRG0640',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPRG07 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTRG0740)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTRG0740',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPRG08 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTRG0840)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTRG0840',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPGN00 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTGN0040)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTGN0040',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPTD00 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTTD0040)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTTD0040',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPTD01 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTTD0140)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTTD0140',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//CMPER00 EXEC EDCCLIB,INFILE='ACP.CSRCE.OL.RELxx.BSS(FTER0040)',
//           LIBRARY='ACP.OBJ.RELxx.BSS',
//           MEMBER='FTER0040',
//           CPARM='LONGNAME'
//COMPILE.SYSLIB  DD
//                DD
//                DD DSN=ACP.CHDR.RELxx,DISP=SHR
//*
//* Linkedit all the segments which make up the FACE Table Generator
//*
//LKFCTBG   EXEC PROC=EDCPL,LPARM='AMODE=31,RENT,MAP',
//  OUTFILE='ACP.LINK.RELxx.BSS(FCTBG40),DISP=OLD'
//SYSIN  DD  *
               INCLUDE OBJLIB(DASDTB)
               INCLUDE OBJLIB(FTGN0040)
               INCLUDE OBJLIB(FTBD0040)
               INCLUDE OBJLIB(FTBD0140)
               INCLUDE OBJLIB(FTBD0240)
               INCLUDE OBJLIB(FTBD0340)
               INCLUDE OBJLIB(FTBD0440)
               INCLUDE OBJLIB(FTBD0540)
               INCLUDE OBJLIB(FTBD0640)
               INCLUDE OBJLIB(FTBD0740)
               INCLUDE OBJLIB(FTBD0840)
               INCLUDE OBJLIB(FTBD0940)
               INCLUDE OBJLIB(FTBD1040)
               INCLUDE OBJLIB(FTBD1140)
               INCLUDE OBJLIB(FTBD1240)
               INCLUDE OBJLIB(FTBD1340)
               INCLUDE OBJLIB(FTER0040)
               INCLUDE OBJLIB(FTPS0040)
               INCLUDE OBJLIB(FTPS0140)
               INCLUDE OBJLIB(FTPS0240)
               INCLUDE OBJLIB(FTPS0340)
               INCLUDE OBJLIB(FTPS0440)
               INCLUDE OBJLIB(FTPS0540)
               INCLUDE OBJLIB(FTPS0640)
               INCLUDE OBJLIB(FTPS0740)
               INCLUDE OBJLIB(FTPS0840)
               INCLUDE OBJLIB(FTRG0140)
               INCLUDE OBJLIB(FTRG0240)
               INCLUDE OBJLIB(FTRG0340)
               INCLUDE OBJLIB(FTRG0440)
               INCLUDE OBJLIB(FTRG0540)
               INCLUDE OBJLIB(FTRG0640)
               INCLUDE OBJLIB(FTRG0740)
               INCLUDE OBJLIB(FTRG0840)
               INCLUDE OBJLIB(FTTD0040)
               INCLUDE OBJLIB(FTTD0140)
               INCLUDE OBJLIB(FTVA0040)
               INCLUDE OBJLIB(FTVA0140)
               INCLUDE OBJLIB(FTVA0240)
               INCLUDE OBJLIB(FTVA0340)
/*
//PLKED.OBJLIB  DD DSN=ACP.OBJ.RELxx.BSS,DISP=SHR
//* END OF JOB
 

FACE Table Generator Parameters

There are four groups of parameters for the generator. Two groups control the level of informative detail found in the report listing. Another group controls the acceptable level of errors after which the FACE table and other structures are no longer produced. The last group specifies the presence of carriage control in the report.

FACE Table Generator Parameters




Notes:

  1. The default for this group of parameters is that messages of all severities are printed.

label
A symbolic name can be assigned to the EXEC invocation.

xx
The version code associated with the FACE table generator.

PRINTFULL
This parameter specifies that all the input statements read in are written out in the report listing with appropriate messages attached to the statements. This is the default.

PRINTSHORT
This parameter specifies that only those input statements that have messages attached to them are written in the report listing with the messages attached to the statements.

PRINTDATABASE
This parameter specifies that only those input statements read by the FACE table generator are written in the report listing with appropriate messages attached to any statements.

STOPWARNING
This parameter stops the production of the FACE table (and other) output if there are warning messages, error messages, or fatal messages. The report listing continues to be produced.

STOPERROR
This parameter stops the production of the FACE table (and other) output if there are error or fatal severity-level messages. The report listing continues to be produced. This is the default.

NOCC
Specifying this parameter indicates that the output report should not include print control characters.

CC
Specifying this parameter indicates that the output report should include print control characters. This is the default.

ONEFILE
This parameter causes the output report to be combined with the status of the FCTBG run from OS/390.

NOINFO
This parameter indicates the report listing is not to contain informational messages.

NOWARN
This parameter indicates the report listing is not to contain warning messages or informational messages.

NOERROR
This parameter indicates the report listing must contain only fatal messages.

NOBIND
This parameter indicates that the linkage editor will be used to link-edit the FACE table. This is the default.

BIND
This parameter indicates that the binder will be used to link the FACE table. This parameter must be coded if the FCTB will exceed 16 MB in size.

Running the FACE Table Generator

There are a number of JCL parameters required to run the generator. These should be checked to ensure their compatibility with the site. Note that xx and yyy are used again to represent the TPF version and subsystem name. The JCL is submitted for batch processing. The report listing file returns under the usual name of an MVS batch job.

Various C run-time parameters can be passed to the FACE table generator to control run-time storage usage.

//*
//* THIS PROC RUNS THE FACE TABLE GENERATOR
//*
//* &PVERS    - FACE TABLE GENERATOR VERSION TO RUN
//* &DATAOUT; - DATASET WHICH WILL CONTAIN MACROS CREATED BY THE FACE TABLE GENERATOR
//* &DATAOUT1;- DATASET WHICH WILL CONTAIN ASSEMBLER DATA CREATED BY THE FCTBG
//* &FCTBOB   - DATASET WHICH WILL CONTAIN THE OBJECT FCTB DECK
//* &FVERS    - FACE TABLE OBJECT MODULE VERSION CODE
//* &FGNPARM  - FACE TABLE GENERATOR PARAMETERS
//* &IFILE    - INPUT DATASET
//* &FACE     - DATASET CONTAINING FACE TABLE GENERATOR
//* &WORKDA   - UNIT TYPE FOR WORKFILE
//* &WORKSPC  - SPACE ALLOCATED A WORK FILE
//* &WORKDCB  - DCB FOR LRECL OF 80
//* &OBDCB    - DCB FOR FCTB OBJECT DATASET
//* &SYSOUT1  - CONSOLE MESSAGES
//* &SYSOUT2  - SYSTEM PRINTER
//* &SYSOUT3  - FACE TABLE LISTING
//* &SYSOUT6  - SYSTEM DUMP FILE
//* &SYSOUT7  - C RUNTIME DUMP FILE
//*
//BLDFACE PROC PVERS=40,
//     FVERS=40,
//     FGNPARM='STOPERROR PRINTDATABASE NOCC NOBIND',
//     IFILE=,
//     FACE='ACP.LINK.RELxx.BSS',
//     FCTBOB='ACP.OBJ.RELxx.BSS',
//     DATAOUT='ACP.SYMACRO.RELxx.BSS',
//     DATAOUT1='ACP.SYSRCE.RELxx.BSS',
//     WORKDA='SYSDA',
//     WORKSPC='(32000,(30,30))',
//     TMPSPC='(TRK,(20,5))',
//     OBDCB='(RECFM=FB,LRECL=80,BLKSIZE=400)',
//     WORKDCB='(RECFM=FB,LRECL=80,BLKSIZE=3200)',
//     SYSOUT1='*',
//     SYSOUT2='*',
//     SYSOUT3='*',
//     SYSOUT6='*',
//     SYSOUT7='*'
//*
//* BUILD THE FACE TABLE
//*
//RUNFARF EXEC PGM=FCTBG&PVERS,PARM='&FGNPARM',REGION=1024K
//STEPLIB DD DSN=SYS1.EDC.SEDCLINK,DISP=SHR
//        DD DSN=SYS1.PLI.SIBMLINK,DISP=SHR
//        DD DSN=&FACE,DISP=SHR
//SYSOUT  DD  SYSOUT=&SYSOUT1
//SYSPRINT DD SYSOUT=&SYSOUT2
//SYSUDUMP DD SYSOUT=&SYSOUT6
//CEEDUMP DD SYSOUT=&SYSOUT7
//TMPFILE DD DSN=&&TMPFILE,UNIT=&WORKDA,DISP=(NEW,DELETE,DELETE),
//    SPACE=&WORKSPC,DCB=&WORKDCB
//LSTFILE DD SYSOUT=&SYSOUT3
//ODECK   DD DSN=&FCTBOB(FCTB&FVERS),DISP=OLD
//SIPFILE DD DSN=&&TMPSIP,UNIT=&WORKDA,DISP=(MOD,PASS),
//    SPACE=&TMPSPC,DCB=&OBDCB
//STCFILE DD DSN=&&TMPSTC,UNIT=&WORKDA,DISP=(MOD,PASS),
//    SPACE=&TMPSPC,DCB=&OBDCB
//IRCFILE DD DSN=&&TMPIRC,UNIT=&WORKDA,DISP=(MOD,PASS),
//    SPACE=&TMPSPC,DCB=&OBDCB
//EQCFILE DD DSN=&&TMPEQC,UNIT=&WORKDA,DISP=(MOD,PASS),
//    SPACE=&TMPSPC,DCB=&OBDCB
//FMTAFILE DD DSN=&&TMPFMTA,UNIT=&WORKDA,DISP=(MOD,PASS),
//    SPACE=&TMPSPC,DCB=&OBDCB
//FMTBFILE DD DSN=&&TMPFMTB,UNIT=&WORKDA,DISP=(MOD,PASS),
//    SPACE=&TMPSPC,DCB=&OBDCB
//FMTCFILE DD DSN=&&TMPFMTC,UNIT=&WORKDA,DISP=(MOD,PASS),
//    SPACE=&TMPSPC,DCB=&OBDCB
//FMTDFILE DD DSN=&&TMPFMTD,UNIT=&WORKDA,DISP=(MOD,PASS),
//    SPACE=&TMPSPC,DCB=&OBDCB
//CYMZAFL DD DSN=&&TMCYMZA,UNIT=&WORKDA,DISP=(MOD,PASS),
//    SPACE=&TMPSPC,DCB=&OBDCB
//CYMZBFL DD DSN=&&TMCYMZB,UNIT=&WORKDA,DISP=(MOD,PASS),
//    SPACE=&TMPSPC,DCB=&OBDCB
//CYMZCFL DD DSN=&&TMCYMZC,UNIT=&WORKDA,DISP=(MOD,PASS),
//    SPACE=&TMPSPC,DCB=&OBDCB
//CYMZDFL DD DSN=&&TMCYMZD,UNIT=&WORKDA,DISP=(MOD,PASS),
//    SPACE=&TMPSPC,DCB=&OBDCB
//INFILE  DD  DSN=&IFILE,DISP=SHR
//*
//*
//*
//COPYSIP   EXEC  PGM=IEBGENER,COND=(18,LE,RUNFARF)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY
//SYSUT1    DD   DSN=&&TMPSIP,DISP=(SHR,DELETE,DELETE)
//SYSUT2    DD   DSN=&DATAOUT(SYFCTB),DISP=OLD
//*
//COPYSTC   EXEC  PGM=IEBGENER,COND=(18,LE,RUNFARF)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY
//SYSUT1    DD   DSN=&&TMPSTC,DISP=(SHR,DELETE,DELETE)
//SYSUT2    DD   DSN=&DATAOUT(STCEQ),DISP=OLD
//*
//COPYIRC   EXEC  PGM=IEBGENER,COND=(18,LE,RUNFARF)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY
//SYSUT1    DD   DSN=&&TMPIRC,DISP=(SHR,DELETE,DELETE)
//SYSUT2    DD   DSN=&DATAOUT1(IRCCR40),DISP=OLD
//*
//COPYEQC   EXEC  PGM=IEBGENER,COND=(18,LE,RUNFARF)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY
//SYSUT1    DD   DSN=&&TMPEQC,DISP=(SHR,DELETE,DELETE)
//SYSUT2    DD   DSN=&DATAOUT(SYSEQC),DISP=OLD
//*
//COPY1     EXEC  PGM=IEBGENER,COND=(18,LE,RUNFARF)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY
//SYSUT1    DD   DSN=&&TMPFMTA,DISP=(SHR,DELETE,DELETE)
//SYSUT2    DD   DSN=&DATAOUT(FMTA),DISP=OLD
//*
//COPY2     EXEC  PGM=IEBGENER,COND=(8,LE,RUNFARF)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY
//SYSUT1    DD   DSN=&&TMPFMTB,DISP=(SHR,DELETE,DELETE)
//SYSUT2    DD   DSN=&DATAOUT(FMTB),DISP=OLD
//*
//COPY3     EXEC  PGM=IEBGENER,COND=(8,LE,RUNFARF)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY
//SYSUT1    DD   DSN=&&TMPFMTC,DISP=(SHR,DELETE,DELETE)
//SYSUT2    DD   DSN=&DATAOUT(FMTC),DISP=OLD
//*
//COPY4     EXEC  PGM=IEBGENER,COND=(8,LE,RUNFARF)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY
//SYSUT1    DD   DSN=&&TMPFMTD,DISP=(SHR,DELETE,DELETE)
//SYSUT2    DD   DSN=&DATAOUT(FMTD),DISP=OLD
//*
//COPY5     EXEC  PGM=IEBGENER,COND=(8,LE,RUNFARF)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY
//SYSUT1    DD   DSN=&&TMCYMZA,DISP=(SHR,DELETE,DELETE)
//SYSUT2    DD   DSN=&DATAOUT(CYMZA),DISP=OLD
//*
//COPY6     EXEC  PGM=IEBGENER,COND=(8,LE,RUNFARF)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY
//SYSUT1    DD   DSN=&&TMCYMZB,DISP=(SHR,DELETE,DELETE)
//SYSUT2    DD   DSN=&DATAOUT(CYMZB),DISP=OLD
//*
//COPY7     EXEC  PGM=IEBGENER,COND=(8,LE,RUNFARF)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY
//SYSUT1    DD   DSN=&&TMCYMZC,DISP=(SHR,DELETE,DELETE)
//SYSUT2    DD   DSN=&DATAOUT(CYMZC),DISP=OLD
//*
//COPY8     EXEC  PGM=IEBGENER,COND=(8,LE,RUNFARF)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY
//SYSUT1    DD   DSN=&&TMCYMZD,DISP=(SHR,DELETE,DELETE)
//SYSUT2    DD   DSN=&DATAOUT(CYMZD),DISP=OLD
//*
//       PEND
//*
//* End of PROC
//*
//BLDIT   EXEC PROC=BLDFACE
//RUNFARF.SYSUDUMP     DD   DUMMY
//RUNFARF.INFILE DD *
 

FACE Table Generator Error Messages

The error messages produced by the FACE table generator are listed in Messages (System Error and Offline) and Messages (Online) with FCTB as a message prefix along with explanations and responses.

Structure of the Error Messages

The message format for the generator error messages is as follows:

      RAMFIL TYPE=SSA,RECNO=01365,RECID=SPARE,DUPE=YES,BAND=1535
    WARNING=>FCTB0026W: fn       ft       A1(build_ramfil):
    ========>BAND IS NOT VALID FOR SPARE

The first line contains the source code that has the error. Messages that are not related to any particular line of source code are reported at the end of the job log. The second line contains the following:

    severity=>FCTBxxxxy: source_file(function):

Where:

severity
is the severity of the problem

xxxx
is the error number

y
is also the severity

source_file
is the fully qualified name of the C source file issuing the message

function
is the function in that file issuing the message.

When messages associated with a fatal severity are found, processing ends after the message is issued. Messages with error level severities allow the generator to proceed, but only the report listing is produced. Messages with warning level severities also continue with validation and FACE table production, unless the STOPWARNING parameter is specified. Messages with an informational severity have no effect on program output.

FACE Table Generator Report Listing

The report listing is divided into three sections:

  1. The processing summary provides a count of the number of occurrences of stage I macros or statements found, along with relevant error information. The return code for the section appears at its end. One use of this list is to help ensure against misspellings of macro or statement names (such as, RAMF or RUMFIL), which the generator will not flag.
  2. The contents of the source section varies depending on the parameters specified (NOWARN, PRINTSHORT, and so on). All the input read may be listed with all the informative notes, only the error input with the error messages, and so on. The format for the error messages in this section was described earlier.
  3. The DASD map section describes the layout of disk storage that would result from the RAMFIL and other statements supplied in the stage I deck.
 
**********************************************************************
*                                                                    *
*                                                                    *
*                         FACE TABLE GENERATOR REPORTS               *
*                                                                    *
*      DATE:   Apr 25, 2001.                                         *
*      DAY:    Wednesday                                             *
*      TIME:   13:51:34                                              *
*                                                                    *
**********************************************************************
 
 
**********************************************************************
*                                                                    *
*                        PROCESSING SUMMARY                          *
*  DESCRIPTION:    Below are statistics of the parsing process       *
*                  and the highest error level.                      *
*                                                                    *
**********************************************************************
              OPCODE                   NUMBER OF OCCURRENCES
              ------                   ---------------------
 
              TITLE                             1
              PRINT                             1
              EJECT                            28
              SSDEF                             1
              CONFIG                            1
              IODEV                           297
              CRASTB                            1
              CORREQ                            1
              CLOCKS                            1
              UNITRD                            8
              GLOBAL                            1
              GLSYNC                           41
              RAM                               1
              ONLFIL                            1
              GENFIL                            3
              UFTFTI                            1
              SPACE                             1
              RAMFIL                         1678
              LINES                             1
              NETWK                             1
              BBSAT                            17
              BSNCT                           104
              CCPSTA                            1
              CCPPOL                            1
              CCPERR                            1
              UTPROT                            5
              SYNCLK                            1
              MSGRT                             1
              MSGRTA                          135
              DATACO                            1
              RESCAP                            1
              LOGCAP                            1
              DDCCAP                            1
              INDSN                             1
              GENSIP                            1
              END                               1
Highest error is 0 <==== NO ERRORS
No statements flagged
 
 
**********************************************************************
*                                                                    *
*                        DATA BASE LISTING                           *
*  DESCRIPTION:    Below are data base related statements            *
*                  including flagged statements.                     *
*                                                                    *
**********************************************************************
     SSDEF     TOTSS=4,            TOTAL NUMBER OF SUBSYSTEMS          X
               TOTSSU=8,           MAX NUMBER OF SSUSERS IN COMPLEX    X
               SSNAME=BSS,         BASIC SUBSYSTEM                     X
               BSSGEN=YES,         BASIC SUBSYSTEM                     X
               SSUID1=(HPN,HPN2)  TWO SSUSERS
     CONFIG    APRNT=00E,          ADDRESS OF PRINTER FOR IPL SEQUENCE X
               DUMPDEV=PRTR,       UPON IPL DUMPS ARE SENT TO PRINTER  X
               FQTK=NO,            NO FARE QUOTE TICKETING             X
               MAPSP=YES,          INCLUDE 3270 MAPPING SUPPORT        X
               MSGSW=YES,          INCLUDE MESSAGE SWITCHING SUPPORT   X
               USER=USA,           USER OF PARS                        X
               DCUSV=16,           ADDR. RANGE DASD CONTROL RANGE      X
               ENTERPRISE=DANBURY,                                     X
               COMPLEX=TPFNET,                                         X
               SYSID=(B,C,D,E,Z,0),                                    X
               PROC1=(20410,3090,,,1),    TPFXA1 LPAR                  X
               PROC2=(30410,3090,0,,0),   TPF1 LPAR                    X
               PROC3=(40410,3090,,2,,3),  TPF2 LPAR (ALSO 3090A/3090B) X
               PROC4=(50410,3090,4,,4),   TPF3 LPAR                    X
               PROC5=(D0105,9221),        OLYMP processor              X
               PROC6=(20215,9121),        KGN test floor processor     X
               PROC7=(20023,9021),        POK test floor processor     X
               VM=YES,             ACP WILL RUN UNDER VM/370           X
               RES=NO,   DONT      INCLUDE RES APPLICATION             X
               TEST=NO,            WP TEST SYSTEM PARMETER             X
               ACF=YES,            ACF FEATURE                         X
               MPIF=YES,           MPIF FEATURE                        X
               CIPHR=(BOTH,ACP.OBJ.OCO40), BOTH ENCRYPTION TECHNIQUES  X
               WTOPCUNS=YES,                                           X
               VEQR=NO,            VIRTUAL = VIRTUAL                   X
               SELACT=YES,         Enable E-type Loader Sel. activate  X
               TPFDF=YES,          TPFDF EXCLUDED FROM SYSTEM          X
               TPFAR=YES,                                              X
               NEF=YES                                         @000.000
     RAM       ECBNL=NOLIMIT,      NBR OF NESTING LEVELS FOR EACH ECB  X
               GFENS=60,           NUMBER OF GENERAL FILE SLOTS        X
               GFMOD=010,          SYMBOLIC MOD NBR - 1ST GENERAL FILE X
               GSON=59,            MAX NBR OF SON GF STATUS TBL SLOTS  X
               NFBACK=2,           NUMBER OF KEYPOINT FALLBACK AREAS   X
               PHTBL=257,          NBR OF PRIMARY HOLD TABLE ENTRIES   X
               OHTBL=1001,         NBR OF OVERFLOW HOLD TABLE ENTRIES  X
               OLDXPAT=1000,       XTRA PAT SLOTS                      X
               HASHSZ=0            NUM OF BYTES FOR HASH TABLE
     ONLFIL    DEVICEA=(3390,3339), TYPE OF DEVICE                     X
               DUPTYPA=F,          DUPLICATION STATUS OF DEVICE        X
               PERMA=4,            NBR OF PERMANENTLY MOUNTED MODULES  X
               IPLABLE=2,          NBR OF IPLABLE MODULES              X
               VSNCHAR=SN,         ALPHA PORTION OF VSN                X
               NAMDEVA=DEVA,                                           X
               VOLNOA=1,           STARTING VOLUME SERIAL NUMBER       X
               DEVICEB=(3390,3339), TYPE OF DEVICE                     X
               DUPTYPB=F,          DUPLICATION STATUS OF DEVICE        X
               PERMB=4,            NBR OF PERMANENTLY MOUNTED MODULES  X
               NAMDEVB=DEVB,                                           X
               VOLNOB=5            STARTING VOLUME SERIAL NUMBER
       UFTFTI  STAGE=FARF45,MODE=FARF4,                                X
               UFTI=((0,08),(1,10),(2,07),(61,15),(62,13),(63,10),     X
               (51,15),(52,13),(53,10),(10,08),(11,10),(12,07)),       X
               UFTI6=((5,24),(2,10))                           @000.000
 RAMFIL TYPE=LSA,RECNO=00200,RECID=SPARE,DUPE=YES,BASE=00002   @000.000
 RAMFIL TYPE=LSA,RECNO=00005,RECID=#QS0JS,DUPE=YES,BAND=0001,          X
               UFTI4=(63,351),UFTI5=(53,351),EQU=441,USER=(*,C,1)
 RAMFIL TYPE=LSA,RECNO=00005,RECID=#QS0JS,DUPE=YES,BAND=0002,          X
               UFTI4=(63,352),UFTI5=(53,352),EQU=441,USER=(*,C,2)
 RAMFIL TYPE=LSA,RECNO=00005,RECID=#QS0JS,DUPE=YES,BAND=0003,          X
               UFTI4=(63,353),UFTI5=(53,353),EQU=441,USER=(*,C,3)
 RAMFIL TYPE=LSA,RECNO=00005,RECID=#QS0JS,DUPE=YES,BAND=0004,          X
               UFTI4=(63,354),UFTI5=(53,354),EQU=441,USER=(*,C,4)
 RAMFIL TYPE=LSA,RECNO=00005,RECID=#QS0JS,DUPE=YES,BAND=0005,          X
               UFTI4=(63,355),UFTI5=(53,355),EQU=441,USER=(*,C,5)
 RAMFIL TYPE=LSA,RECNO=00005,RECID=#QS0JS,DUPE=YES,BAND=0006,          X
               UFTI4=(63,356),UFTI5=(53,356),EQU=441,USER=(*,C,6)
.
.
.
 RAMFIL TYPE=4SA,RECNO=000029,RECID=#BRIDTO8,DUPE=YES,PRIOR=2,USER=HPN
 RAMFIL TYPE=4SA,RECNO=000029,RECID=#BRIDTO8,DUPE=YES,PRIOR=2,USER=HPN2
 RAMFIL TYPE=4SA,RECNO=000240,RECID=POOL6,DUPE=YES,POLID=LT,           X
               UFTI6=((5,0),(5,2),(5,3)),BASE=220508,PSON=500  @000.000
 RAMFIL TYPE=4SA,RECNO=000240,RECID=POOL6,DUPE=YES,POLID=LT,           X
               BASE=220603,PSON=740                            @000.000
 RAMFIL TYPE=4SA,RECNO=000240,RECID=POOL6,DUPE=YES,POLID=LT,           X
               BASE=220613,PSON=980                            @000.000
 RAMFIL TYPE=4SA,RECNO=000240,RECID=POOL6,DUPE=YES,POLID=LT,           X
               BASE=220708,PSON=1220                           @000.000
.
.
.
 RAMFIL TYPE=4SB,RECNO=01440,RECID=POOL,DUPE=YES,POLID=LT,             X
               BASE=171713,PSON=496736                         @000.000
 RAMFIL TYPE=4SB,RECNO=01440,RECID=POOL,DUPE=YES,POLID=LT,             X
               BASE=172113,PSON=498176                         @000.000
 RAMFIL TYPE=4SB,RECNO=105840,RECID=SPARE,DUPE=YES,BASE=172513 @000.000
 RAMFIL TYPE=4SB,RECNO=000240,RECID=POOL6,DUPE=YES,POLID=LT,           X
               BASE=201913,PSON=27480                          @000.000
 RAMFIL TYPE=4SB,RECNO=000240,RECID=POOL6,DUPE=YES,POLID=LT,           X
               BASE=202008,PSON=27720                          @000.000
 RAMFIL TYPE=4SB,RECNO=029880,RECID=POOL6,DUPE=YES,POLID=LT,           X
               BASE=202103,PSON=27960                          @000.000
.
.
.
 RAMFIL TYPE=4SB,RECNO=430784,RECID=SPARE,DUPE=YES,BASE=213908 @000.000
 
 
**********************************************************************
*                                                                    *
*                        MISCELLANEOUS RAMFIL INFORMATION            *
*  DESCRIPTION:    Below is POOL type information and other          *
*                  miscellaneous RAMFIL information                  *
*                                                                    *
**********************************************************************
 
THE FOLLOWING POOL TYPES WERE DEFINED FOR DEVICE TYPE A
small short term non-duplicated
small long term duplicated
large short term non-duplicated
large long term duplicated
4K short term non-duplicated
4K long term duplicated
4K long term duplicated FARF6
THE FOLLOWING POOL TYPES WERE NOT DEFINED FOR DEVICE TYPE A
small long term non-duplicated
small long term duplicated FARF6
large long term non-duplicated
large long term duplicated FARF6
4K long term non-duplicated
THE FOLLOWING POOL TYPES WERE DEFINED FOR DEVICE TYPE B
4K short term non-duplicated
4K long term duplicated
4K long term duplicated FARF6
THE FOLLOWING POOL TYPES WERE NOT DEFINED FOR DEVICE TYPE B
small long term non-duplicated
small short term non-duplicated
small long term duplicated
small long term duplicated FARF6
large long term non-duplicated
large short term non-duplicated
large long term duplicated
large long term duplicated FARF6
4K long term non-duplicated
THERE ARE  6503  ENTRIES IN THE HASH TABLE
 
 
**********************************************************************
*                                                                    *
*                        DASD MAP, RESULTS OF FCTB GENERATION        *
*  DESCRIPTION:    Below is the DATA BASE layout based on the Stage I*
*                  input.  All addresses are in hexadecimal. All     *
*                  other numbers are in decimal.  Descriptor for     *
*                  FARF3 is the band number and for FARF4 or FARF5   *
*                  is the UFT/FTI.                                   *
*                                                                    *
**********************************************************************


++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Rec Type              Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV
========              ----  ----  ----------  -----------------  -----------------  ---
SPARE                   L     Y          200  0000 0000 0002 01  0001 0000 0005 01   A
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                                                                                                Users:    Owner:   In  Res
Rec Type      Prior   Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  SSU  P I  SSU  P I  Use tor
========     -------  ----  ----  ----------  -----------------  -----------------  ---  ----  --------  --------  --- ---
#QS0JS           1      L     Y            5  0000 0000 0005 02  0000 0000 0005 04   A    N    *    C 1  HPN  C 1   Y   Y
                       Beginning FARF@  Ending FARF@     Beg  Ord    End  Ord     Descriptor
                       ---------------  ------------    ----------  ----------    ----------
              FARF4 @         FD5F0001      FD5F0011             0           4    63/351
              FARF5 @         D55F0000      D55F0004             0           4    53/351
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                                                                                                Users:    Owner:   In  Res
Rec Type      Prior   Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  SSU  P I  SSU  P I  Use tor
========     -------  ----  ----  ----------  -----------------  -----------------  ---  ----  --------  --------  --- ---
#QS0JS           1      L     Y            5  0001 0000 0005 04  0001 0000 0005 06   A    N    *    C 2  HPN  C 2   Y   Y
                       Beginning FARF@  Ending FARF@     Beg  Ord    End  Ord     Descriptor
                       ---------------  ------------    ----------  ----------    ----------
              FARF4 @         FD600001      FD600011             0           4    63/352
              FARF5 @         D5600000      D5600004             0           4    53/352
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                                                                                                Users:    Owner:   In  Res
Rec Type      Prior   Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  SSU  P I  SSU  P I  Use tor
========     -------  ----  ----  ----------  -----------------  -----------------  ---  ----  --------  --------  --- ---
#QS0JS           1      L     Y            5  0000 0000 0005 07  0000 0000 0005 09   A    N    *    C 3  HPN  C 3   Y   Y
                       Beginning FARF@  Ending FARF@     Beg  Ord    End  Ord     Descriptor
                       ---------------  ------------    ----------  ----------    ----------
              FARF4 @         FD610001      FD610011             0           4    63/353
              FARF5 @         D5610000      D5610004             0           4    53/353
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                                                                                                Users:    Owner:   In  Res
Rec Type      Prior   Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  SSU  P I  SSU  P I  Use tor
========     -------  ----  ----  ----------  -----------------  -----------------  ---  ----  --------  --------  --- ---
#QS0JS           1      L     Y            5  0001 0000 0005 09  0001 0000 0005 0B   A    N    *    C 4  HPN  C 4   Y   Y
                       Beginning FARF@  Ending FARF@     Beg  Ord    End  Ord     Descriptor
                       ---------------  ------------    ----------  ----------    ----------
              FARF4 @         FD620001      FD620011             0           4    63/354
              FARF5 @         D5620000      D5620004             0           4    53/354
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                                                                                                Users:    Owner:   In  Res
Rec Type      Prior   Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  SSU  P I  SSU  P I  Use tor
========     -------  ----  ----  ----------  -----------------  -----------------  ---  ----  --------  --------  --- ---
#QS0JS           1      L     Y            5  0000 0000 0005 0C  0000 0000 0005 0E   A    N    *    C 5  HPN  C 5   Y   Y
                       Beginning FARF@  Ending FARF@     Beg  Ord    End  Ord     Descriptor
                       ---------------  ------------    ----------  ----------    ----------
              FARF4 @         FD630001      FD630011             0           4    63/355
              FARF5 @         D5630000      D5630004             0           4    53/355
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                                                                                                Users:    Owner:   In  Res
Rec Type      Prior   Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  SSU  P I  SSU  P I  Use tor
========     -------  ----  ----  ----------  -----------------  -----------------  ---  ----  --------  --------  --- ---
#QS0JS           1      L     Y            5  0001 0000 0005 0E  0001 0000 0005 10   A    N    *    C 6  HPN  C 6   Y   Y
                       Beginning FARF@  Ending FARF@     Beg  Ord    End  Ord     Descriptor
                       ---------------  ------------    ----------  ----------    ----------
              FARF4 @         FD640001      FD640011             0           4    63/356
              FARF5 @         D5640000      D5640004             0           4    53/356
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 Users:
Rec Type      Prior   Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV        SSU  P I
========     -------  ----  ----  ----------  -----------------  -----------------  ---        --------
#BRIDTO8         2      4     Y           29  0001 089A 0003 08  0001 089A 0004 0A   A         HPN  * *
                       Beginning FARF@  Ending FARF@     Beg  Ord    End  Ord     Descriptor
                       ---------------  ------------    ----------  ----------    ----------
              FARF4 @         F4073991      F4073A01           100         128    61/231
              FARF5 @         CC073864      CC073880           100         128    51/231
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                                                                                                Users:
Rec Type      Prior   Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV        SSU  P I
========     -------  ----  ----  ----------  -----------------  -----------------  ---        --------
#BRIDTO8         2      4     Y           29  0000 089A 0004 0B  0000 089A 0006 01   A         HPN2 * *
                       Beginning FARF@  Ending FARF@     Beg  Ord    End  Ord     Descriptor
                       ---------------  ------------    ----------  ----------    ----------
              FARF4 @         F40A0191      F40A0201           100         128    61/320
              FARF5 @         CC0A0064      CC0A0080           100         128    51/320
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Rec Type    PSON                Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  POLID  LOMOD  #MODS
========  --------------------  ----  ----  ----------  -----------------  -----------------  ---  ----  -----  -----  -----
   POOL6                   500    4     Y          240  0000 089D 0008 01  0001 089E 0002 0C   A    N     LT        0      2
                       Beginning FARF@   Ending FARF@          Beg  Ord                End  Ord          Descriptor
                      ----------------  ----------------  --------------------  --------------------  ----------------
      FARF6 @         00000500000001F4  00000500000002E3                   500                   739      5/0
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Rec Type    PSON                Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  POLID  LOMOD  #MODS
========  --------------------  ----  ----  ----------  -----------------  -----------------  ---  ----  -----  -----  -----
   POOL6                   740    4     Y          240  0000 089E 0003 01  0001 089E 000C 0C   A    N     LT        0      2
                       Beginning FARF@   Ending FARF@          Beg  Ord                End  Ord          Descriptor
                      ----------------  ----------------  --------------------  --------------------  ----------------
      FARF6 @         00000500000002E4  00000500000003D3                   740                   979      5/0
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Rec Type    PSON                Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  POLID  LOMOD  #MODS
========  --------------------  ----  ----  ----------  -----------------  -----------------  ---  ----  -----  -----  -----
   POOL6                   980    4     Y          240  0000 089E 000D 01  0001 089F 0007 0C   A    N     LT        0      2
                       Beginning FARF@   Ending FARF@          Beg  Ord                End  Ord          Descriptor
                      ----------------  ----------------  --------------------  --------------------  ----------------
      FARF6 @         00000500000003D4  00000500000004C3                   980                  1219      5/0
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Rec Type    PSON                Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  POLID  LOMOD  #MODS
========  --------------------  ----  ----  ----------  -----------------  -----------------  ---  ----  -----  -----  -----
   POOL6                  1220    4     Y          240  0000 089F 0008 01  0001 08A0 0002 0C   A    N     LT        0      2
                       Beginning FARF@   Ending FARF@          Beg  Ord                End  Ord          Descriptor
                      ----------------  ----------------  --------------------  --------------------  ----------------
      FARF6 @         00000500000004C4  00000500000005B3                  1220                  1459      5/0
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Rec Type    PSON                Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  POLID  LOMOD  #MODS
========  --------------------  ----  ----  ----------  -----------------  -----------------  ---  ----  -----  -----  -----
    POOL                496736    4     Y         1440  0000 06B5 000D 01  0001 06B9 000C 0C   B    N     LT        0      2
                       Beginning FARF@  Ending FARF@     Beg  Ord    End  Ord     Descriptor
                       ---------------  ------------    ----------  ----------    ----------
              FARF4 @         086F5181      086F67FD        496736      498175     2/13
              FARF5 @         30229460      302299FF        496736      498175    12/4
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Rec Type    PSON                Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  POLID  LOMOD  #MODS
========  --------------------  ----  ----  ----------  -----------------  -----------------  ---  ----  -----  -----  -----
    POOL                498176    4     Y         1440  0000 06B9 000D 01  0001 06BD 000C 0C   B    N     LT        0      2
                       Beginning FARF@  Ending FARF@     Beg  Ord    End  Ord     Descriptor
                       ---------------  ------------    ----------  ----------    ----------
              FARF4 @         086F6801      086F7E7D        498176      499615     2/13
              FARF5 @         30229A00      30229F9F        498176      499615    12/4
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Rec Type              Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV
========              ----  ----  ----------  -----------------  -----------------  ---
SPARE                   4     Y       105840  0000 06BD 000D 01  0001 07E3 000C 0C   B
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Rec Type    PSON                Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  POLID  LOMOD  #MODS
========  --------------------  ----  ----  ----------  -----------------  -----------------  ---  ----  -----  -----  -----
   POOL6                 27480    4     Y          240  0000 07E3 000D 01  0001 07E4 0007 0C   B    N     LT        0      2
                       Beginning FARF@   Ending FARF@          Beg  Ord                End  Ord          Descriptor
                      ----------------  ----------------  --------------------  --------------------  ----------------
      FARF6 @         0000050000006B58  0000050000006C47                 27480                 27719      5/0
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Rec Type    PSON                Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  POLID  LOMOD  #MODS
========  --------------------  ----  ----  ----------  -----------------  -----------------  ---  ----  -----  -----  -----
   POOL6                 27720    4     Y          240  0000 07E4 0008 01  0001 07E5 0002 0C   B    N     LT        0      2
                       Beginning FARF@   Ending FARF@          Beg  Ord                End  Ord          Descriptor
                      ----------------  ----------------  --------------------  --------------------  ----------------
      FARF6 @         0000050000006C48  0000050000006D37                 27720                 27959      5/0
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Rec Type    PSON                Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV  DUMP  POLID  LOMOD  #MODS
========  --------------------  ----  ----  ----------  -----------------  -----------------  ---  ----  -----  -----  -----
   POOL6                 27960    4     Y        29880  0000 07E5 0003 01  0001 0838 0002 0C   B    N     LT        0      2
                       Beginning FARF@   Ending FARF@          Beg  Ord                End  Ord          Descriptor
                      ----------------  ----------------  --------------------  --------------------  ----------------
      FARF6 @         0000050000006D38  000005000000E1EF                 27960                 57839      5/0
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Rec Type              Size  Dupe   Rec Numb   Beginning MCHR     Ending  MCHR       DEV
========              ----  ----  ----------  -----------------  -----------------  ---
SPARE                   4     Y       430784  0000 085B 0008 01  0001 0D08 0002 04   B
 

Assembling CONK, CTSD, and IRCCR

The JCL for assembling CONK, CTSD, and IRCCR, and link-editing them with the FACE table (FCTB) follows. This JCL is part of stage II and is included here only for convenience.

//LINKFCTB  JOB MSGLEVEL=1,CLASS=S
//I3B6L  EXEC PGM=ASMA90,REGION=3072K,TIME=20,
//  COND=EVEN,PARM='DECK,NOOBJECT,XREF(SHORT)'
//SYSUDUMP DD SYSOUT=A
//SYSPRINT DD SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1331),
//             OUTLIM=0,
//             SPACE=(TRK,(100,200),REL)
//SYSPUNCH DD DSN=ACP.OBJ.REL40.BSS(CONK40),DISP=OLD
//SYSLIN   DD DUMMY
//SYSLIB   DD DSN=ACP.SYMACRO.REL40.BSS,DISP=SHR
//         DD DSN=ACP.MACRO.REL40,DISP=SHR
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSIN    DD DSN=ACP.SRCE.OL.REL40(CONK40),
//       DISP=SHR
/*
//I3B7L  EXEC PGM=ASMA90,REGION=3072K,TIME=20,
//  COND=EVEN,PARM='DECK,NOOBJECT,XREF(SHORT)'
//SYSUDUMP DD SYSOUT=A
//SYSPRINT DD SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1331),
//             OUTLIM=0,
//             SPACE=(TRK,(100,200),REL)
//SYSPUNCH DD DSN=ACP.OBJ.REL40.BSS(IRCCR40),DISP=OLD
//SYSLIN   DD DUMMY
//SYSLIB   DD DSN=ACP.SYMACRO.REL40.BSS,DISP=SHR
//         DD DSN=ACP.MACRO.REL40,DISP=SHR
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSIN    DD DSN=ACP.SRCE.OL.REL40(IRCCR40),
//       DISP=SHR
/*
//I3B8L    EXEC  PGM=IEWLF440,REGION=3072K,
//      PARM='LET,LIST,XREF,DCBS,SIZE=(512K,64K),NCAL'
//SYSPRINT DD SYSOUT=A
//SYSLMOD  DD DSN=ACP.LINK.REL40.BSS,DISP=OLD,DCB=BLKSIZE=1200
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(7294,(100,100))
//OBJLIB   DD DSN=ACP.OBJ.REL40.BSS,DISP=SHR
//SYSLIN   DD *
  INCLUDE OBJLIB(FCTB40)
  INCLUDE OBJLIB(CTSD40)
  INCLUDE OBJLIB(CONK40)
  INCLUDE OBJLIB(IRCCR40)
 NAME FCTB40(R)
/*