(GIN Macro)
Defined in: MACROS LEF
Used in: CONNECT867, LOGOUT867
9#KS ...[??? LFEJCNT SECT DEVT FGN 2 DOC 9#TL #MAC LFEJCNT 9**= [THIS MACRO OBTAINS A COUNT OF LISTFILES INITIATED BY A JOB. 9*SW [%A TO CONTAIN NUMBER FOR SAME CLUSTER 9B#G [%B TO CONTAIN NUMBER FOR OTHER CLUSTER 9BS6 [%C TO CONTAIN NUMBER FOR MULTIFILES WHICH ARE STILL BEING WRITTEN 9C?Q [IT EXPECTS ALFCNT TO BE SET UP AS FOLLOWS 9CRB [B12 -23 COUNT FOR THIS CLUSTER 9D?2 [B6 - 11 COUNT FOR OTHER CLUSTER 9DQL [B1 - 5 COUNT OF OPEN MULTIFILES 9F== [ON EXIT B0 IS SET TO PREVENT FURTHER UPDATING 9FPW #ACC %A 9G9G ( 9GP6 LDN 0 #7777 9H8Q STO 0 %A 9HNB ) 9J82 #ACC %B 9JML ( 9K7= LDN 0 #77 9KLW STO 0 %B 9L6G ) 9LL6 #ACC %C 9M5Q ( 9MKB LDN 0 #37 9N52 STO 0 %C 9NJL ) 9P4= SMO FX2 9PHW LDX 0 ALFCNT 9Q3G #ACC %A 9QH6 ANDS 0 %A 9R2Q #ACC %A 9RGB #SKI 9S22 ( 9SFL LDN %A #7777 9S^= ANDX %A 0 9TDW ) 9TYG SRL 0 12 9WD6 #ACC %B 9WXQ ANDS 0 %B 9XCB #ACC %B 9XX2 #SKI 9YBL ( 9YW= LDN %B #77 9^*W ANDX %B 0 9^TG ) =2*6 SRL 0 6 =2SQ #ACC %C =3#B ANDS 0 %C =3S2 #ACC %C =4?L #SKI =4R= ( =5=W LDN %C #37 =5QG ANDX %C 0 =6=6 ) =6PQ LDX 0 GSIGN =79B SMO FX2 =7P2 ORS 0 ALFCNT =88L #NOR