{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: SEG)}}
====== SEG ======
(GIN Macro)

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

**Used in:** [[george:source:ACCESS867|ACCESS867]], [[george:source:ADDICT865|ADDICT865]], [[george:source:ADDJOB867|ADDJOB867]], [[george:source:ADJCHECK85|ADJCHECK85]], [[george:source:ADJUNCTS85|ADJUNCTS85]], [[george:source:ALASB867|ALASB867]], [[george:source:ALLOCATE867|ALLOCATE867]], [[george:source:ARCHIVE867|ARCHIVE867]], [[george:source:ARCHIVNW83|ARCHIVNW83]], [[george:source:ASSIGN860|ASSIGN860]], [[george:source:ASSOC867|ASSOC867]], [[george:source:ASTONIF867|ASTONIF867]], [[george:source:ATTACHC867|ATTACHC867]], [[george:source:ATTRIBUT867|ATTRIBUT867]], [[george:source:BACKMAP864|BACKMAP864]], [[george:source:BACKMASS860|BACKMASS860]], [[george:source:BACKROOM865|BACKROOM865]], [[george:source:BCAST867|BCAST867]], [[george:source:BMAPDIR865|BMAPDIR865]], [[george:source:BMAPONE867|BMAPONE867]], [[george:source:BMAPTAPE865|BMAPTAPE865]], [[george:source:BMAPTWO860|BMAPTWO860]], [[george:source:BMCNTRL866|BMCNTRL866]], [[george:source:BMFIXIT864|BMFIXIT864]], [[george:source:BMJLIST864|BMJLIST864]], [[george:source:BMJLSLAV864|BMJLSLAV864]], [[george:source:BMOUTPUT867|BMOUTPUT867]], [[george:source:BMPRCHEK860|BMPRCHEK860]], [[george:source:BMQUEST866|BMQUEST866]], [[george:source:BMQUESTB866|BMQUESTB866]], [[george:source:BMSAVJOB864|BMSAVJOB864]], [[george:source:BMSJRNL866|BMSJRNL866]], [[george:source:BMSTATS850|BMSTATS850]], [[george:source:BMSTREAM853|BMSTREAM853]], [[george:source:BMXEMS83|BMXEMS83]], [[george:source:BRADDATA867|BRADDATA867]], [[george:source:BRADEMUL867|BRADEMUL867]], [[george:source:BRADSPLT867|BRADSPLT867]], [[george:source:BSBLFAIL867|BSBLFAIL867]], [[george:source:BSPRUNE867|BSPRUNE867]], [[george:source:BSUJSTAT867|BSUJSTAT867]], [[george:source:BSUNJAM867|BSUNJAM867]], [[george:source:BUDGTWO84|BUDGTWO84]], [[george:source:CAFSCTRL866|CAFSCTRL866]], [[george:source:CAFSINFO866|CAFSINFO866]], [[george:source:CAFSPERI867|CAFSPERI867]], [[george:source:CANCRVX864|CANCRVX864]], [[george:source:CANTDO867|CANTDO867]], [[george:source:CARTCONT867|CARTCONT867]], [[george:source:CDCIPB864|CDCIPB864]], [[george:source:CHANFILE8|CHANFILE8]], [[george:source:CHANG867|CHANG867]], [[george:source:CHEKPRIV867|CHEKPRIV867]], [[george:source:CHINTEG867|CHINTEG867]], [[george:source:CHNUMCON867|CHNUMCON867]], [[george:source:CLEAN867|CLEAN867]], [[george:source:CLOSEAB863|CLOSEAB863]], [[george:source:CLOSEALT864|CLOSEALT864]], [[george:source:CLOSEDIR867|CLOSEDIR867]], [[george:source:CLOSEFUL867|CLOSEFUL867]], [[george:source:CLOSEMAS863|CLOSEMAS863]], [[george:source:CLOSEND867|CLOSEND867]], [[george:source:CLOSEONE867|CLOSEONE867]], [[george:source:CLOSFREZ867|CLOSFREZ867]], [[george:source:CLOSTIDY860|CLOSTIDY860]], [[george:source:CMEMILL866|CMEMILL866]], [[george:source:COMHOOK867|COMHOOK867]], [[george:source:COMPCHAN84|COMPCHAN84]], [[george:source:COMPOST867|COMPOST867]], [[george:source:COMPRO867|COMPRO867]], [[george:source:COMPROA867|COMPROA867]], [[george:source:COMPROB867|COMPROB867]], [[george:source:CONCEPT85|CONCEPT85]], [[george:source:CONIPB8|CONIPB8]], [[george:source:CONNECT867|CONNECT867]], [[george:source:CONNECTA867|CONNECTA867]], [[george:source:CONSERNO6|CONSERNO6]], [[george:source:CONTINUE867|CONTINUE867]], [[george:source:CONTXCOD60|CONTXCOD60]], [[george:source:COPYA867|COPYA867]], [[george:source:COPYB867|COPYB867]], [[george:source:COPYFILA867|COPYFILA867]], [[george:source:COPYFILE867|COPYFILE867]], [[george:source:CORE867|CORE867]], [[george:source:CREALEX864|CREALEX864]], [[george:source:CREATE867|CREATE867]], [[george:source:DATECON37|DATECON37]], [[george:source:DEAD867|DEAD867]], [[george:source:DEADA867|DEADA867]], [[george:source:DEWELL867|DEWELL867]], [[george:source:DICTJOB82|DICTJOB82]], [[george:source:DICTWELL867|DICTWELL867]], [[george:source:DISPCOM867|DISPCOM867]], [[george:source:DOIHEMS867|DOIHEMS867]], [[george:source:DOMONOP867|DOMONOP867]], [[george:source:DOXCODE867|DOXCODE867]], [[george:source:DTQUEST860|DTQUEST860]], [[george:source:DTREST860|DTREST860]], [[george:source:DTSCAN860|DTSCAN860]], [[george:source:DTSTART867|DTSTART867]], [[george:source:DTSUBS867|DTSUBS867]], [[george:source:DTSUBSA867|DTSUBSA867]], [[george:source:DTSUBSS867|DTSUBSS867]], [[george:source:DTWRONG867|DTWRONG867]], [[george:source:DUMP860|DUMP860]], [[george:source:EDIT867|EDIT867]], [[george:source:EDITMFO867|EDITMFO867]], [[george:source:EDITPT867|EDITPT867]], [[george:source:EDWRITE867|EDWRITE867]], [[george:source:EMSENTER867|EMSENTER867]], [[george:source:ENTRUST|ENTRUST]], [[george:source:ENWELL867|ENWELL867]], [[george:source:ENWELLB867|ENWELLB867]], [[george:source:ERASE867|ERASE867]], [[george:source:ERASEA867|ERASEA867]], [[george:source:ERROR867|ERROR867]], [[george:source:FHDIRTWO864|FHDIRTWO864]], [[george:source:FHLIST867|FHLIST867]], [[george:source:FHOBJ860|FHOBJ860]], [[george:source:FHOBJBL860|FHOBJBL860]], [[george:source:FHOBJDIR860|FHOBJDIR860]], [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:FILELOG|FILELOG]], [[george:source:FILESECU83|FILESECU83]], [[george:source:FINISH867|FINISH867]], [[george:source:FINISHB867|FINISHB867]], [[george:source:FLAW866|FLAW866]], [[george:source:FREEBUFF860|FREEBUFF860]], [[george:source:FREEZE864|FREEZE864]], [[george:source:FSERR867|FSERR867]], [[george:source:GET6|GET6]], [[george:source:GETDIR860|GETDIR860]], [[george:source:GETDIRX860|GETDIRX860]], [[george:source:GETFREE867|GETFREE867]], [[george:source:GETNO865|GETNO865]], [[george:source:GETNOR8|GETNOR8]], [[george:source:GETWORD867|GETWORD867]], [[george:source:GIVE867|GIVE867]], [[george:source:GLOBALS867|GLOBALS867]], [[george:source:GOTO867|GOTO867]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:HOWBIG867|HOWBIG867]], [[george:source:IDFOFF867|IDFOFF867]], [[george:source:IDFONLIN867|IDFONLIN867]], [[george:source:IFEXPAN867|IFEXPAN867]], [[george:source:IFNUMS867|IFNUMS867]], [[george:source:ILLEXC70|ILLEXC70]], [[george:source:INCCHECK860|INCCHECK860]], [[george:source:INCDTA865|INCDTA865]], [[george:source:INCEND865|INCEND865]], [[george:source:INCEOT865|INCEOT865]], [[george:source:INCFIN864|INCFIN864]], [[george:source:INCMON865|INCMON865]], [[george:source:INCOBS867|INCOBS867]], [[george:source:INCOM864|INCOM864]], [[george:source:INCPROC850|INCPROC850]], [[george:source:INCPTRES864|INCPTRES864]], [[george:source:INCRCUBS860|INCRCUBS860]], [[george:source:INCRCUBX860|INCRCUBX860]], [[george:source:INCRV850|INCRV850]], [[george:source:INCSET865|INCSET865]], [[george:source:INCSTART865|INCSTART865]], [[george:source:INCTAPES867|INCTAPES867]], [[george:source:INCVFCHK850|INCVFCHK850]], [[george:source:INCWAIT860|INCWAIT860]], [[george:source:INCWRITE865|INCWRITE865]], [[george:source:INITJOB867|INITJOB867]], [[george:source:INLOOP84|INLOOP84]], [[george:source:INMOP867|INMOP867]], [[george:source:INPUTJDF82|INPUTJDF82]], [[george:source:INPUTMOP82|INPUTMOP82]], [[george:source:INRESTAR84|INRESTAR84]], [[george:source:IPALL864|IPALL864]], [[george:source:IPBCCA867|IPBCCA867]], [[george:source:IPBCCB867|IPBCCB867]], [[george:source:IPBCCC867|IPBCCC867]], [[george:source:IPBCCD867|IPBCCD867]], [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:IPBLISTB867|IPBLISTB867]], [[george:source:IPBLISTD867|IPBLISTD867]], [[george:source:IPBMOP867|IPBMOP867]], [[george:source:IPBMOPC867|IPBMOPC867]], [[george:source:IPBPM84|IPBPM84]], [[george:source:IPBSCANB867|IPBSCANB867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:IPBSTART867|IPBSTART867]], [[george:source:IPCEN8|IPCEN8]], [[george:source:IPCGEO8|IPCGEO8]], [[george:source:IPCON864|IPCON864]], [[george:source:IPCONA864|IPCONA864]], [[george:source:IPCONB8|IPCONB8]], [[george:source:IPCONC8|IPCONC8]], [[george:source:IPCOND864|IPCOND864]], [[george:source:IPCONE865|IPCONE865]], [[george:source:IPCONF865|IPCONF865]], [[george:source:IPCONG8|IPCONG8]], [[george:source:IPCOPENA83|IPCOPENA83]], [[george:source:IPCOPENB83|IPCOPENB83]], [[george:source:IPCPASS8|IPCPASS8]], [[george:source:IPCPERI83|IPCPERI83]], [[george:source:IPCSTART864|IPCSTART864]], [[george:source:IPDBATCH867|IPDBATCH867]], [[george:source:IPLPM84|IPLPM84]], [[george:source:IPQUAKE83|IPQUAKE83]], [[george:source:IPQUAKER865|IPQUAKER865]], [[george:source:JDTWO864|JDTWO864]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:JSASCAN867|JSASCAN867]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:JWELLTWO867|JWELLTWO867]], [[george:source:JWUPDATE867|JWUPDATE867]], [[george:source:KARTCONT867|KARTCONT867]], [[george:source:LDSTART850|LDSTART850]], [[george:source:LIBCOM867|LIBCOM867]], [[george:source:LIBINSEC864|LIBINSEC864]], [[george:source:LIBLOADB867|LIBLOADB867]], [[george:source:LIBMANY867|LIBMANY867]], [[george:source:LIBQUERY|LIBQUERY]], [[george:source:LIBREQ866|LIBREQ866]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:LIBREQCA867|LIBREQCA867]], [[george:source:LIBSEC867|LIBSEC867]], [[george:source:LIBTSN867|LIBTSN867]], [[george:source:LIST867|LIST867]], [[george:source:LISTDIR867|LISTDIR867]], [[george:source:LISTDIRF867|LISTDIRF867]], [[george:source:LISTFILE867|LISTFILE867]], [[george:source:LISTFREE867|LISTFREE867]], [[george:source:LISTMOP867|LISTMOP867]], [[george:source:LISTPARS867|LISTPARS867]], [[george:source:LISTPROC867|LISTPROC867]], [[george:source:LOAD60|LOAD60]], [[george:source:LOADERR70|LOADERR70]], [[george:source:LOADFIN860|LOADFIN860]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:LOADX60|LOADX60]], [[george:source:LOGOUT867|LOGOUT867]], [[george:source:LPTWO7|LPTWO7]], [[george:source:MAKEDIR84|MAKEDIR84]], [[george:source:MAKEFILE863|MAKEFILE863]], [[george:source:MAKEVCC867|MAKEVCC867]], [[george:source:MATALO860|MATALO860]], [[george:source:MODE866|MODE866]], [[george:source:MONEVENT867|MONEVENT867]], [[george:source:MONFILE867|MONFILE867]], [[george:source:MOPPM84|MOPPM84]], [[george:source:MOPSTART865|MOPSTART865]], [[george:source:MOVCART867|MOVCART867]], [[george:source:MTCHECK860|MTCHECK860]], [[george:source:MTCODE864|MTCODE864]], [[george:source:MTDUMP860|MTDUMP860]], [[george:source:MTOBJ864|MTOBJ864]], [[george:source:MTSTART864|MTSTART864]], [[george:source:MULTCOMM867|MULTCOMM867]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:NEWA867|NEWA867]], [[george:source:NEWDIR867|NEWDIR867]], [[george:source:NEWOWN865|NEWOWN865]], [[george:source:NEWPASSW867|NEWPASSW867]], [[george:source:NEWPW867|NEWPW867]], [[george:source:NNORM83|NNORM83]], [[george:source:OFFREL867|OFFREL867]], [[george:source:OLPODD865|OLPODD865]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:ONLINEC867|ONLINEC867]], [[george:source:OPCA867|OPCA867]], [[george:source:OPENEND865|OPENEND865]], [[george:source:OPENFILE867|OPENFILE867]], [[george:source:OPENREL865|OPENREL865]], [[george:source:OPENTWO867|OPENTWO867]], [[george:source:OPENWAIT867|OPENWAIT867]], [[george:source:OPERATOR867|OPERATOR867]], [[george:source:ORELEMPT70|ORELEMPT70]], [[george:source:ORELHALF82|ORELHALF82]], [[george:source:ORELMAIN867|ORELMAIN867]], [[george:source:PASSINFO867|PASSINFO867]], [[george:source:PCTLISTA867|PCTLISTA867]], [[george:source:PCTLISTB867|PCTLISTB867]], [[george:source:PERCON867|PERCON867]], [[george:source:PERION867|PERION867]], [[george:source:PMTABLEI|PMTABLEI]], [[george:source:PREPREAD867|PREPREAD867]], [[george:source:PROFLAG83|PROFLAG83]], [[george:source:PROSTART867|PROSTART867]], [[george:source:QPRINT867|QPRINT867]], [[george:source:QUESCOM867|QUESCOM867]], [[george:source:RAECOMMS867|RAECOMMS867]], [[george:source:RAND864|RAND864]], [[george:source:READFAIL866|READFAIL866]], [[george:source:READFALE866|READFALE866]], [[george:source:RENAMAG864|RENAMAG864]], [[george:source:RENAMDIR|RENAMDIR]], [[george:source:RENAME864|RENAME864]], [[george:source:RENAMEMT867|RENAMEMT867]], [[george:source:RENAMEX867|RENAMEX867]], [[george:source:REPERR867|REPERR867]], [[george:source:RESTEND850|RESTEND850]], [[george:source:RESTERR864|RESTERR864]], [[george:source:RESTLIMB864|RESTLIMB864]], [[george:source:RESTMERG864|RESTMERG864]], [[george:source:RESTOREA866|RESTOREA866]], [[george:source:RESTOREG864|RESTOREG864]], [[george:source:RETRIEVE864|RETRIEVE864]], [[george:source:RETURN867|RETURN867]], [[george:source:RETURNA867|RETURNA867]], [[george:source:RITEFAIL864|RITEFAIL864]], [[george:source:SAVEFILE860|SAVEFILE860]], [[george:source:SCEDITAR84|SCEDITAR84]], [[george:source:SCEDITOR84|SCEDITOR84]], [[george:source:SCEDITUR867|SCEDITUR867]], [[george:source:SCHEDENX860|SCHEDENX860]], [[george:source:SCHEDMTA860|SCHEDMTA860]], [[george:source:SCHEDMTX867|SCHEDMTX867]], [[george:source:SECUREX85|SECUREX85]], [[george:source:SETDISC866|SETDISC866]], [[george:source:SETJD867|SETJD867]], [[george:source:SETJOBQ867|SETJOBQ867]], [[george:source:SETPARAM867|SETPARAM867]], [[george:source:SETPB867|SETPB867]], [[george:source:SETPC867|SETPC867]], [[george:source:SETPE867|SETPE867]], [[george:source:SETPF867|SETPF867]], [[george:source:SETPG867|SETPG867]], [[george:source:SETPN867|SETPN867]], [[george:source:SETPR867|SETPR867]], [[george:source:SETPRAMA867|SETPRAMA867]], [[george:source:SETPRAMB867|SETPRAMB867]], [[george:source:SETUPARA867|SETUPARA867]], [[george:source:SHARE866|SHARE866]], [[george:source:SJLOOP864|SJLOOP864]], [[george:source:SJOPEN863|SJOPEN863]], [[george:source:SPERION867|SPERION867]], [[george:source:STRATEGY865|STRATEGY865]], [[george:source:SYSPROP867|SYSPROP867]], [[george:source:TAPERING867|TAPERING867]], [[george:source:TIDYREAD850|TIDYREAD850]], [[george:source:TPOBJ867|TPOBJ867]], [[george:source:TRACE867|TRACE867]], [[george:source:TRANFAIL866|TRANFAIL866]], [[george:source:TRANSFOR1|TRANSFOR1]], [[george:source:TRANSPOT65|TRANSPOT65]], [[george:source:TRAPCHEC867|TRAPCHEC867]], [[george:source:TRAPGO864|TRAPGO864]], [[george:source:TRAPLIST864|TRAPLIST864]], [[george:source:TRIPB83|TRIPB83]], [[george:source:TROBJ867|TROBJ867]], [[george:source:UMMENDS867|UMMENDS867]], [[george:source:USERDIR842|USERDIR842]], [[george:source:USEREXCP860|USEREXCP860]], [[george:source:USERLIB867|USERLIB867]], [[george:source:USERONE867|USERONE867]], [[george:source:USEROPEN867|USEROPEN867]], [[george:source:USERSTRM867|USERSTRM867]], [[george:source:USERTYPE83|USERTYPE83]], [[george:source:VCLASTWO867|VCLASTWO867]], [[george:source:VERBCLAS867|VERBCLAS867]], [[george:source:VIPBFREE865|VIPBFREE865]], [[george:source:VIPBPERI864|VIPBPERI864]], [[george:source:WAIT867|WAIT867]], [[george:source:WHATGENS867|WHATGENS867]], [[george:source:WHATJBS867|WHATJBS867]], [[george:source:WHATPER867|WHATPER867]], [[george:source:WHATPERA867|WHATPERA867]], [[george:source:WHATPERB867|WHATPERB867]], [[george:source:WHATPERX867|WHATPERX867]], [[george:source:WHATRVS867|WHATRVS867]], [[george:source:WHATRVSA867|WHATRVSA867]], [[george:source:WHENEVER867|WHENEVER867]], [[george:source:WHTSTAT867|WHTSTAT867]], [[george:source:WRITEFIP867|WRITEFIP867]], [[george:source:WSJOBS867|WSJOBS867]], [[george:source:WSJOBSA867|WSJOBSA867]], [[george:source:WSPARAM867|WSPARAM867]], [[george:source:WSPERIS867|WSPERIS867]], [[george:source:WTSTAT867|WTSTAT867]]

