AS400 Create CSV (IFS file) from PF

-



Below command will copy hte WRKFILE from Qtem to a CSV file in Directory DIR.

CPYTOIMPF FROMFILE(QTEMP/WRKFILE) TOSTMF('/DIR/FILENAME.CSV') MBROPT(*REPLACE)   STMFCODPAG(*PCASCII) RCDDLM(*CRLF) ADDCOLNAM(*SYS) 

Comments

Post a Comment

Popular posts from this blog

AS400 : Add a new line in text in email SNDSMTPEMM

-
Declare  ** NAMED CONSTANTS FOR CARRIAGE RETURN  Which will move the control to next line                      D CR              C                   CONST(X'0D')                  //0->Zero D vSepj           S              1    Inz('/')   D vQot            S              1    INZ('''')  DRunCommand       PR                  extpgm('QCMDEXC')                D pCommand                    2560    const                  ...
Read more

AS400 SAV-RESTORE using Save File

-
Image
Save the files FILE1 and FILE2 from Library SLIB to the save file SAVF in TSAVLIBin the source system. SAVOBJ OBJ(FILE1 FILE2) LIB(SLIB) DEV(*SAVF) SAVF(TSAVLIB/SAVF) Then in the Source system Use FTP to put the Content of Save File (TSAVLIB/SAVF) to a save file (TSAVLIB2/SAVF) in the destination system. FTP SYSTEM1 PUT TSAVLIB/SAVF TSAVLIB2/SAVF (Get in Destination System wont run sometimes hence always used PUT) Once FTP is complete. Restore Objects RSTOBJ OBJ(*ALL) SAVLIB(SLIB) DEV(*SAVF) SAVF(TSAVLIB2/SAVF) MBROPT(*ALL) RSTLIB(DESTLIB) When restoring make sure the library is a separate library (Create a New)because this restore will clear and restore the object so you will lose whatever in the restoring library. It is safe clear the library first so that you dont let the system clear it and you can backup whatever you want to keep. --------------------------------------------------------------------------- Save 2 members (/More than 2) from 2 files ...
Read more

AS400 Display File: Check Box (MLTCHCFLD)

-
Check box can be added to the AS400 Display using the Multi Choice Field. Each Choice in the MLTCHCFLD should have a Choice control defined as below. These Choice Control can be used in the Program logic. A            MOPT           2Y 0B  3 58MLTCHCFLD               A                                      CHOICE(1 'Shipment')     A                                      CHOICE(2 'Transfer')     A                                      CHOICE(3 'Ship to ')     A                                   ...
Read more