subroutine groupPackage parameter ( NF= 7,NI= 1,NR= 1,NC= 6,NT= 48 ) parameter ( NdimT= 361,NdimC= 93,NdimH= 199 ) integer Row, Col, StartField, TermKeys(30), LastKey logical Next, Last, Exit, Refresh character*80 Menu integer FieldNumber logical ValidField character* 4 L1 character* 9 D2 character* 6 C3 character* 3 C4 character* 65 C5 integer I6 character* 6 M7 character*1 Text(NdimT) character*1 Char(NdimC) character*1 Help(NdimH) character*7 Formats(NF) integer TextTable(5,NT), FldTable(7,NF), IntArray(5,NI) integer CharTable(2,NC), HelpTable(4,NF) real RealArray(5,NR) data Menu(1:40) / 1 'Up-Previous Field Down-Next Field '/ data Menu(41:80) / 1 ' ^Z-End Group Definition PF1-Abort '/ data (TextTable(I, 1),I=1,5) / 1,73, 1, 3,1/ data (Text(I),I= 1, 73) / 1 ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ', 1 ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ', 1 ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ', 1 ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ', 1 ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ', 1 ' ' / data (TextTable(I, 2),I=1,5) / 74, 2, 2, 3,1/ data (Text(I),I= 74, 75) / 1 ' ', 1 ' ' / data (TextTable(I, 3),I=1,5) / 76, 2, 2,74,1/ data (Text(I),I= 76, 77) / 1 ' ', 1 ' ' / data (TextTable(I, 4),I=1,5) / 78, 2, 3, 3,1/ data (Text(I),I= 78, 79) / 1 ' ', 1 ' ' / data (TextTable(I, 5),I=1,5) / 80,21, 3,29,0/ data (Text(I),I= 80, 100) / 1 'I','n','l','a','n','d',' ','S','t','e','e','l',' ','R','e', 1 's','e','a','r','c', 1 'h' / data (TextTable(I, 6),I=1,5) / 101, 2, 3,74,1/ data (Text(I),I= 101, 102) / 1 ' ', 1 ' ' / data (TextTable(I, 7),I=1,5) / 103, 2, 4, 3,1/ data (Text(I),I= 103, 104) / 1 ' ', 1 ' ' / data (TextTable(I, 8),I=1,5) / 105,29, 4,25,0/ data (Text(I),I= 105, 133) / 1 'P','r','o','f','i','l','o','m','e','t','e','r',' ','D','a', 1 't','a',' ','A','c','q','u','i','s','i','t','i','o', 1 'n' / data (TextTable(I, 9),I=1,5) / 134, 2, 4,74,1/ data (Text(I),I= 134, 135) / 1 ' ', 1 ' ' / data (TextTable(I, 10),I=1,5) / 136, 2, 5, 3,1/ data (Text(I),I= 136, 137) / 1 ' ', 1 ' ' / data (TextTable(I, 11),I=1,5) / 138, 9, 5,32,0/ data (Text(I),I= 138, 146) / 1 'V','e','r','s','i','o','n',' ', 1 '[' / data (TextTable(I, 12),I=1,5) / 147, 1, 5,45,0/ data (Text(I),I= 147, 147) / 1 ']' / data (TextTable(I, 13),I=1,5) / 148, 2, 5,74,1/ data (Text(I),I= 148, 149) / 1 ' ', 1 ' ' / data (TextTable(I, 14),I=1,5) / 150, 2, 6, 3,1/ data (Text(I),I= 150, 151) / 1 ' ', 1 ' ' / data (TextTable(I, 15),I=1,5) / 152, 2, 6,74,1/ data (Text(I),I= 152, 153) / 1 ' ', 1 ' ' / data (TextTable(I, 16),I=1,5) / 154, 2, 7, 3,1/ data (Text(I),I= 154, 155) / 1 ' ', 1 ' ' / data (TextTable(I, 17),I=1,5) / 156, 2, 7,74,1/ data (Text(I),I= 156, 157) / 1 ' ', 1 ' ' / data (TextTable(I, 18),I=1,5) / 158, 2, 8, 3,1/ data (Text(I),I= 158, 159) / 1 ' ', 1 ' ' / data (TextTable(I, 19),I=1,5) / 160, 2, 8,74,1/ data (Text(I),I= 160, 161) / 1 ' ', 1 ' ' / data (TextTable(I, 20),I=1,5) / 162, 2, 9, 3,1/ data (Text(I),I= 162, 163) / 1 ' ', 1 ' ' / data (TextTable(I, 21),I=1,5) / 164, 5, 9, 7,0/ data (Text(I),I= 164, 168) / 1 'D','a','t','e', 1 ' ' / data (TextTable(I, 22),I=1,5) / 169, 9, 9,33,0/ data (Text(I),I= 169, 177) / 1 'G','r','o','u','p',' ','I','D', 1 ' ' / data (TextTable(I, 23),I=1,5) / 178, 9, 9,60,0/ data (Text(I),I= 178, 186) / 1 'O','p','e','r','a','t','o','r', 1 ' ' / data (TextTable(I, 24),I=1,5) / 187, 2, 9,74,1/ data (Text(I),I= 187, 188) / 1 ' ', 1 ' ' / data (TextTable(I, 25),I=1,5) / 189, 2,10, 3,1/ data (Text(I),I= 189, 190) / 1 ' ', 1 ' ' / data (TextTable(I, 26),I=1,5) / 191, 2,10,74,1/ data (Text(I),I= 191, 192) / 1 ' ', 1 ' ' / data (TextTable(I, 27),I=1,5) / 193, 2,11, 3,1/ data (Text(I),I= 193, 194) / 1 ' ', 1 ' ' / data (TextTable(I, 28),I=1,5) / 195, 2,11,74,1/ data (Text(I),I= 195, 196) / 1 ' ', 1 ' ' / data (TextTable(I, 29),I=1,5) / 197, 2,12, 3,1/ data (Text(I),I= 197, 198) / 1 ' ', 1 ' ' / data (TextTable(I, 30),I=1,5) / 199,20,12, 7,0/ data (Text(I),I= 199, 218) / 1 'M','a','t','e','r','i','a','l',' ','D','e','s','c','r','i', 1 'p','t','i','o', 1 'n' / data (TextTable(I, 31),I=1,5) / 219, 2,12,74,1/ data (Text(I),I= 219, 220) / 1 ' ', 1 ' ' / data (TextTable(I, 32),I=1,5) / 221, 2,13, 3,1/ data (Text(I),I= 221, 222) / 1 ' ', 1 ' ' / data (TextTable(I, 33),I=1,5) / 223, 2,13,74,1/ data (Text(I),I= 223, 224) / 1 ' ', 1 ' ' / data (TextTable(I, 34),I=1,5) / 225, 2,14, 3,1/ data (Text(I),I= 225, 226) / 1 ' ', 1 ' ' / data (TextTable(I, 35),I=1,5) / 227, 2,14,74,1/ data (Text(I),I= 227, 228) / 1 ' ', 1 ' ' / data (TextTable(I, 36),I=1,5) / 229, 2,15, 3,1/ data (Text(I),I= 229, 230) / 1 ' ', 1 ' ' / data (TextTable(I, 37),I=1,5) / 231, 2,15,74,1/ data (Text(I),I= 231, 232) / 1 ' ', 1 ' ' / data (TextTable(I, 38),I=1,5) / 233, 2,16, 3,1/ data (Text(I),I= 233, 234) / 1 ' ', 1 ' ' / data (TextTable(I, 39),I=1,5) / 235, 2,16,74,1/ data (Text(I),I= 235, 236) / 1 ' ', 1 ' ' / data (TextTable(I, 40),I=1,5) / 237, 2,17, 3,1/ data (Text(I),I= 237, 238) / 1 ' ', 1 ' ' / data (TextTable(I, 41),I=1,5) / 239,10,17, 7,0/ data (Text(I),I= 239, 248) / 1 'S','c','a','n',' ','R','a','t','e', 1 ' ' / data (TextTable(I, 42),I=1,5) / 249,11,17,22,0/ data (Text(I),I= 249, 259) / 1 '(','s','c','a','n','s','/','s','e','c', 1 ')' / data (TextTable(I, 43),I=1,5) / 260,15,17,42,0/ data (Text(I),I= 260, 274) / 1 'S','t','a','g','e',' ','V','e','l','o','c','i','t','y', 1 ' ' / data (TextTable(I, 44),I=1,5) / 275, 8,17,64,0/ data (Text(I),I= 275, 282) / 1 '(','c','m','/','m','i','n', 1 ')' / data (TextTable(I, 45),I=1,5) / 283, 2,17,74,1/ data (Text(I),I= 283, 284) / 1 ' ', 1 ' ' / data (TextTable(I, 46),I=1,5) / 285, 2,18, 3,1/ data (Text(I),I= 285, 286) / 1 ' ', 1 ' ' / data (TextTable(I, 47),I=1,5) / 287, 2,18,74,1/ data (Text(I),I= 287, 288) / 1 ' ', 1 ' ' / data (TextTable(I, 48),I=1,5) / 289,73,19, 3,1/ data (Text(I),I= 289, 361) / 1 ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ', 1 ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ', 1 ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ', 1 ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ', 1 ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ', 1 ' ' / data (FldTable(I, 1),I=1,7) / 4, 1,0, 4, 5,41,0 / data (CharTable(I, 1),I=1,2) / 1,0 / data (HelpTable(I, 1),I=1,4) / 0, 0, 0, 0 / data Formats( 1) / 'A4 '/ data (FldTable(I, 2),I=1,7) / 5, 2,0, 9, 9,12,1 / data (CharTable(I, 2),I=1,2) / 5,0 / data (HelpTable(I, 2),I=1,4) / 0, 0, 0, 0 / data Formats( 2) / 'A9 '/ data (FldTable(I, 3),I=1,7) / 3, 3,1, 6, 9,42,1 / data (CharTable(I, 3),I=1,2) / 14,0 / data (HelpTable(I, 3),I=1,4) / 1, 36, 0, 0 / data (Help(I),I= 1, 36) / 1 'E','n','t','e','r',' ','a',' ','G','r','o','u','p',' ','I', 1 'D',' ','a','s',' ','a',' ','l','e','g','a','l',' ','f','i', 1 'l','e','n','a','m', 1 'e' / data Formats( 3) / 'A6 '/ data (FldTable(I, 4),I=1,7) / 3, 4,0, 3, 9,69,1 / data (CharTable(I, 4),I=1,2) / 20,0 / data (HelpTable(I, 4),I=1,4) / 37, 23, 0, 0 / data (Help(I),I= 37, 59) / 1 'E','n','t','e','r',' ','o','p','e','r','a','t','o','r',' ', 1 'i','n','i','t','i','a','l', 1 's' / data Formats( 4) / 'A3 '/ data (FldTable(I, 5),I=1,7) / 3, 5,0,65,13, 7,1 / data (CharTable(I, 5),I=1,2) / 23,1 / data (HelpTable(I, 5),I=1,4) / 0, 0, 0, 0 / data Formats( 5) / 'A65 '/ data (FldTable(I, 6),I=1,7) / 1, 1,1, 4,17,17,1 / data (IntArray(I, 1),I=2,5) / 1 1, 2000,1, -1 / data (HelpTable(I, 6),I=1,4) / 60, 36, 0, 0 / data (Help(I),I= 60, 95) / 1 'E','n','t','e','r',' ','a',' ','s','c','a','n',' ','r','a', 1 't','e',' ','b','e','t','w','e','e','n',' ','1',' ','a','n', 1 'd',' ','2','0','0', 1 '0' / data Formats( 6) / 'I4 '/ data (FldTable(I, 7),I=1,7) / 6, 6,1, 6,17,57,1 / data (CharTable(I, 6),I=1,2) / 88,1 / data (HelpTable(I, 7),I=1,4) / 96, 30, 126, 74 / data (Help(I),I= 96, 125) / 1 'S','e','l','e','c','t',' ','S','t','a','g','e',' ','V','e', 1 'l','o','c','i','t','y',' ','(','c','m','/','m','i','n', 1 ')' / data (Help(I),I= 126, 199) / 1 '1',')','|','1','.','0',' ',' ',' ','2',')','|','5','.','0', 1 ' ',' ',' ','3',')','|','1','0','.','0',' ',' ',' ','4',')', 1 '|','2','0','.','0',' ',' ',' ','5',')','|','5','0','.','0', 1 ' ',' ',' ','6',')','|','1','0','0','.','0',' ',' ',' ','7', 1 ')','|','L','a','u','n','c','h','_','S','t','a','g', 1 'e' / data Formats( 7) / 'A6 '/ entry groupClear( Row, Col ) call ClearScrn( Row, Col, 80, 24 ) return entry groupTextDsp( Row, Col ) call DsplyText( Row, Col, 1 NT, TextTable, NdimT, Text ) return entry groupDataDsp( Row, Col, 1 L1 ,D2 ,C3 ,C4 ,C5 ,I6 ,M7 1 ) IEle = FldTable(2, 1) L = FldTable(4, 1) call ANtoA1( L1 , NdimC, Char, CharTable(1,IEle), L ) IEle = FldTable(2, 2) L = FldTable(4, 2) call ANtoA1( D2 , NdimC, Char, CharTable(1,IEle), L ) IEle = FldTable(2, 3) L = FldTable(4, 3) call ANtoA1( C3 , NdimC, Char, CharTable(1,IEle), L ) IEle = FldTable(2, 4) L = FldTable(4, 4) call ANtoA1( C4 , NdimC, Char, CharTable(1,IEle), L ) IEle = FldTable(2, 5) L = FldTable(4, 5) call ANtoA1( C5 , NdimC, Char, CharTable(1,IEle), L ) IntArray(1,FldTable(2, 6)) = I6 IEle = FldTable(2, 7) L = FldTable(4, 7) call ANtoA1( M7 , NdimC, Char, CharTable(1,IEle), L ) call DsplyData( Row, Col, 1 NF, FldTable, 1 NI, IntArray, NR, RealArray, NC, CharTable, NdimC, Char, 1 Formats ) return entry groupValidate( 1 L1 ,D2 ,C3 ,C4 ,C5 ,I6 ,M7 1 , ValidField, FieldNumber ) IEle = FldTable(2, 1) L = FldTable(4, 1) call ANtoA1( L1 , NdimC, Char, CharTable(1,IEle), L ) IEle = FldTable(2, 2) L = FldTable(4, 2) call ANtoA1( D2 , NdimC, Char, CharTable(1,IEle), L ) IEle = FldTable(2, 3) L = FldTable(4, 3) call ANtoA1( C3 , NdimC, Char, CharTable(1,IEle), L ) IEle = FldTable(2, 4) L = FldTable(4, 4) call ANtoA1( C4 , NdimC, Char, CharTable(1,IEle), L ) IEle = FldTable(2, 5) L = FldTable(4, 5) call ANtoA1( C5 , NdimC, Char, CharTable(1,IEle), L ) IntArray(1,FldTable(2, 6)) = I6 IEle = FldTable(2, 7) L = FldTable(4, 7) call ANtoA1( M7 , NdimC, Char, CharTable(1,IEle), L ) call VldWholeScreen( NF, FldTable, 1 NI, IntArray, NR, RealArray, NC, CharTable, NdimC, Char, 1 'GROUP', ValidField, FieldNumber ) return entry groupEdit( Row, Col, StartField, TermKeys, 1 L1 ,D2 ,C3 ,C4 ,C5 ,I6 ,M7 , 1 Next, Last, Exit, Refresh, LastKey ) IEle = FldTable(2, 1) L = FldTable(4, 1) call ANtoA1( L1 , NdimC, Char, CharTable(1,IEle), L ) IEle = FldTable(2, 2) L = FldTable(4, 2) call ANtoA1( D2 , NdimC, Char, CharTable(1,IEle), L ) IEle = FldTable(2, 3) L = FldTable(4, 3) call ANtoA1( C3 , NdimC, Char, CharTable(1,IEle), L ) IEle = FldTable(2, 4) L = FldTable(4, 4) call ANtoA1( C4 , NdimC, Char, CharTable(1,IEle), L ) IEle = FldTable(2, 5) L = FldTable(4, 5) call ANtoA1( C5 , NdimC, Char, CharTable(1,IEle), L ) IntArray(1,FldTable(2, 6)) = I6 IEle = FldTable(2, 7) L = FldTable(4, 7) call ANtoA1( M7 , NdimC, Char, CharTable(1,IEle), L ) call EditScrn( 'GROUP', Row, Col, StartField, Menu, 1 TermKeys, NF, FldTable, 1 NI, IntArray, NR, RealArray, NC, CharTable, NdimC, Char, 1 Formats, HelpTable, NdimH, Help, Next, Last, Exit, 1 Refresh, LastKey ) IEle = FldTable(2, 2) L = FldTable(4, 2) call A1toAN( NdimC, Char, CharTable(1,IEle), L, D2 ) IEle = FldTable(2, 3) L = FldTable(4, 3) call A1toAN( NdimC, Char, CharTable(1,IEle), L, C3 ) IEle = FldTable(2, 4) L = FldTable(4, 4) call A1toAN( NdimC, Char, CharTable(1,IEle), L, C4 ) IEle = FldTable(2, 5) L = FldTable(4, 5) call A1toAN( NdimC, Char, CharTable(1,IEle), L, C5 ) I6 = IntArray(1,FldTable(2, 6)) IEle = FldTable(2, 7) L = FldTable(4, 7) call A1toAN( NdimC, Char, CharTable(1,IEle), L, M7 ) return end