ca.portal.admin

Re: [IDMSVENDOR-L] Mixed page group

Discussion created by ca.portal.admin on May 9, 2005
Hot off the press:
JCL:
//PCHPG JOB (DBA),CLASS=A,MSGCLASS=X,RESTART=HERE
//*-----------------------------------------------------------------
//* EXTRACT AREAS WITHIN PAGE GROUP FOR SPECIAL SSC
//*-----------------------------------------------------------------
//EXTAREA EXEC CULPPM,CV=IDMSQA
//SYSPCH DD DSN=IDMSQA.DBA.SRC(OPERDBAR),DISP=SHR
//SYSIN DD *
DATABASE DICTNAME=SYSDIRL DBNAME=AEIDICT PARAM=NOLIST USE PCHPGRPA CH
R TO 1
SEL DMCL-1035 WHEN NAME-1035 = 'AEIDMCL' $ GLOBALDMCL
SEL AREA-1026 WHEN SEGMENT-1026 = 'OPERDB' $ EITHER SEGMENT NAME
$SEL AREA-1026 WHEN PAGEGROUP-1026 = NNN $ OR PAGEGROUP
//SYSIDMS DD *
DMCL=AEIDMCL,ECHO=ON
//HERE EXEC PGM=IEFBR14
//PCHSS EXEC CULPPM,CV=IDMSQA
//AREAS DD DSN=IDMSQA.DBA.SRC(OPERDBAR),DISP=SHR INPUT
//SYSPCH DD DSN=IDMSQA.DBA.SRC(PG$SSC),DISP=SHR OUTPUT
//SYSIN DD *
DATABASE DICTNAME=SYSDIRL DBNAME=AEIDICT PARAM=NOLIST USE PCHSSSYN
WITH VAL ('MASTERDB') CH R TO 2 $ (SCHEMA NAME)
//SYSIDMS DD *
DMCL=AEIDMCL,ECHO=ON
//*
---------------------------------------------------------------
Culprit Syntax PCHPGRPA
01$ -------------------------------------------------------------
01$ PUNCH AREA W/IN PG-GRP/SEGMENT
01$ -------------------------------------------------------------
IN 2000 DB SS=IDMSNWKG,IDMSNTWK,1
PATHPG DMCL-1035 DMCLSEGMENT-1038 SEGMENT-1047 AREA-1026 01OUT D CARD
01SORT NAME-1026
01510001 SEGMENT-1026
01510009 NAME-1026
01510042 PAGEGROUP-1026 FM '9999'
017 IF PATH-ID NE 'PG' DROP
---------------------------------------------------------------------
Culprit Syntax PCHSSSYN
IN 2000 DB SS=IDMSNWKA,IDMSNTWK
PATHAR SA-018
PATHRC SA-018 SAM-056
PATHSS SA-018 SAM-056 SRCD-113 SOR-046
SEL SA-018 WHEN S-NAME-018 = '&&1' $ SCHEMA NAME KEY 80 F PS KF=10,32
DD=AREAS 01OUT D CARD 01SORT TYP INIT
010 TYP ' '
010 INIT ' '
01410001 'ADD SUBSCHEMA XXXXXXX OF SCHEMA &&1 .'
01510001 'ADD AREA'
01510011 SA-NAM-018
01510043 '.'
01510079 TYP
01510080 INIT
01520001 'ADD REC '
01520011 SR-NAM-056
01520043 '.'
01520079 TYP
01520080 INIT
01530001 'ADD SET '
01530011 SET-NAM-046
01530043 '.'
01530079 TYP
01530080 INIT
01540001 'GENERATE.'
017 EOF = 200
017 IF PATH-ID = 'AR' 010
017 IF PATH-ID = 'RC' 020
017 IF PATH-ID = 'SS' 030
017 DROP
017010M 'A' TYP
017 M SA-NAM-018 INIT
017 TAKE ( 1 )
017020IF SR-NAM-056 = 'SR7' DROP
017 M 'R' TYP
017 M SR-NAM-056 INIT
017 TAKE ( 2 )
017030IF SR-NAM-056 = 'SR7' DROP
017 IF S-NAME-113 NE S-NAME-018 DROP
017 IF SOR-ID-046 NE SR-ID-113 DROP
017 M 'S' TYP
017 M SET-NAM-046 INIT
017 TAKE ( 3 )
017200M '9' TYP
017 TAKE ( 4 )

* NO warranty given or implied
* DYODD
* DHL takes no responsibility for use of this software
* etc, etc, etc.

Outcomes