Code400 -The Support Alternative

Code400 -The Support Alternative - IFS http://www.code400.com/forum/ Anything dealing with IFS en Tue, 07 Sep 2010 00:24:27 GMT vBulletin 60 http://www.code400.com/forum/images/misc/rss.png Code400 -The Support Alternative - IFS http://www.code400.com/forum/ Merging .txt IFS files in Folder on AS/400 http://www.code400.com/forum/showthread.php/9622-Merging-.txt-IFS-files-in-Folder-on-AS-400?goto=newpost Wed, 01 Sep 2010 13:33:17 GMT I am getting difficulty in merging IFS files on AS/400. I have a below requirement, please advise how to proceed. I am getting 5 text files in AS/400 folder from window FTP server. i.e. PUT from Window into AS/400 folder. Then I have to merge these files into a single PF. Then my programs... I am getting difficulty in merging IFS files on AS/400.
I have a below requirement, please advise how to proceed.

I am getting 5 text files in AS/400 folder from window FTP server. i.e. PUT from Window into AS/400 folder. Then I have to merge these files into a single PF. Then my programs will use this PF for further process.

I am getting difficulty to merge these 5 .txt files in on 1 .txt file, once it done then I will convert it into PF by CPYFRMIMPF.

AS/400 IFS folder name: ‘R3_222/NS’ which is having 5 .txt files as (NSYYYYMMDDHHMMSS.txt format – i.e.
NS20100901101000.txt
NS20100901102000.txt
NS20100901103000.txt
NS20100901104000.txt
NS20100901105000.txt

PF name R3_222/BKAC01I

PF definition is: ( field BKAC01I is 2 byte CCSID type O)

.....A..........T.Name++++++RLen++TDpB......Functi ons++++++++++++++++++++
*************** Beginning of data ***************************************
A R BKAC01IR
A BKAC01I 1024O
****************** End of data ******************************************

Many thanks in advance.

Regards,
Abhay ]]> IFS Abhay http://www.code400.com/forum/showthread.php/9622-Merging-.txt-IFS-files-in-Folder-on-AS-400 Copying .txt IFS file from AS/400 folder to AS/400 PF - japaness character http://www.code400.com/forum/showthread.php/9618-Copying-.txt-IFS-file-from-AS-400-folder-to-AS-400-PF-japaness-character?goto=newpost Wed, 01 Sep 2010 08:14:51 GMT Dear All,

I am trying to copy '/R3_222/CL/CL20100901130000.txt' file from AS/400 folder to R3_222/BKAC04I physical file by using below command

CPYFRMIMPF FROMSTMF('/R3_222/CL/CL20100901130000.txt' )
TOFILE(WIPODCQA/BKAC04I)
MBROPT(*REPLACE)
RCDDLM(*ALL)
STRDLM(*NONE)
RMVBLANK(*NONE)
FLDDLM(*TAB)

CL20100901130000.txt data is having some japness chracter, so after copied it's showing junck char.

I have set WIPODCQA/BKAC04I as CCSID 5035
and
CHGATR OBJ(/R3_222/CL/CL20100901130000.txt') ATR(*CCSID) VALUE(943)

before doing copy. I am getting problem with Japaness charater.

Kindly help.

Reagrds,
Abhay ]]> IFS Abhay http://www.code400.com/forum/showthread.php/9618-Copying-.txt-IFS-file-from-AS-400-folder-to-AS-400-PF-japaness-character CpyToImpf with RmvBlank http://www.code400.com/forum/showthread.php/9516-CpyToImpf-with-RmvBlank?goto=newpost Thu, 05 Aug 2010 14:36:03 GMT Hi All:

I'm using the CPYTOIMPF command with RMVBLANK parm. Wether I use *LEADING / *TRAILING / or *BOTH on the rmvblank parm there is always 1 blank between the 2 commas.

NAME,ADDRESS1, ,CITY,STATE,ZIP should be NAME,ADDRESS1,,CITY,STATE,ZIP

Is there a command that will actually remove all the blanks?

Thanks
GLS ]]> IFS GLS400 http://www.code400.com/forum/showthread.php/9516-CpyToImpf-with-RmvBlank Listing a Directory Tree Contents http://www.code400.com/forum/showthread.php/9485-Listing-a-Directory-Tree-Contents?goto=newpost Wed, 28 Jul 2010 14:07:06 GMT cross-post from http://www.support.ecofitonline.com/...-Tree-Contents

For those of you using this utility, I have had to make a minor change. I included a 6-month bug :)

After sitting in IFS for 6 months, the display of the timestamp format of the 'ls' command changes from 'mmm dd tt:tt' to a datestamp of 'mmm dd yyyy' and the time is omitted. This is appears to be standard for linux, aix, etc.

To correct this, change the relative line in the CLP to:

Code:

CHGVAR VAR(&QSHSTMT) VALUE('ls -lRT' *BCAT &AttchPath)

]]> IFS kitvb1 http://www.code400.com/forum/showthread.php/9485-Listing-a-Directory-Tree-Contents AS400 Profile Authorities http://www.code400.com/forum/showthread.php/9463-AS400-Profile-Authorities?goto=newpost Thu, 22 Jul 2010 14:21:01 GMT I need to set up a profile on our AS400 to allow read/write/delete to files in a shared folder. Is *ALLOBJ necessary as the only access need is to the shared folder? TIA I need to set up a profile on our AS400 to allow read/write/delete to files in a shared folder. Is *ALLOBJ necessary as the only access need is to the shared folder? TIA ]]> IFS rckass http://www.code400.com/forum/showthread.php/9463-AS400-Profile-Authorities