meenu_laul
New User
Joined: 26 May 2006
Posts: 5
|
|
|
|
| Code: |
//MMBU48A EXEC BMCUNLDP,
// PARM=(DB2P,'BMCUNLD.TD028750','NEW',,'MSGLEVEL(1)')
//SYSREC DD DSN=P1OPSBP.F0618.MDDF64AB,
// DISP=(,CATLG),
// UNIT=DISK,SPACE=(27972,(54,5),RLSE)
//SYSCNTL DD DUMMY
//COBOLOUT DD SYSOUT=6
//SYSOUT DD SYSOUT=6
//SYSUDUMP DD SYSOUT=F
//SYSABEND DD SYSOUT=F
//SYSPRINT DD SYSOUT=6
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK08 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK09 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK10 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK11 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK12 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK13 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SORTWK14 DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//SYSIN DD *
UNLOAD UNLOADDN SYSREC
DATEFMT ('MM/DD/YYYY')
SORTNUM 14 SORTDEVT SYSDA
SELECT ZIP_CODE
, CITY_NAME
, STATE
, DM_REGION
, SALES_SECTION
, TRADE_AREA
FROM MUA.CITY
ORDER BY ZIP_CODE, STATE
/*
//CHECK EXEC PGM=IMSCHECK,PARM=0
//UCC11NR DD DUMMY, * DUMMY CARD TO TELL UCC11 NOT TO RESTART HERE
// DCB=BLKSIZE=80
//**
//**
|
|
|
