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

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

**Used in:** [[george:source:ADJUNCTS85|ADJUNCTS85]], [[george:source:ALAS822|ALAS822]], [[george:source:ALASB867|ALASB867]], [[george:source:ANALYSEA3|ANALYSEA3]], [[george:source:APPEND864|APPEND864]], [[george:source:ATTACHA8|ATTACHA8]], [[george:source:BACKMAP864|BACKMAP864]], [[george:source:BCAST867|BCAST867]], [[george:source:BEXTRA83|BEXTRA83]], [[george:source:BMINDEX866|BMINDEX866]], [[george:source:BMJLCONV860|BMJLCONV860]], [[george:source:BMSTREAM853|BMSTREAM853]], [[george:source:BSBLFAIL867|BSBLFAIL867]], [[george:source:BSPRUNE867|BSPRUNE867]], [[george:source:BSUJSTAT867|BSUJSTAT867]], [[george:source:BSUNJAM867|BSUNJAM867]], [[george:source:BUDGONE83|BUDGONE83]], [[george:source:CANCRVX864|CANCRVX864]], [[george:source:CANTDO867|CANTDO867]], [[george:source:CHANG867|CHANG867]], [[george:source:CHNUMCON867|CHNUMCON867]], [[george:source:CIOUT8|CIOUT8]], [[george:source:CLOSBAC867|CLOSBAC867]], [[george:source:CLOSEFUL867|CLOSEFUL867]], [[george:source:CONTEND867|CONTEND867]], [[george:source:CONTRACT866|CONTRACT866]], [[george:source:CORE867|CORE867]], [[george:source:COREALL865|COREALL865]], [[george:source:CROBJ6|CROBJ6]], [[george:source:DATUM|DATUM]], [[george:source:DECODE860|DECODE860]], [[george:source:DELETE864|DELETE864]], [[george:source:DISPCOM867|DISPCOM867]], [[george:source:DOC867|DOC867]], [[george:source:DOXCODE867|DOXCODE867]], [[george:source:DROBJ864|DROBJ864]], [[george:source:DTQUEST860|DTQUEST860]], [[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:EDITEX7|EDITEX7]], [[george:source:EDITORA865|EDITORA865]], [[george:source:EDITPT867|EDITPT867]], [[george:source:EDOBJ864|EDOBJ864]], [[george:source:EDWRITE867|EDWRITE867]], [[george:source:EXINONE867|EXINONE867]], [[george:source:EXINTO867|EXINTO867]], [[george:source:EXMESS70|EXMESS70]], [[george:source:EXOPEN867|EXOPEN867]], [[george:source:EXTEND866|EXTEND866]], [[george:source:FINDFS867|FINDFS867]], [[george:source:GET6|GET6]], [[george:source:GETDIR860|GETDIR860]], [[george:source:GETDIRX860|GETDIRX860]], [[george:source:GETON867|GETON867]], [[george:source:GETONA867|GETONA867]], [[george:source:GIVE867|GIVE867]], [[george:source:HARDIDF867|HARDIDF867]], [[george:source:HLSEMS864|HLSEMS864]], [[george:source:IDFASAT867|IDFASAT867]], [[george:source:IDFCANC867|IDFCANC867]], [[george:source:IDFCHK867|IDFCHK867]], [[george:source:IDFCONS8|IDFCONS8]], [[george:source:IFNUMS867|IFNUMS867]], [[george:source:INCCHECK860|INCCHECK860]], [[george:source:INCOBS867|INCOBS867]], [[george:source:INCOM864|INCOM864]], [[george:source:INCRV850|INCRV850]], [[george:source:INDEX85|INDEX85]], [[george:source:INSERT6|INSERT6]], [[george:source:INSERTBL6|INSERTBL6]], [[george:source:INSERTHR6|INSERTHR6]], [[george:source:INSERTWO6|INSERTWO6]], [[george:source:IPBCONS867|IPBCONS867]], [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:IPBLISTB867|IPBLISTB867]], [[george:source:IPBLISTD867|IPBLISTD867]], [[george:source:IPBLISTE867|IPBLISTE867]], [[george:source:IPBMOP867|IPBMOP867]], [[george:source:IPBMOPB867|IPBMOPB867]], [[george:source:IPDBATCH867|IPDBATCH867]], [[george:source:JWELLTWO867|JWELLTWO867]], [[george:source:LDSTART850|LDSTART850]], [[george:source:LEXIFIND5|LEXIFIND5]], [[george:source:LIBREQCA867|LIBREQCA867]], [[george:source:LIBSEC867|LIBSEC867]], [[george:source:LISTLOOP867|LISTLOOP867]], [[george:source:LISTMOP867|LISTMOP867]], [[george:source:LISTPARS867|LISTPARS867]], [[george:source:LISTRING864|LISTRING864]], [[george:source:LISTTPCP867|LISTTPCP867]], [[george:source:LOADFIN860|LOADFIN860]], [[george:source:LOADX60|LOADX60]], [[george:source:MAKEFILE863|MAKEFILE863]], [[george:source:MAKEVCC867|MAKEVCC867]], [[george:source:MATALO860|MATALO860]], [[george:source:MONFIL865|MONFIL865]], [[george:source:MONFILEA864|MONFILEA864]], [[george:source:MONITOR36|MONITOR36]], [[george:source:MONJRNAL850|MONJRNAL850]], [[george:source:MONOLITH864|MONOLITH864]], [[george:source:MOPOUT85|MOPOUT85]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:NORMALUS864|NORMALUS864]], [[george:source:OPENFILE867|OPENFILE867]], [[george:source:OPERA864|OPERA864]], [[george:source:OPERAPP864|OPERAPP864]], [[george:source:OPERIN867|OPERIN867]], [[george:source:OPILLSA206|OPILLSA206]], [[george:source:ORELEMPT70|ORELEMPT70]], [[george:source:PARAMA865|PARAMA865]], [[george:source:PARAMB865|PARAMB865]], [[george:source:PCTMES8|PCTMES8]], [[george:source:PERFAIL866|PERFAIL866]], [[george:source:RAND864|RAND864]], [[george:source:READBULK867|READBULK867]], [[george:source:RELIEF866|RELIEF866]], [[george:source:RELPER867|RELPER867]], [[george:source:RESTEND850|RESTEND850]], [[george:source:RESTOREG864|RESTOREG864]], [[george:source:RETURN867|RETURN867]], [[george:source:REWRITE864|REWRITE864]], [[george:source:RITEFAIL864|RITEFAIL864]], [[george:source:SCEX866|SCEX866]], [[george:source:SCHEDENX860|SCHEDENX860]], [[george:source:SCHEDMTA860|SCHEDMTA860]], [[george:source:SCHEDMTX867|SCHEDMTX867]], [[george:source:SETMON70|SETMON70]], [[george:source:SETPB867|SETPB867]], [[george:source:SETPG867|SETPG867]], [[george:source:SETPN867|SETPN867]], [[george:source:SETPRAMA867|SETPRAMA867]], [[george:source:SETPRAMB867|SETPRAMB867]], [[george:source:SETUPARA867|SETUPARA867]], [[george:source:SJMESS867|SJMESS867]], [[george:source:TPOBJ867|TPOBJ867]], [[george:source:TRANFAIL866|TRANFAIL866]], [[george:source:TRANSFOR1|TRANSFOR1]], [[george:source:TROBJ867|TROBJ867]], [[george:source:TWINSETD866|TWINSETD866]], [[george:source:UNSAVE867|UNSAVE867]], [[george:source:WHATPROP865|WHATPROP865]], [[george:source:WHENEVER867|WHENEVER867]], [[george:source:WLD864|WLD864]], [[george:source:WLE862|WLE862]], [[george:source:WORKFILE860|WORKFILE860]]

<code - ALTLEN.mac.txt>
 3SSS ...[??? ALTLEN SECT CENT FGN 32 DOC
 3T4L    #   
 3TJ=    #MAC  ALTLEN                       [TO ALTER BLOCKS LOGICAL LENGTH  
 3W3W          ALTBOTH  %A,%B,%C,%D,X
 3WHG    #NOR
</code>