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.