Re: Fix Central cume to image catalog

I was out yesterday so I may be repeating some stuff.
When I order the cumes and groups I order them from Fix Central and
request the FTP method. This sends me an email with even a suggested
script as part of the email:
<snip>
o DOWNLOAD USING THE FTP COMMAND FROM OS/400
Select this method only if you will be using image catalogs.
In the example below, the directory is named "fixes".
You must store the files in a path within the "root" (/)
directory in IFS.
ftp "delivery01-bld.dhe.ibm.com"
ftp> Name: "anonymous"
ftp> Password: g3O04fsH
ftp> namefmt 1
ftp> lcd /fixes
ftp> ascii
ftp> cd /ccss/B60803/CUME/C
ftp> get ftpCUME.txt
ftp> get ilstCUME.txt
ftp> binary
ftp> get CUME_1.bin
ftp> get CUME_2.bin
ftp> get CUME_3.bin
ftp> get CUME_4.bin
ftp> get CUME_5.bin
ftp> quit
</snip>

I modify this only slightly
- add the locsite to avoid the error
- Use mget's instead of gets to make them more generic
- They don't check the password on anonymous so you can ignore the one
they supply. If you've ever worked with users you know that it's simpler
to tell them something like g3O04fsH then to tell them to just make
something up.

ftp "delivery01-bld.dhe.ibm.com"
ftp> Name: "anonymous"
ftp> Password: myemailaddress
ftp> locsite namefmt 1
ftp> lcd /fixes my image catalog directory
ftp> ascii
ftp> cd /ccss/B60803/CUME/C
ftp> mget *.txt
ftp> binary
ftp> mget *.bin
ftp> quit

When that is done
CALL PGM(QVOIFIMG) PARM('CUME ' '*ALL ' 0)
LODIMGCLG IMGCLG(CUME) DEV(OPTVRT01)
VFYIMGCLG IMGCLG(CUME) TYPE(*PTF) SORT(*YES)
INSPTF LICPGM((*ALL)) DEV(OPTVRT01) INSTYP(*DLYALL)

There are a few tweaks I do different because I am a multi lpar shop but
since you are not I left those off for simplification.


Rob Berendt