OSI/MHS Management Programming Manual

Examples
OSI/MHS Management Programming Manual—424824-001
C-59
Password Server Database
#SET pws_vol [libvol].t5qpws
#SET outfile [pws_vol].sql1o
INLPREFIX +
sink [#purge [outfile]]
SQLCI /INLINE, OUT [outfile], STATUS proc_status, name/
+ catalog [sql_catalog];
+ purge ! [sql_catalog].* no listall;
+ drop catalog [sql_catalog];
+ create catalog [sql_catalog];
+ create table [sql_catalog].mspwtabl
+ ( appl_name character (16) NOT NULL,
+ password character (62) NOT NULL,
+ iso_country character (2) UPSHIFT NOT NULL,
+ admd character (16) UPSHIFT NOT NULL,
+ prmd character (16) UPSHIFT NOT NULL,
+ x121_address character (15) NOT NULL,
+ terminal_id character (24) NOT NULL,
+ numeric_user_id character (32) NOT NULL,
+ common_name character (64) UPSHIFT NOT NULL,
+ terminal_type smallint NOT NULL,
+ org_name character (64) UPSHIFT NOT NULL,
+ org_unit_1 character (32) UPSHIFT NOT NULL,
+ org_unit_2 character (32) UPSHIFT NOT NULL,
+ org_unit_3 character (32) UPSHIFT NOT NULL,
+ org_unit_4 character (32) UPSHIFT NOT NULL,
+ surname character (40) UPSHIFT NOT NULL,
+ given_name character (16) UPSHIFT NOT NULL,
+ initials character (5) UPSHIFT NOT NULL,
+ gen_qualifier character (3) UPSHIFT NOT NULL,
+ dom_defined_type_1 character (8) UPSHIFT NOT NULL,
+ dom_defined_value_1 character (128) UPSHIFT NOT NULL,
+ dom_defined_type_2 character (8) UPSHIFT NOT NULL,
+ dom_defined_value_2 character (128) UPSHIFT NOT NULL,
+ dom_defined_type_3 character (8) UPSHIFT NOT NULL,
+ dom_defined_value_3 character (128) UPSHIFT NOT NULL,
+ dom_defined_type_4 character (8) UPSHIFT NOT NULL,
+ dom_defined_value_4 character (128) UPSHIFT NOT NULL,
+ pselector character (32) UPSHIFT NOT NULL,
+ sselector character (32) UPSHIFT NOT NULL,
+ tselector character (64) UPSHIFT NOT NULL,
+ nsap character (40) UPSHIFT NOT NULL
+ );
+ create table [sql_catalog].mtpwtabl
+ ( local_mta_name character (32) UPSHIFT NOT NULL,
+ local_mta_iso_country character (2) UPSHIFT NOT NULL,
+ local_mta_admd character (16) UPSHIFT NOT NULL,
+ local_mta_prmd character (16) UPSHIFT NOT NULL,
+ remote_mta_name character (32) UPSHIFT NOT NULL,
+ remote_mta_iso_country character (2) UPSHIFT NOT NULL,
+ remote_mta_admd character (16) UPSHIFT NOT NULL,
+ remote_mta_prmd character (16) UPSHIFT NOT NULL,
+ our_password character (62) NOT NULL,
+ our_password_rsp character (62) NOT NULL,
+ their_password character (62) NOT NULL,
+ their_password_rsp character (62) NOT NULL
+ );
INLEOF
[#IF NOT [#MATCH [proc_status] STOP] |THEN|
SQLCI /INLINE, OUT [outfile], STATUS proc_status, name/
+ purge ! [sql_catalog].* no listall;
+ drop catalog [sql_catalog];
INLEOF
|ELSE|