× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: validity checker program
  • From: "L. S. Russell" <leslier@xxxxxxxxxx>
  • Date: Thu, 10 Feb 2000 08:07:28 -0600

This is probably not the best example, it was my first run at it but
here ya go. A VCP for the COPy command part of my inhouse change
management system which will soon be open source.


> I want to restrict the CHGJOB-command.
> For this I have looked at the archive and found a tip to use a validity 
>checker
> program, but I also read, that it is difficult to handle all the parms.
> 
> I have never before wrote a validity checker-program and in the books I found
> nothing that would help me.
> 
> Can anyone help ?
> 
> Antje Waelde
> 
> ******************************************
> Antje Waelde
> Duravit AG
> 
> Werderstr. 36
> D-78132 Hornberg
> fon +49 7833 70 0
> fax +49 7833 70289
> internet http://www.duravit.de
> mailto:antje.waelde@duravit.de
> ******************************************
> 
> +---
> | 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
> +---

--
L. S. Russell Programmer/Analyst
Datrek Professional Bags, Inc.
2413 Industrial Drive
Springfield, TN. 37172
mailto:leslier@datrek.com
http://www.datrek.com
--
     FChanges   UF A E             Disk

     D CX21            C                   X'21'
     D CX00            C                   X'00'
     D CX30            C                   X'30'
     D CX40            C                   X'40'
     D CX01            C                   X'01'
     D CX0A            C                   X'0A'

     D frmObj          S             50A
     D toDir           S             50A
     D toObj           S             50A
     D symLink         S              4A
     D toCodPag        S             11A
     D dataFmt         S              7A

     Dtesthex          DS
     D XChar                         50A
     D X1                             1S 0 Dim(50) Overlay(XChar:1)

     DPos              S              2  0

     DPgmSts         ESDS                  ExtName(PgmStatus:PgmSts)

     C     *entry        plist
     C                   parm                    frmObj
     C                   parm                    toDir
     C                   parm                    toObj
     C                   parm                    symLink
     C                   parm                    toCodPag
     C                   parm                    dataFmt

     C     CX21:CX40     xlate     frmObj        frmObj
     C     CX30:CX40     xlate     frmObj        frmObj
     C     CX00:CX40     xlate     frmObj        frmObj
     C     CX01:CX40     xlate     frmObj        frmObj
     C     CX0A:CX40     xlate     frmObj        frmObj

     C     CX21:CX40     xlate     toDir         toDir
     C     CX30:CX40     xlate     toDir         toDir
     C     CX00:CX40     xlate     toDir         toDir
     C     CX01:CX40     xlate     toDir         toDir
     C     CX0A:CX40     xlate     toDir         toDir

     C     CX21:CX40     xlate     toObj         toObj
     C     CX30:CX40     xlate     toObj         toObj
     C     CX00:CX40     xlate     toObj         toObj
     C     CX01:CX40     xlate     toObj         toObj
     C     CX0A:CX40     xlate     toObj         toObj

     C     CX21:CX40     xlate     symLink       symLink
     C     CX30:CX40     xlate     symLink       symLink
     C     CX01:CX40     xlate     symLink       symLink
     C     CX0A:CX40     xlate     symLink       symLink

     C     CX21:CX40     xlate     toCodPag      toCodPag
     C     CX30:CX40     xlate     toCodPag      toCodPag
     C     CX00:CX40     xlate     toCodPag      toCodPag
     C     CX01:CX40     xlate     toCodPag      toCodPag
     C     CX0A:CX40     xlate     toCodPag      toCodPag

     C     CX21:CX40     xlate     dataFmt       dataFmt
     C     CX30:CX40     xlate     dataFmt       dataFmt
     C     CX00:CX40     xlate     dataFmt       dataFmt
     C     CX01:CX40     xlate     dataFmt       dataFmt
     C     CX0A:CX40     xlate     dataFmt       dataFmt

     C                   eval      Action = *blanks
     C                   eval      frmObj = %trim(frmObj)
     C                   eval      toDir = %trim(toDir)
     C                   eval      toObj = %trim(toObj)
     C                   eval      symLink = %trim(symLink)
     C                   eval      toCodPag = %trim(toCodPag)
     C                   eval      dataFmt = %trim(dataFmt)

     C                   eval      User = UsrNam
     C                   eval      Device = JobNam

     C                   eval      Action = ('COPY OBJ(' + frmObj)
     C     Action        cat       ')':0         Action
     C     Action        cat       'TOOBJ (':1   Action
     C     Action        cat       toObj:0       Action
     C     Action        cat       ')':0         Action

     C                   write     Change

     C                   eval      *InLR = *on
     C                   return

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.