!SSI DATABASE DATA ZEROING PROCEDURE, ETLANKN 12/04/95; PCORL:BLOCK=FMI,IS=H'290,CI=SBDUMP; !TO ENABLE DUMPING FROM SB SIDE! JLN H'2AC; END; PCORI:BLOCK=FMI,IA=H'290; PCORS:BLOCK=FMI,IA=H'290; !SSIA; SAAEP:SAE=236; !SSIC4/SSIA GLOBAL DATA TABLES! SAAEP:SAE=238; !SSIC3/SSIA SERVICE ADMINISTRATORS! SAAEP:SAE=675,BLOCK=SSIA; !SSIA SERVICE DATA FILE! SAAEP:SAE=676,BLOCK=SSIA; !SSIA LOCAL & GLOBAL DATA FILE! SAAEP:SAE=271; !SSIC5/SSIA SCNAMES! !SSI; SAAEP:SAE=237; !SSIC2/SSI SERVICE LOGICS! SAAEP:SAE=670,BLOCK=SSI; !SSI LOGIC STRUCTURE! SAAEP:SAE=671,BLOCK=SSI; !SSI DATA MODULES! !SSINT; SAAEP:SAE=671,BLOCK=SSINT; !JUMP MODULES! !SSINT2; SAAEP:SAE=671,BLOCK=SSINT2; !GOSUB MODULES! !SSNAX; SAAEP:SAE=760,BLOCK=SSNAX; !SSNAX ORIGINE INDIVIDUALS! SAAEP:SAE=761,BLOCK=SSNAX; !SSNAX RESULT INDIVIDUALS! SAAEP:SAE=762,BLOCK=SSNAX; !SSNAX COMPARE INDIVIDUALS! SAAEP:SAE=763,BLOCK=SSNAX; !SSNAX 2 DIGIT COMPARE INDIVIDUALS! SAAEP:SAE=764,BLOCK=SSNAX; !SSNAX BRANCH INDIVIDUALS! !SSCC; SAAEP:SAE=770,BLOCK=SSCC; !CHANGE CODES! SAAEP:SAE=771,BLOCK=SSCC; !PROCEDURE FILE! SAAEP:SAE=772,BLOCK=SSCC; !CONSTANT RECORD! !REMOVAL OF ALL IN DATA; TEST SYSTEM; PRINT VAR SSCC 0-:H'50; !CHACOSTATE = BLOCKED! SET VAR SSCC 0-:H'50=0; !CHACOSTATE = BLOCKED! SSDTE:CTRTYPE=CCPROC,KEY1=0,GLOBAL; !CHEAT HA HA! SSDTE:CTRTYPE=CCPROC,KEY1=1,GLOBAL; !CHEAT AGAIN! SAADI:SAE=770,BLOCK=SSCC,NI=0; !CHANGE CODES! SAADI:SAE=771,BLOCK=SSCC,NI=0; !PROCEDURE FILE! SAADI:SAE=772,BLOCK=SSCC,NI=0; !CONSTANT RECORD! !SSIA; SAAEP:SAE=236; !SSIC4/SSIA GLOBAL DATA TABLES! SAADI:SAE=236,NI=4; PRINT VAR SSIC4 0-:H'47; !GDTINDEX = GDTINDEXPTR1! SET VAR SSIC4 0:H'47=0; !GDTINDEX = GDTINDEXPTR1! SET VAR SSIC4 1:H'47=1; !GDTINDEX = GDTINDEXPTR1! SET VAR SSIC4 2:H'47=2; !GDTINDEX = GDTINDEXPTR1! SET VAR SSIC4 3:H'47=3; !GDTINDEX = GDTINDEXPTR1! PRINT VAR SSIC4 H'68; !CNUSED = 0! SET VAR SSIC4 H'68=0; !CNUSED = 0! SAADI:SAE=236,NI=0; !SSIC4/SSIA GLOBAL DATA TABLES! SAAEP:SAE=238; !SSIC3/SSIA SERVICE ADMINISTRATORS! SAADI:SAE=238,NI=17; !SSIC3/SSIA SERVICE ADMINISTRATORS! PRINT VAR SSIC3 0-:H'17; !INDEX = INDEXPTR1! SET VAR SSIC3 H'2:H'17=H'2; !INDEX = INDEXPTR1! SET VAR SSIC3 H'3:H'17=H'3; !INDEX = INDEXPTR1! SET VAR SSIC3 H'4:H'17=H'4; !INDEX = INDEXPTR1! SET VAR SSIC3 H'5:H'17=H'5; !INDEX = INDEXPTR1! SET VAR SSIC3 H'6:H'17=H'6; !INDEX = INDEXPTR1! SET VAR SSIC3 H'7:H'17=H'7; !INDEX = INDEXPTR1! SET VAR SSIC3 H'8:H'17=H'8; !INDEX = INDEXPTR1! SET VAR SSIC3 H'9:H'17=H'9; !INDEX = INDEXPTR1! SET VAR SSIC3 H'A:H'17=H'A; !INDEX = INDEXPTR1! SET VAR SSIC3 H'B:H'17=H'B; !INDEX = INDEXPTR1! SET VAR SSIC3 H'C:H'17=H'C; !INDEX = INDEXPTR1! SET VAR SSIC3 H'D:H'17=H'D; !INDEX = INDEXPTR1! SET VAR SSIC3 H'E:H'17=H'E; !INDEX = INDEXPTR1! SET VAR SSIC3 H'F:H'17=H'F; !INDEX = INDEXPTR1! SET VAR SSIC3 H'10:H'17=H'10; !INDEX = INDEXPTR1! PRINT VAR SSIC3 H'2E; !CNUSED = MINSA! SET VAR SSIC3 H'2E=2; !CNUSED = MINSA! SAADI:SAE=238,NI=2; !SSIC3/SSIA SERVICE ADMINISTRATORS! SAAEP:SAE=675,BLOCK=SSIA; !SSIA SERVICE DATA FILE! PRINT VAR SSIA 0-:H'C; !LDTSTATE = IDLE! SET VAR SSIA 0-:H'C=0; !LDTSTATE = IDLE! PRINT VAR SSIA H'C0; !CNUSEDLDT! SET VAR SSIA H'C0=0; !CNUSEDLDT! SAADI:SAE=675,BLOCK=SSIA,NI=25; !SSIA SERVICE DATA FILE! SAADI:SAE=675,BLOCK=SSIA,NI=0; !SSIA SERVICE DATA FILE! SAAEP:SAE=676,BLOCK=SSIA; !SSIA LOCAL & GLOBAL DATA FILE! PRINT VAR SSIA 0-:H'70; !SDTSTATE = IDLE! SET VAR SSIA 0-:H'70=0; !SDTSTATE = IDLE! PRINT VAR SSIA H'C1; !CNUSEDSDT! SET VAR SSIA H'C1=0; !CNUSEDSDT! SAADI:SAE=676,BLOCK=SSIA,NI=0; !SSIA LOCAL & GLOBAL DATA FILE! SAAEP:SAE=271; !SSIC5/SSIA SCNAMES! PRINT VAR SSIC5 0-:H'4; !RBACKWARD = ZHEXFFFF! SET VAR SSIC5 0-:H'4=H'FFFF; !RBACKWARD = ZHEXFFFF! PRINT VAR SSIC5 H'31; !CNUSED = 0! SET VAR SSIC5 H'31=0; !CNUSED = 0! SAADI:SAE=271,NI=250; !SSIC5/SSIA SCNAMES! SAADI:SAE=271,NI=200; !SSIC5/SSIA SCNAMES! SAADI:SAE=271,NI=150; !SSIC5/SSIA SCNAMES! SAADI:SAE=271,NI=100; !SSIC5/SSIA SCNAMES! SAADI:SAE=271,NI=50; !SSIC5/SSIA SCNAMES! SAADI:SAE=271,NI=0; !SSIC5/SSIA SCNAMES! !SSI; SAAEP:SAE=237; !SSIC2/SSI SERVICE LOGICS! SAADI:SAE=237,NI=100; !SSIC2/SSI SERVICE LOGICS! SAADI:SAE=237,NI=18; !SSIC2/SSI SERVICE LOGICS! PRINT VAR SSIC2 H'0-:H'3; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'0:H'3=H'0; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'1:H'3=H'1; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'2:H'3=H'2; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'3:H'3=H'3; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'4:H'3=H'4; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'5:H'3=H'5; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'6:H'3=H'6; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'7:H'3=H'7; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'8:H'3=H'8; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'9:H'3=H'9; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'A:H'3=H'A; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'B:H'3=H'B; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'C:H'3=H'C; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'D:H'3=H'D; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'E:H'3=H'E; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'F:H'3=H'F; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'10:H'3=H'10; !SLINDEX = INDEXPTR1! SET VAR SSIC2 H'11:H'3=H'11; !SLINDEX = INDEXPTR1! PRINT VAR SSIC2 H'27; !CNUSED = 0! SET VAR SSIC2 H'27=0; !CNUSED = 0! SAADI:SAE=237,NI=0; !SSIC2/SSI SERVICE LOGICS! SAAEP:SAE=670,BLOCK=SSI; !SSI LOGIC STRUCTURE! PRINT VAR SSI 0-:H'3F; !SLPSTATE = IDLE! SET VAR SSI 0-:H'3F=0; !SLPSTATE = IDLE! PRINT VAR SSI H'7F; !CNUMUSEDSLPFILE = 0! SET VAR SSI H'7F=0; !CNUMUSEDSLPFILE = 0! SAADI:SAE=670,BLOCK=SSI,NI=0; !SSI LOGIC STRUCTURE! SAAEP:SAE=671,BLOCK=SSI; !SSI DATA MODULES! PRINT VAR SSI 0-:H'2F; !DMSTATE = IDLE! SET VAR SSI 0-:H'2F=0; !DMSTATE = IDLE! PRINT VAR SSI H'7C; !CNUSEDDM = 0! SET VAR SSI H'7C=0; !CNUSEDDM = 0! SAADI:SAE=671,BLOCK=SSI,NI=300; !SSI DATA MODULES! SAADI:SAE=671,BLOCK=SSI,NI=275; !SSI DATA MODULES! SAADI:SAE=671,BLOCK=SSI,NI=250; !SSI DATA MODULES! SAADI:SAE=671,BLOCK=SSI,NI=225; !SSI DATA MODULES! SAADI:SAE=671,BLOCK=SSI,NI=200; !SSI DATA MODULES! SAADI:SAE=671,BLOCK=SSI,NI=175; !SSI DATA MODULES! SAADI:SAE=671,BLOCK=SSI,NI=150; !SSI DATA MODULES! SAADI:SAE=671,BLOCK=SSI,NI=125; !SSI DATA MODULES! SAADI:SAE=671,BLOCK=SSI,NI=100; !SSI DATA MODULES! SAADI:SAE=671,BLOCK=SSI,NI=75; !SSI DATA MODULES! SAADI:SAE=671,BLOCK=SSI,NI=50; !SSI DATA MODULES! SAADI:SAE=671,BLOCK=SSI,NI=25; !SSI DATA MODULES! SAADI:SAE=671,BLOCK=SSI,NI=0; !SSI DATA MODULES! !SSINT; SAAEP:SAE=671,BLOCK=SSINT; !JUMP MODULES! PRINT VAR SSINT H'5E; !CNUSED! SET VAR SSINT H'5E=H'0; !CNUSED! PRINT VAR SSINT H'0-:H'69; !INDEX! SET VAR SSINT H'0:H'69=H'0; !INDEX! SET VAR SSINT H'1:H'69=H'1; SET VAR SSINT H'2:H'69=H'2; SET VAR SSINT H'3:H'69=H'3; SET VAR SSINT H'4:H'69=H'4; SET VAR SSINT H'5:H'69=H'5; SET VAR SSINT H'6:H'69=H'6; SET VAR SSINT H'7:H'69=H'7; SET VAR SSINT H'8:H'69=H'8; SET VAR SSINT H'9:H'69=H'9; SET VAR SSINT H'A:H'69=H'A; SET VAR SSINT H'B:H'69=H'B; SET VAR SSINT H'C:H'69=H'C; SET VAR SSINT H'D:H'69=H'D; SET VAR SSINT H'E:H'69=H'E; SET VAR SSINT H'F:H'69=H'F; SET VAR SSINT H'10:H'69=H'10; SET VAR SSINT H'11:H'69=H'11; SET VAR SSINT H'12:H'69=H'12; SET VAR SSINT H'13:H'69=H'13; SET VAR SSINT H'14:H'69=H'14; SET VAR SSINT H'15:H'69=H'15; SET VAR SSINT H'16:H'69=H'16; SET VAR SSINT H'17:H'69=H'17; SET VAR SSINT H'18:H'69=H'18; SET VAR SSINT H'19:H'69=H'19; SET VAR SSINT H'1A:H'69=H'1A; SET VAR SSINT H'1B:H'69=H'1B; SET VAR SSINT H'1C:H'69=H'1C; SET VAR SSINT H'1D:H'69=H'1D; SET VAR SSINT H'1E:H'69=H'1E; SET VAR SSINT H'1F:H'69=H'1F; SET VAR SSINT H'20:H'69=H'20; SET VAR SSINT H'21:H'69=H'21; SET VAR SSINT H'22:H'69=H'22; SET VAR SSINT H'23:H'69=H'23; SET VAR SSINT H'24:H'69=H'24; SET VAR SSINT H'25:H'69=H'25; SET VAR SSINT H'26:H'69=H'26; SET VAR SSINT H'27:H'69=H'27; SET VAR SSINT H'28:H'69=H'28; SET VAR SSINT H'29:H'69=H'29; SET VAR SSINT H'2A:H'69=H'2A; SET VAR SSINT H'2B:H'69=H'2B; SET VAR SSINT H'2C:H'69=H'2C; SET VAR SSINT H'2D:H'69=H'2D; SET VAR SSINT H'2E:H'69=H'2E; SET VAR SSINT H'2F:H'69=H'2F; SET VAR SSINT H'30:H'69=H'30; SET VAR SSINT H'31:H'69=H'31; SAADI:SAE=671,BLOCK=SSINT,NI=25; !JUMP MODULES! SAADI:SAE=671,BLOCK=SSINT,NI=0; !JUMP MODULES! !SSINT2; SAAEP:SAE=671,BLOCK=SSINT2; !GOSUB MODULES! PRINT VAR SSINT2 H'4; !CNUSED! SET VAR SSINT2 H'4=H'0; !CNUSED! PRINT VAR SSINT2 H'0-:H'2; !INDEX! SET VAR SSINT2 H'0:H'2=H'0; !INDEX! SET VAR SSINT2 H'1:H'2=H'1; !INDEX! SET VAR SSINT2 H'2:H'2=H'2; !INDEX! SET VAR SSINT2 H'3:H'2=H'3; !INDEX! SET VAR SSINT2 H'4:H'2=H'4; !INDEX! SET VAR SSINT2 H'5:H'2=H'5; !INDEX! SET VAR SSINT2 H'6:H'2=H'6; !INDEX! SET VAR SSINT2 H'7:H'2=H'7; !INDEX! SET VAR SSINT2 H'8:H'2=H'8; !INDEX! SET VAR SSINT2 H'9:H'2=H'9; !INDEX! SET VAR SSINT2 H'A:H'2=H'A; !INDEX! SET VAR SSINT2 H'B:H'2=H'B; !INDEX! SET VAR SSINT2 H'C:H'2=H'C; !INDEX! SET VAR SSINT2 H'D:H'2=H'D; !INDEX! SET VAR SSINT2 H'E:H'2=H'E; !INDEX! SET VAR SSINT2 H'F:H'2=H'F; !INDEX! SET VAR SSINT2 H'10:H'2=H'10; !INDEX! SET VAR SSINT2 H'11:H'2=H'11; !INDEX! SET VAR SSINT2 H'12:H'2=H'12; !INDEX! SET VAR SSINT2 H'13:H'2=H'13; !INDEX! SET VAR SSINT2 H'14:H'2=H'14; !INDEX! SET VAR SSINT2 H'15:H'2=H'15; !INDEX! SET VAR SSINT2 H'16:H'2=H'16; !INDEX! SET VAR SSINT2 H'17:H'2=H'17; !INDEX! SET VAR SSINT2 H'18:H'2=H'18; !INDEX! SAADI:SAE=671,BLOCK=SSINT2,NI=0; !GOSUB MODULES! !SSIC3 INITIAL DATA FOR ACCESS & ERROR; PRINT VAR SSIC3 0:H'17; !INDEX! SET VAR SSIC3 0:H'17=0; !INDEX! PRINT VAR SSIC3 1:H'17; !INDEX! SET VAR SSIC3 1:H'17=1; !INDEX! PRINT VAR SSIC3 0-1:H'26; !SAINLETCOUNT! SET VAR SSIC3 0-1:H'26=0; !SAINLETCOUNT! PRINT VAR SSIC3 0-1:H'57(0-); !SASLCONSECS! SET VAR SSIC3 0-1:H'57(0-)=0; !SASLCONSECS! PRINT VAR SSIC3 0-1:H'1A; !SABLOCK! SET VAR SSIC3 0-1:H'1A=1; !SABLOCK! PRINT VAR SSIC3 0-1:H'1B; !SAMARK! SET VAR SSIC3 0-1:H'1B=0; !SAMARK! PRINT VAR SSIC3 0-1:H'1C; !SAOPINDEX! SET VAR SSIC3 0-1:H'1C=0; !SAOPINDEX! PRINT VAR SSIC3 0-1:H'1D(0-); !SATRAFVAL! SET VAR SSIC3 0-1:H'1D(0-)=1; !SATRAFVAL! PRINT VAR SSIC3 0-1:H'1E(0-); !SATRAFBLOCK! SET VAR SSIC3 0-1:H'1E(0-)=0; !SATRAFBLOCK! PRINT VAR SSIC3 0-1:H'1F(0-); !SASLLINK! SET VAR SSIC3 0-1:H'1F(0-)=H'FFFF; !SASLLINK! PRINT VAR SSIC3 0-1:H'20(0-); !SASLCONTIME! SET VAR SSIC3 0-1:H'20(0-)=0; !SASLCONTIME! PRINT VAR SSIC3 0-1:H'21(0-); !SASLCONDATE! SET VAR SSIC3 0-1:H'21(0-)=0; !SASLCONDATE! PRINT VAR SSIC3 0-1:H'22(0-); !SASLCONYEAR! SET VAR SSIC3 0-1:H'22(0-)=0; !SASLCONYEAR! !SSIC5 INITIAL DATA FOR SCRECORDS; PRINT VAR SSIC5 0-:H'1; !RSCPTRTOREC = ZHEXFFFF! SET VAR SSIC5 0-:H'1=H'FFFF; !RSCPTRTOREC = ZHEXFFFF! PRINT VAR SSIC5 0-:H'2; !RRECORDUSED = 0! SET VAR SSIC5 0-:H'2=H'0; !RRECORDUSED = 0! !SSIA INITIAL DATA FOR ACCESS & ERROR; PRINT VAR SSIA 0-1:H'5B; !SABLOCK! SET VAR SSIA 0-1:H'5B=H'5; !SABLOCK! PRINT VAR SSIA 0-1:H'5C; !SAOP! SET VAR SSIA 0-1:H'5C=H'0; !SAOP! PRINT VAR SSIA 0-1:H'5D(0-); !SASDTLINK! SET VAR SSIA 0-1:H'5D(0-)=H'FFFF; !SASDTLINK! PRINT VAR SSIA 0-1:H'5F; !SALDTLINK! SET VAR SSIA 0-1:H'5F=H'FFFF; !SALDTLINK! PRINT VAR SSIA 0-1:H'61; !SASSTATDATALINK! SET VAR SSIA 0-1:H'61=H'FFFF; !SASSTATDATALINK! PRINT VAR SSIA 0-1:H'62; !SASREPORTDATALINK! SET VAR SSIA 0-1:H'62=H'FFFF; !SASREPORTDATALINK! !SSI INITIAL DATA FOR ACCESS & ERROR; PRINT VAR SSI 0-:H'3A(0-); !SASLPTR! SET VAR SSI 0-:H'3A(0-)=H'FFFF; !SASLPTR! !SSNAX; PRINT VAR SSNAX 0-:H'44; !OSTATE = ZIDLE! SET VAR SSNAX 0-:H'44=0; !OSTATE = ZIDLE! PRINT VAR SSNAX H'6D; !CUSEDOCNT = 0! SET VAR SSNAX H'6D=0; !CUSEDOCNT = 0! SAADI:SAE=760,BLOCK=SSNAX,NI=0; !SSNAX ORIGIN INDIVIDUALS! PRINT VAR SSNAX 0-:H'63; !RSTATE = ZIDLE! SET VAR SSNAX 0-:H'63=0; !RSTATE = ZIDLE! PRINT VAR SSNAX H'6F; !CUSEDRCNT = 0! SET VAR SSNAX H'6F=0; !CUSEDRCNT = 0! SAADI:SAE=761,BLOCK=SSNAX,NI=0; !SSNAX RESULT INDIVIDUALS! PRINT VAR SSNAX 0-:H'70; !CMPSTATE = ZIDLE! SET VAR SSNAX 0-:H'70=0; !CMPSTATE = ZIDLE! PRINT VAR SSNAX H'C8; !CUSEDCMPCNT = 0! SET VAR SSNAX H'C8=0; !CUSEDCMPCNT = 0! SAADI:SAE=762,BLOCK=SSNAX,NI=0; !SSNAX COMPARE INDIVIDUALS! PRINT VAR SSNAX 0-:H'71; !TDCSTATE = ZIDLE! SET VAR SSNAX 0-:H'71=0; !TDCSTATE = ZIDLE! PRINT VAR SSNAX H'60; !CUSEDTDCNT = 0! SET VAR SSNAX H'60=0; !CUSEDTDCNT = 0! SAADI:SAE=763,BLOCK=SSNAX,NI=0; !SSNAX 2 DIGIT COMPARE INDIVIDUALS! PRINT VAR SSNAX 0-:H'72; !DBSTATE = ZIDLE! SET VAR SSNAX 0-:H'72=0; !DBSTATE = ZIDLE! PRINT VAR SSNAX H'C9; !CUSEDDBCNT = 0! SET VAR SSNAX H'C9=0; !CUSEDDBCNT = 0! SAADI:SAE=764,BLOCK=SSNAX,NI=0; !SSNAX BRANCH INDIVIDUALS! !DEBLOCK DATABASE; SET VAR SSI 91=0; !CDATABASEBLOCKED! SET VAR SSIA 143=0; !CDATABASE! SET VAR SSIEXT 159=0; !CDATABASEBLOCK! SET VAR SSIA H'74(0-)=0; !CDATABASEARRAY! !NEW SAE DATA; !SSIA; SAAII:SAE=236,NI=4; !SSIC4/SSIA GLOBAL DATA TABLES! SAAII:SAE=238,NI=16; !SSIC3/SSIA SERVICE ADMINISTRATORS! SAAII:SAE=675,BLOCK=SSIA,NI=25; !SSIA SERVICE DATA FILE! SAAII:SAE=675,BLOCK=SSIA,NI=28; !SSIA SERVICE DATA FILE! SAAII:SAE=676,BLOCK=SSIA,NI=1; !SSIA LOCAL & GLOBAL DATA FILE! SAAII:SAE=271,NI=50; !SSIC5/SSIA SCNAMES! SAAII:SAE=271,NI=100; !SSIC5/SSIA SCNAMES! SAAII:SAE=271,NI=150; !SSIC5/SSIA SCNAMES! SAAII:SAE=271,NI=200; !SSIC5/SSIA SCNAMES! SAAII:SAE=271,NI=250; !SSIC5/SSIA SCNAMES! !SSI; SAAII:SAE=237,NI=16; !SSIC2/SSI SERVICE LOGICS! SAAII:SAE=670,BLOCK=SSI,NI=1; !SSI LOGIC STRUCTURE! SAAII:SAE=671,BLOCK=SSI,NI=25; !SSI DATA MODULES! SAAII:SAE=671,BLOCK=SSI,NI=50; !SSI DATA MODULES! SAAII:SAE=671,BLOCK=SSI,NI=75; !SSI DATA MODULES! SAAII:SAE=671,BLOCK=SSI,NI=100; !SSI DATA MODULES! SAAII:SAE=671,BLOCK=SSI,NI=125; !SSI DATA MODULES! SAAII:SAE=671,BLOCK=SSI,NI=150; !SSI DATA MODULES! SAAII:SAE=671,BLOCK=SSI,NI=175; !SSI DATA MODULES! !SSINT; SAAII:SAE=671,BLOCK=SSINT,NI=25; !JUMP MODULES! !SSINT2; SAAII:SAE=671,BLOCK=SSINT2,NI=25; !GOSUB MODULES! !SSNAX; SAAII:SAE=760,BLOCK=SSNAX,NI=64; !SSNAX ORIGINE INDIVIDUALS! SAAII:SAE=761,BLOCK=SSNAX,NI=50176; !SSNAX RESULT INDIVIDUALS! SAAII:SAE=762,BLOCK=SSNAX,NI=5120; !SSNAX COMPARE INDIVIDUALS! SAAII:SAE=763,BLOCK=SSNAX,NI=14336; !SSNAX 2 DIGIT COMPARE INDIVIDUALS! SAAII:SAE=764,BLOCK=SSNAX,NI=10240; !SSNAX BRANCH INDIVIDUALS! !SSCC; SAAII:SAE=770,BLOCK=SSCC,NI=2; !CHANGE CODES! SAAII:SAE=771,BLOCK=SSCC,NI=20; !PROCEDURE FILE! SAAII:SAE=772,BLOCK=SSCC,NI=20; !CONSTANT RECORD!