Recent content by Yanndewael

Thank you all for your answer. But since it appears that I have to use a PERFORM, here is the solution I took: 03 IDTBAN-T57-MSM PIC X(35). 03 I PIC 9(02). 03 I2 PIC 9(02). 03 TMPCHR PIC X(01). 03 TMPVAR...

Hello, I would like to remove spaces from a variable (ex: "This is the value" being convert into "Thisisthevalue" without having to use PERFORM checking all characters of the variable. I suspect it could be possible using the command INSPECT, but I don't know how. I tried INSPECT VARIABLE...

Hello, I want to change the name of all my universes, by SQL query instead of manual change in BO. I then made the following queries: -- TO CHANGE universe name --> Change UNI_FILENAME of UNV_UNIVERSE UPDATE UNV_UNIVERSE SET UNI_FILENAME='NEWNAME' WHERE UNI_FILENAME='OLDNAME'...

Indeed, I had thought to this solution. But I'd rather have only one file instead one main program + several copybooks... Easier to transfer, to debug, ... And yes, we have precompiler. Thank you anyway, Yannick

Thank you for your answer, but the tables are Oracle ones, with thousands of records in. So, it is not possible to move tables like that (I think at least...). I will multiply PERFORM then... Cheers

Here is the real example: Instead of doing this: * a) For IN , we read IND41 PERFORM READ-IND41 THRU READ-IND41-FN. * b) For IR , we read IRD42 PERFORM READ-IRD42 THRU READ-IRD42-FN. READ-IND41. *----------* INITIALIZE IND41-01...

HEllo, Is it possible to use "replacing" option in a PERFORM such as: PERFORM TODO THRU TODO-FN REPLACING XXXX BY ABCD PERFORM TODO THRU TODO-FN REPLACING XXXX BY EFGH ?? This would be useful when I have to make some treatments on different tables with the same layout. Thank you...

Hello, I have a file with lines such as: [0,,125554656,+ 14.57,000000,0,0] [1,2,125433545,- 1234568.24,000,0,0] ... And I want to write a script removing the spaces between the sign (+ or -) and the amount. Which command should I use? Perl? Thank you in advance

Hello, I want to write a script with several command, example: #1 Command 1 #2 Command 2 #3 Command 3 ... I will test the return code of these command and exit the script in case of error. After having investigate the error causes, I want to be able to re-execute the script from the failed...

Hello, I'd like to write a script to read a flat file and to split it into 2 different ones. Here is the structure of the original file: 0xxxxxxxxxxx 1xxxxxxxxxxx 1xxxxxxxxxxx ... 9xxxxxxxxxxx 0xxxxxxxxxxx 1xxxxxxxxxxx ... 9xxxxxxxxxxx Where x can be a number or a letter and where the number...

Hi again, Here is my question: In a script, I test the "return code" of a request as follow: ls -1rt $directory | read file if [[ $? -eq 0 ]] ; then echo DIRECTORY NOT EMPTY. GO to the §9 fi As you certainly guessed, I'd like to know how to write the "GO to the...

Hello, I am a beginner in UNIX programmation and I want to do the following: - I connect from the UNIX server to an FTP server - I take all the .dat files from a particular directory - and here is my problem: I want to rename the files I took into .dat.done for example. But it seems that I...