Monday, March 28, 1994 15:29:34 PAGE 1 Directory of M.M 15 entries Name Type Description Date P1 FORM P1.FORM 10/29/92 FSVBE FORMULA FSVIEW formulas for WORK.BLOCK. 10/13/93 FSVBR FORMULA FSVIEW formulas for WORK.BLOCK. 10/13/93 FSVE FORMULA FSVIEW formulas for WORK.HU_GQ. 10/15/93 FSVR FORMULA FSVIEW formulas for WORK.HU_GQ. 10/15/93 CRS KEYS Function Key Definitions 04/19/93 E1_DO PROGRAM Enter DO 06/30/93 E2_ARA PROGRAM Enter ARA 05/04/93 E3_BLK PROGRAM Enter BLOCK 04/19/93 INTRO1 PROGRAM Introduction Screen 10/07/93 KEY PROGRAM KEY.PROGRAM 03/26/93 LOCKED PROGRAM LOCKED.PROGRAM 03/24/93 M1 PROGRAM Menu #1 (Blk) prior to FSV 10/13/93 PICPRT PROGRAM Pick a PRINTER program 10/13/93 PICRPT PROGRAM Pick a REPORT program 10/13/93 Monday, March 28, 1994 15:29:34 PAGE 2 ENTRY: E1_DO.PROGRAM Enter DO Last updated: 06/30/93 ***** DISPLAY ***** +------------------------------------------------------------------------------+ | | | | | | | | | WHICH DISTRICT OFFICE (DO)? | | | | Please Enter a 4 DIGIT | | | | 'DO CODE NUMBER' | | | | Note: If nothing is entered or | | an invalid DO code is | | entered then a selection | | list will appear. | | | | | | -> &DOF <- | | | | | | (Enter a 'Q' to Exit/Quit.) | | | +------------------------------------------------------------------------------+ ***** ATTRIBUTES ***** Window name: < CRS - Pick a DO > Start row: col: Number of rows: cols: Banner: NONE General help: Function keys: Lookup data set: Command menu: Prompt char: ? System Options: Parent: Window Type: STANDARD Scroll Bars: ------------------------------------------------------------------------- Field name: DOF Frame: 1 Row: 16 Col: 9 Length: 4 Alias: DOF Choice group: Pad: _ Type: CHAR Protect: NO Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS CURSOR ------------------------------------------------------------------------- ***** SOURCE ***** **** m.m.e1_do.program ***; INIT: ***; SUBMIT CONTINUE ; ****** START SUBMIT BLOCK ***************; %INCLUDE "&M_PDIR/E1_DO.sas"; RUN; ENDSUBMIT; ******************** END SUBMIT BLOCK *****************; stdoid=open('dolist'); ***; control enter; RETURN; ******************************************************************; MAIN: if index(dof,'Q') or index(dof,'q') then do; call execcmd('END'); return; end; founddo=locatec(stdoid,varnum(stdoid, 'DOF' ), dof ); if (founddo eq 0 ) then do; **** Select a State Window / List ****; call wregion(2,45,winfo('NUMROWS')-2,winfo('NUMCOLS')-45); call execcmdi('pmenu on'); dof=datalistc(stdoid,'dof abrv fipscode state','Please Select a DO:'); call execcmdi('pmenu off'); end; foundd=locatec(stdoid,varnum(stdoid,'dof'), dof ); if (foundd ne 0 ) then do; sta=trim(left(getvarc(stdoid,varnum(stdoid,'state')))); abr=trim(left(getvarc(stdoid,varnum(stdoid,'abrv')))); stf=trim(left(getvarc(stdoid,varnum(stdoid,'fipscode')))); call symput('M_DON', dof ); call symput('M_STA', sta ); call symput('M_ABR', abr ); Monday, March 28, 1994 15:29:34 PAGE 3 ENTRY: E1_DO.PROGRAM Enter DO Last updated: 06/30/93 call symput('M_STF', stf ); call display('e2_ara.PROGRAM'); call execcmd('END'); return; end; DOF=' '; RETURN; TERM: rc=close(stdoid); RETURN; Monday, March 28, 1994 15:29:34 PAGE 4 ENTRY: E2_ARA.PROGRAM Enter ARA Last updated: 05/04/93 ***** DISPLAY ***** +------------------------------------------------------------------------------+ | | | | | | | | | WHICH ADDRESS REGISTER AREA (ARA)? +--------------------------------+ | | | | | | Please Enter a 4 DIGIT | STATUS INFORMATION: | | | | | | | 'ARA CODE NUMBER' | DO: &DON | | | | | | | | STATE: &STA___________________ | | | | | | | | ABRV: &ABR FIPS: &STF | | | | | | | +--------------------------------+ | | | | -> &ARA <- | | | | | | (Enter a 'Q' to Exit/Quit.) | | | +------------------------------------------------------------------------------+ ***** ATTRIBUTES ***** Window name: < CRS - Pick an ARA Code > Start row: col: Number of rows: cols: Banner: NONE General help: Function keys: Lookup data set: Command menu: Prompt char: ? System Options: Parent: Window Type: STANDARD Scroll Bars: ------------------------------------------------------------------------- Field name: DON Frame: 1 Row: 8 Col: 50 Length: 4 Alias: DON Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP NOPROMPT ------------------------------------------------------------------------- Field name: STA Frame: 1 Row: 10 Col: 53 Length: 23 Alias: STA Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: AUTOSKIP NOPROMPT ------------------------------------------------------------------------- Field name: ABR Frame: 1 Row: 12 Col: 52 Length: 4 Alias: ABR Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP NOPROMPT ------------------------------------------------------------------------- Field name: STF Frame: 1 Row: 12 Col: 67 Length: 4 Alias: STF Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP NOPROMPT ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 5 ENTRY: E2_ARA.PROGRAM Enter ARA Last updated: 05/04/93 ------------------------------------------------------------------------- Field name: ARA Frame: 1 Row: 16 Col: 9 Length: 4 Alias: ARA Choice group: Pad: _ Type: CHAR Protect: NO Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS CURSOR ------------------------------------------------------------------------- ***** SOURCE ***** **** m.m.e2_ara.program ***; ****; INIT: SUBMIT CONTINUE ; ********** START SUBMIT BLOCK ***************; data aralist; filename arafile pipe "ls &M_DDIR/&M_DON | sort -n "; infile arafile delimiter ='09'x missover; length ara $ 4 ; input ara ; RUN; ENDSUBMIT ; *********************** END SUBMIT BLOCK *****************; araid=open('aralist'); control enter; ****** ??????; don=symget('M_DON'); sta=symget('M_sta'); abr=symget('M_abr'); stf=symget('M_stf'); RETURN; MAIN: if index(ara,'Q') or index(ara,'q') then do; call execcmd('END'); return; end; else do; /* **** KEEP COMMENT LINES IN UNTIL MACHINE IS LARGE ENOUGH TO DO WHOLE DO'S **; if ara='*' then do; call symput('M_ARA',ara); call display('M1.PROGRAM'); call execcmd('END'); return; end; else do; */ foundara=locatec(araid,varnum(araid,'ara'),ara); if ( foundara eq 0 ) then do; call wregion(2,45,winfo('NUMROWS')-2,winfo('NUMCOLS')-45); call execcmdi('pmenu on'); ara=datalistc(araid,'ara','Please Select an ARA:'); call execcmdi('pmenu off'); end; fndara=locatec(araid,varnum(araid,'ara'),ara); if ( fndara ne 0 ) then do; call symput('M_ARA',ara); call display('M1.PROGRAM'); call execcmd('END'); return; end; /* end; */ end; RETURN; TERM: rc=close(araid); RETURN; Monday, March 28, 1994 15:29:34 PAGE 6 ENTRY: E3_BLK.PROGRAM Enter BLOCK Last updated: 04/19/93 ***** DISPLAY ***** +------------------------------------------------------------------------------+ | | | | | | | | | WHICH BLOCK(and SUFFIX)? +--------------------------------+ | | | | | | Please Enter a 3 DIGIT | STATUS INFORMATION: | | | | | | | 'BLOCK CODE NUMBER' | DO: &DON | | | | | | | (Optional: - follow with a | STATE: &STA___________________ | | | 1 Character Block Suffix) | | | | | ABRV: &ABR FIPS: &STF | | | | | | | | ARA: &ARA | | | +--------------------------------+ | | -> &BL_ <- | | | | | | (Enter a 'Q' to Exit/Quit.) | | | +------------------------------------------------------------------------------+ ***** ATTRIBUTES ***** Window name: < CRS - Pick an BLOCK Code > Start row: col: Number of rows: cols: Banner: NONE General help: Function keys: Lookup data set: Command menu: Prompt char: ? System Options: Parent: Window Type: STANDARD Scroll Bars: ------------------------------------------------------------------------- Field name: DON Frame: 1 Row: 8 Col: 50 Length: 4 Alias: DON Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP NOPROMPT ------------------------------------------------------------------------- Field name: STA Frame: 1 Row: 10 Col: 53 Length: 23 Alias: STA Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: AUTOSKIP NOPROMPT ------------------------------------------------------------------------- Field name: ABR Frame: 1 Row: 12 Col: 52 Length: 4 Alias: ABR Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP NOPROMPT ------------------------------------------------------------------------- Field name: STF Frame: 1 Row: 12 Col: 67 Length: 4 Alias: STF Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP NOPROMPT ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 7 ENTRY: E3_BLK.PROGRAM Enter BLOCK Last updated: 04/19/93 ------------------------------------------------------------------------- Field name: ARA Frame: 1 Row: 14 Col: 51 Length: 4 Alias: ARA Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP NOPROMPT ------------------------------------------------------------------------- Field name: BL Frame: 1 Row: 16 Col: 9 Length: 4 Alias: BL Choice group: Pad: _ Type: CHAR Protect: NO Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS CURSOR ------------------------------------------------------------------------- ***** SOURCE ***** **** m.m.e3_blk.program ***; INIT: SUBMIT CONTINUE ; ******* START SUBMIT BLOCK ****************; data blklist; filename blkfile pipe "ls &M_DDIR/&M_DON/&M_ARA | grep '^B' | sed -f &M_PDIR/BLK_SED_CMDS | sort -n "; infile blkfile delimiter='09'x missover ; length blk $4; input blk; RUN; ENDSUBMIT ; ******************** END SUBMIT BLOCK ******************; blkid=open('blklist'); don=symget('M_don'); ara=symget('M_ara'); sta=symget('M_sta'); stf=symget('M_stf'); abr=symget('M_abr'); control enter; RETURN; MAIN: if index(BL,'Q') or index(BL,'q') then do; call execcmd('END'); return; end; else do; if bl='*' then do; call symput('M_BLK',bl); call display('M1.program'); call execcmdi('PMENU OFF'); call execcmd('END'); return; end; else do; foundbl=locatec(blkid,varnum(blkid,'blk'),bl); if ( foundbl eq 0 ) then do; call wregion(2,45,winfo('NUMROWS')-2,winfo('NUMCOLS')-45); call execcmdi('pmenu on'); bl=datalistc(blkid,'blk','Please Select a Block:'); call execcmdi('pmenu off'); end; fndbl=locatec(blkid,varnum(blkid,'blk'),bl); if ( fndbl ne 0 ) then do; call symput('M_BLK',bl); call display('M1.program'); call execcmdi('PMENU OFF'); call execcmd('END'); return; end; end; end; RETURN; TERM: rc=close(blkid); RETURN; Monday, March 28, 1994 15:29:34 PAGE 8 ENTRY: INTRO1.PROGRAM Introduction Screen Last updated: 10/07/93 ***** DISPLAY ***** +------------------------------------------------------------------------------+ | | | | | CHOOSE AN ACCESS METHOD: (Use TAB Key to move between selections.) | | | | &C1____ &C2_ &C3_______ | | | | ****************************** | | CCCCCCC ____ CENSUS ********** WARNING! ********** | | CC CC ** -- CONFIDENTIAL DATA -- ** | | CC ** UNAUTHORIZED ACCESS ** | | CC RRRRRR ____ REFERENCE ** IS A FEDERAL OFFENSE! ** | | CC RR RR ****************************** | | CC CC RR RR ****************************** | | ___ CCCCCC RRRRRRRR SSSSS ____ SYSTEM | | RR RR SS SS | | RR RR SS | | _________ RR RR SSSSSS Demographic | | SS Statistical | | SS SS Methods | | _____________________ SSSSSSS Division | | U.S. Bureau of Census | | ECB-SPCS-DIR-Vers-1.2 | | | +------------------------------------------------------------------------------+ ***** ATTRIBUTES ***** Window name: < CRS > Start row: col: Number of rows: cols: Banner: NONE General help: Function keys: Lookup data set: Command menu: Prompt char: ? System Options: Parent: Window Type: STANDARD Scroll Bars: ------------------------------------------------------------------------- Field name: C1 Frame: 1 Row: 4 Col: 5 Length: 7 Alias: C1 Choice group: CHOICE Pad: Type: PUSHBTNC Protect: INITIAL Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: REGULAR Replace: Options: CAPS CURSOR AUTOSKIP ------------------------------------------------------------------------- Field name: C2 Frame: 1 Row: 4 Col: 17 Length: 4 Alias: C2 Choice group: CHOICE Pad: Type: PUSHBTNC Protect: INITIAL Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: QUIT Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C3 Frame: 1 Row: 4 Col: 31 Length: 10 Alias: C3 Choice group: CHOICE Pad: Type: PUSHBTNC Protect: INITIAL Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: EDIT NOTES Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- ***** SOURCE ***** *** m.m.intro1.program ***; INIT: call symputn('M_LROW', winfo('NUMROWS') ); call symputn('M_SPLTT', winfo('NUMROWS') - 8 ); ** 7 **; call symputn('M_SPLTB', winfo('NUMROWS') - 7 ); ** 6 **; call execcmdi('zoom off'); call setfkey(fkeyname(1),'HOME'); if ( sysget('USER') = 'e_bean') then call setfkey(fkeyname(2),'PMENU'); else call setfkey(fkeyname(2),' '); call setfkey(fkeyname(3),' '); Monday, March 28, 1994 15:29:34 PAGE 9 ENTRY: INTRO1.PROGRAM Introduction Screen Last updated: 10/07/93 call setfkey(fkeyname(4),' '); call setfkey(fkeyname(5),'UP'); call setfkey(fkeyname(6),'DOWN'); call setfkey(fkeyname(7),'LEFT'); call setfkey(fkeyname(8),'RIGHT'); call setfkey(fkeyname(9),' '); call setfkey(fkeyname(10),' '); call setfkey(fkeyname(11),'RESHOW'); call setfkey(fkeyname(12),' '); call setfkey(fkeyname(13),' '); call setfkey(fkeyname(14),' '); call setfkey(fkeyname(15),' '); call setfkey(fkeyname(16),' '); call setfkey(fkeyname(17),' '); call setfkey(fkeyname(18),'LEFT'); call setfkey(fkeyname(19),'RIGHT'); call setfkey(fkeyname(20),' '); call setfkey(fkeyname(21),'BACKWARD'); call setfkey(fkeyname(22),'FORWARD'); call setfkey(fkeyname(23),' '); call setfkey(fkeyname(24),'LEFT'); call setfkey(fkeyname(25),'RIGHT'); call setfkey(fkeyname(26),'FORWARD'); call setfkey(fkeyname(27),' '); call setfkey(fkeyname(28),' '); call setfkey(fkeyname(29),'BACKWARD'); call setfkey(fkeyname(30),' '); call setfkey(fkeyname(31),' '); call setfkey(fkeyname(32),' '); call setfkey(fkeyname(33),' '); call setfkey(fkeyname(34),' '); call setfkey(fkeyname(35),' '); call setfkey(fkeyname(36),' '); call setfkey(fkeyname(37),' '); call setfkey(fkeyname(38),' '); call setfkey(fkeyname(39),' '); call setfkey(fkeyname(40),' '); call setfkey(fkeyname(41),' '); call execcmdi('keys;save sasuser.profile.crs.keys;end;'); SUBMIT CONTINUE STATUS ; ****** START SUBMIT BLOCK INTRO1*; **** SUBMIT INTRO1 ****; %INCLUDE "&M_PDIR/INTRO1.sas"; RUN; **** END SUBMIT INTRO1 ****; ENDSUBMIT ; ***** ******* ******* ****** END - SUBMIT BLOCK INTRO1*; control always; RETURN; MAIN: rc=copy('m.m.fsvr.formula','work.m.fsvr.formula','catalog'); rc=copy('m.m.fsve.formula','work.m.fsve.formula','catalog'); rc=copy('m.m.fsvbr.formula','work.m.fsvbr.formula','catalog'); rc=copy('m.m.fsvbe.formula','work.m.fsvbe.formula','catalog'); select(CHOICE); when('QUIT') do; call execcmd('END'); end; when('REGULAR') do; call symput('M_MODE','REG'); call display ('m.m.e1_do.program'); end; when('EDIT NOTES') do; if ( sysget('GROUPNO') = '101' or sysget('GROUPNO') = '10' ) then do; SUBMIT CONTINUE STATUS ; ****** START SUBMIT BLOCK INTRO1A*; **** SUBMIT INTRO1A ****; %INCLUDE "&M_PDIR/INTRO1A.sas"; RUN; **** END SUBMIT INTRO1A ****; ENDSUBMIT ; ***** ******* ******* ****** END - SUBMIT BLOCK INTRO1A*; call symput('M_MODE','MOD'); call display ('m.m.e1_do.program'); SUBMIT CONTINUE STATUS ; ****** START SUBMIT BLOCK INTRO1B*; **** SUBMIT INTRO1B ****; %INCLUDE "&M_PDIR/INTRO1B.sas"; RUN; **** END SUBMIT INTRO1B ****; ENDSUBMIT ; ***** ******* ******* ****** END - SUBMIT BLOCK INTRO1B*; end; end; *otherwise call execcmd('END'); otherwise ; end; choice=' '; RETURN; TERM: if ( sysget('USER') = 'e_bean') then do; call execcmdi('keys;copy;end;'); end; Monday, March 28, 1994 15:29:34 PAGE 10 ENTRY: INTRO1.PROGRAM Introduction Screen Last updated: 10/07/93 else do; call execcmdi('end;'); end; RETURN; Monday, March 28, 1994 15:29:34 PAGE 11 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ***** DISPLAY ***** +------------------------------------------------------------------------------+ | | | KEY: FUNCTION: | | | | &K1____ &C1____________________________________________________________ | | &K2____ &C2____________________________________________________________ | | &K3____ &C3____________________________________________________________ | | &K4____ &C4____________________________________________________________ | | &K5____ &C5____________________________________________________________ | | &K6____ &C6____________________________________________________________ | | &K7____ &C7____________________________________________________________ | | &K8____ &C8____________________________________________________________ | | &K9____ &C9____________________________________________________________ | | &K10___ &C10___________________________________________________________ | | &K11___ &C11___________________________________________________________ | | &K12___ &C12___________________________________________________________ | | &K13___ &C13___________________________________________________________ | | &K14___ &C14___________________________________________________________ | | &K15___ &C15___________________________________________________________ | | &K16___ &C16___________________________________________________________ | | &K17___ &C17___________________________________________________________ | | &K18___ &C18___________________________________________________________ | | &K19___ &C19___________________________________________________________ | | &K20___ &C20___________________________________________________________ | | &K21___ &C21___________________________________________________________ | | &K22___ &C22___________________________________________________________ | | &K23___ &C23___________________________________________________________ | | &K24___ &C24___________________________________________________________ | | &K25___ &C25___________________________________________________________ | | &K26___ &C26___________________________________________________________ | | &K27___ &C27___________________________________________________________ | | &K28___ &C28___________________________________________________________ | | &K29___ &C29___________________________________________________________ | | &K30___ &C30___________________________________________________________ | | &K31___ &C31___________________________________________________________ | | &K32___ &C32___________________________________________________________ | | &K33___ &C33___________________________________________________________ | | &K34___ &C34___________________________________________________________ | | &K35___ &C35___________________________________________________________ | | &K36___ &C36___________________________________________________________ | | &K37___ &C37___________________________________________________________ | | &K38___ &C38___________________________________________________________ | | &K39___ &C39___________________________________________________________ | | &K40___ &C40___________________________________________________________ | | &K41___ &C41___________________________________________________________ | | &K42___ &C42___________________________________________________________ | | &K43___ &C43___________________________________________________________ | | &K44___ &C44___________________________________________________________ | | &K45___ &C45___________________________________________________________ | | &K46___ &C46___________________________________________________________ | | &K47___ &C47___________________________________________________________ | | &K48___ &C48___________________________________________________________ | | &K49___ &C49___________________________________________________________ | | | +------------------------------------------------------------------------------+ ***** ATTRIBUTES ***** Window name: FUNCTION KEYS MAP Start row: col: Number of rows: cols: Banner: SELECT General help: Function keys: Lookup data set: Command menu: Prompt char: ? System Options: Parent: Window Type: STANDARD Scroll Bars: ------------------------------------------------------------------------- Field name: K1 Frame: 1 Row: 3 Col: 3 Length: 7 Alias: K1 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 12 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C1 Frame: 1 Row: 3 Col: 11 Length: 63 Alias: C1 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K2 Frame: 1 Row: 4 Col: 3 Length: 7 Alias: K2 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C2 Frame: 1 Row: 4 Col: 11 Length: 63 Alias: C2 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K3 Frame: 1 Row: 5 Col: 3 Length: 7 Alias: K3 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C3 Frame: 1 Row: 5 Col: 11 Length: 63 Alias: C3 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K4 Frame: 1 Row: 6 Col: 3 Length: 7 Alias: K4 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C4 Frame: 1 Row: 6 Col: 11 Length: 63 Alias: C4 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K5 Frame: 1 Row: 7 Col: 3 Length: 7 Alias: K5 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 13 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C5 Frame: 1 Row: 7 Col: 11 Length: 63 Alias: C5 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K6 Frame: 1 Row: 8 Col: 3 Length: 7 Alias: K6 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C6 Frame: 1 Row: 8 Col: 11 Length: 63 Alias: C6 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K7 Frame: 1 Row: 9 Col: 3 Length: 7 Alias: K7 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C7 Frame: 1 Row: 9 Col: 11 Length: 63 Alias: C7 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K8 Frame: 1 Row: 10 Col: 3 Length: 7 Alias: K8 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C8 Frame: 1 Row: 10 Col: 11 Length: 63 Alias: C8 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K9 Frame: 1 Row: 11 Col: 3 Length: 7 Alias: K9 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 14 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C9 Frame: 1 Row: 11 Col: 11 Length: 63 Alias: C9 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K10 Frame: 1 Row: 12 Col: 3 Length: 7 Alias: K10 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C10 Frame: 1 Row: 12 Col: 11 Length: 63 Alias: C10 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K11 Frame: 1 Row: 13 Col: 3 Length: 7 Alias: K11 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C11 Frame: 1 Row: 13 Col: 11 Length: 63 Alias: C11 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K12 Frame: 1 Row: 14 Col: 3 Length: 7 Alias: K12 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C12 Frame: 1 Row: 14 Col: 11 Length: 63 Alias: C12 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K13 Frame: 1 Row: 15 Col: 3 Length: 7 Alias: K13 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 15 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C13 Frame: 1 Row: 15 Col: 11 Length: 63 Alias: C13 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K14 Frame: 1 Row: 16 Col: 3 Length: 7 Alias: K14 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C14 Frame: 1 Row: 16 Col: 11 Length: 63 Alias: C14 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K15 Frame: 1 Row: 17 Col: 3 Length: 7 Alias: K15 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C15 Frame: 1 Row: 17 Col: 11 Length: 63 Alias: C15 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K16 Frame: 1 Row: 18 Col: 3 Length: 7 Alias: K16 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C16 Frame: 1 Row: 18 Col: 11 Length: 63 Alias: C16 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K17 Frame: 1 Row: 19 Col: 3 Length: 7 Alias: K17 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 16 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C17 Frame: 1 Row: 19 Col: 11 Length: 63 Alias: C17 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K18 Frame: 1 Row: 20 Col: 3 Length: 7 Alias: K18 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C18 Frame: 1 Row: 20 Col: 11 Length: 63 Alias: C18 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K19 Frame: 1 Row: 21 Col: 3 Length: 7 Alias: K19 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C19 Frame: 1 Row: 21 Col: 11 Length: 63 Alias: C19 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K20 Frame: 1 Row: 22 Col: 3 Length: 7 Alias: K20 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C20 Frame: 1 Row: 22 Col: 11 Length: 63 Alias: C20 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K21 Frame: 1 Row: 23 Col: 3 Length: 7 Alias: K21 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 17 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C21 Frame: 1 Row: 23 Col: 11 Length: 63 Alias: C21 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K22 Frame: 1 Row: 24 Col: 3 Length: 7 Alias: K22 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C22 Frame: 1 Row: 24 Col: 11 Length: 63 Alias: C22 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K23 Frame: 1 Row: 25 Col: 3 Length: 7 Alias: K23 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C23 Frame: 1 Row: 25 Col: 11 Length: 63 Alias: C23 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K24 Frame: 1 Row: 26 Col: 3 Length: 7 Alias: K24 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C24 Frame: 1 Row: 26 Col: 11 Length: 63 Alias: C24 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K25 Frame: 1 Row: 27 Col: 3 Length: 7 Alias: K25 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 18 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C25 Frame: 1 Row: 27 Col: 11 Length: 63 Alias: C25 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K26 Frame: 1 Row: 28 Col: 3 Length: 7 Alias: K26 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C26 Frame: 1 Row: 28 Col: 11 Length: 63 Alias: C26 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K27 Frame: 1 Row: 29 Col: 3 Length: 7 Alias: K27 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C27 Frame: 1 Row: 29 Col: 11 Length: 63 Alias: C27 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K28 Frame: 1 Row: 30 Col: 3 Length: 7 Alias: K28 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C28 Frame: 1 Row: 30 Col: 11 Length: 63 Alias: C28 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K29 Frame: 1 Row: 31 Col: 3 Length: 7 Alias: K29 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 19 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C29 Frame: 1 Row: 31 Col: 11 Length: 63 Alias: C29 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K30 Frame: 1 Row: 32 Col: 3 Length: 7 Alias: K30 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C30 Frame: 1 Row: 32 Col: 11 Length: 63 Alias: C30 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K31 Frame: 1 Row: 33 Col: 3 Length: 7 Alias: K31 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C31 Frame: 1 Row: 33 Col: 11 Length: 63 Alias: C31 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K32 Frame: 1 Row: 34 Col: 3 Length: 7 Alias: K32 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C32 Frame: 1 Row: 34 Col: 11 Length: 63 Alias: C32 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K33 Frame: 1 Row: 35 Col: 3 Length: 7 Alias: K33 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 20 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C33 Frame: 1 Row: 35 Col: 11 Length: 63 Alias: C33 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K34 Frame: 1 Row: 36 Col: 3 Length: 7 Alias: K34 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C34 Frame: 1 Row: 36 Col: 11 Length: 63 Alias: C34 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K35 Frame: 1 Row: 37 Col: 3 Length: 7 Alias: K35 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C35 Frame: 1 Row: 37 Col: 11 Length: 63 Alias: C35 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K36 Frame: 1 Row: 38 Col: 3 Length: 7 Alias: K36 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C36 Frame: 1 Row: 38 Col: 11 Length: 63 Alias: C36 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K37 Frame: 1 Row: 39 Col: 3 Length: 7 Alias: K37 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 21 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C37 Frame: 1 Row: 39 Col: 11 Length: 63 Alias: C37 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K38 Frame: 1 Row: 40 Col: 3 Length: 7 Alias: K38 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C38 Frame: 1 Row: 40 Col: 11 Length: 63 Alias: C38 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K39 Frame: 1 Row: 41 Col: 3 Length: 7 Alias: K39 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C39 Frame: 1 Row: 41 Col: 11 Length: 63 Alias: C39 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K40 Frame: 1 Row: 42 Col: 3 Length: 7 Alias: K40 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C40 Frame: 1 Row: 42 Col: 11 Length: 63 Alias: C40 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K41 Frame: 1 Row: 43 Col: 3 Length: 7 Alias: K41 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 22 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C41 Frame: 1 Row: 43 Col: 11 Length: 63 Alias: C41 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K42 Frame: 1 Row: 44 Col: 3 Length: 7 Alias: K42 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C42 Frame: 1 Row: 44 Col: 11 Length: 63 Alias: C42 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K43 Frame: 1 Row: 45 Col: 3 Length: 7 Alias: K43 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C43 Frame: 1 Row: 45 Col: 11 Length: 63 Alias: C43 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K44 Frame: 1 Row: 46 Col: 3 Length: 7 Alias: K44 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C44 Frame: 1 Row: 46 Col: 11 Length: 63 Alias: C44 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K45 Frame: 1 Row: 47 Col: 3 Length: 7 Alias: K45 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 23 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C45 Frame: 1 Row: 47 Col: 11 Length: 63 Alias: C45 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K46 Frame: 1 Row: 48 Col: 3 Length: 7 Alias: K46 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C46 Frame: 1 Row: 48 Col: 11 Length: 63 Alias: C46 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K47 Frame: 1 Row: 49 Col: 3 Length: 7 Alias: K47 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C47 Frame: 1 Row: 49 Col: 11 Length: 63 Alias: C47 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K48 Frame: 1 Row: 50 Col: 3 Length: 7 Alias: K48 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: C48 Frame: 1 Row: 50 Col: 11 Length: 63 Alias: C48 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: K49 Frame: 1 Row: 51 Col: 3 Length: 7 Alias: K49 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 24 ENTRY: KEY.PROGRAM KEY.PROGRAM Last updated: 03/26/93 ------------------------------------------------------------------------- Field name: C49 Frame: 1 Row: 51 Col: 11 Length: 63 Alias: C49 Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- ***** SOURCE ***** INIT: k1=fkeyname(1); c1=getfkey(fkeyname(1)); k2=fkeyname(2); c2=getfkey(fkeyname(2)); k3=fkeyname(3); c3=getfkey(fkeyname(3)); k4=fkeyname(4); c4=getfkey(fkeyname(4)); k5=fkeyname(5); c5=getfkey(fkeyname(5)); k6=fkeyname(6); c6=getfkey(fkeyname(6)); k7=fkeyname(7); c7=getfkey(fkeyname(7)); k8=fkeyname(8); c8=getfkey(fkeyname(8)); k9=fkeyname(9); c9=getfkey(fkeyname(9)); k10=fkeyname(10); c10=getfkey(fkeyname(10)); k11=fkeyname(11); c11=getfkey(fkeyname(11)); k12=fkeyname(12); c12=getfkey(fkeyname(12)); k13=fkeyname(13); c13=getfkey(fkeyname(13)); k14=fkeyname(14); c14=getfkey(fkeyname(14)); k15=fkeyname(15); c15=getfkey(fkeyname(15)); k16=fkeyname(16); c16=getfkey(fkeyname(16)); k17=fkeyname(17); c17=getfkey(fkeyname(17)); k18=fkeyname(18); c18=getfkey(fkeyname(18)); k19=fkeyname(19); c19=getfkey(fkeyname(19)); k20=fkeyname(20); c20=getfkey(fkeyname(20)); k21=fkeyname(21); c21=getfkey(fkeyname(21)); k22=fkeyname(22); c22=getfkey(fkeyname(22)); k23=fkeyname(23); c23=getfkey(fkeyname(23)); k24=fkeyname(24); c24=getfkey(fkeyname(24)); k25=fkeyname(25); c25=getfkey(fkeyname(25)); k26=fkeyname(26); c26=getfkey(fkeyname(26)); k27=fkeyname(27); c27=getfkey(fkeyname(27)); k28=fkeyname(28); c28=getfkey(fkeyname(28)); k29=fkeyname(29); c29=getfkey(fkeyname(29)); k30=fkeyname(30); c30=getfkey(fkeyname(30)); k31=fkeyname(31); c31=getfkey(fkeyname(31)); k32=fkeyname(32); c32=getfkey(fkeyname(32)); k33=fkeyname(33); c33=getfkey(fkeyname(33)); k34=fkeyname(34); c34=getfkey(fkeyname(34)); k35=fkeyname(35); c35=getfkey(fkeyname(35)); k36=fkeyname(36); c36=getfkey(fkeyname(36)); k37=fkeyname(37); c37=getfkey(fkeyname(37)); k38=fkeyname(38); c38=getfkey(fkeyname(38)); k39=fkeyname(39); c39=getfkey(fkeyname(39)); k40=fkeyname(40); c40=getfkey(fkeyname(40)); k41=fkeyname(41); c41=getfkey(fkeyname(41)); /* k42=fkeyname(42); c42=getfkey(fkeyname(42)); k43=fkeyname(43); c43=getfkey(fkeyname(43)); k44=fkeyname(44); c44=getfkey(fkeyname(44)); k45=fkeyname(45); c45=getfkey(fkeyname(45)); k46=fkeyname(46); c46=getfkey(fkeyname(46)); k47=fkeyname(47); c47=getfkey(fkeyname(47)); k48=fkeyname(48); c48=getfkey(fkeyname(48)); k49=fkeyname(49); c49=getfkey(fkeyname(49)); */ control enter; RETURN; MAIN: *call execcmd('end'); RETURN; TERM: RETURN; Monday, March 28, 1994 15:29:34 PAGE 25 ENTRY: LOCKED.PROGRAM LOCKED.PROGRAM Last updated: 03/24/93 ***** DISPLAY ***** +------------------------------------------------------------------------------+ | | | | | SORRY! | | | | The Notes for DO: &DO_ | | | | ARA: &ARA | | | | BLOCK: &BL | | | | | | Are Currently LOCKED by: &USR__ | | | | | | | | & Press to continue. | | | +------------------------------------------------------------------------------+ ***** ATTRIBUTES ***** Window name: Locked Message Start row: 3 col: 5 Number of rows: 17 cols: 65 Banner: NONE General help: Function keys: Lookup data set: Command menu: Prompt char: ? System Options: Parent: Window Type: DIALOG Scroll Bars: ------------------------------------------------------------------------- Field name: DO Frame: 1 Row: 4 Col: 34 Length: 4 Alias: DO Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: ARA Frame: 1 Row: 6 Col: 34 Length: 4 Alias: ARA Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: BL Frame: 1 Row: 8 Col: 34 Length: 3 Alias: BL Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: USR Frame: 1 Row: 11 Col: 34 Length: 6 Alias: USR Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: AUTOSKIP ------------------------------------------------------------------------- Field name: FIELD5 Frame: 1 Row: 15 Col: 9 Length: 1 Alias: JUNK Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: > Replace: Options: CAPS CURSOR AUTOSKIP Monday, March 28, 1994 15:29:34 PAGE 26 ENTRY: LOCKED.PROGRAM LOCKED.PROGRAM Last updated: 03/24/93 ------------------------------------------------------------------------- ***** SOURCE ***** INIT: submit continue; **** m.m.locked.program SUBMIT BLOCK ****; data _NULL_; filename usr pipe "cat &M_DDIR/&M_DON/&M_ARA/NOTE_LCK "; infile usr; length usr $ 8; input usr; call symput('M_LCKPER', usr ); run; endsubmit; do= symget('M_DON'); ara= symget('M_ARA'); bl= symget('M_BLK'); usr= symget('M_LCKPER'); control enter; RETURN; MAIN: call execcmd('END'); call execcmd('END'); RETURN; TERM: RETURN; Monday, March 28, 1994 15:29:34 PAGE 27 ENTRY: M1.PROGRAM Menu #1 (Blk) prior to FSV Last updated: 10/13/93 ***** DISPLAY ***** +------------------------------------------------------------------------------+ | | | | +------------------------------------------------------------------------------+ ***** ATTRIBUTES ***** Window name: Start row: col: Number of rows: cols: Banner: NONE General help: Function keys: Lookup data set: Command menu: Prompt char: ? System Options: Parent: Window Type: LIST Scroll Bars: ------------------------------------------------------------------------- ***** SOURCE ***** **** m.m.m1.program ****; INIT: call symput('M_LKS','UNKNOWN'); don=symget('M_DON'); ara=symget('M_ARA'); abr=symget('M_ABR'); stf=symget('M_STF'); lks=symget('M_LKS'); mde=symget('M_MODE'); DDIR=symget('M_DDIR'); *** Main Data Directory ***; PDIR=symget('M_PDIR'); *** Main Data Directory ***; *call display('PMENUS.PROGRAM'); tl='MENU FOR: STATE>'||abr||"-"||stf||" DO>"||don|| " ARA>"||ara; /* *** Values Check for TESTING ONLY ***; *****************; put "TEST VALUES BEFORE M1.pgm first submit block"; put "DON=" DON; put "ARA=" ARA; put "ABR=" ABR; put "STF=" STF; put "LKS=" LKS; put "DDIR=" DDIR; put "PDIR=" PDIR; put "MDE=" MDE; *****************; *** END Values Check for TESTING ONLY ***; */ SUBMIT CONTINUE STATUS; %INCLUDE "&M_PDIR/M1.sas"; run; ENDSUBMIT; *****************; return; MAIN: lks=symget('M_LKS'); if LKS = 'LCK' then do; call display ('m.m.locked.program'); call execcmd ('END'); return; end; else do; LINK LOOP; end; return; TERM: if LKS eq "OK" AND MDE eq "MOD" then do; SUBMIT CONTINUE STATUS ; ******* SUBMIT BLOCK (TERM) ********; %INCLUDE "&M_PDIR/M1_2.sas"; RUN; ENDSUBMIT ; ********* END SUBMIT BLOCK (TERM) ********; rc=system('rm ' || DDIR || '/' || DON || '/' || ARA || '/NOTE_LCK 2> /dev/null ; '); rc=system('chmod 770 ' || DDIR || '/' || DON || '/' || ARA || '/C* 2> /dev/null ; '); rc=system('chmod 770 ' || DDIR || '/' || DON || '/' || ARA || '/D* 2> /dev/null ; sync; sync '); end; return; GETROW: return; PUTROW: Monday, March 28, 1994 15:29:34 PAGE 28 ENTRY: M1.PROGRAM Menu #1 (Blk) prior to FSV Last updated: 10/13/93 return; LOOP: do while (choice ne 0); choice=block( '< CRS - Menu 1 >',tl, 1, ' ', 'TABLE VIEW', 'PAGE VIEW', 'LIST VIEW', ' ', ' ', 'QUIT/EXIT', 'HELP', 'KEYS', ' ', ' ', ' ' ); select(choice); when(1) ; when(2) do; /* call execcmd('pmenu on; setpmenu work.m.fsv1'); */ call execcmd('pmenu on;setpmenu work.m.fsv1; keys;copy sasuser.profile.crs.keys;end;'); if LKS eq "OK" AND MDE eq "MOD" then call fsview("HU_GQ",'EDIT','work.m.fsve.formula'); else call fsview("HU_GQ",'EDIT','work.m.fsvr.formula','BRONLY'); if ( exist('prt1','data') or exist('prt2','data') ) then do; if ( exist('prt1','DATA') ) then do; call symput('M_PGRP','H'); *PGRP=Program Group*; call display('m.m.picrpt.program'); end; if ( exist('prt2','DATA') ) then do; call symput('M_PGRP','B'); *PGRP=Program Group*; call display('m.m.picrpt.program'); end; call display('m.m.picprt.program'); if ( exist('prt1','data')) then rc=delete('prt1','data'); if ( exist('prt2','data')) then rc=delete('prt2','data'); call symput('M_HPGM', ' ' ); call symput('M_BPGM', ' ' ); * if (rc) then _MSG_=sysmsg(); end; call execcmd('pmenu off;'); end; when(3) do; call execcmd('pmenu on; setpmenu work.m.fse1; keys;copy sasuser.profile.crs.keys;end;'); call fsedit("HU_GQ",' ','BROWSE'); call execcmd('pmenu off;'); end; when(4) do; call execcmd('pmenu on; setpmenu work.m.fse1; keys;copy sasuser.profile.crs.keys;end;'); call fsedit("HU_GQ",'=','BROWSE'); call execcmd('pmenu off;'); end; when(5) ; when(6) ; when(7) leave loop; when(8) do; call execcmd('pmenu on; setpmenu work.m.fsl1; keys;copy sasuser.profile.crs.keys;end;'); rc=filename('hlp', PDIR || '/HLP_M1'); call fslist('hlp'); call execcmd('pmenu off;'); end; when(9) do; call execcmd('pmenu on; setpmenu work.m.fsl1'); call display('m.m.key.program'); call execcmd('pmenu off;'); end; otherwise leave loop; end; end; call endblock(); return; Monday, March 28, 1994 15:29:34 PAGE 29 ENTRY: PICPRT.PROGRAM Pick a PRINTER program Last updated: 10/13/93 ***** DISPLAY ***** +------------------------------------------------------------------------------+ | | | | | PRINT SPECIFICATIONS: (WARNING! Print only to | | SECURE printers, pick up | | PRINTER NAME: &PRINTER__ your print-outs QUICKLY, | | and be cautious when | | Type: &TYPE_____ printing. Print only | | Page Width: &WIDTH_ the variables you need and | | Page Length: &LENGTH only to YOUR printer!) | | City: &CITY_____________ ==== | | Building: &BLDG_____________ | | Room: &ROOM_____________ | | DEC Node: &NODE_____________ | | DEC Port: &PORT_____________ | | Contact: &CONTACT____________________________________ | | Phone: &PHONE____________________ | | | | &A___ &B____ | | | +------------------------------------------------------------------------------+ ***** ATTRIBUTES ***** Window name: Please Select a Printer: Start row: 2 col: 2 Number of rows: 22 cols: 75 Banner: NONE General help: Function keys: Lookup data set: Command menu: Prompt char: ? System Options: Parent: Window Type: STANDARD Scroll Bars: ------------------------------------------------------------------------- Field name: PRINTER Frame: 1 Row: 4 Col: 22 Length: 10 Alias: PRINTER Choice group: Pad: _ Type: CHAR Protect: NO Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS CURSOR REQUIRED ------------------------------------------------------------------------- Field name: TYPE Frame: 1 Row: 6 Col: 22 Length: 10 Alias: TYPE Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: WIDTH Frame: 1 Row: 7 Col: 22 Length: 7 Alias: WIDTH Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: LENGTH Frame: 1 Row: 8 Col: 22 Length: 7 Alias: LENGTH Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 30 ENTRY: PICPRT.PROGRAM Pick a PRINTER program Last updated: 10/13/93 ------------------------------------------------------------------------- Field name: CITY Frame: 1 Row: 9 Col: 22 Length: 18 Alias: CITY Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: AUTOSKIP ------------------------------------------------------------------------- Field name: BLDG Frame: 1 Row: 10 Col: 22 Length: 18 Alias: BLDG Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: ROOM Frame: 1 Row: 11 Col: 22 Length: 18 Alias: ROOM Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: NODE Frame: 1 Row: 12 Col: 22 Length: 18 Alias: NODE Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: PORT Frame: 1 Row: 13 Col: 22 Length: 18 Alias: PORT Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: CONTACT Frame: 1 Row: 14 Col: 22 Length: 44 Alias: CONTACT Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: AUTOSKIP ------------------------------------------------------------------------- Field name: PHONE Frame: 1 Row: 15 Col: 22 Length: 26 Alias: PHONE Choice group: Pad: Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS AUTOSKIP ------------------------------------------------------------------------- Field name: A Frame: 1 Row: 17 Col: 8 Length: 5 Alias: A Choice group: CHOICE Pad: Type: PUSHBTNC Protect: INITIAL Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: PRINT Replace: Options: CAPS REQUIRED ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 31 ENTRY: PICPRT.PROGRAM Pick a PRINTER program Last updated: 10/13/93 ------------------------------------------------------------------------- Field name: B Frame: 1 Row: 17 Col: 21 Length: 6 Alias: B Choice group: CHOICE Pad: Type: PUSHBTNC Protect: INITIAL Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: CANCEL Replace: Options: CAPS REQUIRED ------------------------------------------------------------------------- ***** SOURCE ***** INIT: lpid=open('m.printers'); control enter; RETURN; MAIN: if (choice eq 'CANCEL') then do; call execcmd('CANCEL'); end; else do; foundp=locatec(lpid,varnum(lpid, 'printer' ), printer ); if (foundp eq 0 ) then do; call wregion(2,25,winfo('NUMROWS')-2,winfo('NUMCOLS')-25); call execcmdi('pmenu on'); printer=datalistc(lpid,'printer type bldg room', 'Printer/Type/Building/Room'); call execcmdi('pmenu off'); end; if ( printer ne ' ' ) then do; type=getvarc(lpid,varnum(lpid,'type')); city=getvarc(lpid,varnum(lpid,'city')); bldg=getvarc(lpid,varnum(lpid,'bldg')); room=getvarc(lpid,varnum(lpid,'room')); node=getvarc(lpid,varnum(lpid,'node')); port=getvarc(lpid,varnum(lpid,'port')); contact=getvarc(lpid,varnum(lpid,'contact')); phone=getvarc(lpid,varnum(lpid,'phone')); width=getvarn(lpid,varnum(lpid,'width')); length=getvarn(lpid,varnum(lpid,'length')); lta=getvarn(lpid,varnum(lpid,'lta')); user=sysget('USER'); end; if (choice eq 'PRINT') then do; * call execcmd('END'); if ( exist('prt1','DATA') ) then do; SUBMIT CONTINUE STATUS; **************************; options ps=&LENGTH ls=&WIDTH pageno=1; filename prt1 pipe "lp -dlta<a"; %LET USER=&USER;RUN; %INCLUDE "&M_PDIR./&M_HPGM."; proc printto; RUN; title1; title2; title3; title4; title5; title6; title7; title8; title9; title10; footnote1; footnote2; footnote3; footnote4; footnote5; footnote6; footnote7; footnote8; footnote9; footnote10; run; ENDSUBMIT; ***************************************; end; if ( exist('prt2','DATA') ) then do; SUBMIT CONTINUE STATUS; **************************; options ps=&LENGTH ls=&WIDTH pageno=1; filename prt1 pipe "lp -dlta<a"; %LET USER=&USER;RUN; %INCLUDE "&M_PDIR./&M_BPGM."; proc printto; RUN; title1; title2; title3; title4; title5; title6; title7; title8; title9; title10; footnote1; footnote2; footnote3; footnote4; footnote5; footnote6; footnote7; footnote8; footnote9; footnote10; run; ENDSUBMIT; ***************************************; end; call execcmd('END'); end; end; RETURN; TERM: rc=close(lpid); RETURN; Monday, March 28, 1994 15:29:34 PAGE 32 ENTRY: PICRPT.PROGRAM Pick a REPORT program Last updated: 10/13/93 ***** DISPLAY ***** +------------------------------------------------------------------------------+ | | | | | REPORT SPECIFICATIONS: --> For: &TXT1____________________ | | | | | | REPORT TYPE NUMBER: &RN_ | | | | Description: &RPT_____________________ | | | | Program Name: &PGM_____________________ | | | | WARNING! In order to run any report type other than '1', ALL | | VARIABLES should be selected for printing or your report | | may not print properly. | | | | | | | | | | | | &A______ &B____ | | | +------------------------------------------------------------------------------+ ***** ATTRIBUTES ***** Window name: Please Select a Report: Start row: 2 col: 2 Number of rows: 22 cols: 75 Banner: NONE General help: Function keys: Lookup data set: Command menu: Prompt char: ? System Options: Parent: Window Type: STANDARD Scroll Bars: ------------------------------------------------------------------------- Field name: TXT1 Frame: 1 Row: 2 Col: 39 Length: 25 Alias: TXT1 Choice group: Pad: _ Type: CHAR Protect: NO Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: AUTOSKIP ------------------------------------------------------------------------- Field name: RN Frame: 1 Row: 5 Col: 27 Length: 4 Alias: RN Choice group: Pad: _ Type: NUM Protect: NO Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: CAPS CURSOR AUTOSKIP ------------------------------------------------------------------------- Field name: RPT Frame: 1 Row: 7 Col: 27 Length: 25 Alias: RPT Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: AUTOSKIP ------------------------------------------------------------------------- Field name: PGM Frame: 1 Row: 9 Col: 27 Length: 25 Alias: PGM Choice group: Pad: _ Type: CHAR Protect: YES Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: Replace: Options: AUTOSKIP ------------------------------------------------------------------------- Monday, March 28, 1994 15:29:34 PAGE 33 ENTRY: PICRPT.PROGRAM Pick a REPORT program Last updated: 10/13/93 ------------------------------------------------------------------------- Field name: A Frame: 1 Row: 19 Col: 8 Length: 8 Alias: A Choice group: CHOICE Pad: Type: PUSHBTNC Protect: INITIAL Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: CONTINUE Replace: Options: CAPS REQUIRED ------------------------------------------------------------------------- Field name: B Frame: 1 Row: 19 Col: 21 Length: 6 Alias: B Choice group: CHOICE Pad: Type: PUSHBTNC Protect: INITIAL Format: Just: LEFT Informat: Error color: RED attr: REVERSE Help: List: Initial: CANCEL Replace: Options: CAPS REQUIRED ------------------------------------------------------------------------- ***** SOURCE ***** INIT: grp=symget('M_PGRP'); if ( grp = 'H' ) then do; rptid=open("m.hrpts"); TXT1 = 'HU/GQ Information'; end; if ( grp = 'B' ) then do; rptid=open("m.brpts"); TXT1 = 'Block Summary Information'; end; rn = 1 ; foundp=locaten(rptid,varnum(rptid, 'rn' ), rn ); rpt=getvarc(rptid,varnum(rptid,'rpt')); pgm=getvarc(rptid,varnum(rptid,'pgm')); control enter; RETURN; MAIN: if (choice eq 'CANCEL') then do; call execcmd('CANCEL'); end; else do; if ( rn = . ) then foundp=0; else do; foundp=locaten(rptid,varnum(rptid, 'rn' ), rn ); end; if (foundp eq 0 ) then do; call wregion(2,25,winfo('NUMROWS')-2,winfo('NUMCOLS')-25); call execcmdi('pmenu on'); rn=datalistn(rptid,'rn rpt', 'Report Num./Description'); call execcmdi('pmenu off'); end; if ( rn ne . ) then do; rpt=getvarc(rptid,varnum(rptid,'rpt')); pgm=getvarc(rptid,varnum(rptid,'pgm')); end; if (choice eq 'CONTINUE') then do; * call execcmd('END'); if ( grp = 'H' ) then call symput('M_HPGM', pgm ); if ( grp = 'B' ) then call symput('M_BPGM', pgm ); call execcmd('END'); end; end; RETURN; TERM: rc=close(rptid); RETURN;