PowerCOBOL V11.0 Reference

4.178 MediaLength Sample Code

The code below shows how to extract the Track, Minute, Second and Frame from the MediaLength. (When the TimeFormat property is set to "10 -Track/Minute/Second/Frame").

           DATA DIVISION. 
           WORKING-STORAGE SECTION. 
           01 MEDIA-LEN. 
             02 LEN 	                PIC S9(9)COMP-5. 
             02 LEN-X REDEFINES LEN PIC X(4). 
           01 MEDIA-LEN-EXTRACT. 
             02 LEN-EXTRACT         PIC S9(9)COMP-5. 
             02 LEN-EXTRACT-X REDEFINES LEN-EXTRACT PIC X(4). 
           01 MCI-MEDIALEN. 
             02 MCI-TRACK           PIC S9(4)COMP-5. 
             02 MCI-MINUTE          PIC S9(4)COMP-5. 
             02 MCI-SECOND          PIC S9(4)COMP-5. 
             02 MCI-FRAME           PIC S9(4)COMP-5. 

           PROCEDURE DIVISION. 
*> Code to extract time in form track/minute/second/frame. 
                     MOVE 10 TO "TimeFormat" OF MCI1. 
                     MOVE "MediaLength" OF MCI1 TO LEN. 
                     MOVE 0 TO LEN-EXTRACT. 
       *> Acquire track field 
       *> (Taking account of 80x86 byte reversal). 
                     MOVE LEN-X(1:1)TO LEN-EXTRACT-X(1:1). 
                     MOVE LEN-EXTRACT TO MCI-TRACK. 
       *> Acquire minute field 
                     MOVE LEN-X(2:1)TO LEN-EXTRACT-X(1:1). 
                     MOVE LEN-EXTRACT TO MCI-MINUTE. 
       *> Acquire second field 
                     MOVE LEN-X(3:1)TO LEN-EXTRACT-X(1:1). 
                     MOVE LEN-EXTRACT TO MCI-SECOND. 
       *> Acquire frame field 
                     MOVE LEN-X(4:1)TO LEN-EXTRACT-X(1:1). 
                     MOVE LEN-EXTRACT TO MCI-FRAME.