<code - SEG.mac.txt>
 3BMN ...[??? SEG SECT DEVT FGN 9 DOC
 3BXG    #   
 3CC6    #   
 3CWQ ...#MAC  SEG                          [UPDATED FOR 8.64 +8.67  
 3DBB ...#DEF  M1SEG=24?/65536&255$G3MARK<1  
 3DW2 ...#DEF  M2SEG=24?/256&255$G3MARK<1
 3F*L ...#SKI  24?&255$G3MARK<M1SEG<M2SEG$1 [SKIP WRONG MARK 
 3FT= ...(   
 3G#W ...#DEF  M3SEG=25?/65536&255$G3ISSUE<1 
 3GSG ...#DEF  M4SEG=25?/256&255$G3ISSUE<1   
 3H#6 ...#SKI  25?&255$G3ISSUE<M3SEG<M4SEG$1 [SKIP WRONG ISSUE   
 3HRQ ...(   
 3J?B ...#DEF  M5SEG=26?/65536&255$GEORGE<1  
 3JR2 ...#DEF  M6SEG=26?/256&255$GEORGE<1
 3K=L ...#SKI  26?&255$GEORGE<M5SEG<M6SEG$1 [SKIP WRONG GEORGE   
 3KQ= ...(   
 3MNQ    #INC %A 
 3N8B    )   
 3NN2    )   
 3P7L    )   
 3PM=    #FRL
 3Q6W    #DEF 24?=#77777777  
 3QLG    #DEF 25?=#77777777  
 3R66    #DEF 26?=#77777777  
 3R75 ...#STR   G,%E 
 3R84 ...#STR
 3R93 ...    SEGMES   %E 
 3R=2 ...#STR   G,%F 
 3R=^ ...#STR
 3R?Y ...    SEGMES   %F 
 3R#X ...#STR   G,%G 
 3R*W ...#STR
 3RBT ...    SEGMES   %G 
 3RCS ...#STR   G,%H 
 3RDR ...#STR
 3RFQ ...      SEGMES   %H   
 3RGP ...#STR   G,%I 
 3RHN ...#STR
 3RJM ...      SEGMES   %I   
 3RKQ    #SEG %A%B   %C  
 3S5B     8H%A   
 3SK2    #STR %D 
 3T4L    (   
 3TJ=    #OPT K6%A=K6ALLGEO>K6%D            [LEVELS IF %D PRESENT
 3W3W    #OPT  K0%A=K0ALLGEO>K0%D>0         [LEVELS IF %D PRESENT
 3WHG    #LIS K0%A>K0ALLGEO>K0%D>0   
 3X36    )   
 3XGQ    #STR %D 
 3Y2B    #SKI
 3YG2    (   
 3Y^L    #OPT K6%A=K6ALLGEO                 [LEVELS IF %D ABSENT 
 3^F=    #OPT K0%A=K0ALLGEO>0               [LEVELS IF %D ABSENT 
 3^YW    #LIS K0%A>K0ALLGEO>0
 42DG    )   
 42Y6    #NOR
</code>