Installation

  1. Download wcount25.exe and execute it on Windows95/98/NT to extract 'wcount25.savf' and 'wcount25i.savf'.
  2. Create save-files on your AS/400.
  3. Connect to the AS/400 using any FTP client software.
  4. Put the distribution (wcount*.savf) to the save-files by binary mode.
  5. Restore library 'wcount' and directory 'wcount' from the save-files using RSTLIB and RST commands.

Sample instruction

Create save-files on the target AS/400:

> CRTSAVF FILE(QGPL/WCOUNT25)            
  File WCOUNT25 created in library QGPL. 
> CRTSAVF FILE(QGPL/WCOUNT25I)           
  File WCOUNT25I created in library QGPL.

Send save-files from Windows95/98/NT/2000 command prompt:

E:\>ftp your_as400_hostname
Connected to ????.
220-QTCP AT ????.
220 CONNECTION WILL CLOSE IF IDLE MORE THAN 5 MINUTES.
User (????:(none)): as400_user_id
331 ENTER PASSWORD.
Password:enter_password_for_the_user_id
230 ???? LOGGED ON.
ftp> bi
200 REPRESENTATION TYPE IS BINARY IMAGE. ftp> put wcount25.savf qgpl/wcount25 (replace 200 PORT SUBCOMMAND REQUEST SUCCESSFUL. 150 SENDING FILE TO MEMBER WCOUNT25 IN FILE WCOUNT25 IN LIBRARY QGPL. 250 FILE TRANSFER COMPLETED SUCCESSFULLY. 3024384 bytes sent in 8.00 seconds (377.95 Kbytes/sec) ftp> put wcount25i.savf qgpl/wcount25i (replace 200 PORT SUBCOMMAND REQUEST SUCCESSFUL. 150 SENDING FILE TO MEMBER WCOUNT25I IN FILE WCOUNT25I IN LIBRARY QGPL. 250 FILE TRANSFER COMPLETED SUCCESSFULLY. 933504 bytes sent in 2.66 seconds (350.41 Kbytes/sec)
ftp> quit
221 QUIT SUBCOMMAND RECEIVED.

Go back to the 5250 session to restore objects:

> RSTLIB SAVLIB(WCOUNT) DEV(*SAVF) SAVF(QGPL/WCOUNT25)
  14 objects restored from WCOUNT to WCOUNT. 
> MD DIR('/wcount') Directory created. > RST DEV('/qsys.lib/qgpl.lib/wcount25i.file') OBJ(('/*') ('/qsys.lib' *OMI T) ('/qdls' *OMIT)) 55 objects restored. > DLTF FILE(QGPL/WCOUNT25) Object WCOUNT25 in QGPL type *FILE deleted. > DLTF FILE(QGPL/WCOUNT25I) Object WCOUNT25I in QGPL type *FILE deleted.


You should recompile the distribution!

Directories, configuration files are defined at WCOUNT/H(CONFIG). Edit the header file when you want to change them.

0020.00 #define CONFIG_DIR "/QSYS.LIB/WCOUNT.LIB/CONFIG.FILE"
0021.00 #define CONFIG_FILE "COUNT.CFG.MBR"
0022.00 #define DATA_DIR "/QSYS.LIB/WCOUNT.LIB/DATA.FILE"
0023.00 #define DIGIT_DIR "/wcount/digits"
0024.00 #define LOG_DIR "WCOUNT/LOGS"
0025.00 #define LOG_FILE "(LOG)"
Program 'wcount' was compiled on V4R4 specifying V4R2 as TGTRLS. To recompile the package, edit WCOUNT/QREXSRC(MAKE) as you like.
0010.00 OLIB = 'WCOUNT'
0011.00 SAY " "
0012.00 OUT = '*NONE'
0013.00 OPT = '*IFSIO'
0014.00 DEB = '*ALL'
0015.00 TGT = 'V4R2M0'
Run the rexx procedure to recompile.
Start Count 2.5 compilation.
You must have authority to exec CRTCMOD and CRTPGM.

* * * * * * * * * * * * * * * * * * * * * *


Start creating modules for COMBINE...
creating module allocim...
result-> 0
creating module alphaim...
result-> 0

. . . . . . . . (SNIP) . . . . . . . .

creating module utils...
result-> 0

Creating main program (COUNT)...
result-> 0

Compile finished. Confirm error(s) if exists.
 


[Home]