Unload panels or banners from a Deliver database

Products

• OM Deliver

Issue/Introduction

You want to unload panels or banners to a dataset from a Deliver database into a dataset.

Environment

Deliver 14

Resolution

Attached is a REXX program that reads a Deliver RMODBASE unload file add offloads the panels or banners to a PDS.

RMOUNPBJ.txt is the template JCL used to run the job.

RMOUNPB.txt is the template REXX program.

The REXX program that is enclosed needs to be put in a REXX or CLIST library. The PDS for the panels and/or banner pages has to be created before running the REXX program . The panel data set is RECFM=FB with LRECL=80 and banner page data set is RECFM=FBA and LRECL=133. You can choose a block size.

In the JCL provide a valid job card. Put name of load library in STEPLIB. Change YOUR.REXX.LIBRARY to REXX library where RMOUNPB REXX program was placed. Change DELIVER.SYSTEM1 to your View database name. Change YOUR.UNLOAD.FILE and YOUR.UNLOAD FILEVB to your own names which will contained the database unloaded data. Change YOUR.UNLOAD.PANEL.PDS and YOUR.UNLOAD.BANNER.PDS to the PDS data set names created for the panel and banner unloads. If not unloading banners, then delete the command for it.

The command for invoking the REXX program is:

RMOUNPB unload.DD.name pds.file.name members type

unload.dd.name is the DD that contains the unload of database in VB format

pds.file.name is your pre-allocated unload data set name

members indicates members that are to be unloaded. * for all, generic name like RMO* for selective members, or individual name name like RMOJCLB.

type is either P for panels or B for banner pages.