put skip list



IBM's cross-platform compiler PL/I for MVS, VM & VSE, OS/390 and Enterprise PL/I for z/OS

put skip list

Postby surime72 » Fri Jun 15, 2012 2:30 pm

HI,
i was new to pli previously was working cobol,
can any tell me about "put skip list ('hello')
what does it will do
surime72
 
Posts: 107
Joined: Sun Oct 23, 2011 1:45 pm
Has thanked: 0 time
Been thanked: 0 time

Re: put skip list

Postby enrico-sorichetti » Fri Jun 15, 2012 2:54 pm

what about looking Yourself at the manuals ???
starting for example from
http://publibz.boulder.ibm.com/cgi-bin/ ... s/IBMSH360
not the latest one but more than enough to begin with
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2966
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 160 times

Re: put skip list

Postby prino » Fri Jun 15, 2012 5:07 pm

Here is compile JCL. Change the SET var=value" statement to ones appropriate for your site, an go play.

//COMPILEP JOB (PRINO),
//             'PRINO COMP/LINK/GO',
//             CLASS=A,
//             MSGCLASS=H,
//             MSGLEVEL=(2,0),
//             NOTIFY=&SYSUID
//*********************************************************************
//* PL/I Compile & Go (Enterprise Compiler)
//*********************************************************************
//         SET INCLIB='MY.INC.SRCE'
//         SET PLILIB='PLI.V3R9M0.SIBMZCMP'
//*********************************************************************
//IEFBR14 EXEC PGM=IEFBR14
//LIST      DD DSN=&SYSUID..&SRCE..LIST,
//             DISP=(MOD,DELETE),
//             UNIT=SYSDA,
//             SPACE=(TRK,1)
//*********************************************************************
//IBMZPLI EXEC PGM=IBMZPLI,
//             REGION=0M,
//             PARM=('+DD:PLISTD +DD:PLIUSER')
//STEPLIB   DD DSN=&PLILIB,DISP=SHR
//          DD DSN=CEE.SCEERUN,DISP=SHR
//          DD DSN=CEE.SCEERUN2,DISP=SHR
//SYSUEXIT  DD DSN=NULLFILE,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//PLISTD    DD *
   aggregate(dec)
   arch(8)
   attributes(s)
   backreg(5)
   bifprec(31)
   blank('05'x)
   blkoff
   ceestart(last)
   check(noconformance nostorage)
   cmpat(v2)
   codepage(1140)
 nocommon
   compile
   csect
   csectcut(4)
   currency('$')
 nodbcs
   dd(sysprint,sysin,syslib,syspunch,*,*,*,*)
   dd(*,*,*,*,syslin,sysadata,sysxmlsd,sysdebug)
   ddsql('')
   decimal(foflonasgn nofoflonmult noforcedsign)
   default(ibm)
   default(aligned)
   default(assignable)
   default(byaddr)
   default(connected)
   default(desclocator)
   default(descriptor)
   default(dummy(unaligned))
   default(e(hexadec))
   default(ebcdic)
   default(hexadec)
   default(linkage(optlink))
   default(native)
   default(nativeaddr)
   default(nobin1arg)
   default(noevendec)
   default(noinitfill)
   default(noinline)
   default(nonrecursive)
   default(nooverlap)
   default(noretcode)
   default(nullstraddr)
   default(nullstrptr(sysnull))
   default(null370)
   default(ordinal(max))
   default(reorder)
   default(returns(byaddr))
   default(short(hexadec))
   display(wto)
 nodllinit
 noexit
   extrn(full)
   flag(i)
   float(afp(novolatile) nodfp)
   floatinmath(asis)
   gonumber
 nographic
   hgpr(nopreserve)
   ignore(put, display)
 noignore
   incafter(process(''))
 noinitauto
 noinitbased
 noinitctl
 noinitstatic
 nis
 nointerrupt
   langlvl(os saa2)
   limits(extname(7) fixeddec(15,31) fixedbin(31,63) name(31))
   lc(32767)
 nolist
   listview(afterall)
 nomacro
 nomap
   margini(' ')
   mar(2,72,1)
   maxgen(1024)
   maxmem(1048576)
   maxmsg(e 32767)
   maxnest(block(8) do(8) if(8))
   maxstmt(2048)
   maxtemp(4096)
 nomdeck
   names('#@$','#@$')
   natlang(enu)
   nest
   not('^')
   number
   obj
 nooffset
 noonsnap
   opt(3)
   options(all)
   or('|')
   pp(macro('case(asis)'))
   prectype(ans)
 noproceed(s)
   process(delete)
   quote('"')
   reduce
 norent
   resexp
   rtcheck(nonullptr)
   rules(ibm)
   rules(  byname)
   rules(nodecsize)
   rules(  elseif)
   rules(noevendec)
   rules(nogoto(strict))
   rules(nolaxbif)
   rules(nolaxctl)
   rules(nolaxdcl)
   rules(nolaxdef)
   rules(nolaxentry)
   rules(nolaxif)
   rules(nolaxinout)
   rules(nolaxlink)
   rules(nolaxmargins(xnumeric))
   rules(nolaxpunc)
   rules(  laxqual)
   rules(  laxscale)
   rules(nolaxsemi)
   rules(nolaxstg)
   rules(nolaxstrz)
   rules(nomulticlose)
   rules(noprocendonly)
   rules(  stop)
   rules(nounref)
   semantic
   source
   spill(512)
   static(full)
   stmt
 nostorage
   syntax
   sysparm('')
   system(mvs)
   test(all,sym,separate,sepname)
 notest
   usage(hex(currentsize))
   usage(round(ibm))
   usage(substr(strict))
   usage(unspec(ibm))
   widechar(bigendian)
   window(1950)
   writable
   xref(s)
