MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » May 1999

RE: Sending / Displaying CL Variables


  • Subject: RE: Sending / Displaying CL Variables
  • From: Colin Williams <Williamsc@xxxxxxxxxxxxxxxxx>
  • Date: Tue, 25 May 1999 09:28:29 +0100

fixed

My first suggestion would be to change your library on the DSPOBJD from
*all to *allusr, you don't really want to list all the system objects as
well do you?

Sending a program message using CPF9898 will send display it on the
status line:

SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Reorganizing File')
TOMSGQ(*EXT) 

Look in the CL programming guide under messages, it explains this


-----Original Message-----
From: Howard Weatherly [mailto:hweatherly@dlis.dla.mil]
Sent: Monday, May 24, 1999 8:12 PM
To: Midrange List
Subject: Sending / Displaying CL Variables


Recently we decided to automate our reorganization of PF members and I
came up with the following CL to accomplish the task, my question is
what command or how could I send a message at the RGZPFM command to say
"Reorganizing file LIB/FILE"? I can not figure out which command to use
where I could either assign a variable to the values &ODLBNM and &ODOBNM
and display the variable or for that matter include the variables any
which way?

Anyone have any ideas or suggestions on how to do that?


              PGM
              DCLF       FILE(HGR0093/RGZTAB)
              MONMSG     MSGID(CPF0000)
              SNDMSGSBM  MSG('Be Patient, the first part (DSPOBJD) +
                           can take more than 30 minutes to complete!')
              SNDMSGSBM  MSG('Creating List of Possible Files')
              DSPOBJD    OBJ(*ALL/*ALL) OBJTYPE(*FILE) +
                           OUTPUT(*OUTFILE) OUTFILE(HGR0093/OBJECTS)
              SNDMSGSBM  MSG('Selecting Files to Reorganize')
              STRQMQRY   QMQRY(HGR0093/REORGPF) OUTPUT(*OUTFILE) +
                           OUTFILE(HGR0093/RGZTAB)
 LOOP:
              RCVF       RCDFMT(RGZTAB)
              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(GOBACK))
              RGZPFM     FILE(&ODLBNM/&ODOBNM)
              GOTO       CMDLBL(LOOP)
 GOBACK:      ENDPGM

 Select ODLBNM, ODOBNM, ODOBSZ, ODOBOW
  From OBJECTS
   Where ODOBAT='PF'
    and ODLBNM in ('DLCDBAT','DLCDBAQ','DLCDBAP')
   Order By 3 Desc, 2, 1
--

Howard Weatherly

(616)961-4324

hweatherly@dlis.dla.mil
hweath@ibm.net
howard_weatherly@ctg.com
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact