It would be easier to answer if you showed us the COPY statement. Without seeing it, we can’t be sure how to do it. So you will have to follow the rules given in the COBOL/400 Reference manual (.PDF) in Chapter 9, ‘Compiler-Directing Statements’, the COPY statement topic. That assumes that you are asking about OPM COBOL/400. Note that the latest COBOL/400 manual is apparently from 1994. COBOL/400 is an old language. You should probably change over to using ILE COBOL instead. — Tom

no i wanna pratice wat i learned during my online training ..so that i can prepare myself well for interviews.. is there any method or site with which we can pratice what we learned..

D ex2           ds          1920D ex1             s              1    dim(1940)Operation ismovea    ex1          ex2

The title refers to MSGW status. Can you show us what the message is, including message ID? — Tom

It’s not clear what is meant by “array of length”. Is that the number bytes occupied by the entire array? Is it the length of an array element? Or is it the number of elements in the array? Examples of the array D-specs and an actual MOVEA statement would make it clearer. — Tom

The override and record format name references seemed to imply that SQL wouldn’t be of interest, but it’s also probably how I’d do it. — Tom

@carlosdl: And I partially agree with what you’re saying. But perhaps some of the overall question is how should we use the forum? It’s been clear that members are generally free to use it in individual ways(, so long as our IDs aren’t revoked). Common usage among the most active members, though, would tend to be emulated by others. That’s a simple result of human behavior. — Tom

If you can show a basic example of using I-specs that actually compiles, it’ll be interesting to see. Using I-specs generally requires specifying the record format name, but you’ll have multiple record formats. — Tom

The two DSPLY statements can be removed. They were only for some simple testing. — Tom

It’s more clear what the problem is. RPGIII doesn’t have the more useful features of RPGIV, and the C-specs for adding date values in RPGIII are ugly. Also, for some reason, there is resistance to simply converting the program to RPGIV and fixing it permanently. So, the next best thing is to use a small RPGIV program to do the work and call it.

      * Convert CYYMMDD to mmddyyyy
     H Debug( *yes )

     D SDATMDYY        pr                  extpgm( 'SDATMDYY' )
     D  InDate                        7
     D  Mydate                        8

     D SDATMDYY        pi
     D  InDate                        7
     D  Mydate                        8

      /free
        Mydate = %char( %date(InDate : *CYMD0) + %days( 28 ):*USA0 );
        dsply InDate ;
        dsply Mydate ;

        *inlr = *on ;
        return ;
      /end-free

That can be called from RPGIII with two parameters. The first is 7 characters that contain a CYYMMDD date value, and an 8 character return parameter will be a MMDDYYYY date value. The program name here is SDATMDYY because it converts a “system date” to MMDDYYYY format, but the name can be changed to anything needed. — Tom

Given that you are committed to RPGIII .. 
If you could change to sQLRPG then
you can use the SQL date functions.

If it's the system date plus 28 then this SQL commad might do it..

C/Exec SQL Set :CvtDate = Current_Date + 28 Days
 C/End-Exec

Define CVTDATE in the RPG code as Alptha 10
It will contain the system date plus 28 days

 
But if it's an input field that must be used you will need to get the
input field into an 10 character alpha field .. Date10 in the format of 
'MM/DD/20YY' and then this will do it:

C/EXEC SQL  SET :CvtDate = Date(:DATE10) + days(28)
C/END-EXEC    

Note: I haven't tested this code 

If, after music started on slide 1, you could do a loop from slide 2 to the end, this would be a case of problem solved. You used to be able to do that by a hyper-link to a custom show of slide 2 to end. But, this does not work in Office 2010 – the music does not carry over into the custom show.
The best solution is NOT to embed the music in the presentation but have it looped separately via Media Player.
A “professional” approach would be to time the slides so that the stop and restart of the music seems seamless to the ear.
A programmatic way would be to set up a VBA event handler that looked for the “NextSlide” event and if the current slide was the last slide then selected slide 2. However, that is non-trivial and involves setting up a class module and having some way of activating your handler.

Note that the ‘Answer’ refers to one way of many ways to switch the user under which programs run in the job, but the job user still does not change. The question still needs additional clarification in order to know a proper answer. — Tom

How aboutthoseCarrageReturns?

If the printer is addressed correctly, try varying it off then on.  If that fails, try varying CTL01 off then on and then varying on the printer.

You will also need to configure the ADSL router to address translate (NAT) all the subnets used for the different VLANs, and add routes for 192.168.0.0 255.255.0.0 to point to the IP address on the 3550 in the same subnet as the LAN IP of the ADSL router.

If they are saying you manipulated their URL. they have other issues.Things like a lack of security for starters. I have gone to some webstie and their URL will show in the browser. If you are looking up say a photo gallery and see their URL ends with a “2.jpg” all you need to do is change the “2.jpg” to say “10.jpg” and that’s all it takes. It’s been manipulated. You are trying to hack into areas that may not have a link or authorized. You are now on thier no-no list as they can probaly trace you IP and ban you.

Glad you have a solution.  In that case, I would use a prepared SQL statement.  No overrides, read a record from the trigger file, create the prepared statement, open it, execute it and, close it. 

Ah, so  “I can not use free RPG or RPGLE” should have been interpereted as “I can not use free RPG or any form of RPGLE”.  Please desregard my previous responses, they were basedd on RPGLE.In RPG III or RPG/400 this can be a bit of an issue.  Perhaps the issues are handled in your program  ‘CSYDTC’  but we don’t know.   The problem .. adding 28 days to Dec 5, 2013 will be Dec 33, 2013 ..

Philpl1jb- That would be fine if I only had 3 files. But i actually have 15 and there could be more. As of now i’m not revamping our 315 process. I will be in the future and will get all our EDI procedures streamlined and organized, but for now, i have to work with what i have. Some are in the pipeline and just need another file created. I didn’t want to having to keep changing a program in order to purge the data from these files. So i put all the files into 1 physical file with the number of days to keep for each one. All that is now required is 1 clle to loop through my file by transaction set number and OVRDBF to the filename in the log file. Should we want to do this with other transaction sets, then all i would have to do is add records to a file and let it streamline through. the only other change needed which would be unique to each transaction set, is a 6 line loop in my clle. It’s dynamic, little extra programming is involved and it works pretty sweet.