|
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 --
midrange.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 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.
