PROCEDURE decouper(Ch_Source,g1,g2,g3,g4,g5,g6)
STCharacter is Structure
s1,s2,s3,s4 are strings on 1
s5,s6 are strings on 2
END

sMySource is string = Ch_Source
stMyCharacters is STCharacter

stMyCharacters:s1 = Middle(sMySource,1,1)
stMyCharacters:s2 = Middle(sMySource,2,1)
stMyCharacters:s3 = Middle(sMySource,3,1)
stMyCharacters:s4 = Middle(sMySource,4,1)
stMyCharacters:s5 = Middle(sMySource,5,2)
stMyCharacters:s6 = Middle(sMySource,7,2)

g1 = stMyCharacters.s2
g2 = stMyCharacters.s1
g3 = stMyCharacters.s4
g4 = stMyCharacters.s3
g5 = stMyCharacters.s6
g6 = stMyCharacters.s5

RESULT stMyCharacters