开云体育

hi everyone.

?

which file/directory? archiving method are you using ?

Music/ SP mentions

a) archiv/retrev ( not installed )

b) exarch/exrest (not installed)

c) filarch/filrst/filchk ( filrst not installed, filechk does nothing )

d) mfarch/mfarc2/mfcheck/mfrest?

?

Option C seems to be for any user, but is incomplete you can create a file with all your PLI files , but not list or restore them.

for instance

/INFO MUSIC R(SYSTEM)

/COM **** FARC PROCESSING

/FILE 1 NAME(GROUP.ARC) NEW(REP) RECFM(FC) LRECL(80)

/COM /FILE 6 N(GROUP.PRN) NEW(REP) LRECL(133)

/INCLUDE *COM:FILARC

OUTPUT=1

GUEST:*.PLI

Option D it's only for an admin user, and seems to be more like a daily backup task, I wasn't able to trigger a backup to a .mfarc file, for a specific directory or user.

Currently I'm using ftp for backup ( only good for text files, I suppose that binaries can be corrupted ). What do you suggest.

?

BTW I was able to compile and run a few PL/I for newer versions, in PL/I (F), with a few corrections:

1-lines must be between columns 2 and 72 ( obvious is IBM/360 card style)

2-Text MUST be CAPITALS.

3-You can't be a purist and "exit" or "break" a do while loop, you must use infamous (LOL)? GO TO eg: on ENDFILE (SYSYN) GOTO END;

4- You can use matrixes and complex numbers !!! BUT, PL/I has no casting like c, so you must explicity convert your data to complex. For instance SQRT(-1) raises error, but SQRT (-1+0I) works like silk. Well. polimorfism or casting , wasn't invented at the time of the birth of Pl/I.

?

--

Carlos

Argentina

On Sun, Jul 26, 2020 at 11:54 AM, carlos feldman wrote:

>> Option D it's only for an admin user, and seems to be more like a daily backup task, I wasn't able to trigger a backup to a .mfarc file, for a specific directory or user.

The job below (run from $000) will create a MFARC with all the files of user GUEST:

thanks René,

This works, my only complain is that you have to have administrator prvileges, to run this job.

I've? used FARC, that can be used by any user, to generate backup

/INFO MUSIC R(SYSTEM)

/COM **** FARC PROCESSING

/FILE 1 NAME(GROUP.ARC) NEW(REP) RECFM(FC) LRECL(80)

/COM /FILE 6 N(GROUP.PRN) NEW(REP) LRECL(133)

/INCLUDE *COM:FILARC

OUTPUT=1

GUEST:*.PLI

?

this output file can be tested with mfcheck ( no user restrictions )

but since FILRST ( for all users) is missing from MUSIC, you must use MFREST ( only $000 ) via submit:

/INFO MUSIC USERID($000) PW(CUL8TR) TIME(5) ROUTE(SYSTEM)

/FILE 1 N(GUEST:GROUP.ARC) OLD

/INCLUDE *COM:MFREST

IN=1,ALL=T,REPL=T,FIXUP=' ',LIST=T,SETUI=T

?

Do you think that this missing program, that executes some privileged instructions, FILRST can be get from someone else ?

?

?

?

--

Carlos

Argentina

Hello Carlos,

hi René, I'm testing your suggestion. But have to suspend because of other tasks, at home. But I copied the script i the $pgm directory and modified the file attributes with MKPUBLXO. Thing is Guest user can run it:

/FILE 1 N(GUEST:GROUP.ARC) OLD

/INCLUDE *COM:FILRST

IN=1,ALL=T,REPL=T,FIXUP=' ',LIST=T,SETUI=T,NAME='GUEST:\PLI\*'

?has this output:

?

--

Carlos

Argentina