Previous Topic: Primary Commands for the InStore Rules PanelNext Topic: Primary Commands for the Source Display


Line Commands for the InStore Rules Panel

Line commands are single letter commands that you must enter on the left side of the interactive list. Two commands, D and L, are supported. Line commands affect the rule named on the line on which they are entered.

You can use the following line commands on the InStore Rules panel:

D

Disables the rule and deletes the rule source from main storage. No additional screens are displayed when the D line command is used.

L

Lists the source code in a format similar to browse. L invokes the InStore Rule Source Display panel, provided that the rule source is available in main storage. The AOFSOURCETEXT parameter, which is in effect when the rule is enabled, controls whether source is available in main storage. A sample of the InStore Rule Source Display panel is shown below.

Point-and-shoot is enabled to List the Memory-resident source code of a rule. To List the Memory-resident source code of a rule using the point-and-shoot method, place the cursor in the left hand Sel column of the desired rule description and press Enter. Point-and-shoot is enabled only if no line commands have been entered.

Following is a sample of the InStore Rule Source Display panel:

- MSI1 - Source:  SSMWIZ.SWZ403I    Col 1-72   - OPSS ------ Row 1 to 18 of 92
Command ===>                                                  Scroll ===> CSR
000001 )MSG IEF403I                                                          
000002 )INIT                                                                 
000003  swzvpfx='GLVTEMP0.SSMWIZARD.'                                        
000004 )PROC                                                                 
000005 /****************************************************/
000006 SWZ403I:                                                              
000007   If OPSINFO('EXITTYPE') ^== 'MVS' Then                               
000008     Return 'NORMAL'                                                   
000009 /*-------------------------------------------------------------------*/
000010 /* Find the resource in the current SSM resource tables              */
000011 /*--+----1----+----2----+----3----+----4----+----5----+----6----+----*/
000012   jobname = msg.jobname                                               
000013   jobnum = msg.jobnm                                                  
000014   class = ''                                                          
000015   If Length(jobnum) = 8 & ,                                           
000016      Datatype(Right(jobnum,5),'W') & ,                                
000017      Wordpos(Left(jobnum,3),'STC JOB TSU') > 0 Then                   
000018     class = Left(jobnum,3)