gtps4m2e | System 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.
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 |
The product of the generator is:
The following is an outline for creating a FACE table for the first time.
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.
The following is a sample JCL deck for compiling and link-editing the FACE table generator program. There are 4 steps:
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.
//* //* 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
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.
|
Notes:
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 *
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.
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:
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.
The report listing is divided into three sections:
********************************************************************** * * * * * 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
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) /*