I have a display file with mandatory fields. Is there anyway
that i can highlight those fields to bring attention to the
user? The same behavior that AS400 makes when we attempt to
execute a command without completing all the required
parameters.
Note: I have used DSPATR(HI) or DPSATR(RI) and they have
different behaviors.
Thanks.
How to read 2 positions at a time in a data area? I have
created a data area of length and i have to read the values
of the data area like 91-92,93-94 at a time up till 100
Service Program
: S1
Modules in S1
: M1
M1 having two procedures
: ADD, SUB
Current Binder Language
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL("ADD")
EXPORT SYMBOL("SUB")
ENDPGMEXP
Doubt:
I need to add one new Module to the Service Program M2
having one procedure ‘MULT’
How to add this new module to the service program S1 ? If I
need to recreate the service program again, Do I need to
mention the Module M1 again while recreating along with new
Module M2?
There is no Binding Directory.
Binder language structure will be like this
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL("ADD")
EXPORT SYMBOL("SUB")
EXPORT SYMBOL("MULT")
ENDPGMEXP
STRPGMEXP PGMLVL(*PREVIOUS)
EXPORT SYMBOL("ADD")
EXPORT SYMBOL("SUB")
ENDPGMEXP
4 persons a, b , c , d have to go to concert which will held
in 17 minutes. there is a bridge which only 2 persons at a
time can cross. its night and they have only one flashlight
with them. Flashlight cannot be thrown. one person should
return with the flashlight
all 4 person have different speed.
a = crosses bridge in 1 min.
b = crosses bridge in 2 min.
c = crosses bridge in 5 min.
d = crosses bridge in 10 min
how can they all reach in time.??
Ex- suppose a and d crosses bridge which will take 10 mins
and then d returns back with a flashlight which will make 20
mins and mission is failed.
Hi i have one question In my srvpgm one module ADDM is there
now i want to add new module i.e SUBM , please answer me IN
STEPS how to write bndlanguage and how it was attach to SRVPGM
Service Program
: S1
Modules in S1
: M1
M1 having two procedures
: ADD, SUB
Current Binder Language
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL("ADD")
EXPORT SYMBOL("SUB")
ENDPGMEXP
Doubt:
I need to add one new Module to the Service Program M2
having one procedure ‘MULT’
How to add this new module to the service program S1 ? If I
need to recreate the service program again, Do I need to
mention the Module M1 again while recreating along with new
Module M2?
There is no Binding Directory.
Binder language structure will be like this
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL("ADD")
EXPORT SYMBOL("SUB")
EXPORT SYMBOL("MULT")
ENDPGMEXP
STRPGMEXP PGMLVL(*PREVIOUS)
EXPORT SYMBOL("ADD")
EXPORT SYMBOL("SUB")
ENDPGMEXP
193
what is meant by object lock requests,held locks and locks
waiting to be applied(wrkobjlck)
why should we apply for locks.Please explain sir.
Hi,Can any body give the code for the below mentioned
quetion.?Im trying to get coding in with easily
inderstanding.Plese give me the coding for this?
1.How would you achieve this requirement with out using
RPG/RPGLE pgm,but by using only CL?Read a database file and
display file contents on the screen when enter key pressed
the next record should be displayed on screen.When the last
record is reached or when F3 key is pressed the program
should exit if the file is empty,a message should be
displayed indicate that there are no records to display.
Database file Name=EMPDBF
Fields in EMPDBF to be displayed on screen
Employee Number- EMPNUM(5,0)
Employee Name- EMPNAM(30,A)
Employee Address-EMP ADDR(50 A)
The content of Physical file is as below:
hfcftp wruquief
SENDPASV 0
CDUP
ASCII
GET 01100901.CSV ramndk/ECP505.EC0110090 (REPLACE
QUIT
Thw above commands will get executed when we call STRTCPFTP
from CL program....
Now if I want to use SFTP what can be the solution?
plz reply in detail....Thank you for ny
help...
I m using RPG/ILERPG to download...
173
can you explain the difference between spacea,spaceb,skipa
and skipb.
I'm new to learning about as400 and printer files.
can any one give me an example using source code showing the
difference that occurs between using these 4 keywords.
A-Physical file PF004 source
UNIQUE
R RR
STUNAM 10
ROLLNU 5 0
MARKS 3 0
SEX 6
K ROLLNU
4 records present in PF004 are
STUNAM ROLLNU MARKS SEX
KAVYA 12,344 55
FEMALE
MADHAVAN 14,579 60
MALE
RAMYA 14,785 70
FEMALE
KRISHNAN 14,988 72
MALE
B-Printer File PRINT1 source
A R HEADER
A 10 3'STUNAM'
A 10 20'ROLLNU'
A 10 30'MARKS'
A 10 40'SEX'
A R DETAIL
A SPACEB(1)
A STUNAM 10 3
A ROLLNU 5 0 20
A MARKS 3 0 30
A SEX 6 40
A R FOOTER
A SPACEB(1)
A 20'END OF REPORT'
C-RPG/400 Program PRTTPG source
FPF004 I F E DISK
FPRINT1 O E PRINTER
C WRITE HEADER
C READ PF004
60
C *IN60 DOWEQ *OFF
C WRITE DETAIL
C READ PF004
60
C ENDDO
C WRITE FOOTER
C SETON LR
D-spooled file result set
Display Spooled File
File . . . . . : PRINT1
Page/Line 1/10
Control . . . . .
Columns 1 - 130
Find . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....
6....+....7....+....8....+....9....+....0....+....1....+....
2....+....3
STUNAM ROLLNU MARKS SEX
KAVYA 12344 055
FEMALE
MADHAVAN 14579 060 MALE
RAMYA 14785 070
FEMALE
KRISHNAN 14988 072
MALE
END OF REPORT
Bottom
F3=Exit F12=Cancel F19=Left F20=Right F24=More keys
I have changed from SPACEB to SPACEA now in my printer file
source
E-Changed PRINT1 Source
A R HEADER
A 10 3'STUNAM'
A 10 20'ROLLNU'
A 10 30'MARKS'
A 10 40'SEX'
A R DETAIL
A SPACEA(1)
A STUNAM 10 3
A ROLLNU 5 0 20
A MARKS 3 0 30
A SEX 6 40
A R FOOTER
A SPACEA(1)
A 20'END OF REPORT'
F-Spooled file Result Set after keyword change
Display Spooled File
File . . . . . : PRINT1
Page/Line 1/10
Control . . . . .
Columns 1 - 130
Find . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....
6....+....7....+....8....+....9....+....0....+....1....+....
2....+....3
KAVYAM 12344U 055KS FEMALE
MADHAVAN 14579 060 MALE
RAMYA 14785 070 FEMALE
KRISHNAN 14988 072 MALE
END OF REPORT
Bottom
F3=Exit F12=Cancel F19=Left F20=Right F24=More keys
Overprinting not displayed.
926
can we use ASCII ,CDUP,SENDPASV commands in SFTP?
371
How to add 99 menu (page down) option in menu creation..
316
Hi,Please give me the the answer for these quesitons?
1.what is IFS and ICF and RAPE amd DISKET fils?
explain with example please?
2.What is the difference between POST AND SPACE OPCODES?
3.Can anybody tell me default printerfile command and
object type?
212
How to inner join more than 2 PFs in a CL program using
OPNQRYF command?
269
all i need to know about cmpseqdat parameter in cmppfm, how
it works and can we retrieve line sequence and date from the
output?
336
Which command is used to replace CDUP command in FTP IF i
WANT TO USE SFTP?
143
In AS/400 projects in Companies whats the meaning of
production support team.what production support involves.also
what work does development,maintenance involve what are the
other teams or processes that are available for as400 project.
Login
| Sign Up
SiteMap shows list of All Categories in this site.
Site Map
