{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: PMACTYPE)}}
====== PMACTYPE ======
(GIN Macro)
**Defined in:** [[george:source:PMACS|PMACS]]
**Used in:** [[george:source:PMSUBSA|PMSUBSA]], [[george:source:PMSUBSB|PMSUBSB]], [[george:source:PMSUBSC|PMSUBSC]]
BJ#W [??? PMACTYPE SECT DIAG FGN 104 DOC
BJRL #MAC PMACTYPE [M.C.D. MANN
BK=B [
BKP6 [
BL7W [ **************
BLLL [ * PMACTYPE *
BM5B [ **************
BMJ6 [
BN2W [
BNFL [ THIS MACRO WILL SET UP TYPE AND SUBTYPE TABLES
BNYB [
BPC6 #STRING R,%B
BPTW (
BQ#L #MEN PMTYPES [INSERT TYPES
BQRB #DEF NUMBER=1
BR=6 )
BRNW #STRING R,%B
BS7L #SKI
BSLB (
BT56 #MEND %A [INSERT SUBTYPES IN RESPECTIVE SEG.
BTHW #DEF NUMBER=0
BW2L )
BWFB #STRING %A,PMSUBSA
BWY6 #SKI
BXBW (
BXTL #DEF TRA=+DPMSUBSA-DPMTYPES
BY#B [ SUBTYPES TO GO IN #SEG PMSUBSA
BYR6 ... PMT APERI,0,APERFL,0,APRNUM,0,ASSOCS0,0,ASSOCS1,0
B^9W ... PMTCON APERI,APERIRS,JD2,AFLBUF,JD10
B^NL ... PMTCON APERI,APROPNS,JD14,APROPS,0,APERM,0,BTEMP,0
C27B PMTCON APERI,ASSOCS,0,APERIDF,0,CONSOLE,0,APIA,0
C2L6 ... PMTCON APERI,ADUMMY,0,ATTRIB,JD13,AV7900,JD21,ARPERT,JD22
C34W PMT BLINK,JF5
C3HL ... PMT FILE,0,FCB,JB15,FSMB,0
C42B PMTCON FILE,FINTER,0,FINTER1,0,FINTER2,0
C4F6 ... PMTCON FILE,FINTER5,0,FINTER7,0
C4XW PMTCON FILE,FINTER3,0,FTRAP,0,FINTER6,0
C5BL ... PMTCON FILE,APROC,0,FQUAL,0,FINC,JB8
C5TB PMTCON FILE,CREATE,JB9,ENT,JB1,FPROPS,0
C6#6 ... PMTCON FILE,FRESNUM,JB13
C6QW ... PMTCON FILE,FABSNB,JF8,FLOCNB,0
C79L PMTCON FILE,INCUNJ,JB14,FRB,0,FURB,0
C7NB ... PMTCON FILE,FRESTOR,0,FRSTPER,0
C876 PMTCON FILE,FAPB,0,FWB,0,FUWB,0,FRRB,0
C8KW ... PMTCON FILE,FURRB,0,FRWB,0,FURWB,0,ADICTEN,JB2
C94L ... PMTCON FILE,FTAB,JB12,ADICT,JB5,FNAME,JB4,ADJNCTS,JB3
C9HB PMTCON FILE,FDINCS,0,FDT,JA3
C=26 ... PMTCON FILE,ASLFLEX,JF1,ASUPLEX,JF1,FSTACK,JF6,FGET,0
C=DW ... PMTCON FILE,FREQ,JA4,FCANTDO,0,FINCPRC,JH8
C=XL PMTCON FILE,FEXTRA,0,FMAPP,JF12
C?BB PMT FI,0,INSERT1,0,INSERT2,0,INSERT3,0,INSERT4,0
C?RW ... PMTCON FI,INSERT5,0,FUTILTY,0,FCA,JC5,FTABLE,JC9
C#9B ... PMTCON FI,FINDEXF,0,FNORM,0,FSORT,JB11,CFNDEXF,0
C#LY ... PMTCON FI,FUSER,JJ3,FTAPE,JJ4,FLIST,JJ5
C*3L ... PMTCON FI,FINCOPY,JB8,FONCE,0,FTWICE,JJ7,FDMPFAB,JF8
C*D# ... PMTCON FI,FDMPCOM,0,INDXCHK,0,FRSUNAV,0,FRSTUSR,JB19
C*T2 ... PMTCON FI,FERUS,JH7,FDUCOM,JA6,FDUTAPE,0,FRJTPS,0
C*Y7 ... PMT FSH,0,FSHIN,JB20,FSHOUT,JB20,FSHREQ,JB21
CB3# ... PMTCON FSH,FSHTERM,0,FSHTRAN,0,FULLB,0
CB5D ... PMTCON FSH,FSHSTOR,0,FSHMARK,JB22,FSHBDEL,0
CB7J ... PMTCON FSH,FSHBINS,0,FSHMOVE,JB23,FSHAPIA,0
CB85 ... PMTCON FSH,FSHREQX,JB21,FSHTRMX,0,FSHIPS,0
CB8L ... PMTCON FSH,FSHJCTS,JB24,FSHMBLS,0,FINLK,0
CB97 ... PMTCON FSH,HLSTFER,0,FAPB,0
CB9C ... PMT CAFS,0,CFCSNT,0
CB9N ... PMT AOBJPROG,JE12,BHWRITE,0,BHCOPY,JE12
CBLG ... PMT CPB,0,CALAS,JF9,CMULTI,0,CUNI,0
CC66 ... PMT BSTB,0,BWRITE,0,BREAD,0,CHAPTER,JE6,FSTAB,0
CC^W PMTCON BSTB,EMPTYB,0,FULLB,0,BSLIST,JE7,FBSIB,0
CDDL ... PMTCON BSTB,CCTABLE,0,ALFTABL,0,FDTABLE,0,BQBLK,JE8
CDXB PMTCON BSTB,BSCB,JE9,BLUFF,0,BFAIL,0,BFRAIL,0
CFB6 ... PMTCON BSTB,FLOUR,0,BFREEW,0,CART,0,HORSE,0
CFSW PMT IPCA,JA1,INTERN,JJ2,IPCBX,JA1,IPCOP,JA1
CG?L ... PMTCON IPCA,HANGER,JJ1,FSHARED,JA1,FSHBPM,JA1
CGQB PMT AMSCAN,0,AMXTYPE,JA1,IPBTYPE,JA1
CH96 PMT ACTCDT,JA1
CHMW ... PMT ACTDOC,JA1,ADUMPT,JA1,ASCHEDE,JA1
CJ6L ... PMT ACTUNJAM,JA1
CJKB PMT AREWIND,JA1
CMF= PMT ASWINT,JA1
CQ*G PMT APET,JA2,ATP,JA2,APUC,JA2
CQSW PMT AOLPT,JH5
CR#= ... PMT CPAT,JG10
CRRL PMT BAT,JA1
CTP6 )
CW8G #STRING %A,PMSUBSB
CWMW #SKI
CX7= (
CXLL #DEF TRA=+DPMSUBSB-DPMTYPES
CY62 [ SUBTYPES TO GO IN #SEG PMSUBSB
CYKB PMT GCB,0
C^4Q PMT CLB,JC4
C^JB ... PMT CONBUFF,0,COUT,JF17,EMSIN,JF16,CINP,JD17,CSHOW,JD18
D242 ... PMTCON CONBUFF,IREMTW,JB10,CNTRL,JD19,ACTIVE,JD20,CONAPP,0
D32= ... PMT JBUDGET,0,JLINE,JC6,JBTUSER,JC7,JSTORE,JC8,JEXTRA,0
D3FL PMTCON JBUDGET,JENTRY,JB2
D3^2 ... PMT CQPRINT,0,CQ1,0,CQ2,0,CQ11,0,CQFILE,0
D4DB ... PMT APED,0,ANEVENT,JC1,ADSPLAY,JB7,ADELETE,JC11
D4XQ ... PMTCON APED,ANOMESS,0,AQUEST,0,AMONCAT,JF13
D5C6 PMT AOBRES,JD1
D5WG ... PMT AMXOR,0,ALCB,JE16,AOUT,JC12,ASPEAK,0,CONTROL,0
D6*W ... PMTCON AMXOR,ALINES,JC13,GSCAN,JA7
D6T= ... PMTCON AMXOR,CILCB,JF2,BBC,0
D7#L PMTCON AMXOR,ADCB,JB16,ADEVS,JC13,IOUT,JB17,IDATSG,0
D7S2 PMTCON AMXOR,INBF,0,AMESS,0,CONAR,0
D8?B PMTCON AMXOR,CONDCB,JD11,CROUTE,JD12,CSTATE,JC13,ICONIN,JB17
D8QQ ... PMTCON AMXOR,CONLCB,JF7,IMESSG,JD5
D9=6 ... PMTCON AMXOR,INTRPT,JC10,CHAPCPY,0,ASCREEN,JJ6
D9FS ... PMTCON AMXOR,AJOURN,0,AMJOURN,0,AMISC,0
D9PG ... PMT AINPAR,0,ATB,0
D=8W PMT ADATA,0,JSWAP,JD16,JUNSWAP,JD16,AREPORT,0
D=N= PMTCON ADATA,CMARK,0,AWKSB,0,JLN,JC0
D?7L PMTCON ADATA,ADOC,0,CSTORE,0,ADEMAND,JE5,ALINE,JD9
D?M2 ... PMTCON ADATA,CREADL,JD3,AWLLIST,JE0
D#6B PMTCON ADATA,BCANTDO,JE15,AWPER,0,AWDOC,0
D#KQ ... PMTCON ADATA,AGTWORD,0,CORUNJM,0,ASUD,JE11
D*56 ... PMTCON ADATA,AGPUT,0,AGLOT,0,BREPLY,JE1,AMONWRK,0
D*JG ... PMTCON ADATA,ACONV,JD9,IPTEMP,0
DB3W PMTCON ADATA,ERREPLY,0,FPSEUD,0,AREST,JD9,BPERF,0
DBHB ... PMTCON ADATA,HPAGTRN,JB18,BTCAWP,0,BUDGBLB,0
DC2W ... PMTCON ADATA,GMONACC,0,HLOCKDN,JE10,ASTRAT,JD15
DCGB ... PMTCON ADATA,ASUP,0,INPUSG,JD6,JMCPASS,0,JMCPASB,0
DD22 ... PMTCON ADATA,COMPASS,0,APLIST,0,EMS,0,AGROP,0
DFCG PMTCON ADATA,APVAT,JE13,AGPUTX,JE14
DFM8 ... PMTCON ADATA,ELOUT,JD23,AWHATRV,JD24
DFWW PMT FLIB,0,FMAGH,JG1,FTSN,JG2
DGB= PMTCON FLIB,FREP,0,FMES,0,CADUMP,0
DGTL PMTCON FLIB,FTJOB,0,FDECKS,0,FLINC,0,FNOS,0
DH*2 PMTCON FLIB,GOLMT,0,FSPD,0
DHSB ... PMT JOBQE,JF3
DJ?Q PMT AONBS,0,GTRAN,0,GHDDR,0,GREN,0,GROT,0
DJR6 PMTCON AONBS,HDRSAVE,0,GLIST,0,GTN,0
DK=Q ... PMT EDIT,0,FRB,0,FAPB,0
DL=3 PMT IDF,0,B7071,0,B7020,0,CONCEP,0,CONDATA,0
DLP# ... PMTCON IDF,CONNAME,JF4,COINF,0,IDNTFRS,0,IREPORT,0
DM8K ... PMTCON IDF,APROPNS,0,ITERMID,0,IWORK,JF0,CONCEP1,0
DMMW ... PMTCON IDF,INLINE,0,IDELETE,0
DN77 ... PMT A7020,0,ALCB,JG3,ALIST,JG4,INPUT,JG5,CONSIN,JG6
DNLD ... PMTCON A7020,CONSOUT,JG7,INFORM,JD7
DP5P PMT ANAL,0,FABSNB,0
DPK2 PMT EWDAS,0,GRUBUF,0,ASTUC,JF14,BSTUC,0,FDRUM,0
DQ4? PMTCON EWDAS,FBUF,0,GEXD,0,EWMESS,0,EXOF,JF15
DQHJ PMTCON EWDAS,JETSET,0,FLAWB,0
DR2T PMTCON EWDAS,ENLINK,JG8,APFE,0,ESEND,JG9,EGOT,JG9
DRG6 PMTCON EWDAS,ASCOL,0,ESENDT,JG9,ITCH,JG9
DR^C )
DSDN #STRING %A,PMSUBSC
DSX^ #SKI
DTC= (
DTWH #DEF TRA=+DPMSUBSC-DPMTYPES
DW*S [ SUBTYPES TO GO IN #SEG PMSUBSC
DWT5 PMT GOUT,0,INFO,0,INFO2,0,INFO3,0,INFO4,0
DX#B ... PMTCON GOUT,GKEY,0,GUPDATE,0,CHLIST,0
DXRM ... PMTCON GOUT,INFO5,0,COMP,0
DY=Y ... PMTCON GOUT,GABSNB,0,GPROPNO,0,INFO6,0,GLINES,JG11
DYGJ ... PMTCON GOUT,GESIZE,JG12
DYQ9 ... PMT GMON,0,ASET,JE2,AOUT,JE1,ATEMP,JE3,JABAND,0
D^9G PMTCON GMON,JRNAL,JF11,BOUT,JF1,HLSOUT,0
D^NR PMT IPCD,0,ATASK,JH3,IPSTACK,JH4,ENQUIRY,JH2
F284 PMTCON IPCD,IPCGLR,JH1,IPCGLW,JH1
F36L PMT CPAR,0,GPERCON,JB6,JSCE,JF10,CPCT,JF10,AIPB,JF10
F3L= ... PMTCON CPAR,GNUMCON,0,GSTACK,0,JJSCE,JF10
F4JF PMT AMEAS,0,AMTNAM,0,APMC,0
F53Q ... PMT GENERAL,JA1,ACTSAVE,JA1,IDFMESS,JA1
F5H3 ... PMTCON GENERAL,CPERFCT,JA1
F62# PMTCON GENERAL,CORJAM,JA1
F69Y ... PMTCON GENERAL,AGROPE,JA1
F6FK #SKI IPL
F6YW (
F7D7 PMTCON GENERAL,IPLDIS,JG0,IPLDRI,JGDRI,IPLFOA,JG0,IPLINP,JG0
F7XD PMTCON GENERAL,IPLLOG,JG0,IPLPOL,JG0,IPLRES,JG0
F8BP ... PMT IPLD,0,IPLDATE,0,IPLTIME,0,IPLPRDA,0
F8W2 ... PMTCON IPLD,IPLBUF,0,IPLCNB,JGCNB,IPLLDB,JGLDB,IPLMES,0
F9*? )
F9C8 ... PMT BSA,JE17,BTFAIL,JE17,CHAPTER,JA1,AUTCLOS,JA1,AUTERAS,JA1
F9F5 ... PMTCON BSA,AUTOCY,JA1,JOUROPN,JA1
F9H2 ... PMTCON BSA,ENTWIN,JA1,AUTOMAP,JA5,ELOG,JA1
F9HY ... PMTCON BSA,CAFSACT,JE18
F9JX ... PMT JWELL,0,COPYSYS,0,JPARAMS,0,AJDF,0,ACLB,0
F9SH ... PMTCON JWELL,ADICTWL,0,ACOUNTS,0,BCOUNTS,0
F9XN ... PMT IUSER,0,ISPFRB,0,BATCHC,0,HULL,0
F=2T ... PMTCON IUSER,JBL,0
F=4D ... PMTCON IUSER,G400BLK,0,G400USR,0,G400FRB,0,BADGE,0
F=64 ... PMT COMDAT,0,CWHEN,0,CBRK,0,CJTEX,0
F=7^ ... PMTCON COMDAT,CSETP,0,CBUFF,JC2,CINC,JC3
F=9W ... PMTCON COMDAT,CFIN,0,CFIND,0
F==H ... PMT CONSA,JA1,I7023,JA1,APCTMES,JA1
F=?8 ... PMTCON CONSA,CNTRAL,JA1
F=?# ... PMT ACTLF,JC14,BSCHED,JC14
F=?D ... PMTCON ACTLF,GREMOTE,JC14,CENTRAL,JC14,ALPS14,JC14
F=?J ... PMT AMOP,JD4,IMOPQ,JA1,APCT,JA1,IPBIN,JH6,IPBOUT,JH6
F=?N ... PMTCON AMOP,ASENT,JA1,IPBCCA,JH6,AJOURN,JH6
F=?T )
F=R6 #END
F?=C #STRING R,%B [WHEN TYPES INSERTED IN PMTYPES
F?PN PMACTYPE %A,R [INSERT SUBTYPES IN REQUIRED SEGMENT
F#8^ #NOR