/* Sample user profile for FILELIST. To use, edit this file, modify */ /* it as you see fit, and save it as MYFLST XEDIT. Then issue the */ /* command DEFAULTS SET FILELIST PROFILE MYFLST. You need only */ /* execute this DEFAULTS command once. */ Parse arg args /* Call system profile before we do anything. */ "MACRO PROFFLST" args Do While Queued() ^= 0 Parse Pull line line End 'COMMAND EXTRACT /RESERVED */' /* Get all reserved lines info. */ If rc^=0 Then Exit 28 /* Detect no files found. */ /*---------- Put any customization code after this line. ----------*/ /* The following lines are examples only. Do whatever you want. */ /* For ideas on what to set the PF keys to, get into FILELIST and */ /* type in Q PF on the command line. */ /* Remember to fold any PF key definitions to PF13-24. */ 'COMMAND SET PF01 MACRO EXECUTE CURSOR EXEC FILELIST /N * * (NOFILELIST' 'COMMAND SET PF13 MACRO EXECUTE CURSOR EXEC FILELIST /N * * (NOFILELIST' 'COMMAND SET PF02 MACRO EXECUTE CURSOR BROWSE' 'COMMAND SET PF14 MACRO EXECUTE CURSOR BROWSE' 'COMMAND SET PF04 MACRO EXECUTE CURSOR XEDIT' 'COMMAND SET PF16 MACRO EXECUTE CURSOR XEDIT' 'COMMAND SET PF09 SDATE#COMMAND CURSOR COLUMN' 'COMMAND SET PF21 SDATE#COMMAND CURSOR COLUMN' 'COMMAND SET PF10 SNAME#COMMAND CURSOR COLUMN' 'COMMAND SET PF22 SNAME#COMMAND CURSOR COLUMN' 'COMMAND SET PF11 STYPE#COMMAND CURSOR COLUMN' 'COMMAND SET PF23 STYPE#COMMAND CURSOR COLUMN' 'COMMAND SET PF12 SMODE#COMMAND CURSOR COLUMN' 'COMMAND SET PF24 SMODE#COMMAND CURSOR COLUMN' L1 = '1= FL /N * * 2= Browse 3= Quit 4= Xedit 5= Refresh 6= S-Size' L2 = '7= Backward 8= Forward 9= S-Date 10= S-Name 11= S-Type 12= S-Mode' /* Now redefine the reserved lines at the bottom of the screen, */ /* the ones that tell what the PF keys are set to. */ Do i = 1 to Reserved.0 /* Look for the ones we want. */ Parse Var Reserved.i Line_num . . . . token . If token = '1=' then 'COMMAND SET RESERVED' Line_num 'BLUE NOHIGH' L1 If token = '7=' then 'COMMAND SET RESERVED' Line_num 'BLUE NOHIGH' L2 End