//*
//PLIUSER   DD *
  prefix(size strz subrg)
  list
  test(all,sym,separate,sepname) sysparm('TEST') opt(0)
notest opt(2)
//*
//SYSIN     DD *
 /* Your test program goes here */
 test: proc options(main) reorder;

 end test;
//SYSLIB    DD DSN=&INCLIB,DISP=SHR
//SYSLIN    DD DSN=&&OBJECT(OBJECT),
//             DISP=(,PASS),
//             UNIT=SYSDA,
//             SPACE=(CYL,(2,2,1)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920)
//SYSPUNCH  DD DUMMY
//*********************************************************************
//IEWL    EXEC PGM=IEWL,
//             PARM=('LET,LINECT=0,LIST,XREF,AMODE=31,RMODE=ANY')
//*
//SYSLIN    DD *
 INCLUDE OBJECT(OBJECT)
 NAME LOAD(R)
//*
//OBJECT    DD DSN=&&OBJECT,DISP=(OLD,PASS)
//SYSLIB    DD DSN=CEE.SCEELKED,DISP=SHR
//          DD DSN=SYS1.CSSLIB,DISP=SHR
//SYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(5,1))
//SYSLMOD   DD DSN=&&LOAD,
//             DISP=(,PASS),
//             UNIT=SYSDA,
//             SPACE=(CYL,(2,2,1)),
//             DCB=(RECFM=U,LRECL=27988,BLKSIZE=0)
//SYSPRINT  DD SYSOUT=*
//*********************************************************************
//GO      EXEC PGM=LOAD
//STEPLIB   DD DSN=&&LOAD,DISP=(OLD,PASS)
//SYSOUT    DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//CEEDUMP   DD SYSOUT=*
//CEESNAP   DD SYSOUT=*
//PLIDUMP   DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*


FWIW, the compiler options in //PLISTD are very strict, learn to live with them, it will save you much grief later!
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
User avatar
prino
 
Posts: 617
Joined: Wed Mar 11, 2009 12:22 am
Location: Vilnius, Lithuania
Has thanked: 3 times
Been thanked: 28 times


Return to PL/I