MVSFORUMS.com :: View topic

MVSFORUMS.com
A Community of and for MVS Professionals

FAQ

Quick Manuals

Profile

Record truncate

MVSFORUMS.com Forum Index -> Database

View previous topic :: View next topic

Author

Message

monaco
Beginner

Joined: 20 May 2004
Posts: 77
Topics: 31

Posted: Thu Mar 03, 2005 5:03 am Post subject: Record truncate

Hi all,

i'm trying to execute the file

Code:

1DSN SYSTEM(AISE)
1 FREE PACKAGE (POS3I.KEBLM004.(2005-01-20-18.19.39.357206))
FREE PACKAGE (POS3I.KEBLM035.(2005-01-20-19.28.31.701071))
FREE PACKAGE (POS3I.KMCLME20.(2005-02-04-11.57.41.299681))

With the JCL:
//*
//***************************************************
//* EXECUTE THE FREE PACKAGE SENTENCES
//***************************************************
//*
//STEP0060 EXEC PGM=IKJEFT1B
//STEPLIB DD DSN=DB2N.CECN.DSNLOAD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DUMMY
//SYSUDUMP DD DUMMY
//SYSTSIN DD DISP=SHR,DSN=&SYSUID..FREE.EXECUTE
/*

That file was created:
//************************************************************
//* Add the FREE PACKAGE sentences to the selected packages... *
//************************************************************
//*
//STEP0125 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&SYSUID..FREE.DELETE,DISP=SHR
//SORTOUT DD DSN=&SYSUID..FREE.EXECUTE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1),RLSE),
// UNIT=SYSDA
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL HEADER1=('DSN SYSTEM(AISE)'),TRAILER1=('END')
OUTREC FIELDS=(C' FREE PACKAGE (POS3I.',
1,8,
C'.(',
11,26,
C'))')
/*

In the execution the rows of this file are truncated. The error message is:
READY
DSN SYSTEM(AISE)
DSN
FREE PACKAGE (POS3I.KEBLM004.(2005-01-20-18.19.39.
DSNE964E DSNECP46 INVALID SYNTAX FOR PACKAGE KEYWORD DSN
FREE PACKAGE (POS3I.KEBLM035.(2005-01-20-19.28.31.
DSNE964E DSNECP46 INVALID SYNTAX FOR PACKAGE KEYWORD DSN
END

Could someone help me?

Thanks a lot.

kolusu
Site Admin

Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

Posted: Thu Mar 03, 2005 8:42 am Post subject:

Monaco,

Change your sort sysin cards to the following and see if it works

Code:

//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(C' FREE PACKAGE (POS3I.',
1,8,
C'.(',
11,26,
C'))',
80:X)
OUTFIL REMOVECC,
HEADER1=('DSN SYSTEM(AISE)'),
TRAILER1=('END')
/*

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

monaco
Beginner

Joined: 20 May 2004
Posts: 77
Topics: 31

Posted: Thu Mar 03, 2005 10:06 am Post subject:

Thanks Kolusu. It works.

Display posts from previous:

	MVSFORUMS.com Forum Index -> Database	All times are GMT - 5 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum