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

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

**Used in:** [[george:source:ALLOW84|ALLOW84]], [[george:source:ALTINST60|ALTINST60]], [[george:source:ANSCOM865|ANSCOM865]], [[george:source:ASSOC867|ASSOC867]], [[george:source:ATTACHA8|ATTACHA8]], [[george:source:BQUERY84|BQUERY84]], [[george:source:BUDGET84|BUDGET84]], [[george:source:CANCOM863|CANCOM863]], [[george:source:CANTDO867|CANTDO867]], [[george:source:CHINERR867|CHINERR867]], [[george:source:COMPRO867|COMPRO867]], [[george:source:CONCEPT85|CONCEPT85]], [[george:source:CREATE867|CREATE867]], [[george:source:DISPCOM867|DISPCOM867]], [[george:source:DOC867|DOC867]], [[george:source:DOMONOP867|DOMONOP867]], [[george:source:DOXCODE867|DOXCODE867]], [[george:source:DUMP860|DUMP860]], [[george:source:EDIT867|EDIT867]], [[george:source:ENTRUST|ENTRUST]], [[george:source:EXPRESS864|EXPRESS864]], [[george:source:FREEZE864|FREEZE864]], [[george:source:GET6|GET6]], [[george:source:GETON867|GETON867]], [[george:source:GETONA867|GETONA867]], [[george:source:GLOBALS867|GLOBALS867]], [[george:source:IFEXPAN867|IFEXPAN867]], [[george:source:INPUTMOP82|INPUTMOP82]], [[george:source:INSTPARA867|INSTPARA867]], [[george:source:IPCOPENB83|IPCOPENB83]], [[george:source:LABEL866|LABEL866]], [[george:source:LIBCOM867|LIBCOM867]], [[george:source:LINECTRL864|LINECTRL864]], [[george:source:LISTFILE867|LISTFILE867]], [[george:source:LISTNEXT867|LISTNEXT867]], [[george:source:LISTRING864|LISTRING864]], [[george:source:LOGOUT867|LOGOUT867]], [[george:source:MACDEF8|MACDEF8]], [[george:source:MAKEVCC867|MAKEVCC867]], [[george:source:MODE866|MODE866]], [[george:source:MODEA65|MODEA65]], [[george:source:NAMEPRIV|NAMEPRIV]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:NEWPASSW867|NEWPASSW867]], [[george:source:NEXTUNIT867|NEXTUNIT867]], [[george:source:OLMTA85|OLMTA85]], [[george:source:ONOFFALT60|ONOFFALT60]], [[george:source:OPERATOR867|OPERATOR867]], [[george:source:PROSTART867|PROSTART867]], [[george:source:QUESCOM867|QUESCOM867]], [[george:source:QUOTA850|QUOTA850]], [[george:source:REALTIME867|REALTIME867]], [[george:source:REDON867|REDON867]], [[george:source:REDONMT867|REDONMT867]], [[george:source:RELCOM|RELCOM]], [[george:source:RENAMAG864|RENAMAG864]], [[george:source:RENAMDIR|RENAMDIR]], [[george:source:RESET83|RESET83]], [[george:source:RETURN867|RETURN867]], [[george:source:SCRATCH866|SCRATCH866]], [[george:source:SECURE5|SECURE5]], [[george:source:SETDISC866|SETDISC866]], [[george:source:SETPRAMA867|SETPRAMA867]], [[george:source:SHOWCOMM864|SHOWCOMM864]], [[george:source:SJMESS867|SJMESS867]], [[george:source:SOUP867|SOUP867]], [[george:source:TIME6|TIME6]], [[george:source:TRACE867|TRACE867]], [[george:source:TRANSPOT65|TRANSPOT65]], [[george:source:TRAPCHEC867|TRAPCHEC867]], [[george:source:TRAPGO864|TRAPGO864]], [[george:source:TRAPLIST864|TRAPLIST864]], [[george:source:TRAPPARA3|TRAPPARA3]], [[george:source:TWINSET866|TWINSET866]], [[george:source:UNLOAD7|UNLOAD7]], [[george:source:VCLASTWO867|VCLASTWO867]], [[george:source:VERBCLAS867|VERBCLAS867]], [[george:source:VIPBFREE865|VIPBFREE865]], [[george:source:WA864|WA864]], [[george:source:WAIT867|WAIT867]], [[george:source:WFMOVE867|WFMOVE867]], [[george:source:WHATJBS867|WHATJBS867]], [[george:source:WHATRVS867|WHATRVS867]], [[george:source:WHTSTAT867|WHTSTAT867]], [[george:source:WLA867|WLA867]], [[george:source:WLAA867|WLAA867]], [[george:source:WLB867|WLB867]], [[george:source:WLC867|WLC867]]

<code - COMERR.mac.txt>
 7CJN ...[??? COMERR SECT CENT FGN 21 DOC
 7CSG    #MAC  COMERR
 7D#6    #STR  %A
 7DRQ    (   
 7F?B          CALL  1  MCOMERRQRT   
 7FR2                   +%A  
 7G=L    #STR  %B
 7GQ=                   +%B  
 7H9W    #STR  %B
 7HPG    #SKI
 7J96                   -1   
 7JNQ    )   
 7K8B    #STR  %A
 7KN2    #SKI
 7L7L          GEOERR   1,NOMESSIN   
 7LM=    #OPT  MCOMERRQRT=0? 
 7M6W    #SKI  MCOMERRQRT$0?<1$1 
 7MLG          COMERRX  0(1),1(1)
 7N66    #NOR
</code>