Show pageBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. {{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]] <code - PMACTYPE.mac.txt> 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 </code> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In