Control Files in Shared Folders

General
Typography
  • Smaller Small Medium Big Bigger
  • Default Helvetica Segoe Georgia Times

There is a problem in the document control utility published in the "Control Files in Shared Folders" article in the October issue of MC. If the name of the PC document file begins with a non-alphabetic character other than @, #, or $ the utility won't work. To correct the problem, insert the highlighted statement shown in 6 into the REXX procedure F001RX.

There is a problem in the document control utility published in the "Control Files in Shared Folders" article in the October issue of MC. If the name of the PC document file begins with a non-alphabetic character other than @, #, or $ the utility won't work. To correct the problem, insert the highlighted statement shown in Figure 6 into the REXX procedure F001RX.


Control Files in Shared Folders

Figure 6 Corrected REXX Procedure F001RX

 /*==================================================================*/ /* F001RX */ /* */ /* No compile required */ /* */ /* Create unique data queue name and send it data queue &DQN. */ /* Parm 1: Folder pathfile. */ /* File name and job number of job that executes this */ /* procedure are used to generate data queue name. */ /*==================================================================*/ parse arg pathfile abbnamelen = 4 seqnbrlen = 4 dqn = 'DQNDQ' dqlib = 'QGPL' "CRTDTAQ DTAQ(&DQLIB/&DQN) MAXLEN(17) TEXT('Created by", "MC Check File Utility')" if RC = 0 then NOP "RTVJOBA NBR(&JOBNBR)" file = translate(substr(pathfile,lastpos('',pathfile)+1)) parse var file abbname '.' ext wrkfile = substr(abbname,1,abbnamelen,'X') trnjobnbr = substr(jobnbr,3,seqnbrlen) dqnm = translate(wrkfile || trnjobnbr) setcmd = strip('SET NAME=' || dqnm,'t') dtalen = '00017F'X 
BLOG COMMENTS POWERED BY DISQUS