SETUPCORE [ICL George 3]

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: SETUPCORE)}}
====== SETUPCORE ======
(GIN Macro)

**Defined in:** [[george:source:COREMACROS|COREMACROS]]

**Used in:** [[george:source:ALAS822|ALAS822]], [[george:source:ALLOW84|ALLOW84]], [[george:source:ASSOC867|ASSOC867]], [[george:source:ATTRIBUT867|ATTRIBUT867]], [[george:source:BACKROOM865|BACKROOM865]], [[george:source:BCAST867|BCAST867]], [[george:source:BEXTSJ84|BEXTSJ84]], [[george:source:BLOGNAL865|BLOGNAL865]], [[george:source:BMINDEX866|BMINDEX866]], [[george:source:BSBLFAIL867|BSBLFAIL867]], [[george:source:BSUJSTAT867|BSUJSTAT867]], [[george:source:BSUNJAM867|BSUNJAM867]], [[george:source:BUDGET84|BUDGET84]], [[george:source:CDCIPB864|CDCIPB864]], [[george:source:CDUM866|CDUM866]], [[george:source:CHINTEG867|CHINTEG867]], [[george:source:CIMOP867|CIMOP867]], [[george:source:CLOSEAB863|CLOSEAB863]], [[george:source:CLOSEFUL867|CLOSEFUL867]], [[george:source:COMPOST867|COMPOST867]], [[george:source:CONIPB8|CONIPB8]], [[george:source:CONMXA85|CONMXA85]], [[george:source:CONSROOT867|CONSROOT867]], [[george:source:CONTRACT866|CONTRACT866]], [[george:source:COPYB867|COPYB867]], [[george:source:CORE867|CORE867]], [[george:source:CPOBJ6|CPOBJ6]], [[george:source:CREATE867|CREATE867]], [[george:source:CROBJ6|CROBJ6]], [[george:source:DELCOM5|DELCOM5]], [[george:source:DELCON867|DELCON867]], [[george:source:DEWELL867|DEWELL867]], [[george:source:DISPCOM867|DISPCOM867]], [[george:source:DOIHEMS867|DOIHEMS867]], [[george:source:DROBJ864|DROBJ864]], [[george:source:DTQUEST860|DTQUEST860]], [[george:source:DTREST860|DTREST860]], [[george:source:DTSUBS867|DTSUBS867]], [[george:source:DTSUBSS867|DTSUBSS867]], [[george:source:DUMP860|DUMP860]], [[george:source:EDITER867|EDITER867]], [[george:source:EDITMFO867|EDITMFO867]], [[george:source:ERROR867|ERROR867]], [[george:source:FAIL5|FAIL5]], [[george:source:FFFNORM7|FFFNORM7]], [[george:source:FHOBJ860|FHOBJ860]], [[george:source:FHOBJDIR860|FHOBJDIR860]], [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:FINDFS867|FINDFS867]], [[george:source:FLAW866|FLAW866]], [[george:source:FLAWMAP866|FLAWMAP866]], [[george:source:FORMLOOP865|FORMLOOP865]], [[george:source:FSTABLE70|FSTABLE70]], [[george:source:GET6|GET6]], [[george:source:GETWORD867|GETWORD867]], [[george:source:GIVE867|GIVE867]], [[george:source:GLOBALS867|GLOBALS867]], [[george:source:HALT5|HALT5]], [[george:source:HARDIDF867|HARDIDF867]], [[george:source:HARDWARA8|HARDWARA8]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:HOWBIG867|HOWBIG867]], [[george:source:IDFCONF867|IDFCONF867]], [[george:source:IDFCONS8|IDFCONS8]], [[george:source:IDFENQS867|IDFENQS867]], [[george:source:IDFONLIN867|IDFONLIN867]], [[george:source:IDFSCON867|IDFSCON867]], [[george:source:INCEOT865|INCEOT865]], [[george:source:INCOBS867|INCOBS867]], [[george:source:INCRCUBX860|INCRCUBX860]], [[george:source:INCSET865|INCSET865]], [[george:source:INCSTART865|INCSTART865]], [[george:source:INDEX85|INDEX85]], [[george:source:INMOP867|INMOP867]], [[george:source:IPALL864|IPALL864]], [[george:source:IPBCCA867|IPBCCA867]], [[george:source:IPBCCC867|IPBCCC867]], [[george:source:IPBCONS867|IPBCONS867]], [[george:source:IPBIN867|IPBIN867]], [[george:source:IPBINC865|IPBINC865]], [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:IPBLISTB867|IPBLISTB867]], [[george:source:IPBLISTD867|IPBLISTD867]], [[george:source:IPBMOP867|IPBMOP867]], [[george:source:IPBMOPB867|IPBMOPB867]], [[george:source:IPBMOPC867|IPBMOPC867]], [[george:source:IPBOUT867|IPBOUT867]], [[george:source:IPBSCAN867|IPBSCAN867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:IPBSTART867|IPBSTART867]], [[george:source:IPCEN8|IPCEN8]], [[george:source:IPCONA864|IPCONA864]], [[george:source:IPCOPENA83|IPCOPENA83]], [[george:source:IPCOPENB83|IPCOPENB83]], [[george:source:IPCPERI83|IPCPERI83]], [[george:source:IPDBATCH867|IPDBATCH867]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:LDSTART850|LDSTART850]], [[george:source:LIBCOM867|LIBCOM867]], [[george:source:LIBPROPS|LIBPROPS]], [[george:source:LISTFILE867|LISTFILE867]], [[george:source:LISTHEAD863|LISTHEAD863]], [[george:source:LISTLOOP867|LISTLOOP867]], [[george:source:LISTNEXT867|LISTNEXT867]], [[george:source:LISTPARS867|LISTPARS867]], [[george:source:LISTPREP865|LISTPREP865]], [[george:source:LISTSEAR867|LISTSEAR867]], [[george:source:LISTTPCP867|LISTTPCP867]], [[george:source:LOADERR70|LOADERR70]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:LPOBJ6|LPOBJ6]], [[george:source:MAKEFILE863|MAKEFILE863]], [[george:source:MEXTSJ70|MEXTSJ70]], [[george:source:MODEA65|MODEA65]], [[george:source:MONEVENT867|MONEVENT867]], [[george:source:MONFIL865|MONFIL865]], [[george:source:MONFILE867|MONFILE867]], [[george:source:MONFILEA864|MONFILEA864]], [[george:source:MONJRNAL850|MONJRNAL850]], [[george:source:NEXTUNIT867|NEXTUNIT867]], [[george:source:ONLINEA867|ONLINEA867]], [[george:source:OPCAXCOD5|OPCAXCOD5]], [[george:source:OPENREL865|OPENREL865]], [[george:source:OPENWORK866|OPENWORK866]], [[george:source:ORELEMPT70|ORELEMPT70]], [[george:source:ORELEND860|ORELEND860]], [[george:source:PARAM865|PARAM865]], [[george:source:PARAMA865|PARAMA865]], [[george:source:PCTBEGIN863|PCTBEGIN863]], [[george:source:PCTLISTA867|PCTLISTA867]], [[george:source:PERFCHAP866|PERFCHAP866]], [[george:source:PROSTART867|PROSTART867]], [[george:source:READLINE8|READLINE8]], [[george:source:READSPEC867|READSPEC867]], [[george:source:REDON867|REDON867]], [[george:source:RELIEF866|RELIEF866]], [[george:source:RENAMAG864|RENAMAG864]], [[george:source:RENAMDIR|RENAMDIR]], [[george:source:RENAME864|RENAME864]], [[george:source:RENAMEMT867|RENAMEMT867]], [[george:source:RESTLIMB864|RESTLIMB864]], [[george:source:RITEFAIL864|RITEFAIL864]], [[george:source:SAVEFILE860|SAVEFILE860]], [[george:source:SCAN865|SCAN865]], [[george:source:SCEDITOR84|SCEDITOR84]], [[george:source:SCHEDENX860|SCHEDENX860]], [[george:source:SCRATCH866|SCRATCH866]], [[george:source:SETJD867|SETJD867]], [[george:source:SETMON70|SETMON70]], [[george:source:SETPB867|SETPB867]], [[george:source:SETPC867|SETPC867]], [[george:source:SETPE867|SETPE867]], [[george:source:SETPG867|SETPG867]], [[george:source:SETPN867|SETPN867]], [[george:source:SETPR867|SETPR867]], [[george:source:SETUP867|SETUP867]], [[george:source:SETUPA867|SETUPA867]], [[george:source:SYSPROP867|SYSPROP867]], [[george:source:TRANFAIL866|TRANFAIL866]], [[george:source:TRANSFOR1|TRANSFOR1]], [[george:source:TROBJ867|TROBJ867]], [[george:source:TWINSET866|TWINSET866]], [[george:source:TWINSETD866|TWINSETD866]], [[george:source:UNLOAD7|UNLOAD7]], [[george:source:UNSAVE867|UNSAVE867]], [[george:source:USERDIR842|USERDIR842]], [[george:source:USEROPEN867|USEROPEN867]], [[george:source:WA864|WA864]], [[george:source:WAIT867|WAIT867]], [[george:source:WHATPROP865|WHATPROP865]], [[george:source:WHATRVS867|WHATRVS867]], [[george:source:WHATRVSA867|WHATRVSA867]], [[george:source:WHTSTAT867|WHTSTAT867]], [[george:source:WLA867|WLA867]], [[george:source:WLAA867|WLAA867]], [[george:source:WLC867|WLC867]], [[george:source:WORKFILE860|WORKFILE860]]

<code - SETUPCORE.mac.txt>
 DB8J ...[??? SETUPCOR SECT CENT FGN 32 DOC  
 DBDB    #   
 DBY2    # X VERSION OF SETNCORE(%A X PARAMETER BUT %F N IN BOTH CASES   
 DCCL    #   
 DCX=    #MAC  SETUPCORE 
 DDBW          GETCORE  %A,1,%E,%F,%G
 DDWG          FINDCORE %B   
 DFB6          NAME     %B,%C,%D 
 DFTQ    #NOR
</code>