|
midrange.com
FYI
Thanks & Regards,
AKK
___________________________________________________________
Disclaimer
This document is intended for transmission to the named recipient only. If
you are not that person, you should note that legal rights reside in this
document and you are not authorized to access, read, disclose, copy, use or
otherwise deal with it and any such actions are prohibited and may be
unlawful. The views expressed in this document are not necessarily those of
HCL Technologies Ltd. Notice is hereby given that no representation,
contract or other binding obligation shall be created by this e-mail, which
must be interpreted accordingly. Any representations, contractual rights or
obligations shall be separately communicated in writing and signed in the
original by a duly authorized officer of the relevant company.
___________________________________________________________
> -----Original Message-----
> From: Bob O. [SMTP:otis_the_cat@hotmail.com]
> Sent: Monday, October 07, 2002 5:39 AM
> To: rpg400-l@midrange.com
> Subject: Re: New to ILE
>
> I guess my idea of ILE was wrong. I was under the impression that all of
> the subprocedures were supposed to be in seperate source members that were
> accessed by the main procedure. It almost seems like a waste. Wouldn't
> it
> be easier just to leave it in a subroutine?
>
> Or, do other programs access those subprocedures even though they are
> contained within the main procedure? Or am I totally screwed up?
>
>
> >From: Paul Tuohy <tuohyp@attglobal.net>
> >Reply-To: rpg400-l@midrange.com
> >To: rpg400-l@midrange.com
> >Subject: Re: New to ILE
> >Date: Sun, 06 Oct 2002 20:50:22 +0100
> >
> >Hi Bob,
> >
> >It looks as if you have coded the DATEMAIN1 program (Section 3.4.4) as
> two
> >source members - correct?
> >
> >They should be coded as one - the main program, immediately followed by
> the
> >Day
> >of Week subprocedure.
> >
> >You can save yourself some typing by downloading the source for the red
> >book -
> >you should find the link on the same web page as the book.
> >
> >Regards
> >
> >Paul Tuohy
> >
> >"Bob O." wrote:
> >
> > > I am trying out some RPGILE for the first time. I am testing a simple
> > > program from the "Who Knew You Could Do That With RPGIV" Redbook. It
> is
> >the
> > > first program in the book that returns the day of the week for a date
> >passed
> > > to the program.
> > >
> > > When I run the command...
> > > CRTBNDRPG PGM(DORTEST/DAYPR) SRCFILE(DORTEST/QRPGLESRC) DFTACTGRP
> (*NO)
> > > ACTGRP(*NEW)
> > >
> > > ... I get the error message "Program DAYPR in library DORTEST not
> >created".
> > > The message in the job log is:
> > >
> > > 5>> CRTBNDRPG PGM(DORTEST/DAYPR) SRCFILE(DORTEST/QRPGLESRC)
> >DFTACTGRP(*NO)
> > > ACTGRP(*NEW)
> > > Definition not found for symbol 'DAYOFWEEK'.
> > > Program DAYPR in library DORTEST not created.
> > > Data area RETURNCODE created in library QTEMP.
> > > Compilation failed. Program DAYPR not created in library DORTEST.
> > >
> > > Am I missing some important step? Is the code from the book missing
> > > something? Below is a copy of the source code from the book that I
> >used.
> > > Any help would be appreciated. Thank you...
> > >
> > > Procedure Interface:
> > >
> > > *
> > > *
> > > * Program name: DayPI
> > > * Date: 10/06/2002
> > > *
> > > *
> > > *********************************************************
> > > *
> > > * Procedure Interface to calculate the day of the week
> > >
> > > P DayOfWeek B
> > >
> > > * Procedure Interface definition
> > > D DayOfWeek PI 1 0
> > > D WorkDate D
> > >
> > > D AnySunday C D'1999-06-13'
> > >
> > > D WorkNum S 7 0
> > > D WorkDay S 1 0
> > >
> > > C WorkDate SubDur AnySunday WorkNum:*D
> > > C WorkNum div 7 WorkNum
> > > C Mvr WorkDay
> > >
> > > c If WorkDay < 1
> > > c Return WorkDay + 1
> > > c Else
> > > c Return WorkDay
> > > C EndIf
> > >
> > > * Procedure Interface end marker
> > > P E
> > >
> > >
> ------------------------------------------------------------------------
> > >
> > > Main Procedure:
> > >
> > > *
> > > *
> > > * Program name: Day1
> > > * Date: 10/06/2002
> > > *
> > > *
> > > *********************************************************
> > > *
> > > * Prototype for the sub procedure DayOfWeek:
> > > *
> > > D DayOfWeek PR 1 0
> > > D InputDate D Datfmt(*ISO)
> > >
> > > * Days of the week name table - note no field names are required
> > > D NameData DS
> > > D 9 Inz('Monday')
> > > D 9 Inz('TuesDay')
> > > D 9 Inz('Wednesday')
> > > D 9 Inz('Thursday')
> > > D 9 Inz('Friday')
> > > D 9 Inz('Saturday')
> > > D 9 Inz('Sunday')
> > >
> > > * Define the array as an ofvelay of the DS name
> > > D Name 9 Dim(7) Overlay(NameData)
> > >
> > > D DayName S 9
> > > D WorkDate S D Datfmt(*ISO)
> > >
> > > * Program Input Parameters
> > > C *Entry Plist
> > > C Parm WorkDate
> > >
> > > * Using DayOfWeek, initialize DayName with the gaboe name
> > > C Eval DayName = Name(DayOfWeek(WorkDate))
> > >
> > > * Display the result
> > > C DayName Dsply
> > >
> > > c Eval *InLr = *On
> > >
> > > _________________________________________________________________
> > > Join the world's largest e-mail service with MSN Hotmail.
> > > http://www.hotmail.com
> > >
> > > _______________________________________________
> > > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> >list
> > > To post a message email: RPG400-L@midrange.com
> > > To subscribe, unsubscribe, or change list options,
> > > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > > or email: RPG400-L-request@midrange.com
> > > Before posting, please take a moment to review the archives
> > > at http://archive.midrange.com/rpg400-l.
> >
> >
> >_______________________________________________
> >This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> >To post a message email: RPG400-L@midrange.com
> >To subscribe, unsubscribe, or change list options,
> >visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> >or email: RPG400-L-request@midrange.com
> >Before posting, please take a moment to review the archives
> >at http://archive.midrange.com/rpg400-l.
>
>
>
>
>
> _________________________________________________________________
> MSN Photos is the easiest way to share and print your photos:
> http://photos.msn.com/support/worldwide.aspx
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
