|
 |
|
DDS - Logical file with select logic
Posted By: JimmyOctane Contact |
A R PHYR PFILE(PHYSICAL)
A K PHPRDC
A K PHRDDT
A S PHSTAT COMP(NE 'D')
A PHORDS RANGE(20 59)
A PHORDT COMP(NE 'SA')
A PHRDDT COMP(GE 20030901)
| |
DDS - Message subfile example
Posted By: Reynoo Moore Contact |
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
* MSGSFL: Message Subfile.
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
A R MSGSFL SFL
A SFLMSGRCD(24)
A MSGKEY SFLMSGKEY
A PGMQ SFLPGMQ(10)
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
* MSGCTL: Subfile Control for MSGSFL
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
A R MSGCTL SFLCTL(MSGSFL)
A OVERLAY
A SFLDSP
A SFLDSPCTL
A SFLINZ
A N03 SFLEND
A SFLSIZ(0002)
A SFLPAG(0001)
A PGMQ SFLPGMQ(10)
| |
DDS - Subfile and Subfile control example
Posted By: Reynoo Moore Contact |
A*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=
A* SUB01: Subfile #01
A* Selection of All Survey Question Type.
A*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=
A R SUB01 SFL
A*
A SFLNXTCHG
A S01OPTN 1A B 9 3
A 40 DSPATR(RI)
A 40 DSPATR(PC)
A S01SPLF 10A O 9 6
A S01UDTA 10A O 9 28
A S01HTML 1A O 9 40
A S01PDF 1A O 9 45
A S01JNAM 10A O 9 17
A*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=
A* SFL01CTL: Subfile Control for SUB01
A*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=
A R SUB01CTL SFLCTL(SUB01)
A*
A SFLSIZ(0014)
A SFLPAG(0013)
A CF06(06 'Add')
A CF12(12 'Cancel')
A RTNCSRLOC(&#REC &#FLD)
A OVERLAY
A SFLCSRRRN(&WHERE01)
A 50 SFLDSP
A 51 SFLDSPCTL
A 52 SFLCLR
A 89 SFLEND(*MORE)
A SCRRN01 4S 0H SFLRCDNBR(CURSOR)
A #REC 10A H
A #FLD 10A H
A WHERE01 5S 0H
A 2 2TIME
A COLOR(BLU)
A EDTWRD('0 : : ')
A 1 2DATE
A COLOR(BLU)
A EDTWRD('0 / / ')
A 1 71USER
A COLOR(BLU)
A 2 71SYSNAME
A COLOR(BLU)
A S01CDAY 9A O 1 11COLOR(BLU)
A 5 2'Type options, press Enter.'
A COLOR(BLU)
A 6 4'2=Edit'
A COLOR(BLU)
A 8 6'SPLF Name '
A DSPATR(UL)
A COLOR(WHT)
A 8 2'Opt'
A DSPATR(UL)
A COLOR(WHT)
A 3 69'DRPT001R/01'
A 2 26'Daily Reports SPLF Maintenance'
A S01CNAM 30A O 1 26
A 8 17'Job Name '
A DSPATR(UL)
A COLOR(WHT)
A 8 39'HTML'
A DSPATR(UL)
A COLOR(WHT)
A 8 44'PDF'
A DSPATR(UL)
A COLOR(WHT)
A 6 12'4=Delete'
A COLOR(BLU)
A 6 22'5=Display'
A COLOR(BLU)
A 8 28'User Data '
A DSPATR(UL)
A COLOR(WHT)
| |
DDS - Example of window
Posted By: Jamie Flanary Contact |
A*===============================================================
A*===============================================================
A R WINEMAIL
A*%%TS SD 20030114 134336 REL-V5R1M0 5722-WDS
A WINDOW(10 20 10 50)
A
A WDWBORDER((*COLOR BLU) (*DSPATR RI)-
A (*CHAR ' '))
A 3 1'Would you like to email this model-
A to address'
A W2EMAIL 50A O 4 1DSPATR(HI)
A 5 2'when the build is complete?'
A W2EMAILME 1A B 5 30
A 9 2'F3=Exit'
A COLOR(BLU)
A 9 11'F12=Cancel'
A COLOR(BLU)
A 7 2'Press'
A COLOR(BLU)
A 7 8''
A DSPATR(HI)
A 7 16'to Continue.'
A COLOR(BLU)
A 2 1'You are about to re-build model'
A W2MODEL 18A O 2 33DSPATR(HI)
A*=========================================================================
| |
DDS - SFLNXTCHG - subfile next change used with RPG opcode READC
Posted By: Jamie Flanary Contact |
A*=========================================================================
A R SUB01 SFL
A*
A CHGINPDFT(UL)
A 70 SFLNXTCHG
A S1DSM 3A O 9 4
A S1PRV1 8Y 0H
A S1PRV2 8Y 0H
A S1PRV3 8Y 0H
A S1OPT 1A B 9 2
A S1NAME 30A B 9 8
A 25 DSPATR(UL)
A N25 DSPATR(PR)
A 25 DSPATR(PC)
A CHECK(LC)
A H1CHANGED 1A H
A*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| |
DDS - Simple physical file
Posted By: Jamie Flanary Contact |
A R AVERAGER TEXT('Index 01')
A*
A YEARMONTH 006 TEXT('Year Month')
A VALUE 015 2 TEXT('Values')
A LINEITEMS 006 0 TEXT('Line Items')
A*
A K YEARMONTH
| |
DDS - Physical file with *ISO date definitions
Posted By: Jamie Flanary Contact |
A R MONR TEXT('Monitor OutQ')
A JOB 10 COLHDG('Job Name')
A FILE 10 COLHDG('File Name')
A USERDATA 10 COLHDG('User Data')
A WEBPAGE 50 COLHDG('WebPage Name')
A PDFNAME 50 COLHDG('PDF Name')
A FOLDER 50 COLHDG('Folder Path')
A USEDDATE L COLHDG('Used DATE')
A*
A* Html or PDF format or just email
A*
A HTML 01 COLHDG('Create Webpage')
A PDF 01 COLHDG('Create PDF')
A EMAIL 01 COLHDG('Create Email')
A*
A EADDRESS 50 COLHDG('Email Address')
A ESUBJECT 50 COLHDG('Email Subject')
A ENOTE1 50 COLHDG('Email Note 1')
A ENOTE2 50 COLHDG('Email Note 2')
A ENOTE3 50 COLHDG('Email Note 3')
A ENOTE4 50 COLHDG('Email Note 4')
A ENOTE5 50 COLHDG('Email Note 5')
A*
A EDATE L COLHDG('Email DATE')
A*
A* Last Spooled file info
A*
A SFILE 10 COLHDG('Spooled File')
A SJOB 10 COLHDG('Job Name')
A SUSER 10 COLHDG('User Name')
A SNUMBER 06 COLHDG('Job Number')
A SSNUMBER 05 COLHDG('Spool Number')
A*
A* User data
A*
A SUSERDATA 10 COLHDG('User Data')
A*
A
A K JOB
A K FILE
A K USERDATA
| |
DDS - Unique key word in physical file
Posted By: Jamie Flanary Contact |
*************************************************************************
* Using the unique keyword insures that duplicate recors are not entered
* into a file (by key) Like it or not here is an example. Only one
* userid will be allow in file. An error will occure if logicals are
* created that allow for duplicate entries of the userid.
*************************************************************************
A UNIQUE
A R WEBORECS
A OUSERID 10 TEXT('User ID')
A OOUTLIB 10 TEXT('OUTQUEUE LIBRARY')
A OOUTQ 10 TEXT('OUTQUEUE')
A K OUSERID
| |
DDS - Using a field reference file
Posted By: Jamie Flanary Contact |
A*---------------------------------------------------------------------
A REF(FLDREF)
A R C$H
A C$USER R REFFLD(SLS#)
A TEXT('Credit Administrator')
A COLHDG('Credit' 'Admin')
A C$AHDL R REFFLD(SLS#)
A TEXT('Salesman #')
A COLHDG('Sales' ' # ')
A C$SSHD R REFFLD(SLS#)
A TEXT('Sales Support')
A COLHDG('Sales' 'Support')
A C$AGRP R REFFLD(AGRP)
A TEXT('Account Group')
A COLHDG('Acct' 'Group')
A C$SAGP R REFFLD(ACGP)
A TEXT('Sales Analysis Group')
A COLHDG('S.A.' 'Group')
A C$ACGP R REFFLD(ACGP)
A TEXT('Division')
A COLHDG('Div')
A C$GRPA R REFFLD(SLS#)
A TEXT('Collection Territory')
A COLHDG('Coll' 'Terr')
A C$GRPB R REFFLD(SLS#)
A TEXT('CODE salesman')
A COLHDG('CODE' 'Sls')
A C$CMSN R- 13 REFFLD(LAMB)
A TEXT('Salesman Commission Rate')
A COLHDG('Comm' 'Rate')
A C$GRPC R REFFLD(SLS#)
A TEXT('PA salesman')
A COLHDG('PA' 'DSM')
| |
DDS - Simple physical file and its logical
Posted By: Jamie Flanary Contact |
Physical file
A*****************************************************************
A*
A*****************************************************************
A*
A*
A R C40SELLR
A*
A STATUS 01 COLHDG('Status')
A*
A LOCATION 04 COLHDG('Location')
A CUSTOMER 11 COLHDG('Customer#')
A CUSTOMERNM 30 COLHDG('Customer Name')
A*
A STATE 02 COLHDG('State')
A ZIPCODE 05 COLHDG('ZipCode')
A MSA 04 COLHDG('MSA Code')
A*
A DATE L COLHDG('Sale_Date')
A*
A SALESMAN 03 COLHDG('Salesman')
A SALESMANNM 30 COLHDG('Salesman Name')
A*
A*
A ACCOUNTGRP 04 COLHDG('ACCOUNTGRP')
A*
A CODPRODUCT 20 COLHDG('COD_Prod')
A C4PRODUCT 33 COLHDG('Code400_Prod')
A SPRODUCT 28 COLHDG('C4S-Short')
A*
A PRODGROUP 05 COLHDG('Product Group')
A PRODCAT1 05 COLHDG('Product Cat 1')
A PRODCAT2 05 COLHDG('Product Cat 2')
A*
A* Commision by sales price 3
A*
A UNIT$ 11 4 COLHDG('Unit_Price')
A COMMISSION 09 2 COLHDG('Commission')
A*
A* Commission by average
A*
A UNIT$2 11 4 COLHDG('AVG_Price')
A COMMISSIO2 09 2 COLHDG('Avg_Commission')
A*
A UNITCOM 06 3 COLHDG('Unit Commission')
A QUANTITY 05 0 COLHDG('How_Many')
A*
A EXTENDED 10 2 COLHDG('Extended_Sales')
A*
A YEARMONTH 06 0 COLHDG('YearMonth')
A*
A*
A K RPRODUCT
Logical file
A R C40SELLR PFILE(C40SELLP)
A*
A K RPRODUCT
A*
A S STATUS COMP(EQ 'E')
| |
DDS - Simple print file example
Posted By: Jamie Flanary Contact |
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
A R HEADER01
A 1 2DATE EDTWRD('0 / / ')
A +1TIME EDTWRD('0 : : ')
A 1 33'Code400.com'
A HIGHLIGHT
A 1 70'Page:'
A +1PAGNBR EDTCDE(Z)
A 2 2'CDTHLDORDR'
A 2 32'Credit Hold Orders Report'
A HIGHLIGHT
A @USERID 10A O 2 70
A 5 2'Order #'
A HIGHLIGHT
A 5 11'Ord Date'
A HIGHLIGHT
A 5 21'Ord Line'
A HIGHLIGHT
A 5 31'Product'
A HIGHLIGHT
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
A R DETAIL01
A SPACEB(1)
A ORDNUM 7 0 2EDTWRD(' ')
A ORDDAT 6 0 11EDTWRD('0 / / ')
A ORDLIN 4 0 23EDTWRD(' ')
A PRDCOD 33 31
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
A R FOOTER01
A SPACEB(2)
A 2'*** End of Report ***'
A HIGHLIGHT
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
| |
DDS - Substring in logical file DDS
Posted By: JimmyOctane Contact |
A
A R BATCHR1 PFILE(BATCH)
A ZBACTV
A ZBGDAT
A ZBJDYS
A ZBWKNM
A ZBWKEN
A ZBFIL1
A ZBYEAR I SST(ZBGDAT 5 2)
A K ZBYEAR
A K ZBJDYS
| |
DDS - Logical file with COMP - compare
Posted By: JimmyOctane Contact |
A R MKCRSPR PFILE(FILE1)
*
A K C4ANSQ
*
A S C4SYID COMP(EQ 'SUBSCRIPTIONS ')
A C4ATYP COMP(EQ 'SUBST')
A C4LINE COMP(EQ 001)
* | |
DDS - Select/Omit Logical file
Posted By: JimmyOctane Contact |
S=select and O=Omit
A*
A R FORMAT1 PFILE(FILE1)
A K C4PRDC
A K C4DTIM DESCEND
A K C4ORNO
A K C4LINE
A O C4ORDS COMP(EQ 60)
A C4CQTY COMP(EQ 0)
A S C4STAT COMP(EQ ' ')
************* End of data *************************************
| |
DDS - SQL delete by RRN
Posted By: JimmyOctane Contact |
This will delete RRN 1 thru RRN 9,999
delete from labelsbk/file1 a where RRN(a) < 10000
| |
DDS - AFP - example advance function printing DDS
Posted By: JimmyOctane Contact |
*
*
*
* DESCRIPTION: SAMPLE AFP KEYWORD USAGE
*
* CREATE COMMAND: CRTPRTF FILE(mylib/printfile)
* SRCFILE(mylib/QDDSSRC)
* DEVTYPE(*AFPDS)
*
* DRAW A BOX
*
A R DRAWBOX
A*%%***********************************************************************
A*%%RI 00000
A*%%***********************************************************************
A BOX(&STRY &STRX &ENDY &ENDX &LW)
A STRY 5S 3P
A STRX 5S 3P
A ENDY 5S 3P
A ENDX 5S 3P
A LW 5S 3P
*
* DRAW A HORIZONTAL LINE
*
A R HRZLINE
A*%%***********************************************************************
A*%%RI 00000
A*%%***********************************************************************
A LINE(&STRY &STRX &LLEN *HRZ &LW)
A STRY 5S 3P
A STRX 5S 3P
A LLEN 5S 3P
A LW 5S 3P
*
* DRAW A VERTICAL LINE
*
A R VRTLINE
A*%%***********************************************************************
A*%%RI 00000
A*%%***********************************************************************
A LINE(&STRY &STRX &LLEN *VRT &LW)
A STRY 5S 3P
A STRX 5S 3P
A LLEN 5S 3P
A LW 5S 3P
*
* DRAW TEXT USING A CODED FONT
*
A R TEXTFONT
A*%%***********************************************************************
A*%%RI 00000
A*%%***********************************************************************
A P1PRJ 30A
A FONT(16951 (*POINTSIZE 36))
A POSITION(&Y &X)
A Y 5S 3P
A X 5S 3P
*
* DRAW TEXT ROTATED 90 DEGREES
*
A R ROTTEXT
A*%%***********************************************************************
A*%%RI 00000
A*%%***********************************************************************
A TEXT 30A
A TXTRTT(90)
A FONT(2304 (*POINTSIZE 16))
A POSITION(&Y &X)
A Y 5S 3P
A X 5S 3P
A*
A* REPORT
A*
A R REPORT
A*%%***********************************************************************
A*%%RI 00000
A*%%FS 004
A*%%***********************************************************************
A FONT(2304 (*POINTSIZE 15))
A 5 8
A 'Code400 IT Projects'
A*
A FONT(2304 (*POINTSIZE 20))
A P1PROJECT 6A O 5 65
A*
A* Programmer
A*
A FONT(2304 (*POINTSIZE 20))
A 12 8
A 'Assigned To:'
A FONT(2304 (*POINTSIZE 15))
A P1USER 10A O 12 21
A FONT(2304 (*POINTSIZE 15))
A*
A* Notes:
A*
A 14 8
A 'Notes:'
A FONT(16951 (*POINTSIZE 25))
A P1NOTE1 50A O 16 8
A FONT(16951 (*POINTSIZE 15))
A P1NOTE2 50A O 17 8
A FONT(16951 (*POINTSIZE 15))
A P1NOTE3 50A O 18 8
A FONT(16951 (*POINTSIZE 15))
A P1NOTE4 50A O 19 8
A FONT(16951 (*POINTSIZE 15))
A P1NOTE5 50A O 20 8
A FONT(16951 (*POINTSIZE 15))
A P1NOTE6 50A O 21 8
A FONT(16951 (*POINTSIZE 15))
A*
A* Start the defining fields section
A*
A 26 8
A 'Project Definition'
A FONT(16951 (*POINTSIZE 25))
A 26 42
A 'Comments:'
A FONT(16951 (*POINTSIZE 25))
A*
A* Project definition - all fields:
A*
A 29 8
A 'Category . . . . :'
A FONT(2304 (*POINTSIZE 10))
A P1CAT 10A O 29 20
A FONT(2304 (*POINTSIZE 10))
A*
A 31 8
A 'Department . . . :'
A FONT(2304 (*POINTSIZE 10))
A P1DEPT 10A O 31 20
A FONT(2304 (*POINTSIZE 10))
A*
A 33 8
A 'Date Assigned . :'
A FONT(2304 (*POINTSIZE 10))
A P1ADATE 8 0O 33 20
A FONT(2304 (*POINTSIZE 10))
A EDTWRD(' / / ')
A*
A 35 8
A 'Date Due . . . . :'
A FONT(2304 (*POINTSIZE 10))
A P1DDATE 8 0O 35 20
A FONT(2304 (*POINTSIZE 10))
A EDTWRD(' / / ')
A*
A 37 8
A 'Priority . . . . :'
A FONT(2304 (*POINTSIZE 10))
A P1PTY 2 0O 37 20
A FONT(2304 (*POINTSIZE 10))
A*
A* The last 4 approval fields
A*
A 40 7
A 'Date Complete:'
A FONT(2304 (*POINTSIZE 08))
A*
A 43 7
A 'QC Approved:'
A FONT(2304 (*POINTSIZE 08))
A*
A 46 7
A 'User Approval:'
A FONT(2304 (*POINTSIZE 08))
A*
A 49 7
A 'Date Installed:'
A FONT(2304 (*POINTSIZE 08))
A*%%***********************************************************************
A*%%SS
A*%%SN P1PROJECT xxxxxx
A*%%CL 007
A*%%CL 002
A*%%CL 002
A*%%CL 001
A*%%CL 001
A*%%CL 001
A*%%CL 001
A*%%CL 001
A*%%CL 005
A*%%CL 003
A*%%CL 002
A*%%CL 002
A*%%***********************************************************************
A*
*
* EJECT THE CURRENT PAGE
*
A R PAGEND
A*%%***********************************************************************
A*%%RI 00000
A*%%***********************************************************************
A ENDPAGE
A*%%***********************************************************************
A*%%CP+999CRTPRTF
A*%%CP+ FILE(JJFLIB/APFP)
A*%%CP+ DEVTYPE(*SCS)
A*%%CP PAGESIZE(*N 198 *N )
A*%%***********************************************************************
| |
DDS - AFP - example advance function printing RPG
Posted By: JimmyOctane Contact |
F*=-=-=-=-=-=-=--=-=-=-==-==-=-====-=-=--=-=-=-=-=-==-=-=-==-=-==
F* Print the project sheet.
F*
F* 06/21/2001 JJF Program will take in parm of project number
F* and print out a project summary sheet.
F*=-=-=-=-=-=-=--=-=-=-==-==-=-====-=-=--=-=-=-=-=-==-=-=-==-=-==
FPRJHDRP IF E K DISK
FPRJMNT2P O E PRINTER
D*
D* Define variables
D*
D InProject S 05
C*
C*=-=-=-=-=-=-=--=-=-=-==-==-=-====-=-=--=-=-=-=-=-==-=-=-==-=-==
C* M A I N L I N E
C*=-=-=-=-=-=-=--=-=-=-==-==-=-====-=-=--=-=-=-=-=-==-=-=-==-=-==
C*
C* Eject the Page
C*
C InProject Chain PRJHDRP
C If %Found(PRJHDRP)
C*
C* Set up print fields
C*
C Movel(p) RESOURCE P1USER
C Movel(p) NOTES1 P1NOTE1
C Movel(p) NOTES2 P1NOTE2
C Movel(p) NOTES3 P1NOTE3
C Movel(p) NOTES4 P1NOTE4
C*
C* Category
C*
C Movel(p) CATEGORY P1CAT
C*
C* Department
C*
C Movel(p) DEPARTMENT P1DEPT
C*
C* Assigned date
C*
C *USA Move RESDATE P1ADATE
C*
C* Due Date
C*
C If DUEDATE <> *Loval
C *USA Move DUEDATE P1DDATE
C Else
C Clear P1DDATE
C Endif
C*
C* Priority
C*
C Z-add PRIORITY P1PTY
C*
C Exsr $Print
C Endif
C*
C Write PAGEND
C Eval *INLR=*ON
C Return
C*
C*=-=-=-=-=-=-=--=-=-=-==-==-=-====-=-=--=-=-=-=-=-==-=-=-==-=-==
C* $Print - Print out the report.
C*=-=-=-=-=-=-=--=-=-=-==-==-=-====-=-=--=-=-=-=-=-==-=-=-==-=-==
CSR $Print Begsr
C*
C*
C* Draw a Box around the page border.
C*
C Eval STRY=.5
C Eval STRX=.5
C Eval ENDY=10
C Eval ENDX=7.5
C Eval LW=.008
C WRITE DRAWBOX
C*
C* Draw a line horizontal line across the middle of the page.
C*
C Eval STRY=2
C Eval STRX=.5
C Eval LLEN=7
C Write HRZLINE
C*
C* Draw a line horizontal line across the middle of the page.
C*
C Eval STRY=4
C Eval STRX=.5
C Eval LLEN=7
C Write HRZLINE
C*
C* Draw a line horizontal line - Start after Project definition
C*
C Eval STRY=6.5
C Eval STRX=.5
C Eval LLEN=3.5
C Write HRZLINE
C*
C* Draw a line horizontal line - Under date complete
C*
C Eval STRY=07.0
C Eval STRX=.5
C Eval LLEN=3.5
C Write HRZLINE
C*
C* Draw a line horizontal line - QC approval
C*
C Eval STRY=07.5
C Eval STRX=.5
C Eval LLEN=3.5
C Write HRZLINE
C*
C* Draw a line horizontal line - User approval
C*
C Eval STRY=08.0
C Eval STRX=.5
C Eval LLEN=3.5
C Write HRZLINE
C*
C* Draw a line horizontal line - Date Installed
C*
C Eval STRY=08.5
C Eval STRX=.5
C Eval LLEN=3.5
C Write HRZLINE
C*
C* Draw a Box around the line vertical line down the middle of the page.
C*
C Eval STRY=4
C Eval STRX=4
C Eval LLEN=6
C Write VRTLINE
C*
C* Draw text using Century Schoolbook font in 36 points.
C*
C Eval Y=1
C Eval X=8
C Eval TEXT=('Code400.com Project - ') +
C %Trim(%Subst(P1USER:1:3)) +
C %Trim(InProject)
C Write ROTTEXT
C Write REPORT
C Endsr
C*=-=-=-=-=-=-=--=-=-=-==-==-=-====-=-=--=-=-=-=-=-==-=-=-==-=-==
C* *INZSR - Initial one time run subroutine.
C*=-=-=-=-=-=-=--=-=-=-==-==-=-====-=-=--=-=-=-=-=-==-=-=-==-=-==
CSR *Inzsr Begsr
C*
C *Entry Plist
C Parm InProject
C*
C Movel(p) InProject P1Project
C*
C Endsr
C*=-=-=-=-=-=-=--=-=-=-==-==-=-====-=-=--=-=-=-=-=-==-=-=-==-=-==
| |
DDS - The ENTFLDATR keyword
Posted By: JimmyOctane Contact |
The ENTFLDATR keyword is used to change an input capable field whenever
the cursor is moved into a field with the keyword specified.
The keyword can be specified at either File, Record or
Field level (if at field level the field must be input capable,
but can be used with the Protect [DSPATR(PR)] keyword).
This keyword is extremely useful for letting the user know where the cursor is
as soon as it enters the field, with no read of the record format.
When putting it to use, I usually use the default keyword of just ENTFLDATR at
file level, which sets the attribute to *COLOR WHT, *DSPATR HI, and *CURSOR.
This means that the field (underline and contents) will be displayed
in White, Highlighted with the cursor visible.
The full structure of the keyword is:
ENTFLDATR([*COLOR colour)] +
[(*DSPATR attrib)] +
[*NOCURSOR | *CURSOR])
The *COLOUR parameter supports any colour short name (WHT, BLU, RED etc.),
the *DSPATR parameter supports all the standard display attributes (RI, HI, etc.)
and the last parameter determines whether the cursor is to be displayed (*CURSOR)
or not (*NOCURSOR).
| |
DDS - DSPDEVU (4/8) : DISPLAY ALL USER'S ACTIVE SCREEN
Posted By: bossé yvain Contact |
** LISTE DES SOURCES :
** DSPDEVU CMD
** DSPDEVUC CLP
** DSPDEVUD CLP
** DSPDEVUE DSPF
** DSPDEVUM CLP
** DSPDEVUS RPGLE
** QPDSPAJBL1 LF
** QPDSPAJBP PF
˜*************************************************************************
˜* ECRAN : DSPDEVUE
˜* CREER LE : xx/09/04 par Yvain Bossé
˜* EMAIL : ybosse@wanadoo.fr
˜* ybosse@free.fr
˜*************************************************************************
A DSPSIZ(24 80 *DS3 -
A 27 132 *DS4)
A REF(*LIBL/DICTIOP)
A PRINT
A*ˆ************************************************************************
A R DSPDEV072 SFL
A*ˆ************************************************************************
A TEXT('Liste des en cours de recepti-
A on')
A WCHX72 1A B 8 2
A 51
AO 52 DSPATR(RI)
A CHECK(ER)
A VALUES('1' '5')
A QUSER 10A O 8 4
A QECRAN 10A O 8 17
A QNBJOB 6S 0O 8 30
A QOCUPUC 7 O 8 39
A QFONCTION 17 O 8 49
A QETAT 8 O 8 69
A*ˆ************************************************************************
A R DSPDEV002 SFLCTL(DSPDEV072)
A*ˆ************************************************************************
A TEXT('Liste des en cours de recepti-
A ons')
A CA03(03 'fin')
A ROLLUP(61)
A ROLLDOWN(62)
A CA05(05 'refresh')
A BLINK
A OVERLAY
A 64 SFLDSP
A 65 SFLDSPCTL
A 63 SFLCLR
A *DS3 SFLSIZ(0012)
A *DS4 SFLSIZ(0006)
A *DS3 SFLPAG(0012)
A *DS4 SFLPAG(0006)
A WLIG72 4S 0H SFLRCDNBR
A 1 3'TOOL'
A 1 72DATE
A EDTCDE(Y)
A 2 2'DSPDEVU'
A 2 72TIME
A 7 2'X'
A DSPATR(HI)
A DSPATR(UL)
A 4 2'Option : 5=gérer 1=envoit message'
A COLOR(BLU)
A 1 27'ECRANS D''UN USER'
A COLOR(WHT)
A DSPATR(UL)
A 7 4'Utilisateur'
A DSPATR(HI)
A DSPATR(UL)
A 7 17'Ecrans '
A DSPATR(HI)
A DSPATR(UL)
A 7 30'Num Job'
A DSPATR(HI)
A DSPATR(UL)
A 7 39'Ocup UC'
A DSPATR(HI)
A DSPATR(UL)
A 7 49'Fonction / progr.'
A DSPATR(HI)
A DSPATR(UL)
A 7 68'etat trav.'
A DSPATR(HI)
A DSPATR(UL)
A*ˆ************************************************************************
A R DSPDEV082
A*ˆ************************************************************************
A TEXT('Ecran proposition fonctions d-
A u SFL')
A 23 2'F3='
A DSPATR(HI)
A 23 6'fin programme'
A 23 21'F5='
A COLOR(WHT)
A 23 25'Rafraichir'
A*ˆ************************************************************************
A R DUMMY
A*ˆ************************************************************************
A TEXT('Ecran fantome')
A ASSUME
A 2 1' '
A DSPATR(ND)
| |
DDS - DSPDEVU (7/8): DISPLAY LIST OF USER'S ACTIVE SCREEN
Posted By: bossé yvain Contact |
** LISTE DES SOURCES :
** DSPDEVU CMD
** DSPDEVUC CLP
** DSPDEVUD CLP
** DSPDEVUE DSPF
** DSPDEVUM CLP
** DSPDEVUS RPGLE
** QPDSPAJBL1 LF
** QPDSPAJBP PF
˜*************************************************************
˜* PF - LISTE DES ECRANS DE L'UTILISATEUR EN COURS
˜*************************************************************
‚*
A R QDSPAJ PFILE(*LIBL/QPDSPAJBP)
‚*
A K QUSER
A K QECRAN
A K QNBJOB
‚*
A S QVIDE2 COMP(EQ ' ')
‚*
| |
DDS - DSPDEVU (8/8): DISPLAY LIST OF USER'S ACTIVE SCREEN
Posted By: bossé yvain Contact |
** LISTE DES SOURCES :
** DSPDEVU CMD
** DSPDEVUC CLP
** DSPDEVUD CLP
** DSPDEVUE DSPF
** DSPDEVUM CLP
** DSPDEVUS RPGLE
** QPDSPAJBL1 LF
** QPDSPAJBP PF
˜**************************************************************************
˜* PF - FICHIER LISTING ECRAN UTILISATEUR
˜**************************************************************************
‚*
A R QDSPAJ
‚*
A QVIDE1 3 COLHDG('VIDE 1 ')
A QECRAN 10 COLHDG('NOM ECRAN ')
A QVIDE2 3 COLHDG('VIDE 2 ')
A QUSER 10 COLHDG('USER ')
A QVIDE3 2 COLHDG('VIDE 3 ')
A QNBJOB 6S 0 COLHDG('NUMERO JOB ')
A QVIDE4 50 COLHDG('VIDE 4 ')
A QOCUPUC 7 COLHDG('OCCUPATION UC % ')
A QVIDE5 1 COLHDG('VIDE 5 ')
A QFONCTION 17 COLHDG('FONCTION ')
A QETAT 8 COLHDG('ETAT ')
‚*
A K QUSER
A K QECRAN
A K QNBJOB
‚*
| |
DDS - commitment control on Iseries table
Posted By: jimmy octane Contact |
Okay here goes... (I attached the code as text docs)
http://www.code400.com/forum/showthread.php?threadid=108&highlight=COMMIT
I am not an expert here but this is what I have
here is my physical file
Code:
A R FILE1R
A*
A F1FLD1 10 COLHDG('Field One')
A F1FLD2 10 COLHDG('Field Two')
A*
A K F1FLD1
Okay now the CL program the start the whole mess
Code:
PGM
DCL VAR(&ERROR) TYPE(*CHAR) LEN(1)
MONMSG MSGID(CPF0000)
CRTJRNRCV JRNRCV(QGPL/JRNFILE1)
CRTJRN JRN(QGPL/JRNFILE1) JRNRCV(QGPL/JRNFILE1)
STRJRNPF FILE(FILE1) JRN(QGPL/JRNFILE1) IMAGES(*BOTH)
STRCMTCTL LCKLVL(*ALL)
CALL PGM(COMMITR) PARM(&ERROR)
IF COND(&ERROR *EQ 'Y') THEN(DO)
ROLLBACK
GOTO EXIT
ENDDO
COMMIT
EXIT: ENDCMTCTL
ENDPGM
you only need create the journal and journal reciever once...
but for this example it tries every time.
Now the RPG....The error flag defaults to 'Y' meaning when
you leave the RPG via F3 the records written to file FILE1 will be
ROLLEDBACK meaning removed from the file.
Code:
fCOMMITD cf e workstn
fFILE1 uf a e k disk commit
f usropn
d DisplayScrn1 S n inz('1')
d CmdString S 256
d CmdLength S 15 5
d OutError S 01
*
c open FILE1
*
c eval S1ERROR = 'Y'
*
c dow DisplayScrn1 = *On
*
c exfmt SCRN1
c select
c when *in03
c
c eval DisplayScrn1 = *Off
c other
c eval F1FLD1 = S1FLD1
c eval F1FLD2 = S1FLD2
c write FILE1R
c clear S1FLD1
c clear S1FLD2
c endsl
*
c enddo
*
c eval OutError = S1ERROR
c eval *Inlr = *On
*----------------------------------------------- ***
* *Inzsr - One time run auto subroutine
*----------------------------------------------- ***
c *INZSR begsr
c *entry plist
c parm OutError
c endsr
So write three or so records...Leave the display up(do not press F3)
open a second session and use DBU/DFU/WRKDBF/QUERY...
to check the file....You will see your records.
Now F3 Outta the program and the records will be removed.
Call the CL again this time change error flag to 'N'
records will be written then commited in the CL.
| |
DDS - Print trigger command to print triggers
Posted By: jamie Contact |
IBM command to print Triggers on the system...
Option to print changed...
PRTTRGPGM
| |
DDS - types of physical and logical files
Posted By: srinivasareddy Contact |
all types of physical and logical file dds structurs examples
| |
DDS - Single page (Page at a time) sub file without key field. So using RRN value.
Posted By: Vellapandi.S.M Contact |
Display Screen DDS. (DSSPAGE)
A DSPSIZ(24 80 *DS3)
A R SINSFL SFL
A EMPNUM R O 6 4REFFLD(EMPDETR/EMPNUM SM/EMPDET)
A EMPNAM R O 6 13REFFLD(EMPDETR/EMPNAM SM/EMPDET)
A EMPPLA R O 6 45REFFLD(EMPDETR/EMPPLA SM/EMPDET)
A R SINSFLCTL SFLCTL(SINSFL)
A CF01(01 'UP')
A CF02(02 'DOWN')
A CF03(03 'EXIT')
A PAGEUP(05)
A PAGEDOWN(06)
A 30 SFLDSP
A 40 SFLDSPCTL
A 45 SFLCLR
A 50 SFLEND(*SCRBAR *MORE)
A SFLSIZ(0005)
A SFLPAG(0005)
A 4 4'Emp #'
A 4 17'Employee Name'
A 4 49'Place'
**************************************************
Program - SINPAGE
H DEBUG
FEMPDET1 IF E DISK INFDS(INFODS)
FDSSPAGE CF E WORKSTN SFILE(SINSFL:SINRRN)
D
DINFODS DS
DEMPRRN 397 400B 0
DSINRRN S 4 0
DTMPEMP S 6 0 INZ(1)
DTMPFLG S 1 0 INZ(0)
D
C TMPEMP SETLL EMPDETR
C EVAL *IN02 = *ON
C DOW *IN03 = *OFF
C
C SELECT
C WHEN *IN02 = *ON OR *IN05 = *ON
C EXSR CLRSFL
C EVAL *IN02 = *OFF
C WHEN *IN01 = *ON OR *IN06 = *ON
C EXSR CLRSFL
C EXSR UPSR
C EVAL *IN01 = *OFF
C ENDSL
C EXSR DOWNSR
C
C IF SINRRN = 0 AND TMPFLG =1
C TMPEMP SETLL EMPDETR
C EXSR DOWNSR
C ENDIF
C IF SINRRN <> 0
C SETON 30
C ENDIF
C SETON 40
C EXFMT SINSFLCTL
C ENDDO
C
C EVAL *INLR = *ON
C
C DOWNSR BEGSR
C
C DO 5
C READ EMPDET1 15
C IF *IN15 = *ON
C LEAVE
C ENDIF
C EVAL SINRRN = SINRRN + 1
C WRITE SINSFL
C IF SINRRN = 1
C EVAL TMPEMP = EMPRRN
C ENDIF
C ENDDO
C
C ENDSR
C
C UPSR BEGSR
C
C TMPEMP SETLL EMPDETR
C DO 5
C READP EMPDET1 15
C IF *IN15 = *ON
C LEAVE
C ENDIF
C EVAL TMPEMP = EMPRRN
C ENDDO
C TMPEMP SETLL EMPDETR
C
C ENDSR
C
C
C CLRSFL BEGSR
C IF SINRRN <> 0
C EVAL SINRRN = 0
C EVAL TMPFLG = 1
C SETOFF 3040
C SETON 45
C WRITE SINSFLCTL
C SETOFF 45
C SETON 3040
C ENDIF
C ENDSR
************************* end *********************
| |
DDS - Multiple Page Subfile DDS
Posted By: Ankur Shah Contact |
*
* To compile:
*
* CRTDSPF FILE(XXX/MULTSFL1DF) SRCFILE(XXX/QDDSSRC)
*
*=======================================================================
A DSPSIZ(24 80 *DS3)
A CA03
A CA12
A*
A R HEADER
A*
A OVERLAY
A 1 26'Multiple Subfiles - Over/Under'
A DSPATR(HI)
A 1 3'MULTSFL1'
A 1 71DATE
A EDTCDE(Y)
A 2 71TIME
A*
A R SFL1 SFL
A*
A DBFNAM 20 O 4 5
A DBMINI 1 O 4 31
A DBLNAM 20 O 4 37
A*
A*
A R SF1CTL SFLCTL(SFL1)
A SFLSIZ(0050)
A SFLPAG(0007)
A OVERLAY
A SFLDSP
A SFLDSPCTL
A SFLCLR
A 90 SFLEND(*MORE)
A CURSOR 1 I 3 2DSPATR(ND)
A 3 5'First Name'
A DSPATR(HI)
A 3 30'MI'
A DSPATR(HI)
A 3 37'Last Name'
A DSPATR(HI)
A RRN1 4S 0H SFLRCDNBR
A*
A R SFL2 SFL
A*
A DBFNAM 20 O 14 5
A DBMINI 1 O 14 31
A DBLNAM 20 O 14 37
A*
A*
A R SF2CTL SFLCTL(SFL2)
A*
A SFLSIZ(0050)
A SFLPAG(0007)
A OVERLAY
A SFLDSP
A SFLDSPCTL
A SFLCLR
A 90 SFLEND(*MORE)
A CURSOR 1 I 13 2DSPATR(ND)
A 13 5'First Name'
A DSPATR(HI)
A 13 30'MI'
A DSPATR(HI)
A 13 37'Last Name'
A DSPATR(HI)
A RRN2 4S 0H SFLRCDNBR
A R FOOTER
A*
A OVERLAY
A 22 3'F3=Exit'
A COLOR(BLU)
A +3'F12=Cancel'
A COLOR(BLU)
| |
DDS - Date Calculator
Posted By: dcutaia Contact |
A*%%TS SD 20060929 105529 DEVDAC REL-V5R3M0 5722-WDS
A*%%EC
A DSPSIZ(24 80 *DS3)
A INDARA
A CA03(03)
A CA09(09)
A CA10(10)
A R DATECALC01
A*%%TS SD 20060929 104655 DEVDAC REL-V5R3M0 5722-WDS
A 1 29'Date Calculator (ADDDUR)'
A DSPATR(HI)
A 3 2'Type date, duration, press Enter.'
A COLOR(BLU)
A 5 2'Date . . . . . . . .'
A INDATE 8A B 5 24
A N98 DSPATR(HI)
A 98 DSPATR(RI)
A 98 DSPATR(PC)
A 5 41'(*MDY format)'
A 98 5 55'This date is not valid.'
A DSPATR(RI)
A 6 2'Duration . . . . . .'
A INDURATION 9Y 0B 6 24DSPATR(HI)
A EDTCDE(Q)
A 7 2'Type . . . . . . . .'
A INDURTYPE 2Y 0B 7 24DSPATR(HI)
A SNGCHCFLD
A CHOICE(1 '>Months')
A CHOICE(2 '>Days')
A CHOICE(3 '>Years')
A 10 2'ADDDUR Results'
A 11 4'*MDY Format . .:'
A DMDY 8A O 11 24
A 11 44'*ISO Format . .:'
A DISO 10A O 11 64
A 12 4'*DMY Format . .:'
A DDMY 8A O 12 24
A 12 44'*USA Format . .:'
A DUSA 10A O 12 64
A 13 4'*YMD Format . .:'
A DYMD 8A O 13 24
A 13 44'*EUR Format . .:'
A DEUR 10A O 13 64
A 14 4'*JUL Format . .:'
A DJUL 6A O 14 24
A 14 44'*JIS Format . .:'
A DJIS 10A O 14 64
A 16 2'EXTRCT results'
A 17 4'Year . . . . . . :'
A EXTRYEAR 4S 0O 17 24
A 18 4'Month . . . . . :'
A EXTRMONTH 2S 0O 18 24
A 19 4'Day . . . . . . :'
A EXTRDAY 2S 0O 19 24
A 21 2'Day of Week . . :'
A DAYOFWEEK 9A O 21 24
A 23 2'F3=Exit'
A COLOR(BLU)
A 23 12'F10=SUBDUR mode'
A COLOR(BLU)
A R DATECALC02
A*%%TS SD 20060929 105529 DEVDAC REL-V5R3M0 5722-WDS
A 1 29'Date Calculator (SUBDUR)'
A DSPATR(HI)
A 3 2'Type dates, press ENTER.'
A COLOR(BLU)
A 5 3'First date . . . . .'
A INDATE 8A B 5 24
A N98 DSPATR(HI)
A 98 DSPATR(RI)
A 98 DSPATR(PC)
A 5 41'(*MDY format)'
A 98 5 55'This date is not valid.'
A DSPATR(RI)
A 6 3'Second date. . . . .'
A INDATE2 8A B 6 24
A N99 DSPATR(HI)
A 99 DSPATR(RI)
A 99 DSPATR(PC)
A 6 41'(*MDY format)'
A 99 6 55'This date is not valid.'
A DSPATR(RI)
A 8 2'Difference'
A 9 4'In years . . . . .'
A DIFFYEARS 9Y 0O 9 24EDTCDE(Q)
A 10 4'In Months . . . . .'
A DIFFMONTHS 9Y 0O 10 24EDTCDE(Q)
A 11 4'In Days . . . . . .'
A DIFFDAYS 9Y 0O 11 24EDTCDE(Q)
A 23 2'F3=Exit'
A COLOR(BLU)
A 23 12'F9=ADDDUR mode'
A COLOR(BLU)
| |
DDS - Display a Digital Clock - Screen
Posted By: Kalpesh Patadia Contact |
5722WDS V5R2M0 020719 SEU SOURCE LISTING 10/30/06 20:57:05
SOURCE FILE . . . . . . . DEVNSK/QDDSSRC
MEMBER . . . . . . . . . CLOCKD1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
0010 A*%%TS SD 20061026 234253 DEVNSK REL-V5R2M0 5722-WDS
0020 A*****************************************************************
0030 A* Display File Name. . : CLOCKD1
0040 A* Description. . . . . : Screen for Digital Clock
0050 A*****************************************************************
0060 A* Copyright (C). . . . : XxxxxxX XXXXXXXXXXXX, XXXXXXXXX *
0070 A*****************************************************************
0080 A* Created by . . . . . : KALPESH PATADIA
0090 A* Company. . . . . . . : XxxxxxX XXXXXXXXXXXX, XXXXXXXXX
0100 A* Date . . . . . . . . : October 27, 2006
0110 A* Project ID . . . . . : XXXX9999 Marked . . : X9999
0120 A* Purpose. . . . . . . : Display a Digital Clock
0130 A* :
0140 A*****************************************************************
0150 A*%%EC
0160 A DSPSIZ(24 80 *DS3)
0170 A CA03(03 'EXIT')
0180 A R CLOCKD10
0190 A*%%TS SD 20061026 234253 DEVNSK REL-V5R2M0 5722-WDS
0200 A WINDOW(2 7 10 67 *NOMSGLIN)
0210 A BLINK
0220 A OVERLAY
0230 A WDWBORDER((*COLOR WHT))
0240 A*****************************************************************
0250 A* HOURS - LEFT DIGIT *
0260 A*****************************************************************
0270 A 11 2 2' _ '
0280 A 11 3 2' / | '
0290 A 11 4 2' | | '
0300 A 11 5 2' | | '
0310 A 11 6 2' |_| '
0320 A 12 2 2' ____ '
0330 A 12 3 2'|___ \ '
0340 A 12 4 2' __) | '
0350 A 12 5 2' / __/ '
0360 A 12 6 2'|_____| '
0370 A*****************************************************************
0380 A* HOURS - RIGHT DIGIT *
0390 A*****************************************************************
0400 A 21 2 11' _ '
0410 A 21 3 11' / | '
0420 A 21 4 11' | | '
0430 A 21 5 11' | | '
0440 A 21 6 11' |_| '
0450 A 22 2 11' ____ '
0460 A 22 3 11'|___ \ '
0470 A 22 4 11' __) | '
0480 A 22 5 11' / __/ '
0490 A 22 6 11'|_____| '
0500 A 23 2 11' _____ '
0510 A 23 3 11'|____/ '
0520 A 23 4 11' |_ \ '
0530 A 23 5 11' ___) | '
0540 A 23 6 11'|____/ '
0550 A 24 2 11' _ _ '
0560 A 24 3 11'| || | '
0570 A 24 4 11'| || |_ '
0580 A 24 5 11'|__ _|'
0590 A 24 6 11' |_| '
0600 A 25 2 11' ____ '
0610 A 25 3 11'| ___| '
0620 A 25 4 11'|___ \ '
0630 A 25 5 11' ___) | '
0640 A 25 6 11'|____/ '
0650 A 26 2 11' __ '
0660 A 26 3 11' / /_ '
0670 A 26 4 11'| _ \ '
0680 A 26 5 11'| (_) | '
0690 A 26 6 11' \___/ '
0700 A 27 2 11' _____ '
0710 A 27 3 11'|___ | '
0720 A 27 4 11' / / '
0730 A 27 5 11' / / '
0740 A 27 6 11' /_/ '
0750 A 28 2 11' ____ '
0760 A 28 3 11' ( __ ) '
0770 A 28 4 11' / __ \ '
0780 A 28 5 11'| (__) |'
0790 A 28 6 11' \____/ '
0800 A 29 2 11' ___ '
0810 A 29 3 11' / _ \ '
0820 A 29 4 11'| (_) | '
0830 A 29 5 11' \__, | '
0840 A 29 6 11' /_/ '
0850 A 20 2 11' ___ '
0860 A 20 3 11' / _ \ '
0870 A 20 4 11'| | | | '
0880 A 20 5 11'| |_| | '
0890 A 20 6 11' \___/ '
0900 A*****************************************************************
0910 A* MINUTES - LEFT DIGITS *
0920 A*****************************************************************
0930 A 31 2 26' _ '
0940 A 31 3 26' / | '
0950 A 31 4 26' | | '
0960 A 31 5 26' | | '
0970 A 31 6 26' |_| '
0980 A 32 2 26' ____ '
0990 A 32 3 26'|___ \ '
1000 A 32 4 26' __) | '
1010 A 32 5 26' / __/ '
1020 A 32 6 26'|_____| '
1030 A 33 2 26' _____ '
1040 A 33 3 26'|____/ '
1050 A 33 4 26' |_ \ '
1060 A 33 5 26' ___) | '
1070 A 33 6 26'|____/ '
1080 A 34 2 26' _ _ '
1090 A 34 3 26'| || | '
1100 A 34 4 26'| || |_ '
1110 A 34 5 26'|__ _|'
1120 A 34 6 26' |_| '
1130 A 35 2 26' ____ '
1140 A 35 3 26'| ___| '
1150 A 35 4 26'|___ \ '
1160 A 35 5 26' ___) | '
1170 A 35 6 26'|____/ '
1180 A 36 2 26' __ '
1190 A 36 3 26' / /_ '
1200 A 36 4 26'| _ \ '
1210 A 36 5 26'| (_) | '
1220 A 36 6 26' \___/ '
1230 A 37 2 26' _____ '
1240 A 37 3 26'|___ | '
1250 A 37 4 26' / / '
1260 A 37 5 26' / / '
1270 A 37 6 26' /_/ '
1280 A 38 2 26' ____ '
1290 A 38 3 26' ( __ ) '
1300 A 38 4 26' / __ \ '
1310 A 38 5 26'| (__) |'
1320 A 38 6 26' \____/ '
1330 A 39 2 26' ___ '
1340 A 39 3 26' / _ \ '
1350 A 39 4 26'| (_) | '
1360 A 39 5 26' \__, | '
1370 A 39 6 26' /_/ '
1380 A 30 2 26' ___ '
1390 A 30 3 26' / _ \ '
1400 A 30 4 26'| | | | '
1410 A 30 5 26'| |_| | '
1420 A 30 6 26' \___/ '
1430 A*****************************************************************
1440 A* MINUTES - RIGHT DIGITS *
1450 A*****************************************************************
1460 A 41 2 35' _ '
1470 A 41 3 35' / | '
1480 A 41 4 35' | | '
1490 A 41 5 35' | | '
1500 A 41 6 35' |_| '
1510 A 42 2 35' ____ '
1520 A 42 3 35'|___ \ '
1530 A 42 4 35' __) | '
1540 A 42 5 35' / __/ '
1550 A 42 6 35'|_____| '
1560 A 43 2 35' _____ '
1570 A 43 3 35'|____/ '
1580 A 43 4 35' |_ \ '
1590 A 43 5 35' ___) | '
1600 A 43 6 35'|____/ '
1610 A 44 2 35' _ _ '
1620 A 44 3 35'| || | '
1630 A 44 4 35'| || |_ '
1640 A 44 5 35'|__ _|'
1650 A 44 6 35' |_| '
1660 A 45 2 35' ____ '
1670 A 45 3 35'| ___| '
1680 A 45 4 35'|___ \ '
1690 A 45 5 35' ___) | '
1700 A 45 6 35'|____/ '
1710 A 46 2 35' __ '
1720 A 46 3 35' / /_ '
1730 A 46 4 35'| _ \ '
1740 A 46 5 35'| (_) | '
1750 A 46 6 35' \___/ '
1760 A 47 2 35' _____ '
1770 A 47 3 35'|___ | '
1780 A 47 4 35' / / '
1790 A 47 5 35' / / '
1800 A 47 6 35' /_/ '
1810 A 48 2 35' ____ '
1820 A 48 3 35' ( __ ) '
1830 A 48 4 35' / __ \ '
1840 A 48 5 35'| (__) |'
1850 A 48 6 35' \____/ '
1860 A 49 2 35' ___ '
1870 A 49 3 35' / _ \ '
1880 A 49 4 35'| (_) | '
1890 A 49 5 35' \__, | '"
1900 A 49 6 35' /_/ '
1910 A 40 2 35' ___ '
1920 A 40 3 35' / _ \ '
1930 A 40 4 35'| | | | '
1940 A 40 5 35'| |_| | '
1950 A 40 6 35' \___/ '
1960 A*****************************************************************
1970 A* SECONDS - LEFT DIGITS *
1980 A*****************************************************************
1990 A 51 2 50' _ '
2000 A 51 3 50' / | '
2010 A 51 4 50' | | '
2020 A 51 5 50' | | '
2030 A 51 6 50' |_| '
2040 A 52 2 50' ____ '
2050 A 52 3 50'|___ \ '
2060 A 52 4 50' __) | '
2070 A 52 5 50' / __/ '
2080 A 52 6 50'|_____| '
2090 A 53 2 50' _____ '
2100 A 53 3 50'|____/ '
2110 A 53 4 50' |_ \ '
2120 A 53 5 50' ___) | '
2130 A 53 6 50'|____/ '
2140 A 54 2 50' _ _ '
2150 A 54 3 50'| || | '
2160 A 54 4 50'| || |_ '
2170 A 54 5 50'|__ _|'
2180 A 54 6 50' |_| '
2190 A 55 2 50' ____ '
2200 A 55 3 50'| ___| '
2210 A 55 4 50'|___ \ '
2220 A 55 5 50' ___) | '
2230 A 55 6 50'|____/ '
2240 A 56 2 50' __ '
2250 A 56 3 50' / /_ '
2260 A 56 4 50'| _ \ '
2270 A 56 5 50'| (_) | '
2280 A 56 6 50' \___/ '
2290 A 57 2 50' _____ '
2300 A 57 3 50'|___ | '
2310 A 57 4 50' / / '
2320 A 57 5 50' / / '
2330 A 57 6 50' /_/ '
2340 A 58 2 50' ____ '
2350 A 58 3 50' ( __ ) '
2360 A 58 4 50' / __ \ '
2370 A 58 5 50'| (__) |'
2380 A 58 6 50' \____/ '
2390 A 59 2 50' ___ '
2400 A 59 3 50' / _ \ '
2410 A 59 4 50'| (_) | '
2420 A 59 5 50' \__, | '"
2430 A 59 6 50' /_/ '
2440 A 50 2 50' ___ '
2450 A 50 3 50' / _ \ '
2460 A 50 4 50'| | | | '
2470 A 50 5 50'| |_| | '
2480 A 50 6 50' \___/ '
2490 A*****************************************************************
2500 A* SECONDS - RIGHT DIGITS *
2510 A*****************************************************************
2520 A 61 2 59' _ '
2530 A 61 3 59' / | '
2540 A 61 4 59' | | '
2550 A 61 5 59' | | '
2560 A 61 6 59' |_| '
2570 A 62 2 59' ____ '
2580 A 62 3 59'|___ \ '
2590 A 62 4 59' __) | '
2600 A 62 5 59' / __/ '
2610 A 62 6 59'|_____| '
2620 A 63 2 59' _____ '
2630 A 63 3 59'|____/ '
2640 A 63 4 59' |_ \ '
2650 A 63 5 59' ___) | '
2660 A 63 6 59'|____/ '
2670 A 64 2 59' _ _ '
2680 A 64 3 59'| || | '
2690 A 64 4 59'| || |_ '
2700 A 64 5 59'|__ _|'
2710 A 64 6 59' |_| '
2720 A 65 2 59' ____ '
2730 A 65 3 59'| ___| '
2740 A 65 4 59'|___ \ '
2750 A 65 5 59' ___) | '
2760 A 65 6 59'|____/ '
2770 A 66 2 59' __ '
2780 A 66 3 59' / /_ '
2790 A 66 4 59'| _ \ '
2800 A 66 5 59'| (_) | '
2810 A 66 6 59' \___/ '
2820 A 67 2 59' _____ '
2830 A 67 3 59'|___ | '
2840 A 67 4 59' / / '
2850 A 67 5 59' / / '
2860 A 67 6 59' /_/ '
2870 A 68 2 59' ____ '
2880 A 68 3 59' ( __ ) '
2890 A 68 4 59' / __ \ '
2900 A 68 5 59'| (__) |'
2910 A 68 6 59' \____/ '
2920 A 69 2 59' ___ '
2930 A 69 3 59' / _ \ '
2940 A 69 4 59'| (_) | '
2950 A 69 5 59' \__, | '"
2960 A 69 6 59' /_/ '
2970 A 60 2 59' ___ '
2980 A 60 3 59' / _ \ '
2990 A 60 4 59'| | | | '
3000 A 60 5 59'| |_| | '
3010 A 60 6 59' \___/ '
3020 A*****************************************************************
3030 A* TIME SEPARATOR : HOUR AND MINUTE *
3040 A*****************************************************************
3050 A 3 21' _ '
3060 A 4 21'(_)'
3070 A 5 21' _ '
3080 A 6 21'(_)'
3090 A*****************************************************************
3100 A* TIME SEPARATOR : MINUTE AND SECONDS *
3110 A*****************************************************************
3120 A 3 45' _ '
3130 A 4 45'(_)'
3140 A 5 45' _ '
3150 A 6 45'(_)'
3160 A 9 51'Day :'
3170 A*****************************************************************
3180 A* FOOTER *
3190 A*****************************************************************
3200 A #WKDAY 10A O 9 58DSPATR(HI)
3210 A 10 51'Date :'
3220 A #CURDT 10A O 10 58DSPATR(HI)
3230 A 10 3'F3=Exit'
3240 A COLOR(BLU)
* * * * E N D O F S O U R C E * * * *
| |
DDS - Single Page Subfile (SFLPAG = SFLSIZ)
Posted By: Kalpesh Patadia Contact |
5722WDS V5R2M0 020719 SEU SOURCE LISTING 10/17/06 03:34:01
SOURCE FILE . . . . . . . DEVNSK/QDDSSRC
MEMBER . . . . . . . . . PGMCTLD1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10 A*%%TS SD 20061017 032159 DEVNSK REL-V5R2M0 5722-WDS
20 A*****************************************************************
30 A* Display File Name. . : PGMCTLD1
40 A* Description. . . . . : Inquiry Screen on PGMCTL
50 A*****************************************************************
"60 A* Copyright ? . . . . : XxxxxxX XXXXXXXXXXXX, XXXXXXXXX *"
70 A*****************************************************************
80 A* Created by . . . . . : KALPESH PATADIA
"90 A* Company. . . . . . . : XxxxxxX XXXXXXXXXXXX, XXXXXXXXX"
100 A* Date . . . . . . . . :
110 A* Project ID . . . . . : XXXX9999 Marked . . : X9999
120 A* Purpose. . . . . . . : Inquiry Screen on PGMCTL
130 A* :
140 A*****************************************************************
150 A*%%EC
160 A DSPSIZ(24 80 *DS3)
170 A ERRSFL
180 A CA03(03 'EXIT')
190 A 66
200 AO 68
210 AON67 CA05(05 'REFRESH')
220 A CA12(12 'CANCEL')
230 A R INQSCR SFL
240 A*%%TS SD 20061013 042550 DEVNSK REL-V5R2M0 5722-WDS
250 A 45 SFLNXTCHG
260 A #OPTN 1Y 0B 9 6EDTCDE(4)
270 A 55 DSPATR(RI)
280 A 55 DSPATR(PC)
290 A PGCPGM R O 9 9REFFLD(PGCFMT/PGCPGM *LIBL/PGMCTL)
300 A PGCCO R O 9 21REFFLD(PGCFMT/PGCCO *LIBL/PGMCTL)
310 A R INQCTL SFLCTL(INQSCR)
320 A*%%TS SD 20061017 024641 DEVNSK REL-V5R2M0 5722-WDS
330 A ROLLUP(60 'PAGE DOWN')
340 A ROLLDOWN(62 'PAGE UP')
350 A CA06(06 'ADD')
360 A OVERLAY
370 A PROTECT
380 A 30 SFLDSP
390 A 32 SFLDSPCTL
400 A 34 SFLCLR
410 A SFLSIZ(0036)
420 A SFLPAG(0036)
430 A *DS3 SFLLIN(0005)
440 A 55 SFLMSG('Invalid Option')
450 A #PGMNM 10A O 1 3
460 A #USRID 10A O 2 3
470 A #TITLE 40A O 1 22
480 A 1 71DATE
490 A EDTCDE(Y)
500 A 2 71TIME
510 A #SUBTL 40A O 2 22
520 A #SEP01 76A O 3 3
"530 A 4 3'Type Option, press enter'"
5722WDS V5R2M0 020719 SEU SOURCE LISTING 10/17/06 03:34:01
SOURCE FILE . . . . . . . DEVNSK/QDDSSRC
MEMBER . . . . . . . . . PGMCTLD1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
540 A COLOR(BLU)
550 A 5 3'1=Display'
560 A COLOR(BLU)
570 A 8 5'Opt'
580 A DSPATR(HI)
590 A #PGMID 10A B 7 9
600 A 8 9'Program ID'
610 A DSPATR(HI)
620 A 8 21'Div #'
630 A DSPATR(HI)
640 A 8 28'Opt'
650 A DSPATR(HI)
660 A 8 32'Program ID'
670 A DSPATR(HI)
680 A 8 44'Div #'
690 A DSPATR(HI)
700 A 8 51'Opt'
710 A DSPATR(HI)
720 A 8 55'Program ID'
730 A DSPATR(HI)
740 A 8 67'Div #'
750 A DSPATR(HI)
760 A 5 14'2=Change'
770 A COLOR(BLU)
780 A 5 24'4=Delete'
790 A COLOR(BLU)
800 A R INQFOT
810 A*%%TS SD 20061016 042851 DEVNSK REL-V5R2M0 5722-WDS
820 A OVERLAY
830 A PROTECT
840 A #SEP02 76A O 22 3
850 A 23 3'F3=Exit'
860 A COLOR(BLU)
870 A 23 12'F5=Refresh'
880 A COLOR(BLU)
890 A N47 21 71'More...'
900 A DSPATR(HI)
910 A 47 21 71' Bottom'
920 A DSPATR(HI)
930 A 23 24'F6=Add'
940 A COLOR(BLU)
950 A R NORECD
960 A*%%TS SD 20061013 025508 DEVNSK REL-V5R2M0 5722-WDS
970 A OVERLAY
980 A PROTECT
990 A 11 8'No Records Found in PGMCTL'
1000 A R DETSCR
1010 A*%%TS SD 20061017 024641 DEVNSK REL-V5R2M0 5722-WDS
1020 A 66
1030 AO 68 CF09(09 'ADD/CHANGE')
1040 A #USRID 10A O 1 2
1050 A #PGMNM 10A O 2 2
1060 A #TITLE 40A O 1 23
5722WDS V5R2M0 020719 SEU SOURCE LISTING 10/17/06 03:34:01
SOURCE FILE . . . . . . . DEVNSK/QDDSSRC
MEMBER . . . . . . . . . PGMCTLD1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
1070 A #SBTL2 40A O 2 23
1080 A N66N68 2 14'DISPLAY'
1090 A DSPATR(HI)
1100 A 66N68 2 14'CHANGE'
1110 A DSPATR(HI)
1120 A 68 2 14'ADD'
1130 A DSPATR(HI)
1140 A 1 72DATE
1150 A EDTCDE(Y)
1160 A 2 72TIME
1170 A #SEP03 78A O 3 2
1180 A #SEP04 78A O 22 2
1190 A* Footer in Change Mode
1200 A 66N68 23 2'F5=Refresh'
1210 A COLOR(BLU)
1220 A 66N68 23 14'F9=Change'
1230 A COLOR(BLU)
1240 A 66N68 23 25'F12=Cancel'
1250 A COLOR(BLU)
1260 A* Footer in Display Mode
1270 A N66N68 23 2'F12=Cancel'
1280 A COLOR(BLU)
1290 A* Footer in Add Mode
1300 A 68 23 2'F5=Refresh'
1310 A COLOR(BLU)
1320 A 68 23 14'F9=Add'
1330 A COLOR(BLU)
1340 A 68 23 22'F12=Cancel'
1350 A COLOR(BLU)
1360 A*
1370 A 6 2'Data Area ID . . . . . . :'
1380 A DSPATR(HI)
1390 A #DATAID 10A B 6 29
1400 A 66
1410 AON68 DSPATR(PR)
1420 A 6 52'Division Number . . . :'
1430 A DSPATR(HI)
1440 A 8 2'Data Area Content. . . . :'
1450 A DSPATR(HI)
1460 A #DTACON 256A B 8 29
1470 A N66N68
1480 AO 67 DSPATR(PR)
1490 A 13 2'Data Area Description. . :'
1500 A DSPATR(HI)
1510 A #DTADSC 50A B 13 29
1520 A N66N68
1530 AO 67 DSPATR(PR)
1540 A #DIVNUM 3Y 0B 6 76EDTCDE(4)
1550 A 66
1560 AON68 DSPATR(PR)
1570 A R DLTRCD
1580 A*%%TS SD 20061017 032102 DEVNSK REL-V5R2M0 5722-WDS
1590 A OVERLAY
5722WDS V5R2M0 020719 SEU SOURCE LISTING 10/17/06 03:34:01
SOURCE FILE . . . . . . . DEVNSK/QDDSSRC
MEMBER . . . . . . . . . PGMCTLD1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
1600 A PROTECT
1610 A 11 8'Delete the Selected Record ?'
1620 A 13 38'Confirm :'
1630 A DSPATR(HI)
1640 A #CONFL 1A B 13 48
1650 A 13 50'(Y/N)'
1660 A DSPATR(HI)
* * * * E N D O F S O U R C E * * * *
| |
DDS - Convert Numbers to Words - Entry Screen
Posted By: Kalpesh Patadia Contact |
5722WDS V5R2M0 020719 SEU SOURCE LISTING 11/05/06 21:27:59
SOURCE FILE . . . . . . . DEVNSK/QDDSSRC
MEMBER . . . . . . . . . CONVNOD1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
010 A*%%TS SD 20061101 221046 DEVNSK REL-V5R2M0 5722-WDS
020 A*****************************************************************
030 A* Display File Name. . : CONVNOD1
040 A* Description. . . . . : Screen to Enter Valid Numeric Figures
050 A*****************************************************************
060 A* Copyright (c). . . . : XxxxxxX XXXXXXXXXXXX, XXXXXXXXX *
070 A*****************************************************************
080 A* Created by . . . . . : KALPESH PATADIA
090 A* Company. . . . . . . : XxxxxxX XXXXXXXXXXXX, XXXXXXXXX
100 A* Date . . . . . . . . : October 27, 2006
110 A* Project ID . . . . . : XXXX9999 Marked . . : X9999
120 A* Purpose. . . . . . . : To convert the Numeric Figures into
130 A* : words. (e.g. 27 = Twenty Seven)
140 A*****************************************************************
150 A*%%EC
060 A DSPSIZ(24 80 *DS3)
170 A CA03(03 'EXIT')
180 A CF05(05 'REFRESH')
190 A R ENTSCR1
200 A*%%TS SD 20061101 221046 DEVNSK REL-V5R2M0 5722-WDS
210 A WINDOW(5 15 15 45 *NOMSGLIN)
220 A #USERID 10A O 1 1
230 A #PGMNAM 10A O 2 1
240 A 1 16'Convert Figures'
250 A DSPATR(HI)
260 A 2 20'to words'
270 A DSPATR(HI)
280 A 1 38DATE
290 A EDTCDE(Y)
300 A 2 38TIME
310 A #SEP01 45A O 3 1COLOR(BLU)
320 A #SEP02 45A O 14 1COLOR(BLU)
330 A 15 1'F3=Exit'
340 A COLOR(BLU)
350 A 15 10'F5=Refresh'
360 A COLOR(BLU)
370 A 5 1'Enter the Figure . . :'
380 A #NUMVL1 16Y 2B 5 25EDTWRD(' . ')
390 A #CONVL1 45A O 9 1
400 A #CONVL2 45A O 10 1
410 A #CONVL3 45A O 11 1
420 A #CONVL4 45A O 12 1
430 A 7 1'Entered Figure in Words :'
440 A DSPATR(HI)
* * * * E N D O F S O U R C E * * * *
| |
|
|
|
