{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: MFCATS)}}
====== MFCATS ======
(GIN Macro)
**Defined in:** [[george:source:MACROS_MSYS|MACROS MSYS]]
**Used in:**
7H^# ...[??? MFCATS SECT CENT FGN 56 DOC
7J96 #
7JNQ #
7K8B # HERE FOLLOWS MFCATS **** MFCATS
7KN2 # IT IS USED TO SET AND CHECK THE CATEGORY
7L7L # WORD OF A MESSAGE PART.
7LM= # PARAMETERS ARE CATEGORY NAMES
7M6W #
7MLG #MAC MFCATS
7N66 #SKI 24?<1$1 [SKIP IF NOT FIRST TIME THROUGH
7NKQ (
7P5B #DEF 24?=34?+0?]�^#10000000
7PK2 #DEF 20?=33? [CURRENT ERROR COUNT
7Q4L #STR %A
7QJ= CATMASK %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S-
7R3W ,%T,%U,%V,%W,%X,%Y,%Z
7RHG #SKI 33?-20? [SKIP UNLESS ERROR IN CATMASK
7S36 MFERROR 5
7SGQ (
7TG2 #DEF 0?=0?-1
7TKX ...#STR %A
7TPS ...#SKI
7TTP ... 34?+0?]^MHLS
7T^L #DEF 20?=34?+0?]
7WF= #DEF 24?=20?�^24? [ADD PA IF NECESSARY
7WYW #DEF 20?=24?𘚠^#77677777&20? [SUPPRESS SYSREQ IF CLEAR IN OLD
7XDG #DEF 20?=20?�
7XY6 +24?�^20? [RESET CATS APPLYING CONSTRAINTS
7YCQ #EXI
7YXB )
7^C2 )
7^WL #SKI ALTMESS+2 [SKIP IF ERROR DETECTED
82B= (
82TW #DEF 20?=33? [CURRENT ERROR COUNT
83*G #SKI 23?<1$1
83T6 #STR %A
84#Q CATMASK %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S-
84SB ,%T,%U,%V,%W,%X,%Y,%Z
85#2 #SKI 33?-20? [SKIP UNLESS ERROR IN CATMASK
85RL MFERROR 5
86?= (
87Q6 #DEF 0?=0?-1
87T= ...#SKI 23?<1$1
87YB ...#STR %A
883G ...#SKI
886L ... 34?+0?]^MHLS
889Q #DEF 20?=34?+0?]
88PB #SKI 20?𘚠
8992 MFERROR 6 [SYSREQ NOT ALLOWED IN MULTI-PART
89NL (
8=8= +20?�^24? [ADD MANDATORY BITS
8=MW #EXI
8?7G )
8?M6 )
8#6Q )
8#LB #SKI [SKIP FOLLOWING CODE IF ERROR FOUND
8*62 #NOR