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

**Defined in:** [[george:source:OPEN-MACROS|OPEN-MACROS]]

**Used in:** [[george:source:ABANDON867|ABANDON867]], [[george:source:ATTRIBUT867|ATTRIBUT867]], [[george:source:BMAPTWO860|BMAPTWO860]], [[george:source:BMSAVJOB864|BMSAVJOB864]], [[george:source:CLOSEMT867|CLOSEMT867]], [[george:source:COMPRESS864|COMPRESS864]], [[george:source:CONSERNO6|CONSERNO6]], [[george:source:DEAD867|DEAD867]], [[george:source:DEWELL867|DEWELL867]], [[george:source:DICTJOB82|DICTJOB82]], [[george:source:DICTWELL867|DICTWELL867]], [[george:source:DIRENT867|DIRENT867]], [[george:source:DSCNCT867|DSCNCT867]], [[george:source:DTWRONG867|DTWRONG867]], [[george:source:DUMP860|DUMP860]], [[george:source:ENWELL867|ENWELL867]], [[george:source:ERASE867|ERASE867]], [[george:source:ERASEA867|ERASEA867]], [[george:source:FREEZE864|FREEZE864]], [[george:source:GETFREE867|GETFREE867]], [[george:source:GETFREEB864|GETFREEB864]], [[george:source:IFXCODES864|IFXCODES864]], [[george:source:INCCHECK860|INCCHECK860]], [[george:source:IPDBATCH867|IPDBATCH867]], [[george:source:JDWRITE867|JDWRITE867]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:JSASCAN867|JSASCAN867]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:LABEL866|LABEL866]], [[george:source:LIBCOM867|LIBCOM867]], [[george:source:LIBINSEC864|LIBINSEC864]], [[george:source:LIBLOAD867|LIBLOAD867]], [[george:source:LIBMANY867|LIBMANY867]], [[george:source:LIBQUERY|LIBQUERY]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:LIBREQCA867|LIBREQCA867]], [[george:source:LIBSEC867|LIBSEC867]], [[george:source:LIST867|LIST867]], [[george:source:LISTNIP865|LISTNIP865]], [[george:source:LISTPROC867|LISTPROC867]], [[george:source:LISTSTAR867|LISTSTAR867]], [[george:source:LOGOUT867|LOGOUT867]], [[george:source:MODE866|MODE866]], [[george:source:NEWA867|NEWA867]], [[george:source:NEWDIR867|NEWDIR867]], [[george:source:NEWINST867|NEWINST867]], [[george:source:NEWOWN865|NEWOWN865]], [[george:source:NEWPASSW867|NEWPASSW867]], [[george:source:NEWPW867|NEWPW867]], [[george:source:OPENFILE867|OPENFILE867]], [[george:source:PROPERTY867|PROPERTY867]], [[george:source:REDONMT867|REDONMT867]], [[george:source:REGEN865|REGEN865]], [[george:source:RENAMAG864|RENAMAG864]], [[george:source:RENAMDIR|RENAMDIR]], [[george:source:RENAMEMT867|RENAMEMT867]], [[george:source:RESTEND850|RESTEND850]], [[george:source:RETURN867|RETURN867]], [[george:source:RETURNA867|RETURNA867]], [[george:source:RETURNIT867|RETURNIT867]], [[george:source:SCHDJOBA867|SCHDJOBA867]], [[george:source:SCHEDMTA860|SCHEDMTA860]], [[george:source:SCHEDULE867|SCHEDULE867]], [[george:source:SETIDF867|SETIDF867]], [[george:source:SETPC867|SETPC867]], [[george:source:SETPF867|SETPF867]], [[george:source:SETPRAMB867|SETPRAMB867]], [[george:source:SETUPARA867|SETUPARA867]], [[george:source:SPEAK8|SPEAK8]], [[george:source:SYSPROP867|SYSPROP867]], [[george:source:TAPEWAIT65|TAPEWAIT65]], [[george:source:UNLOADMT867|UNLOADMT867]], [[george:source:USERDIR842|USERDIR842]], [[george:source:WA864|WA864]], [[george:source:WHATPER867|WHATPER867]], [[george:source:WHATPROP865|WHATPROP865]], [[george:source:WLA867|WLA867]], [[george:source:WLAA867|WLAA867]], [[george:source:WLC867|WLC867]], [[george:source:WSJOBS867|WSJOBS867]], [[george:source:XENON|XENON]]

<code - OPENSYS.mac.txt>
 9^KN ...[??? OPENSYS SECT FILE FGN 20 DOC   
 9^TG    #MAC  OPENSYS   
 =2*6    # AS OPENSYSX EXCEPT THAT:- 
 =2SQ    #    %C TO %J INCLUSIVE ARE THE FILE OPENING MODES. 
 =3#B          SETMODE  0,%C,%D,%E,%F,%G,%H,%I,%J
 =3S2          OPENSYSX %A,%B,0  
 =4?L    #NOR
</code>